Code: Select all
OpenWindow(0, 400, 160, 300, 275, "Calendar", #PB_Window_SystemMenu)
If CreateGadgetList(WindowID(0))
Calendar = CalendarGadget(#PB_Any, 25, 10, 245, 200)
DateStr = StringGadget(#PB_Any, 25, 230, 240, 30, "")
EndIf
;-this works
CurrentDate$ = FormatDate("%yyyy-%mm-%dd",GetGadgetState(Calendar))
SetGadgetText(DateStr,CurrentDate$)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
If EventGadget() = Calendar
;-does nothing
NewDate$ = FormatDate("%yyyy-%mm-%dd",GetGadgetState(Calendar))
SetGadgetText(DateStr,NewDate$)
EndIf
EndSelect
ForEver
