[Win32forth-cvs] win32forth/src/lib excontrols.f,1.12,1.13

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29219/src/lib

Modified Files:
	excontrols.f 
Log Message:
Some minor changes and some more dexing.

Index: excontrols.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** excontrols.f	6 Feb 2006 17:48:17 -0000	1.12
--- excontrols.f	9 Feb 2006 18:04:10 -0000	1.13
***************
*** 1958,1962 ****
  ;Class
  
! :Class HorizScroll	<Super ScrollBar
  
  :M WindowStyle: ( -- style )
--- 1958,1967 ----
  ;Class
  
! \ ------------------------------------------------------------------------
! \ *W <a name="HorizScroll"></a>
! \ *S HorizScroll class
! \ ------------------------------------------------------------------------
! :Class HorizScroll      <Super ScrollBar
! \ *G Scrollbar control (vorizontal).
  
  :M WindowStyle: ( -- style )
***************
*** 1965,1969 ****
  
  ;Class
! \ *G End of ScrollBar class
  
  \ ------------------------------------------------------------------------
--- 1970,1974 ----
  
  ;Class
! \ *G End of HorizScroll class
  
  \ ------------------------------------------------------------------------
***************
*** 1972,1976 ****
  \ ------------------------------------------------------------------------
  :Class VertScroll	<Super ScrollBar
! \ *G Scrollbar control (vertical)
  
  :M WindowStyle: ( -- style )
--- 1977,1981 ----
  \ ------------------------------------------------------------------------
  :Class VertScroll	<Super ScrollBar
! \ *G Scrollbar control (vertical).
  
  :M WindowStyle: ( -- style )
***************
*** 1986,1990 ****
  \ ------------------------------------------------------------------------
  :Class SizeBox 		<Super ScrollBar
! \ *G Size box control
  
  :M WindowStyle: ( -- style )
--- 1991,1995 ----
  \ ------------------------------------------------------------------------
  :Class SizeBox 		<Super ScrollBar
! \ *G Size box control.
  
  :M WindowStyle: ( -- style )
***************
*** 2020,2031 ****
  set-time-pointers
  
! #THEN
! 
! \ ------------------------------------------------------------------------
! \ *W <a name="MonthCalendar"></a>
! \ *S MonthCalendar class
! \ ------------------------------------------------------------------------
! :Class MonthCalendar	<Super Control
! \ *G Month Calendar control
  
  Comment:
--- 2025,2030 ----
  set-time-pointers
  
! \ TODO: Move the SystemTime-struct into class. So that every instance of the
! \ control becomes his own set of values.
  
  Comment:
***************
*** 2073,2076 ****
--- 2072,2087 ----
  Comment;
  
+ #THEN
+ 
+ \ ------------------------------------------------------------------------
+ \ *W <a name="MonthCalendar"></a>
+ \ *S MonthCalendar class
+ \ ------------------------------------------------------------------------
+ :Class MonthCalendar	<Super Control
+ \ *G Month Calendar control.
+ \ ** A month calendar control implements a calendar-like user interface. This
+ \ ** provides the user with a very intuitive and recognizable method of entering
+ \ ** or selecting a date.
+ 
  int style
  
***************
*** 2078,2082 ****
  \ *G Initialise the class.
                  ClassInit: super
-           \      _systemtime /size erase
                  0 to style
                  ;M
--- 2089,2092 ----
***************
*** 2089,2103 ****
  :M Start:       ( Parent -- )
  \ *G Create the control.
! 		to parent
                  ICC_DATE_CLASSES 8 sp@ Call InitCommonControlsEx 3drop
! 		z" SysMonthCal32" Create-Control
! 		;M
  
! :M MinSize: 	( -- x y)
! \ *G return minimum size required to display a month
! 		EraseRect: TempRect
! 		Temprect 0 MCM_GETMINREQRECT SendMessage:Self ?Win-Error
! 		Right: TempRect Bottom: TempRect
! 		;M
  
  :M WindowStyle: ( -- style )
--- 2099,2113 ----
  :M Start:       ( Parent -- )
  \ *G Create the control.
!                 to parent
                  ICC_DATE_CLASSES 8 sp@ Call InitCommonControlsEx 3drop
!                 z" SysMonthCal32" Create-Control
!                 ;M
  
! :M MinSize: 	( -- x y )
! \ *G Return minimum size required to display a month.
!                 EraseRect: TempRect
!                 TempRect 0 MCM_GETMINREQRECT SendMessage:Self ?Win-Error
!                 Right: TempRect Bottom: TempRect
!                 ;M
  
  :M WindowStyle: ( -- style )
***************
*** 2106,2113 ****
--- 2116,2131 ----
  
  :M GetDate:     ( -- day month year )
+ \ *G Retrieves the currently selected date.
+ \ *P \i day \d is the day of the month (0-31).
+ \ *P \i Month \d is the month (January = 1; December = 12)
+ \ *P \i year \d is the year (1601 - 30827).
                  _SystemTime 0  MCM_GETCURSEL SendMessage:Self drop
                  wday w@ wmonth w@ wyear w@ ;M
  
  :M GetToday:    ( -- day month year )
+ \ *G Retrieves the date information for the date specified as "today".
+ \ *P \i day \d is the day of the month (0-31).
+ \ *P \i Month \d is the month (January = 1; December = 12)
+ \ *P \i year \d is the year (1601 - 30827).
                  _systemtime 0 MCM_GETTODAY SendMessage:Self ?Win-Error
                  wday w@ wmonth w@ wyear w@ ;M
***************
*** 2119,2123 ****
  \ *S DateTimePicker class
  \ ------------------------------------------------------------------------
! :Class DateTimePicker	<Super Control
  \ *G Date and Time Picker control
  
--- 2137,2141 ----
  \ *S DateTimePicker class
  \ ------------------------------------------------------------------------
! :Class DateTimePicker   <Super Control
  \ *G Date and Time Picker control
  
***************
*** 2137,2144 ****
  :M Start:       ( Parent -- )
  \ *G Create the control.
! 		to parent
! 		ICC_DATE_CLASSES 8 sp@ Call InitCommonControlsEx 3drop
! 		z" SysDateTimePick32" Create-Control
! 		;M
  
  /*
--- 2155,2162 ----
  :M Start:       ( Parent -- )
  \ *G Create the control.
!                 to parent
!                 ICC_DATE_CLASSES 8 sp@ Call InitCommonControlsEx 3drop
!                 z" SysDateTimePick32" Create-Control
!                 ;M
  
  /*