Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3683/win32forth/demos
Added Files:
CalendarDemo.f
Log Message:
gah:added new demo
--- NEW FILE: CalendarDemo.f ---
\ $Id: CalendarDemo.f,v 1.1 2007/05/09 07:41:22 georgeahubert Exp $
\ Simple calendar G.Hubert Tuesday, May 08 2007
Require calendar.f
anew -CalendarDemo
:Object DemoWindow <super window
MonthCalendar MyCalendar
:m On_Init: ( -- )
self Start: MyCalendar
AutoSize: MyCalendar ;m \ Make Calendar fill window
:M MinSize: ( -- width height )
MinSize: MyCalendar ;m \ Limit minimum size to 1 month
:m On_Size: ( -- )
AutoSize: MyCalendar ;m \ Resize Calendar to window
;object
: Demo ( -- ) Start: DemoWindow ;
: Undemo ( -- ) Close: DemoWindow ;
Demo
|
