Hi TCLers,
I need a modern input widget for a date and time input.

As there's a great widget::dateentry in tklib but I haven't found a
similar tool for the time part.

Any suggestions?

--
Gerhard Reithofer - Techn. EDV Reithofer - http://www.tech-edv.co.at

Hello Gerhard, I could provide a single Date Picker,
looks similar to the Image here at https://m2.material.io/components/date-pickers#mobile-pickers
Check the picture above the text ‚Mobile calendar pickers adapt to a device’s orientation‘.

I show always the selected date on the left, the interface has NO entry, you must select year, month and the date.

I would move the code to the wiki if you don‘t need a range as well :-)

Hi Mole,
looks very good but I need also athe time part even with seconds.

Bye,
Gerhard

On Wed, 10 May 2023, Mole Cool wrote:

> Hello Gerhard, I could provide a single Date Picker,
> looks similar to the Image here at https://m2.material.io/components/date-pickers#mobile-pickers
> Check the picture above the text ‚Mobile calendar pickers adapt to a device’s orientation‘.
>
> I show always the selected date on the left, the interface has NO entry, you must select year, month and the date.
>
> I would move the code to the wiki if you don‘t need a range as well :-)
>

--
Gerhard Reithofer - Techn. EDV Reithofer - http://www.tech-edv.co.at

On Thu, 25 May 2023 17:32:12 +0200, Gerhard Reithofer wrote:

> Hi Mole,
> looks very good but I need also athe time part even with seconds.
>
> Bye,
> Gerhard

I believe the following code does what you want. The key bindings
don't work, but I don't always understand Tk. It seems to be a focus
problem, I don't know.

--------------------
package require Tk
package require Iwidgets

wm title . "Say when"

iwidgets::calendar .cal \
-startday monday -days "M T W T F S S" \
-outline black -weekendbackground #CCCCCC \
-width 250 -height 200 \
-command {set ::date [.cal get]}
pack .cal -expand yes -fill both

iwidgets::spinint .hour \
-labeltext "Hour: " \
-range {0 23} -wrap yes \
-textvariable ::chosenhour
pack .hour -expand yes -fill both
bind .hour <Up> {puts "go up"}
bind .hour <Down> {.hour down}

iwidgets::spinint .minute \
-labeltext "Minutes: " \
-range {0 59} -wrap yes \
-textvariable ::chosenminute
pack .minute -expand yes -fill both

iwidgets::spinint .seconds \
-labeltext "Seconds: " \
-range {0 59} -wrap yes \
-textvariable ::chosensecond
pack .seconds -expand yes -fill both

iwidgets::buttonbox .bb \
-padx 10 -pady 10
..bb add Go -text "Go!" -command {puts "$::date at $::chosenhour:$::chosenminute:$::chosensecond"}
pack .bb -expand yes -fill both

..cal select today
--------------------

source:
https://incrtcl.sourceforge.net/iwidgets/iwidgets/calendar.html
https://incrtcl.sourceforge.net/iwidgets/iwidgets/spinint.html

--
Luc
>>

On Thu, 25 May 2023 18:12:19 -0300, Luc wrote:

> I believe the following code does what you want.

Ooops, bug!

Please insert this after the last line:

last -> .cal select today
insert after -> set ::date [.cal get]

--
Luc
>>

On Thu, 25 May 2023, Luc wrote:
Hi Luc,
thx, will have a look at it :-)

> On Thu, 25 May 2023 17:32:12 +0200, Gerhard Reithofer wrote:
>
> > Hi Mole,
> > looks very good but I need also athe time part even with seconds.
> >
> > Bye,
> > Gerhard
>
>
> I believe the following code does what you want. The key bindings
> don't work, but I don't always understand Tk. It seems to be a focus
> problem, I don't know.
>
>
> --------------------
> package require Tk
> package require Iwidgets

[...]

Bye,
Gerhard

--
Gerhard Reithofer - Techn. EDV Reithofer - http://www.tech-edv.co.at