[Win32forth-cvs] win32forth/src/lib excontrols.f,1.6,1.7

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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

Modified Files:
	excontrols.f 
Log Message:
- Moved some methods from the MultiLineTextBox class into it's TextBox super class.
- Some more documenting of ExControls.f (still work in progress).

Index: excontrols.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** excontrols.f	17 Jan 2006 17:52:00 -0000	1.6
--- excontrols.f	21 Jan 2006 09:01:47 -0000	1.7
***************
*** 21,29 ****
  external

  \ *W <a name="TextBox"></a>
  \ *S TextBox class
  :Class TextBox		<Super EditControl
  \ *G Class for text edit controls
! \ ** (enhaced Version of the EditControl class)

  int style
--- 21,31 ----
  external

+ \ ------------------------------------------------------------------------
  \ *W <a name="TextBox"></a>
  \ *S TextBox class
+ \ ------------------------------------------------------------------------
  :Class TextBox		<Super EditControl
  \ *G Class for text edit controls
! \ ** (enhanced Version of the EditControl class)

  int style
***************
*** 35,39 ****
                  0 to pWmSetFocus ;M

! :M SetWmSetFocus: ( pWmSetFocus -- )
                  to pWmSetFocus ;M

--- 37,42 ----
                  0 to pWmSetFocus ;M

! :M SetWmSetFocus: ( xt -- )
! \ *G Set handler for WM_SETFOCUS messages.
                  to pWmSetFocus ;M

***************
*** 49,87 ****

  :M AddStyle:    ( n -- )
                  to style ;M

  :M Enable:      ( f -- )
                  ID EnableDlgItem: parent ;M

  :M Disable:     ( -- )
                  false Enable: self ;M

  :M ReadOnly:    ( f -- )
                  0 SWAP EM_SETREADONLY SendMessage:Self ?Win-error ;M

! :M SetSelection: ( nEnd nStart -- )   \ Set selection range.
                  EM_SETSEL SendMessage:self drop ;M

  :M SelectAll: 	( -- )
! \ *G Select all the text in control.
                  SetFocus: Self   \ Change the focus for deselecting.
                  -1 0 SetSelection: self
                  ;M

! :M Setfont:     ( handle -- )
!                 1 swap WM_SETFONT SendMessage:Self drop
!                 ;M

! :M SetTextLimit: ( n -- )
!                 0 swap EM_SETLIMITTEXT SendMessage:Self drop
                  ;M

! :M GetTextEx:   { buffer$ maxlen -- buffer$ len } \ greater than 255 bytes
!                 maxlen buffer$ hwnd Call GetWindowText buffer$ swap
                  ;M

! :M SetTextZ:    { addrz -- }
                  hwnd
!                 if   addrz hwnd Call SetWindowText ?win-error
                  then ;M

--- 52,207 ----

  :M AddStyle:    ( n -- )
+ \ *G Set the style of the control. Must be done before the control
+ \ ** is created.
                  to style ;M

  :M Enable:      ( f -- )
+ \ *G Enable the control
                  ID EnableDlgItem: parent ;M

  :M Disable:     ( -- )
+ \ *G Disable the control
                  false Enable: self ;M

  :M ReadOnly:    ( f -- )
+ \ *G Set or remove the read-only style of the edit control.
+ \ ** A value of TRUE sets the read-only style; a value of FALSE removes it.
                  0 SWAP EM_SETREADONLY SendMessage:Self ?Win-error ;M

! :M SetSelection: ( nEnd nStart -- )
! \ *G Selects a range of characters in the edit control. \i nEnd \d specifies the
! \ ** ending character position of the selection. \i nStart \d specifies the
! \ ** starting character position of the selection.
! \ *P The start value can be greater than the end value. The lower of the two values
! \ ** specifies the character position of the first character in the selection. The
! \ ** higher value specifies the position of the first character beyond the selection.
! \ *P The start value is the anchor point of the selection, and the end value is the
! \ ** active end. If the user uses the SHIFT key to adjust the size of the selection,
! \ ** the active end can move but the anchor point remains the same.
! \ *P The control displays a flashing caret at the end position regardless of the relative
! \ ** values of start and end.
                  EM_SETSEL SendMessage:self drop ;M

+ :M GetSelection: ( -- nEnd nStart )
+ \ *G Get the starting and ending character positions of the current selection in the edit control
+ 		NULL NULL EM_GETSEL SendMessage:Self
+ 		DUP HIWORD SWAP LOWORD ;M
+ 
  :M SelectAll: 	( -- )
! \ *G Set the focus to the edit control and select all the text in the control.
                  SetFocus: Self   \ Change the focus for deselecting.
                  -1 0 SetSelection: self
                  ;M

! :M RemoveSelection: ( -- )
! \ *G Remove any selection.
! 		0 -1 SetSelection: self  DROP ;M

! :M GetCursor:   ( -- n )
! \ *G Get location of cursor (chars from start)
!                 GetSelection: self
!                 RemoveSelection: self
!                 GetSelection: self  >R
!                 SetSelection: self  R>
                  ;M

! :M IsModified?: ( -- f )
! \ *G Get the state of an edit control's modification flag. The flag indicates whether
! \ ** the contents of the edit control have been modified.
!                 0 0 EM_GETMODIFY SendMessage:Self
                  ;M

! :M SetModify:	( f -- )
! \ *G Sets or clears the modification flag for an edit control. The modification flag
! \ ** indicates whether the text within the edit control has been modified.
!                 swap 0 EM_SETMODIFY SendMessage:Self drop ;M
! 
! :M NotModified: ( -- )
! \ *G Depreacted method. Use \i SetModify: \d instead.
!                 0 0 EM_SETMODIFY SendMessage:Self drop ;M DEPRECATED
! 
! :M Undo:	( -- )
! \ *G Undoes the last edit control operation in the control's undo queue.
! 		0 0 EM_CANUNDO SendMessage:Self
! 		IF  0 0 EM_UNDO SendMessage:Self drop
! 		ELSE  MB_OK
! 		   Z" Undo notification"
! 		   Z" Nothing to undo."
! 		   GetHandle: self Call MessageBox DROP
! 		THEN
! 		;M
! 
! :M Redo:	( -- )
! \ *G Redoes the last edit control operation in the control's redo queue.
! 		0 0 EM_CANREDO SendMessage:Self
! 		IF  0 0 EM_REDO SendMessage:Self drop
! 		ELSE  MB_OK
! 		   Z" Redo notification"
! 		   Z" Nothing to redo."
! 		   GetHandle: self Call MessageBox DROP
! 		THEN
! 		;M
! 
! :M Cut: 	( -- )
! \ *G Delete (cut) the current selection, if any, in the edit control and
! \ ** copy the deleted text to the clipboard in CF_TEXT format.
! 		0 0 WM_CUT SendMessage:Self  DROP ;M
! 
! :M Copy: 	( -- )
! \ *G Copy the current selection to the clipboard in CF_TEXT format.
! 		0 0 WM_COPY SendMessage:Self  DROP ;M
! 
! :M Paste: 	( -- )
! \ *G Copy the current content of the clipboard to the edit control at the current
! \ ** caret position. Data is inserted only if the clipboard contains data in CF_TEXT
! \ ** format.
! 		0 0 WM_PASTE SendMessage:Self  DROP ;M
! 
! :M Clear: 	( -- )
! \ *G Delete selected text.
! 		0 0 WM_CLEAR SendMessage:Self  DROP ;M
! 
! :M SetFont:     ( handle -- )
! \ *G Set the font in the edit control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M
! 
! :M SetTextLimit: ( n -- )
! \ *G Set the text limit of an edit control.
! \ *P \i n \d Specifies the maximum number of characters the user can enter. This number does
! \ ** not include the null terminator. \n
! \ ** Edit controls on Windows NT/ 2000: If this parameter is zero, the text length is set
! \ ** to 0x7FFFFFFE characters for single-line edit controls or -1 for multiline edit controls. \n
! \ ** Edit controls on Windows 95/98: If this parameter is zero, the text length is set to 0x7FFE
! \ ** characters for single-line edit controls or 0xFFFF for multiline edit controls.
! \ *P The SetTextLimit: method limits only the text the user can enter. It does not affect any text
! \ ** already in the edit control when the message is sent, nor does it affect the length of the text
! \ ** copied to the edit control by the SetText: method. If an application uses the SetText: method
! \ ** to place more text into an edit control than is specified in the SetTextLimit: method, the user can
! \ ** edit the entire contents of the edit control.
! \ *P Before the SetTextLimit: method is called, the default limit for the amount of text a user can enter
! \ ** in an edit control is 32,767 characters.
! \ *P Edit controls on Windows NT/ 2000: For single-line edit controls, the text limit is either 0x7FFFFFFE bytes
! \ ** or the value of \i n \d, whichever is smaller. For multiline edit controls, this value is either
! \ ** -1 bytes or the value of \i n \d, whichever is smaller.
! \ *P Edit controls on Windows 95/98: For single-line edit controls, the text limit is either 0x7FFE bytes or
! \ ** the value of \i n \d, whichever is smaller. For multiline edit controls, this value is either 0xFFFF bytes
! \ ** or the value of \i n \d, whichever is smaller.
!                 0 swap EM_SETLIMITTEXT SendMessage:Self drop ;M
! 
! :M GetTextEx:   { buffer$ maxlen -- buffer$ len }
! \ *G Copies the text of the edit control into a buffer.
! \ *P \i buffer$ \d is the address of the buffer that will receive the text.
! \ *P \i maxlen \d Specifies the maximum number of characters to copy to the
! \ ** buffer, including the NULL character. If the text exceeds this limit, it
! \ ** is truncated.
! \ *P If the method succeeds, \i len \d is the length, in characters, of the copied
! \ ** string, not including the terminating null character.
!                 maxlen buffer$ hwnd Call GetWindowText buffer$ swap ;M
! 
! :M SetTextZ:    ( addrz -- )
! \ *G Copy the text from the 0 terminated string \i addrz \d into the edit control.
                  hwnd
!                 if   hwnd swap Call SetWindowText ?win-error
! 		else drop
                  then ;M

***************
*** 89,96 ****
  \ *G End of TextBox class

  \ *W <a name="PassWordBox"></a>
  \ *S PassWordBox class
  :Class PassWordBox	<super TextBox
! \ *G Editcontrol for entering Passwords.

  :M WindowStyle: ( -- style )
--- 209,219 ----
  \ *G End of TextBox class

+ \ ------------------------------------------------------------------------
  \ *W <a name="PassWordBox"></a>
  \ *S PassWordBox class
+ \ ------------------------------------------------------------------------
  :Class PassWordBox	<super TextBox
! \ *G Class for text edit controls. All characters in the control are displayed
! \ ** as an asterisk \b * \d.

  :M WindowStyle: ( -- style )
***************
*** 100,105 ****
--- 223,230 ----
  \ *G End of PassWordBox class

+ \ ------------------------------------------------------------------------
  \ *W <a name="MultiLineTextBox"></a>
  \ *S MultiLineTextBox class
+ \ ------------------------------------------------------------------------
  :Class MultiLineTextBox         <super TextBox
  \ *G MultiLineTextBox class
***************
*** 109,116 ****
  :M WindowStyle: ( -- style )
                  WindowStyle: super
!                 ES_AUTOVSCROLL OR
!                 ES_MULTILINE OR
!                 ES_WANTRETURN OR
!                 ES_NOHIDESEL OR
                  ;M

--- 234,238 ----
  :M WindowStyle: ( -- style )
                  WindowStyle: super
!                 [ ES_AUTOVSCROLL ES_MULTILINE OR ES_WANTRETURN OR ES_NOHIDESEL OR ] literal or
                  ;M

***************
*** 125,207 ****

  :M SetMargins:  ( left right -- )
! \ *G set margins for window
                  word-join
!                 EC_LEFTMARGIN EC_RIGHTMARGIN OR EM_SETMARGINS
                  SendMessage:self DROP
                  ;M

- :M IsModified?: ( -- f )
-                 0 0 EM_GETMODIFY SendMessage:Self
-                 ;M
- 
- :M NotModified: ( -- )
-                 0 0 EM_SETMODIFY SendMessage:Self drop
-                 ;M
- 
- :M Undo:	( -- )
- \ Send WM_UNDO only if there is something to be undone
- 		0 0 EM_CANUNDO SendMessage:Self
- 		IF  0 0 WM_UNDO SendMessage:Self  ?Win-error
- 		ELSE  MB_OK
- 		   Z" Undo notification"
- 		   Z" Nothing to undo."
- 		   GetHandle: self  Call MessageBox  DROP
- 		THEN
- 		;M
- 
- :M Cut: 	( -- )
- \ *G cut selected text to clipboard
- 		0 0 WM_CUT SendMessage:Self  DROP ;M
- 
- :M Copy: 	( -- )
- \ *G copy selected text to clipboard
- 		0 0 WM_COPY SendMessage:Self  DROP ;M
- 
- :M Paste: 	( -- )
- \ *G paste clipboard text to control
- 		0 0 WM_PASTE SendMessage:Self  DROP ;M
- 
- :M Clear: 	( -- )
- \ *G delete selected text (not to clipboard!)
- 		0 0 WM_CLEAR SendMessage:Self  DROP ;M
- 
- :M SetSelection: ( nEnd nStart -- )
- \ *G set selection range
- 		EM_SETSEL SendMessage:Self  DROP ;M
- 
- :M GetSelection: ( -- nEnd nStart)
- \ *G return selection range
- 		NULL NULL EM_GETSEL SendMessage:Self
- 		DUP HIWORD SWAP LOWORD ;M
- 
  :M SelectAll:	( -- )
! \ *G select all the text in control
  		-1 0 SetSelection: self  DROP ;M

- :M RemoveSelection: ( -- )
- \ *G remove any selection
- 		0 -1 SetSelection: self  DROP ;M
- 
- :M GetCursor:   ( -- n )
- \ *G return location of cursor (chars from start)
-                 GetSelection: self
-                 RemoveSelection: self
-                 GetSelection: self  >R
-                 SetSelection: self  R>
-                 ;M
- 
  :M GetLine:     ( -- n )
! \ *G return location of cursor (lines from start)
                  0 -1 EM_LINEFROMCHAR SendMessage:self ;M

  :M Wrap:        ( -- )
! \ *G set control to wrap text
                  ;M

  :M Unwrap:      ( -- )
! \ *G set control to scroll instead of wrap text
                  ;M

  :M GetLineCount: ( -- n )
                  0 0 EM_GETLINECOUNT SendMessage:self ;M

--- 247,279 ----

  :M SetMargins:  ( left right -- )
! \ *G Sets the widths of the left and right margins for an edit control.
                  word-join
!                 [ EC_LEFTMARGIN EC_RIGHTMARGIN OR ] literal EM_SETMARGINS
                  SendMessage:self DROP
                  ;M

  :M SelectAll:	( -- )
! \ *G Select all the text in the multiline edit control.
  		-1 0 SetSelection: self  DROP ;M

  :M GetLine:     ( -- n )
! \ *G Return location of the cursor (lines from start).
                  0 -1 EM_LINEFROMCHAR SendMessage:self ;M

  :M Wrap:        ( -- )
! \ *G Set control to wrap text.
! \ ** Note this method does nothing!
                  ;M

  :M Unwrap:      ( -- )
! \ *G Set control to scroll instead of wrap text.
! \ ** Note this method does nothing!
                  ;M

  :M GetLineCount: ( -- n )
+ \ *G Retrieves the number of lines in the multiline edit control.
+ \ *P The return value is an integer specifying the total number of
+ \ ** text lines in the multiline edit control. If the control has no text,
+ \ ** the return value is 1. The return value will never be less than 1.
                  0 0 EM_GETLINECOUNT SendMessage:self ;M

***************
*** 217,229 ****
                  then ;

! :M GetSelText:  ( addr -- n ) \ get the selected text from the edit control
! 
!                 \ for some reason this doesn't work on my system, so
!                 \ I do it a little bizarre by using the clipboard...
!                 \ Samstag, Juni 05 2004 - 10:41 dbu
! \               0 EM_GETSELTEXT GetID: self SendDlgItemMessage: parent
! 
!                 Copy: self \ copy the selected text into the clipboard
!                 GetClipboardText \ and copy it back from there into our buffer
                  ;M

--- 289,300 ----
                  then ;

! :M GetSelText:  ( addr -- n )
! \ *G Retrieves the currently selected text from the edit control.
! \ *P \i addr \d is the address of the a buffer that receives the selected text.
! \ ** The calling application must ensure that the buffer is large enough to hold
! \ ** the selected text.
! \ *P Note: The text is copyied to the clipboard, too!
!                 Copy: self       \ copy the selected text into the clipboard
!                 GetClipboardText \ and copy it from there into the buffer
                  ;M

***************
*** 235,240 ****
--- 306,313 ----
  \ *G End of MultiLineTextBox class

+ \ ------------------------------------------------------------------------
  \ *W <a name="RichEditControl"></a>
  \ *S RichEditControl class
+ \ ------------------------------------------------------------------------
  :Class RichEditControl	<Super MultiLineTextBox
  \ *G RichEditControl class
***************
*** 245,260 ****
                  ;M

  :M GetLines: 	( -- nr )
! \ *G how many lines in control
!                 0 0 EM_GETLINECOUNT GetID: self SendDlgItemMessage: parent
!                 ;M
  ;Class
  \ *G End of RichEditControl class

  \ *W <a name="ComboBox"></a>
  \ *S ComboBox class
  :Class ComboBox		<super ComboControl
  \ *G ComboBox control
! \ ** (enhaced Version of the ComboControl class)

  int style
--- 318,341 ----
                  ;M

+ :M GetSelText:  ( addr -- n )
+ \ *G Retrieves the currently selected text from the edit control.
+ \ *P \i addr \d is the address of the a buffer that receives the selected text.
+ \ ** The calling application must ensure that the buffer is large enough to hold
+ \ ** the selected text.
+                 0 EM_GETSELTEXT SendMessage:self ;M
+ 
  :M GetLines: 	( -- nr )
! \ *G Depreacted method. Use \i GetLineCount: \d instead.
!                 GetLineCount: super ;M DEPRECATED
  ;Class
  \ *G End of RichEditControl class

+ \ ------------------------------------------------------------------------
  \ *W <a name="ComboBox"></a>
  \ *S ComboBox class
+ \ ------------------------------------------------------------------------
  :Class ComboBox		<super ComboControl
  \ *G ComboBox control
! \ ** (enhanced Version of the ComboControl class)

  int style
***************
*** 337,342 ****
--- 418,425 ----
  \ *G End of ComboBox class

+ \ ------------------------------------------------------------------------
  \ *W <a name="ComboListBox"></a>
  \ *S ComboListBox class
+ \ ------------------------------------------------------------------------
  :Class ComboListBox	<super ComboBox
  \ *G ComboBox list control
***************
*** 356,364 ****
  \ *G End of ComboListBox class

  \ *W <a name="ListBox"></a>
  \ *S ListBox class
  :Class ListBox		<super ListControl
  \ *G ListBox control (single selection)
! \ ** (enhaced Version of the ListControl class)

  int style
--- 439,449 ----
  \ *G End of ComboListBox class

+ \ ------------------------------------------------------------------------
  \ *W <a name="ListBox"></a>
  \ *S ListBox class
+ \ ------------------------------------------------------------------------
  :Class ListBox		<super ListControl
  \ *G ListBox control (single selection)
! \ ** (enhanced Version of the ListControl class)

  int style
***************
*** 454,459 ****
--- 539,546 ----
  \ *G End of ListBox class

+ \ ------------------------------------------------------------------------
  \ *W <a name="MultiListbox"></a>
  \ *S MultiListbox class
+ \ ------------------------------------------------------------------------
  :Class MultiListbox  	<Super Listbox
  \ *G ListBox control
***************
*** 505,510 ****
--- 592,599 ----
  \ *G End of MultiExListbox class

+ \ ------------------------------------------------------------------------
  \ *W <a name="DragListbox"></a>
  \ *S DragListbox class
+ \ ------------------------------------------------------------------------
  :Class DragListbox	<Super Listbox
  \ *G ListBox control
***************
*** 527,532 ****
--- 616,623 ----
  \ *G End of DragListbox class

+ \ ------------------------------------------------------------------------
  \ *W <a name="UpDownControl"></a>
  \ *S UpDownControl class
+ \ ------------------------------------------------------------------------
  :Class UpDownControl	<Super Control
  \ *G UpDownControl control
***************
*** 604,608 ****
--- 695,705 ----
  \ *G End of UpDownControl control

+ \ ------------------------------------------------------------------------
+ \ *W <a name="CheckBox"></a>
+ \ *S CheckBox class
+ \ ------------------------------------------------------------------------
  :Class CheckBox          <super CheckControl
+ \ *G Class for check buttons
+ \ ** (enhanced Version of the CheckControl class)

  int style
***************
*** 646,651 ****

  ;Class

! :Class RadioButton      <super RadioControl

  int style
--- 743,755 ----

  ;Class
+ \ *G End of CheckBox class

! \ ------------------------------------------------------------------------
! \ *W <a name="RadioButton"></a>
! \ *S RadioButton class
! \ ------------------------------------------------------------------------
! :Class RadioButton	<super RadioControl
! \ *G Class for radio buttons
! \ ** (enhanced Version of the RadioControl class)

  int style
***************
*** 686,691 ****
--- 790,802 ----

  ;Class
+ \ *G End of RadioButton class

+ \ ------------------------------------------------------------------------
+ \ *W <a name="PushButton"></a>
+ \ *S PushButton class
+ \ ------------------------------------------------------------------------
  :Class PushButton	<super ButtonControl
+ \ *G Class for push buttons
+ \ ** (enhanced Version of the ButtonControl class)

  int style
***************
*** 712,726 ****

  ;Class

  :Class DefPushButton	<Super PushButton

  :M WindowStyle: ( -- style)
! 		WindowStyle: super
! 		BS_DEFPUSHBUTTON OR
! 		;M

  ;Class

  :Class Label		<super StaticControl

  int style
--- 823,847 ----

  ;Class
+ \ *G End of PushButton class

+ \ ------------------------------------------------------------------------
+ \ *W <a name="DefPushButton"></a>
+ \ *S DefPushButton class
+ \ ------------------------------------------------------------------------
  :Class DefPushButton	<Super PushButton
+ \ *G Class for the default push buttons

  :M WindowStyle: ( -- style)
! 		WindowStyle: super BS_DEFPUSHBUTTON OR ;M

  ;Class
+ \ *G End of DefPushButton class

+ \ ------------------------------------------------------------------------
+ \ *W <a name="Label"></a>
+ \ *S Label class
+ \ ------------------------------------------------------------------------
  :Class Label		<super StaticControl
+ \ *G Class for static controls

  int style
***************
*** 747,753 ****

  ;Class

! \ a static control showing an image
  |Class StaticImage	<Super Label

  :M ImageType:	( -- ImageType )
--- 868,880 ----

  ;Class
+ \ *G End of Label class

! \ ------------------------------------------------------------------------
! \ *W <a name="StaticImage"></a>
! \ *S StaticImage class
! \ ------------------------------------------------------------------------
  |Class StaticImage	<Super Label
+ \ *G Base class for static control showing an image.
+ \ ** This is an intern class; don't use it directly.

  :M ImageType:	( -- ImageType )
***************
*** 767,773 ****

  ;Class

! \ a static control showing a bitmap
  :Class StaticBitmap	<Super StaticImage

  :M WindowStyle: ( -- style )
--- 894,905 ----

  ;Class
+ \ *G End of StaticImage class

! \ ------------------------------------------------------------------------
! \ *W <a name="StaticBitmap"></a>
! \ *S StaticBitmap class
! \ ------------------------------------------------------------------------
  :Class StaticBitmap	<Super StaticImage
+ \ *G Static control showing a bitmap

  :M WindowStyle: ( -- style )
***************
*** 775,781 ****

  ;Class

! \ a static control showing an icon
  :Class StaticIcon	<Super StaticImage

  :M WindowStyle:	( -- style)
--- 907,918 ----

  ;Class
+ \ *G End of StaticImage class

! \ ------------------------------------------------------------------------
! \ *W <a name="StaticIcon"></a>
! \ *S StaticIcon class
! \ ------------------------------------------------------------------------
  :Class StaticIcon	<Super StaticImage
+ \ *G Static control showing an icon

  :M WindowStyle:	( -- style)
***************
*** 786,792 ****

  ;Class

! \ a static control showing a metafile
  :Class StaticMetafile	<Super StaticImage

  :M WindowStyle:	( -- style )
--- 923,934 ----

  ;Class
+ \ *G End of StaticIcon class

! \ ------------------------------------------------------------------------
! \ *W <a name="StaticMetafile"></a>
! \ *S StaticMetafile class
! \ ------------------------------------------------------------------------
  :Class StaticMetafile	<Super StaticImage
+ \ *G Static control showing an enhanced metafile

  :M WindowStyle:	( -- style )
***************
*** 797,803 ****

  ;Class

! \ a static control showing a frame
  :Class StaticFrame	<Super Label

  :M BlackRect:	( -- )
--- 939,950 ----

  ;Class
+ \ *G End of StaticMetafile class

! \ ------------------------------------------------------------------------
! \ *W <a name="StaticFrame"></a>
! \ *S StaticFrame class
! \ ------------------------------------------------------------------------
  :Class StaticFrame	<Super Label
+ \ *G Static control showing a frame

  :M BlackRect:	( -- )
***************
*** 834,838 ****
--- 981,990 ----

  ;Class
+ \ *G End of StaticFrame class

+ \ *Z
+ 
+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class GroupBox		<super GroupControl

***************
*** 861,864 ****
--- 1013,1018 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class Progressbar	<Super Control

***************
*** 914,917 ****
--- 1068,1073 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class SmoothProgressbar <Super Progressbar

***************
*** 924,927 ****
--- 1080,1085 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class Trackbar		<Super Control \ horizontal

***************
*** 1055,1058 ****
--- 1213,1218 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class VTrackBar	<super TrackBar

***************
*** 1063,1066 ****
--- 1223,1228 ----

  warning off
+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class Statusbar	<Super Control

***************
*** 1135,1142 ****
  ;Class

! 
! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \ \\\ Multipart Statusbar Class
! 
  :Class MultiStatusbar	<Super Statusbar

--- 1297,1303 ----
  ;Class

! \ ------------------------------------------------------------------------
! \ Multipart Statusbar Class
! \ ------------------------------------------------------------------------
  :Class MultiStatusbar	<Super Statusbar

***************
*** 1175,1178 ****
--- 1336,1341 ----
  warning on

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class VertButtonBar	<super VButtonBar

***************
*** 1211,1214 ****
--- 1374,1379 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class BitmapButton	<Super PushButton

***************
*** 1263,1266 ****
--- 1428,1433 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class IconButton 	<Super PushButton

***************
*** 1317,1320 ****
--- 1484,1489 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  |Class ScrollBar	<Super Control

***************
*** 1401,1404 ****
--- 1570,1575 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class VertScroll	<Super ScrollBar

***************
*** 1408,1411 ****
--- 1579,1584 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class SizeBox 		<Super ScrollBar

***************
*** 1442,1445 ****
--- 1615,1620 ----
  #THEN

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class MonthCalendar	<Super Control

***************
*** 1526,1529 ****
--- 1701,1706 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class DateTimePicker	<Super Control

***************
*** 1672,1675 ****
--- 1849,1854 ----
  ;Class

+ \ ------------------------------------------------------------------------
+ \ ------------------------------------------------------------------------
  :Class TabControl	<Super Control