[Win32forth-cvs] win32forth-stc/demos CalendarDemo.f,NONE,1.1

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1588/win32forth-stc/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:37:04 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