Menu
▾
▴
[Win32forth-cvs] win32forth/src/lib excontrols.f,1.7,1.8
|
From: Dirk B. <db...@us...> - 2006-01-22 10:44:25
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9229/src/lib Modified Files: excontrols.f Log Message: - 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.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** excontrols.f 21 Jan 2006 09:01:47 -0000 1.7 --- excontrols.f 22 Jan 2006 10:44:16 -0000 1.8 *************** *** 57,65 **** :M Enable: ( f -- ) ! \ *G Enable the control ID EnableDlgItem: parent ;M :M Disable: ( -- ) ! \ *G Disable the control false Enable: self ;M --- 57,65 ---- :M Enable: ( f -- ) ! \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) ! \ *G Disable the control. false Enable: self ;M *************** *** 96,100 **** :M RemoveSelection: ( -- ) \ *G Remove any selection. ! 0 -1 SetSelection: self DROP ;M :M GetCursor: ( -- n ) --- 96,100 ---- :M RemoveSelection: ( -- ) \ *G Remove any selection. ! 0 -1 SetSelection: self ;M :M GetCursor: ( -- n ) *************** *** 121,145 **** 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: ( -- ) --- 121,151 ---- 0 0 EM_SETMODIFY SendMessage:Self drop ;M DEPRECATED + :M Undo?: ( -- f ) + \ *G Check is there is an operation in the control's undo queue. + 0 0 EM_CANUNDO SendMessage:Self ;M + :M Undo: ( -- ) \ *G Undoes the last edit control operation in the control's undo queue. ! Undo?: 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?: ( -- f ) ! \ *G Check is there is an operation in the control's redo queue. ! 0 0 EM_CANREDO SendMessage:Self ;M :M Redo: ( -- ) \ *G Redoes the last edit control operation in the control's redo queue. ! Redo?: 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: ( -- ) *************** *** 163,167 **** :M SetFont: ( handle -- ) ! \ *G Set the font in the edit control. 1 swap WM_SETFONT SendMessage:Self drop ;M --- 169,173 ---- :M SetFont: ( handle -- ) ! \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M *************** *** 228,232 **** \ ------------------------------------------------------------------------ :Class MultiLineTextBox <super TextBox ! \ *G MultiLineTextBox class CREATE 'tabs 16 , \ tabstops in dialog-box units (32 default) --- 234,238 ---- \ ------------------------------------------------------------------------ :Class MultiLineTextBox <super TextBox ! \ *G Class for multi line text edit controls. CREATE 'tabs 16 , \ tabstops in dialog-box units (32 default) *************** *** 255,259 **** :M SelectAll: ( -- ) \ *G Select all the text in the multiline edit control. ! -1 0 SetSelection: self DROP ;M :M GetLine: ( -- n ) --- 261,265 ---- :M SelectAll: ( -- ) \ *G Select all the text in the multiline edit control. ! -1 0 SetSelection: self ;M :M GetLine: ( -- n ) *************** *** 311,315 **** \ ------------------------------------------------------------------------ :Class RichEditControl <Super MultiLineTextBox ! \ *G RichEditControl class :M Start: ( Parent -- ) --- 317,321 ---- \ ------------------------------------------------------------------------ :Class RichEditControl <Super MultiLineTextBox ! \ *G Class for rich edit controls. :M Start: ( Parent -- ) *************** *** 350,365 **** :M AddStyle: ( n -- ) to style ;M ! :M SetDir: { dirz$ attrib -- } ! dirz$ attrib CB_DIR SendMessage:Self drop ;M :M AddStringTo: ( z"string" -- ) ! 0 CB_ADDSTRING SendMessage:Self drop ;M :M SetSelection: ( n -- ) 0 swap CB_SETCURSEL SendMessage:Self drop ;M :M GetSelectedString: ( -- addr cnt ) 0 0 CB_GETCURSEL SendMessage:Self new$ dup rot CB_GETLBTEXT SendMessage:Self --- 356,399 ---- :M AddStyle: ( n -- ) + \ *G Set the style of the control. Must be done before the control + \ ** is created. to style ;M ! :M SetDir: ( dirz$ attrib -- ) ! \ *G Add the names of directories and files that match a specified string and ! \ ** set of file attributes. CB_DIR can also add mapped drive letters to the list. ! \ *P \i attrib \d Specifies the attributes of the files or directories to be added to ! \ ** the combo box. This parameter can be one or more of the following values: ! \ *L ! \ *| DDL_ARCHIVE | Includes archived files. | ! \ *| DDL_DIRECTORY | Includes subdirectories, which are enclosed in square brackets ([ ]). | ! \ *| DDL_DRIVES All | mapped drives are added to the list. Drives are listed in the form [-x-], where x is the drive letter. | ! \ *| DDL_EXCLUSIVE | Includes only files with the specified attributes. By default, read-write files are listed even if DDL_READWRITE is not specified. | ! \ *| DDL_HIDDEN | Includes hidden files. | ! \ *| DDL_READONLY | Includes read-only files. | ! \ *| DDL_READWRITE | Includes read-write files with no additional attributes. This is the default. | ! \ *| DDL_SYSTEM | Includes system files. | ! \ *P \i dirz$ \d specifies an absolute path, relative path, or file name. An absolute path ! \ ** can begin with a drive letter (for example, d:\) or a UNC name (for example, \\machinename\sharename). ! \ ** If the string specifies a file name or directory that has the attributes specified by ! \ ** the wParam parameter, the file name or directory is added to the list. If the file name ! \ ** or directory name contains wildcard characters (? or *), all files or directories that ! \ ** match the wildcard expression and have the attributes specified by the wParam parameter ! \ ** are added to the list displayed in the combo box. ! CB_DIR SendMessage:Self drop ;M :M AddStringTo: ( z"string" -- ) ! \ *G Add a string to the list box of a combo box. If the combo box does not have the ! \ ** CBS_SORT style, the string is added to the end of the list. Otherwise, the string ! \ ** is inserted into the list, and the list is sorted. :Self drop ;M ! 0 CB_ADDSTRING SendMessage :M SetSelection: ( n -- ) + \ *G Select a string in the list of a combo box. 0 swap CB_SETCURSEL SendMessage:Self drop ;M :M GetSelectedString: ( -- addr cnt ) + \ *G Get the selected from the combo box. + \ ** Note: The string is returned in the global \i NEW$ \d. 0 0 CB_GETCURSEL SendMessage:Self new$ dup rot CB_GETLBTEXT SendMessage:Self *************** *** 367,374 **** :M Setfont: ( handle -- ) 1 swap WM_SETFONT SendMessage:Self drop ;M :M InsertStringAt: ( lpszString posn -- ) ! \ *G insert string in specified position (0 based) CB_INSERTSTRING SendMessage:Self CB_ERR OVER = SWAP CB_ERRSPACE = OR --- 401,412 ---- :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M :M InsertStringAt: ( lpszString posn -- ) ! \ *G Insert string at the specified position. ! \ *P \i posn \d specifies the zero-based index of the position at which to insert ! \ ** the string. If this parameter is -1, the string is added to the end of the list. ! \ *P \i lpszString \d is a null-terminated string to be inserted. CB_INSERTSTRING SendMessage:Self CB_ERR OVER = SWAP CB_ERRSPACE = OR *************** *** 376,416 **** :M DeleteString: ( index -- ) ! \ *G delete string in specified position (0 based) 0 SWAP CB_DELETESTRING SendMessage:Self DROP ;M :M Clear: ( -- ) ! \ *G clears all strings from combo box 0 0 CB_RESETCONTENT SendMessage:Self DROP ;M :M Find: ( lpszString -- index ) ! \ *G search the list for an item beginning with the string (case-insensitive) -1 CB_FINDSTRING SendMessage:Self ;M :M FindExact: ( lpszString -- index ) ! \ *G find the first item that matches the string exactly (case-insensitive) -1 CB_FINDSTRINGEXACT SendMessage:Self ;M :M GetCount: ( -- n ) ! \ *G return count of items in list 0 0 CB_GETCOUNT SendMessage:Self ;M :M SelectString: ( lpszString -- index ) ! \ *G select item beginning with string -1 CB_SELECTSTRING SendMessage:Self ;M :M GetStringAt: ( index -- a n ) ! \ *G return string of specified item \ TODO: Don't use HERE here !!! HERE SWAP CB_GETLBTEXT SendMessage:Self HERE SWAP ;M ! :M GetCurrent: ( -- index) \ *G return current selection item 0 0 CB_GETCURSEL SendMessage:Self ;M :M Enable: ( f -- ) ! ID EnableDlgItem: parent ;M :M Disable: ( -- ) false Enable: self ;M --- 414,457 ---- :M DeleteString: ( index -- ) ! \ *G Delete a string. ! \ *P \i index \d specifies the zero-based index of the string to delete. 0 SWAP CB_DELETESTRING SendMessage:Self DROP ;M :M Clear: ( -- ) ! \ *G Remove all strings from the combo box 0 0 CB_RESETCONTENT SendMessage:Self DROP ;M :M Find: ( lpszString -- index ) ! \ *G Search the list for an item beginning with the string (case-insensitive) -1 CB_FINDSTRING SendMessage:Self ;M :M FindExact: ( lpszString -- index ) ! \ *G Find the first item that matches the string exactly (case-insensitive) -1 CB_FINDSTRINGEXACT SendMessage:Self ;M :M GetCount: ( -- n ) ! \ *G Return count of items in list 0 0 CB_GETCOUNT SendMessage:Self ;M :M SelectString: ( lpszString -- index ) ! \ *G Select item beginning with string -1 CB_SELECTSTRING SendMessage:Self ;M :M GetStringAt: ( index -- a n ) ! \ *G Return string of specified item. \ TODO: Don't use HERE here !!! HERE SWAP CB_GETLBTEXT SendMessage:Self HERE SWAP ;M ! :M GetCurrent: ( -- index ) \ *G return current selection item 0 0 CB_GETCURSEL SendMessage:Self ;M :M Enable: ( f -- ) ! \ *G Enable the control. ! ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M *************** *** 480,483 **** --- 521,525 ---- :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M *************** *** 528,534 **** --- 570,578 ---- :M Enable: ( f -- ) + \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M *************** *** 687,693 **** --- 731,739 ---- :M Enable: ( f -- ) + \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M *************** *** 733,743 **** :M Enable: ( f -- ) ID EnableDlgItem: parent ;M :M Disable: ( -- ) ! false Enable: self ! ;M :M Setfont: ( handle -- ) 1 swap WM_SETFONT SendMessage:Self drop ;M --- 779,791 ---- :M Enable: ( f -- ) + \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) ! \ *G Disable the control. ! false Enable: self ;M :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M *************** *** 781,790 **** --- 829,841 ---- :M Enable: ( f -- ) + \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M *************** *** 814,823 **** --- 865,877 ---- :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M :M Enable: ( f -- ) + \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M *************** *** 859,868 **** --- 913,925 ---- :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M :M Enable: ( f -- ) + \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M *************** *** 891,894 **** --- 948,952 ---- :M SetFont: ( fhndl -- ) + \ *G Set the font in the control. drop ;M *************** *** 983,991 **** \ *G End of StaticFrame class - \ *Z - \ ------------------------------------------------------------------------ \ ------------------------------------------------------------------------ :Class GroupBox <super GroupControl int style --- 1041,1051 ---- \ *G End of StaticFrame class \ ------------------------------------------------------------------------ + \ *W <a name="GroupBox"></a> + \ *S GroupBox class \ ------------------------------------------------------------------------ :Class GroupBox <super GroupControl + \ *G GroupBox control + \ ** (enhanced Version of the GroupControl class) int style *************** *** 1003,1019 **** --- 1063,1086 ---- :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M :M Enable: ( f -- ) + \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M ;Class + \ *G End of GroupBox class \ ------------------------------------------------------------------------ + \ *W <a name="Progressbar"></a> + \ *S Progressbar class \ ------------------------------------------------------------------------ :Class Progressbar <Super Control + \ *G Progressbar control int style *************** *** 1067,1074 **** --- 1134,1145 ---- ;Class + \ *G End of Progressbar class \ ------------------------------------------------------------------------ + \ *W <a name="SmoothProgressbar"></a> + \ *S SmoothProgressbar class \ ------------------------------------------------------------------------ :Class SmoothProgressbar <Super Progressbar + \ *G SmoothProgressbar control :M WindowStyle: ( -- style) *************** *** 1079,1086 **** ;Class \ ------------------------------------------------------------------------ \ ------------------------------------------------------------------------ ! :Class Trackbar <Super Control \ horizontal int style --- 1150,1161 ---- ;Class + \ *G End of SmoothProgressbar class \ ------------------------------------------------------------------------ + \ *W <a name="Trackbar"></a> + \ *S Trackbar class \ ------------------------------------------------------------------------ ! :Class Trackbar <Super Control ! \ *G Trackbar control (horizontal) int style *************** *** 1156,1168 **** 0 0 TBM_GETTHUMBLENGTH SendMessage:Self ;M - \ sets the length of the slider in a trackbar :M SetThumbLength: ( n -- ) 0 SWAP TBM_SETTHUMBLENGTH SendMessage:Self DROP ;M - \ retrieves the bounding rectangle for the trackbar's channel :M GetChannelRect: ( lpRect) 0 TBM_GETCHANNELRECT SendMessage:Self DROP ;M - \ retrieves the bounding rectangle for the slider :M GetThumbRect: ( lpRect) \ *G retrieves the bounding rectangle for the slider --- 1231,1242 ---- 0 0 TBM_GETTHUMBLENGTH SendMessage:Self ;M :M SetThumbLength: ( n -- ) + \ *G sets the length of the slider in a trackbar 0 SWAP TBM_SETTHUMBLENGTH SendMessage:Self DROP ;M :M GetChannelRect: ( lpRect) + \ *G retrieves the bounding rectangle for the trackbar's channel 0 TBM_GETCHANNELRECT SendMessage:Self DROP ;M :M GetThumbRect: ( lpRect) \ *G retrieves the bounding rectangle for the slider *************** *** 1206,1219 **** :M Enable: ( f -- ) ! ID EnableDlgItem: parent ;M :M Disable: ( -- ) ! false Enable: self ;M ;Class \ ------------------------------------------------------------------------ \ ------------------------------------------------------------------------ :Class VTrackBar <super TrackBar :M WindowStyle: ( -- style ) --- 1280,1299 ---- :M Enable: ( f -- ) ! \ *G Enable the control. ! ID EnableDlgItem: parent ;M :M Disable: ( -- ) ! \ *G Disable the control. ! false Enable: self ;M ;Class + \ *G End of Trackbar class \ ------------------------------------------------------------------------ + \ *W <a name="VTrackBar"></a> + \ *S VTrackBar class \ ------------------------------------------------------------------------ :Class VTrackBar <super TrackBar + \ *G Trackbar control (vertical) :M WindowStyle: ( -- style ) *************** *** 1221,1229 **** --- 1301,1314 ---- ;Class + \ *G End of VTrackBar class warning off + \ ------------------------------------------------------------------------ + \ *W <a name="Statusbar"></a> + \ *S Statusbar class \ ------------------------------------------------------------------------ :Class Statusbar <Super Control + \ *G Statusbar control INT BorderStyle \ style of border to use *************** *** 1266,1270 **** :M MinHeight: ( #pixels -- ) \ *G set minimum height of text region (not including borders) ! \ +p NULL MinHeight: self appears to reset to the default height statusbar 0 SWAP SB_SETMINHEIGHT SendMessage:Self DROP ;M --- 1351,1355 ---- :M MinHeight: ( #pixels -- ) \ *G set minimum height of text region (not including borders) ! \ *P NULL MinHeight: self appears to reset to the default height statusbar 0 SWAP SB_SETMINHEIGHT SendMessage:Self DROP ;M *************** *** 1290,1293 **** --- 1375,1379 ---- :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M *************** *** 1296,1304 **** nip swap - nip ;M ;Class \ ------------------------------------------------------------------------ ! \ Multipart Statusbar Class \ ------------------------------------------------------------------------ :Class MultiStatusbar <Super Statusbar INT nParts \ number of parts in statusbar --- 1382,1393 ---- nip swap - nip ;M ;Class + \ *G End of Statusbar class \ ------------------------------------------------------------------------ ! \ *W <a name="MultiStatusbar"></a> ! \ *S MultiStatusbar class \ ------------------------------------------------------------------------ :Class MultiStatusbar <Super Statusbar + \ *G Multipart Statusbar control INT nParts \ number of parts in statusbar *************** *** 1334,1344 **** --- 1423,1439 ---- ;Class + \ *G End of MultiStatusbar class + warning on \ ------------------------------------------------------------------------ + \ *W <a name="VertButtonBar"></a> + \ *S VertButtonBar class \ ------------------------------------------------------------------------ :Class VertButtonBar <super VButtonBar + \ *G VertButtonBar control :M SetFont: { fonthndl \ hb1 -- } + \ *G Set the font in the control. hbb to hb1 begin hb1 *************** *** 1348,1351 **** --- 1443,1447 ---- :M Enable: { flag \ hb1 -- } + \ *G Enable the control. hbb to hb1 begin hb1 *************** *** 1354,1362 **** --- 1450,1469 ---- repeat ;M + :M Disable: ( -- ) + \ *G Disable the control. + false Enable: self ;M + ;Class + \ *G End of VertButtonBar class + \ ------------------------------------------------------------------------ + \ *W <a name="HorizButtonBar"></a> + \ *S HorizButtonBar class + \ ------------------------------------------------------------------------ :Class HorizButtonBar <super HButtonBar + \ *G HorizButtonBar control :M SetFont: { fonthndl \ hb1 -- } + \ *G Set the font in the control. hbb to hb1 begin hb1 *************** *** 1366,1369 **** --- 1473,1477 ---- :M Enable: { flag \ hb1 -- } + \ *G Enable the control. hbb to hb1 begin hb1 *************** *** 1372,1380 **** --- 1480,1496 ---- repeat ;M + :M Disable: ( -- ) + \ *G Disable the control. + false Enable: self ;M + ;Class + \ *G End of HorizButtonBar class \ ------------------------------------------------------------------------ + \ *W <a name="BitmapButton"></a> + \ *S BitmapButton class \ ------------------------------------------------------------------------ :Class BitmapButton <Super PushButton + \ *G BitmapButton control int hbitmap \ bitmap handle for button *************** *** 1427,1434 **** --- 1543,1554 ---- ;Class + \ *G End of BitmapButton class \ ------------------------------------------------------------------------ + \ *W <a name="IconButton"></a> + \ *S IconButton class \ ------------------------------------------------------------------------ :Class IconButton <Super PushButton + \ *G IconButton control int hicon *************** *** 1483,1490 **** --- 1603,1615 ---- ;Class + \ *G End of IconButton class \ ------------------------------------------------------------------------ + \ *W <a name="ScrollBar"></a> + \ *S ScrollBar class \ ------------------------------------------------------------------------ |Class ScrollBar <Super Control + \ *G Scrollbar control + \ ** Note: this is an internal class. Don't use it directly. int style *************** *** 1552,1562 **** :M SetFont: ( hndl -- ) ! \ *G dummy for ForthForm drop ;M :M Enable: ( f -- ) ID EnableDlgItem: parent ;M :M Disable: ( -- ) false Enable: self ;M --- 1677,1690 ---- :M SetFont: ( hndl -- ) ! \ *G Set the font in the control. ! \ ** Note that this is a dummy method in this class. drop ;M :M Enable: ( f -- ) + \ *G Enable the control. ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M *************** *** 1569,1576 **** --- 1697,1708 ---- ;Class + \ *G End of ScrollBar class \ ------------------------------------------------------------------------ + \ *W <a name="VertScroll"></a> + \ *S VertScroll class \ ------------------------------------------------------------------------ :Class VertScroll <Super ScrollBar + \ *G Scrollbar control (vertical) :M WindowStyle: ( -- style ) *************** *** 1578,1585 **** --- 1710,1721 ---- ;Class + \ *G End of VertScroll class \ ------------------------------------------------------------------------ + \ *W <a name="SizeBox"></a> + \ *S SizeBox class \ ------------------------------------------------------------------------ :Class SizeBox <Super ScrollBar + \ *G Size box control :M WindowStyle: ( -- style ) *************** *** 1587,1590 **** --- 1723,1727 ---- ;Class + \ *G End of SizeBox class #IFNDEF wYear *************** *** 1616,1621 **** --- 1753,1761 ---- \ ------------------------------------------------------------------------ + \ *W <a name="MonthCalendar"></a> + \ *S MonthCalendar class \ ------------------------------------------------------------------------ :Class MonthCalendar <Super Control + \ *G Month Calendar control Comment: *************** *** 1700,1707 **** --- 1840,1851 ---- wday w@ wmonth w@ wyear w@ ;M ;Class + \ *G End of MonthCalendar class \ ------------------------------------------------------------------------ + \ *W <a name="DateTimePicker"></a> + \ *S DateTimePicker class \ ------------------------------------------------------------------------ :Class DateTimePicker <Super Control + \ *G Date and Time Picker control int style *************** *** 1848,1855 **** --- 1992,2003 ---- ;Class + \ *G End of DateTimePicker class \ ------------------------------------------------------------------------ + \ *W <a name="TabControlr"></a> + \ *S TabControl class \ ------------------------------------------------------------------------ :Class TabControl <Super Control + \ *G Tab control Record: tc_Item *************** *** 2032,2041 **** :M Enable: ( f -- ) ! ID EnableDlgItem: parent ;M :M Disable: ( -- ) false Enable: self ;M :M Setfont: ( handle -- ) 1 swap WM_SETFONT SendMessage:Self drop ;M --- 2180,2192 ---- :M Enable: ( f -- ) ! \ *G Enable the control. ! ID EnableDlgItem: parent ;M :M Disable: ( -- ) + \ *G Disable the control. false Enable: self ;M :M Setfont: ( handle -- ) + \ *G Set the font in the control. 1 swap WM_SETFONT SendMessage:Self drop ;M *************** *** 2045,2048 **** --- 2196,2200 ---- ;Class + \ *G End of TabControl class MODULE |
