Thread: [Win32forth-cvs] win32forth/src/lib ButtonBar.f, 1.1, 1.2 Buttons.f, 1.1, 1.2 Calendar.f, 1.1, 1.2

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-cvs9.sourceforge.net:/tmp/cvs-serv26557/src/lib

Modified Files:
	ButtonBar.f Buttons.f Calendar.f Label.f ListBox.f 
	ProgressBar.f RebarControl.f ScrollBar.f StatusBar.f 
	TabControl.f TextBox.f TrackBar.f UpDownControl.f 
Log Message:
Rod: updated to use SendMessage:SelfDrop

Index: ButtonBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ButtonBar.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ButtonBar.f	6 Jun 2006 02:58:24 -0000	1.1
--- ButtonBar.f	11 Jun 2006 09:03:49 -0000	1.2
***************
*** 3,7 ****
  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 3,7 ----
  WinLibrary COMCTL32.DLL

! cr .( Loading ButtonBar Class...)

  INTERNAL

Index: UpDownControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/UpDownControl.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** UpDownControl.f	6 Jun 2006 02:58:24 -0000	1.1
--- UpDownControl.f	11 Jun 2006 09:03:50 -0000	1.2
***************
*** 3,9 ****
  WinLibrary COMCTL32.DLL

- needs sendmessage.f
  needs textbox.f

  INTERNAL
  EXTERNAL
--- 3,10 ----
  WinLibrary COMCTL32.DLL

  needs textbox.f

+ cr .( Loading UpDownControl Class...)
+ 
  INTERNAL
  EXTERNAL
***************
*** 53,57 ****
  :M SetBuddy:	( hBuddy -- )
  \ *G Sets the buddy window for the up-down control.
! 		0 SWAP UDM_SETBUDDY SendMessage:Self DROP ;M

  :M GetValue: 	( -- n )
--- 54,58 ----
  :M SetBuddy:	( hBuddy -- )
  \ *G Sets the buddy window for the up-down control.
! 		0 SWAP UDM_SETBUDDY SendMessage:SelfDrop ;M

  :M GetValue: 	( -- n )
***************
*** 64,78 ****
  :M SetValue:	( n -- )
  \ *G Set the current position for the up-down control.
! 		0 word-join 0 UDM_SETPOS SendMessage:Self  DROP ;M

  :M SetDecimal: 	( -- )
  \ *G Sets the radix base for the control to decimal.
  \ ** Decimal numbers are signed.
! 		0 10 UDM_SETBASE SendMessage:Self  DROP ;M

  :M SetHex: 	( -- )
  \ *G Sets the radix base for the control to hexadecimal.
  \ ** Hexadecimal numbers are always unsigned.
! 		0 16 UDM_SETBASE SendMessage:Self  DROP ;M

  :M GetBase: 	( -- n )
--- 65,79 ----
  :M SetValue:	( n -- )
  \ *G Set the current position for the up-down control.
! 		0 word-join 0 UDM_SETPOS SendMessage:SelfDrop ;M

  :M SetDecimal: 	( -- )
  \ *G Sets the radix base for the control to decimal.
  \ ** Decimal numbers are signed.
! 		0 10 UDM_SETBASE SendMessage:SelfDrop ;M

  :M SetHex: 	( -- )
  \ *G Sets the radix base for the control to hexadecimal.
  \ ** Hexadecimal numbers are always unsigned.
! 		0 16 UDM_SETBASE SendMessage:SelfDrop ;M

  :M GetBase: 	( -- n )
***************
*** 85,89 ****
  \ ** the UD_MINVAL value. In addition, the difference between the two positions
  \ ** cannot exceed UD_MAXVAL.
! 		swap word-join 0 UDM_SETRANGE SendMessage:Self  DROP ;M

  :M GetRange: 	( -- lower upper )
--- 86,90 ----
  \ ** the UD_MINVAL value. In addition, the difference between the two positions
  \ ** cannot exceed UD_MAXVAL.
! 		swap word-join 0 UDM_SETRANGE SendMessage:SelfDrop ;M

  :M GetRange: 	( -- lower upper )

Index: Calendar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Calendar.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Calendar.f	6 Jun 2006 02:58:24 -0000	1.1
--- Calendar.f	11 Jun 2006 09:03:49 -0000	1.2
***************
*** 3,7 ****
  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 3,7 ----
  WinLibrary COMCTL32.DLL

! cr .( Loading Calendar Classes...)

  INTERNAL
***************
*** 128,132 ****
  \ *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

--- 128,132 ----
  \ *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:SelfDrop
                  wday w@ wmonth w@ wyear w@ ;M

Index: StatusBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/StatusBar.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** StatusBar.f	17 May 2006 20:10:16 -0000	1.1
--- StatusBar.f	11 Jun 2006 09:03:50 -0000	1.2
***************
*** 2,11 ****
  \ Statusbar control separated from ExControls

  anew -StatusBar.f

  WinLibrary COMCTL32.DLL

- needs sendmessage.f
- 
  INTERNAL
  EXTERNAL
--- 2,11 ----
  \ Statusbar control separated from ExControls

+ cr .( Loading StatusBar Class...)
+ 
  anew -StatusBar.f

  WinLibrary COMCTL32.DLL

  INTERNAL
  EXTERNAL
***************
*** 37,45 ****
  \ *G Create the control.
                  to parent Z" msctls_statusbar32" create-control
!                 0 TRUE SB_SIMPLE SendMessage:Self DROP
                  ;M

  :M WindowStyle: ( -- style )
! \ *G Get the window style of the control. Default style is: WS_BORDER.
  		WindowStyle: super style or ;M

--- 37,45 ----
  \ *G Create the control.
                  to parent Z" msctls_statusbar32" create-control
!                 0 TRUE SB_SIMPLE SendMessage:SelfDrop
                  ;M

  :M WindowStyle: ( -- style )
! \ *G Get the window style of the control. Default style is: WS_CHILD WS_VISIBLE or.
  		WindowStyle: super style or ;M

***************
*** 68,72 ****
  \ ** of the vertical border of the status window.
  \ *P An application must use the Redraw: method to redraw the window.
! 		0 SWAP SB_SETMINHEIGHT SendMessage:Self DROP ;M

  :M GetBorders: 	( -- hWidth vWidth divWidth )
--- 68,72 ----
  \ ** of the vertical border of the status window.
  \ *P An application must use the Redraw: method to redraw the window.
! 		0 SWAP SB_SETMINHEIGHT SendMessage:SelfDrop ;M

  :M GetBorders: 	( -- hWidth vWidth divWidth )
***************
*** 84,88 ****
  :M Redraw: 	( -- )
  \ *G Redraw the statusbar after changes (e.g. size).
! 		0 0 WM_SIZE SendMessage:Self DROP ;M

  :M SetText: 	( szText -- )
--- 84,88 ----
  :M Redraw: 	( -- )
  \ *G Redraw the statusbar after changes (e.g. size).
! 		0 0 WM_SIZE SendMessage:SelfDrop ;M

  :M SetText: 	( szText -- )
***************
*** 98,102 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  :M Height:      ( -- height )
--- 98,102 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  :M Height:      ( -- height )
***************
*** 123,127 ****
  \ *G Create the control.
                  Start: super
!                 0 FALSE SB_SIMPLE SendMessage:Self DROP
                  ;M

--- 123,127 ----
  \ *G Create the control.
                  Start: super
!                 0 FALSE SB_SIMPLE SendMessage:SelfDrop
                  ;M

***************
*** 147,155 ****
  :M SetSimple: 	( -- )
  \ *G Reset the status bar to show only one part.
! 		0 TRUE SB_SIMPLE SendMessage:Self DROP ;M

  :M SetMulti:	( -- )
  \ *G Set the status bar to show all parts set with \i SetParts: \d before.
! 		0 FALSE SB_SIMPLE SendMessage:Self DROP ;M

  :M SetText: 	( szText n -- )
--- 147,155 ----
  :M SetSimple: 	( -- )
  \ *G Reset the status bar to show only one part.
! 		0 TRUE SB_SIMPLE SendMessage:SelfDrop ;M

  :M SetMulti:	( -- )
  \ *G Set the status bar to show all parts set with \i SetParts: \d before.
! 		0 FALSE SB_SIMPLE SendMessage:SelfDrop ;M

  :M SetText: 	( szText n -- )

Index: ScrollBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScrollBar.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ScrollBar.f	6 Jun 2006 02:58:24 -0000	1.1
--- ScrollBar.f	11 Jun 2006 09:03:50 -0000	1.2
***************
*** 3,7 ****
  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 3,7 ----
  WinLibrary COMCTL32.DLL

! cr .( Loading ScrollBar Class...)

  INTERNAL

Index: Buttons.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Buttons.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Buttons.f	6 Jun 2006 02:58:24 -0000	1.1
--- Buttons.f	11 Jun 2006 09:03:49 -0000	1.2
***************
*** 3,7 ****
  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 3,7 ----
  WinLibrary COMCTL32.DLL

! cr .( Loading Button Classes...)

  INTERNAL
***************
*** 59,63 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  ;Class
--- 59,63 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  ;Class
***************
*** 119,123 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  ;Class
--- 119,123 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  ;Class
***************
*** 167,171 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  :M Enable:      ( f -- )
--- 167,171 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  :M Enable:      ( f -- )
***************
*** 220,224 ****
                  if    \  DeleteBitmap: self
                          to hbitmap
!                         hbitmap IMAGE_BITMAP BM_SETIMAGE SendMessage:Self drop
                  else    drop
                  then    ;M
--- 220,224 ----
                  if    \  DeleteBitmap: self
                          to hbitmap
!                         hbitmap IMAGE_BITMAP BM_SETIMAGE SendMessage:SelfDrop
                  else    drop
                  then    ;M
***************
*** 287,291 ****
                  if    \  DeleteIcon: self
                          to hicon
!                         hicon IMAGE_ICON BM_SETIMAGE SendMessage:Self  DROP
                  else    drop
                  then    ;M
--- 287,291 ----
                  if    \  DeleteIcon: self
                          to hicon
!                         hicon IMAGE_ICON BM_SETIMAGE SendMessage:SelfDrop
                  else    drop
                  then    ;M
***************
*** 343,347 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self  drop ;M

  :M Enable:      ( f -- )
--- 343,347 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  :M Enable:      ( f -- )

Index: ProgressBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ProgressBar.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ProgressBar.f	6 Jun 2006 02:58:24 -0000	1.1
--- ProgressBar.f	11 Jun 2006 09:03:50 -0000	1.2
***************
*** 3,7 ****
  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 3,7 ----
  WinLibrary COMCTL32.DLL

! cr .( Loading Progressbar Class...)

  INTERNAL
***************
*** 42,46 ****
  \ *G Advances the current position of the progress bar by a specified increment
  \ ** and redraws the bar to reflect the new position.
! 		0 SWAP PBM_DELTAPOS SendMessage:Self  DROP ;M

  :M GetValue: 	( -- n )
--- 42,46 ----
  \ *G Advances the current position of the progress bar by a specified increment
  \ ** and redraws the bar to reflect the new position.
! 		0 SWAP PBM_DELTAPOS SendMessage:SelfDrop ;M

  :M GetValue: 	( -- n )
***************
*** 51,55 ****
  \ *G Sets the current position for the progress bar and redraws the bar to
  \ ** reflect the new position.
! 		0 SWAP PBM_SETPOS SendMessage:Self  DROP ;M

  :M SetRange: 	( min max -- )
--- 51,55 ----
  \ *G Sets the current position for the progress bar and redraws the bar to
  \ ** reflect the new position.
! 		0 SWAP PBM_SETPOS SendMessage:SelfDrop ;M

  :M SetRange: 	( min max -- )
***************
*** 78,82 ****
  \ *P When the position exceeds the maximum range value, this method resets the current
  \ ** position so that the progress indicator starts over again from the beginning.
! 		0 0 PBM_STEPIT SendMessage:Self  DROP ;M

  ;Class
--- 78,82 ----
  \ *P When the position exceeds the maximum range value, this method resets the current
  \ ** position so that the progress indicator starts over again from the beginning.
! 		0 0 PBM_STEPIT SendMessage:SelfDrop ;M

  ;Class

Index: TabControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/TabControl.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** TabControl.f	11 Jun 2006 07:37:27 -0000	1.2
--- TabControl.f	11 Jun 2006 09:03:50 -0000	1.3
***************
*** 1,7 ****
! anew -TabControl.f.f

  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 1,7 ----
! anew -TabControl.f

  WinLibrary COMCTL32.DLL

! cr .( Loading TabControl Class...)

  INTERNAL
***************
*** 144,148 ****
  \ *G Inserts a new tab into the tab control.
  \ *P \i mask \d and other members of the TCITEM struct must be set.
!         tc_item swap TCM_INSERTITEM SendMessage:Self drop ;M

  :M GetTabInfo:  ( index -- )
--- 144,148 ----
  \ *G Inserts a new tab into the tab control.
  \ *P \i mask \d and other members of the TCITEM struct must be set.
!         tc_item swap TCM_INSERTITEM SendMessage:SelfDrop ;M

  :M GetTabInfo:  ( index -- )
***************
*** 176,182 ****
  \ ** the corresponding window rectangle. If this parameter is FALSE, prc specifies a window
  \ ** rectangle and receives the corresponding display area.
!         TCM_ADJUSTRECT SendMessage:self drop ;M

! :M ClientSize:  ( -- x y w h )
  \ *G Return size of display area of the tab control.
          TempRect.addrof GetClientRect: self
--- 176,182 ----
  \ ** the corresponding window rectangle. If this parameter is FALSE, prc specifies a window
  \ ** rectangle and receives the corresponding display area.
!         TCM_ADJUSTRECT SendMessage:selfDrop ;M

! :M ClientSize:  ( -- l t r b )
  \ *G Return size of display area of the tab control.
          TempRect.addrof GetClientRect: self
***************
*** 184,188 ****
          temprect.left temprect.top temprect.right temprect.bottom ;M

! :M WindowSize:	( 0 0 width height -- x y w h )
  \ *G Given display area return window size required.
          SetRect: Temprect
--- 184,188 ----
          temprect.left temprect.top temprect.right temprect.bottom ;M

! :M WindowSize:	( l t r t -- l t r b )
  \ *G Given display area return window size required.
          SetRect: Temprect
***************
*** 198,202 ****
  \ *P Note: A tab control does not send a TCN_SELCHANGING or TCN_SELCHANGE
  \ ** notification message when a tab is selected using this message.
!         0 swap TCM_SETCURSEL SendMessage:self drop ;M

  :M GetRowCount: ( -- n )
--- 198,202 ----
  \ *P Note: A tab control does not send a TCN_SELCHANGING or TCN_SELCHANGE
  \ ** notification message when a tab is selected using this message.
!         0 swap TCM_SETCURSEL SendMessage:selfDrop ;M

  :M GetRowCount: ( -- n )
***************
*** 214,218 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  :M WindowTitle: ( -- null$ )
--- 214,218 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  :M WindowTitle: ( -- null$ )

Index: Label.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Label.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Label.f	6 Jun 2006 02:58:24 -0000	1.1
--- Label.f	11 Jun 2006 09:03:49 -0000	1.2
***************
*** 3,7 ****
  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 3,7 ----
  WinLibrary COMCTL32.DLL

! cr .( Loading Label Classes...)

  INTERNAL
***************
*** 34,38 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  :M Enable:      ( f -- )
--- 34,38 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  :M Enable:      ( f -- )
***************
*** 66,70 ****
  \ *G Associate a new image (icon or bitmap) with the control.
  		GetImage: self over <>
! 		if   ImageType: [ self ] STM_SETIMAGE SendMessage:Self  DROP
  		else drop
  		then ;M
--- 66,70 ----
  \ *G Associate a new image (icon or bitmap) with the control.
  		GetImage: self over <>
! 		if   ImageType: [ self ] STM_SETIMAGE SendMessage:SelfDrop
  		else drop
  		then ;M

Index: ListBox.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ListBox.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ListBox.f	6 Jun 2006 02:58:24 -0000	1.1
--- ListBox.f	11 Jun 2006 09:03:49 -0000	1.2
***************
*** 3,7 ****
  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 3,7 ----
  WinLibrary COMCTL32.DLL

! cr .( Loading ListBox Classes...)

  INTERNAL
***************
*** 54,58 ****
  \ ** 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" -- )
--- 54,58 ----
  \ ** 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:SelfDrop ;M

  :M AddStringTo: ( z"string" -- )
***************
*** 60,68 ****
  \ ** 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.
!                 0 CB_ADDSTRING SendMessage:Self drop ;M

  :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 )
--- 60,68 ----
  \ ** 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.
!                 0 CB_ADDSTRING SendMessage:SelfDrop ;M

  :M SetSelection: ( n -- )
  \ *G Select a string in the list of a combo box.
!                 0 swap CB_SETCURSEL SendMessage:SelfDrop ;M

  :M GetSelectedString: ( -- addr cnt )
***************
*** 75,79 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  :M InsertStringAt: ( lpszString posn -- )
--- 75,79 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  :M InsertStringAt: ( lpszString posn -- )
***************
*** 89,97 ****
  \ *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 )
--- 89,97 ----
  \ *G Delete a string.
  \ *P \i index \d specifies the zero-based index of the string to delete.
! 		0 SWAP CB_DELETESTRING SendMessage:SelfDrop ;M

  :M Clear: 	( -- )
  \ *G Remove all strings from the combo box
! 		0 0 CB_RESETCONTENT SendMessage:SelfDrop ;M

  :M Find: 	( lpszString -- index )
***************
*** 199,207 ****
  \ ** match the wildcard expression and have the attributes specified by the wParam parameter
  \ ** are added to the list displayed in the combo box.
!                 LB_DIR SendMessage:Self drop ;M

  :M Clear:       ( -- )
  \ *G Remove all items from the list box.
!                 0 0 LB_RESETCONTENT SendMessage:Self drop ;M

  :M AddStringTo: ( z"string" -- )
--- 199,207 ----
  \ ** match the wildcard expression and have the attributes specified by the wParam parameter
  \ ** are added to the list displayed in the combo box.
!                 LB_DIR SendMessage:SelfDrop ;M

  :M Clear:       ( -- )
  \ *G Remove all items from the list box.
!                 0 0 LB_RESETCONTENT SendMessage:SelfDrop ;M

  :M AddStringTo: ( z"string" -- )
***************
*** 209,213 ****
  \ ** the string is added to the end of the list. Otherwise, the string is inserted
  \ ** into the list and the list is sorted.
!                 0 LB_ADDSTRING SendMessage:Self drop ;M

  :M SetSelection: ( n -- )
--- 209,213 ----
  \ ** the string is added to the end of the list. Otherwise, the string is inserted
  \ ** into the list and the list is sorted.
!                 0 LB_ADDSTRING SendMessage:SelfDrop ;M

  :M SetSelection: ( n -- )
***************
*** 219,223 ****
  \ ** cannot contain more than 32,767 items. Although the number of items is restricted, the
  \ ** total size in bytes of the items in a list box is limited only by available memory.
!                 0 swap LB_SETCURSEL SendMessage:Self drop ;M

  :M GetSelection: ( -- n )
--- 219,223 ----
  \ ** cannot contain more than 32,767 items. Although the number of items is restricted, the
  \ ** total size in bytes of the items in a list box is limited only by available memory.
!                 0 swap LB_SETCURSEL SendMessage:SelfDrop ;M

  :M GetSelection: ( -- n )
***************
*** 244,248 ****
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  :M AddString: 	( lpszString -- )
--- 244,248 ----
  :M Setfont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  :M AddString: 	( lpszString -- )
***************
*** 276,280 ****
  \ ** cannot contain more than 32,767 items. Although the number of items is restricted, the total
  \ ** size in bytes of the items in a list box is limited only by available memory.
! 		0 SWAP LB_DELETESTRING SendMessage:Self  DROP ;M

  :M Find: 	( lpszString -- index )
--- 276,280 ----
  \ ** cannot contain more than 32,767 items. Although the number of items is restricted, the total
  \ ** size in bytes of the items in a list box is limited only by available memory.
! 		0 SWAP LB_DELETESTRING SendMessage:SelfDrop ;M

  :M Find: 	( lpszString -- index )
***************
*** 334,338 ****
  \ ** stops must be sorted in ascending order; backward tabs are not allowed.
  \ *P The list box must have been created with the LBS_USETABSTOPS style.
!                 LB_SETTABSTOPS SendMessage:Self drop ;M

  ;Class
--- 334,338 ----
  \ ** stops must be sorted in ascending order; backward tabs are not allowed.
  \ *P The list box must have been created with the LBS_USETABSTOPS style.
!                 LB_SETTABSTOPS SendMessage:SelfDrop ;M

  ;Class

Index: RebarControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/RebarControl.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** RebarControl.f	6 Jun 2006 17:21:02 -0000	1.5
--- RebarControl.f	11 Jun 2006 09:03:50 -0000	1.6
***************
*** 6,9 ****
--- 6,10 ----
  \ Added more methods - Sunday, June 04 2006  21:20:10 Rod

+ cr .( Loading RebarControl Class...)

  WinLibrary COMCTL32.DLL

Index: TextBox.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/TextBox.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TextBox.f	6 Jun 2006 02:58:24 -0000	1.1
--- TextBox.f	11 Jun 2006 09:03:50 -0000	1.2
***************
*** 4,8 ****
  WinLibrary RichEd32.DLL

! needs sendmessage.f

  INTERNAL
--- 4,8 ----
  WinLibrary RichEd32.DLL

! cr .( Loading TextBox Classes...)

  INTERNAL
***************
*** 73,77 ****
  \ *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 )
--- 73,77 ----
  \ *P The control displays a flashing caret at the end position regardless of the relative
  \ ** values of start and end.
!                 EM_SETSEL SendMessage:selfDrop ;M

  :M GetSelection: ( -- nEnd nStart )
***************
*** 107,115 ****
  \ *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?:       ( -- f )
--- 107,115 ----
  \ *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:SelfDrop ;M

  :M NotModified: ( -- )
  \ *G Depreacted method. Use \i SetModify: \d instead.
!                 0 0 EM_SETMODIFY SendMessage:SelfDrop ;M DEPRECATED

  :M Undo?:       ( -- f )
***************
*** 120,124 ****
  \ *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"
--- 120,124 ----
  \ *G Undoes the last edit control operation in the control's undo queue.
                  Undo?: self
! 		IF   0 0 EM_UNDO SendMessage:SelfDrop
  		ELSE MB_OK
  		     Z" Undo notification"
***************
*** 134,138 ****
  \ *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"
--- 134,138 ----
  \ *G Redoes the last edit control operation in the control's redo queue.
  		Redo?: self
! 		IF   0 0 EM_REDO SendMessage:SelfDrop
  		ELSE MB_OK
  		     Z" Redo notification"
***************
*** 144,152 ****
  \ *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: 	( -- )
--- 144,152 ----
  \ *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:SelfDrop ;M

  :M Copy: 	( -- )
  \ *G Copy the current selection to the clipboard in CF_TEXT format.
! 		0 0 WM_COPY SendMessage:SelfDrop ;M

  :M Paste: 	( -- )
***************
*** 154,166 ****
  \ ** 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 control.
!                 1 swap WM_SETFONT SendMessage:Self drop ;M

  :M SetTextLimit: ( n -- )
--- 154,166 ----
  \ ** caret position. Data is inserted only if the clipboard contains data in CF_TEXT
  \ ** format.
! 		0 0 WM_PASTE SendMessage:SelfDrop ;M

  :M Clear: 	( -- )
  \ *G Delete selected text.
! 		0 0 WM_CLEAR SendMessage:SelfDrop ;M

  :M SetFont:     ( handle -- )
  \ *G Set the font in the control.
!                 1 swap WM_SETFONT SendMessage:SelfDrop ;M

  :M SetTextLimit: ( n -- )
***************
*** 185,189 ****
  \ ** 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 }
--- 185,189 ----
  \ ** 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:SelfDrop ;M

  :M GetTextEx:   { buffer$ maxlen -- buffer$ len }
***************
*** 264,268 ****
                  word-join
                  [ EC_LEFTMARGIN EC_RIGHTMARGIN OR ] literal EM_SETMARGINS
!                 SendMessage:self DROP ;M

  :M SelectAll:	( -- )
--- 264,268 ----
                  word-join
                  [ EC_LEFTMARGIN EC_RIGHTMARGIN OR ] literal EM_SETMARGINS
!                 SendMessage:selfDrop ;M

  :M SelectAll:	( -- )

Index: TrackBar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/TrackBar.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TrackBar.f	6 Jun 2006 02:58:24 -0000	1.1
--- TrackBar.f	11 Jun 2006 09:03:50 -0000	1.2
***************
*** 3,7 ****
  WinLibrary COMCTL32.DLL

! needs sendmessage.f

  INTERNAL
--- 3,7 ----
  WinLibrary COMCTL32.DLL

! cr .( Loading Trackbar Class...)

  INTERNAL
***************
*** 51,55 ****
  \ ** DOWN ARROW keys. The logical positions are the integer increments in the
  \ ** trackbar's range of minimum to maximum slider positions.
! 		0 TBM_SETLINESIZE SendMessage:Self  DROP ;M

  :M GetPageSize: ( -- n )
--- 51,55 ----
  \ ** DOWN ARROW keys. The logical positions are the integer increments in the
  \ ** trackbar's range of minimum to maximum slider positions.
! 		0 TBM_SETLINESIZE SendMessage:SelfDrop ;M

  :M GetPageSize: ( -- n )
***************
*** 65,69 ****
  \ ** in the trackbar's channel. The logical positions are the integer increments in the
  \ ** trackbar's range of minimum to maximum slider positions.
! 		0 TBM_SETPAGESIZE SendMessage:Self  DROP ;M

  :M GetValue: 	( -- n)
--- 65,69 ----
  \ ** in the trackbar's channel. The logical positions are the integer increments in the
  \ ** trackbar's range of minimum to maximum slider positions.
! 		0 TBM_SETPAGESIZE SendMessage:SelfDrop ;M

  :M GetValue: 	( -- n)
***************
*** 74,78 ****
  :M SetValue: 	( n -- )
  \ *G Sets the current logical position of the slider in the trackbar.
! 		TRUE TBM_SETPOS SendMessage:Self  DROP ;M

  :M GetRangeMax: ( -- n )
--- 74,78 ----
  :M SetValue: 	( n -- )
  \ *G Sets the current logical position of the slider in the trackbar.
! 		TRUE TBM_SETPOS SendMessage:SelfDrop ;M

  :M GetRangeMax: ( -- n )
***************
*** 85,89 ****
  \ ** If this parameter is FALSE, the message sets the range but does not redraw
  \ ** the trackbar.
!                 TBM_SETRANGEMAX SendMessage:Self  DROP ;M

  :M GetRangeMin: ( -- n )
--- 85,89 ----
  \ ** If this parameter is FALSE, the message sets the range but does not redraw
  \ ** the trackbar.
!                 TBM_SETRANGEMAX SendMessage:SelfDrop ;M

  :M GetRangeMin: ( -- n )
***************
*** 96,100 ****
  \ ** If this parameter is FALSE, the message sets the range but does not redraw
  \ ** the trackbar.
! 		TBM_SETRANGEMIN SendMessage:Self  DROP ;M

  :M GetSelEnd: 	( -- n )
--- 96,100 ----
  \ ** If this parameter is FALSE, the message sets the range but does not redraw
  \ ** the trackbar.
! 		TBM_SETRANGEMIN SendMessage:SelfDrop ;M

  :M GetSelEnd: 	( -- n )
***************
*** 110,114 ****
  \ ** If this parameter is FALSE, the message sets the range but does not redraw
  \ ** the trackbar.
! 		TBM_SETSELEND SendMessage:Self  DROP ;M

  :M GetSelStart: ( -- n)
--- 110,114 ----
  \ ** If this parameter is FALSE, the message sets the range but does not redraw
  \ ** the trackbar.
! 		TBM_SETSELEND SendMessage:SelfDrop ;M

  :M GetSelStart: ( -- n)
***************
*** 124,128 ****
  \ ** If this parameter is FALSE, the message sets the range but does not redraw
  \ ** the trackbar.
! 		TBM_SETSELSTART SendMessage:Self  DROP ;M

  :M GetThumbLength: ( -- n )
--- 124,128 ----
  \ ** If this parameter is FALSE, the message sets the range but does not redraw
  \ ** the trackbar.
! 		TBM_SETSELSTART SendMessage:SelfDrop ;M

  :M GetThumbLength: ( -- n )
***************
*** 132,136 ****
  :M SetThumbLength: ( n -- )
  \ *G Set the length (in Pixel) of the slider in the trackbar.
! 		0 SWAP TBM_SETTHUMBLENGTH SendMessage:Self  DROP ;M

  :M GetChannelRect: ( lpRect -- )
--- 132,136 ----
  :M SetThumbLength: ( n -- )
  \ *G Set the length (in Pixel) of the slider in the trackbar.
! 		0 SWAP TBM_SETTHUMBLENGTH SendMessage:SelfDrop ;M

  :M GetChannelRect: ( lpRect -- )
***************
*** 138,147 ****
  \ ** trackbar's channel. (The channel is the area over which the slider
  \ ** moves. It contains the highlight when a range is selected.)
! 		0 TBM_GETCHANNELRECT SendMessage:Self  DROP ;M

  :M GetThumbRect: ( lpRect -- )
  \ *G Retrieves the size and position of the bounding rectangle for the slider
  \ ** in the trackbar.
! 		0 TBM_GETTHUMBRECT SendMessage:Self  DROP ;M

  :M GetTick: 	( iTic -- n )
--- 138,147 ----
  \ ** trackbar's channel. (The channel is the area over which the slider
  \ ** moves. It contains the highlight when a range is selected.)
! 		0 TBM_GETCHANNELRECT SendMessage:SelfDrop ;M

  :M GetThumbRect: ( lpRect -- )
  \ *G Retrieves the size and position of the bounding rectangle for the slider
  \ ** in the trackbar.
! 		0 TBM_GETTHUMBRECT SendMessage:SelfDrop ;M

  :M GetTick: 	( iTic -- n )
***************
*** 153,157 ****
  :M SetTick: 	( pos -- )
  \ *G Sets a tick mark in a trackbar at the specified logical position.
!                 0 TBM_SETTIC SendMessage:Self  DROP ;M

  :M ClearTicks: 	( f -- )
--- 153,157 ----
  :M SetTick: 	( pos -- )
  \ *G Sets a tick mark in a trackbar at the specified logical position.
!                 0 TBM_SETTIC SendMessage:SelfDrop ;M

  :M ClearTicks: 	( f -- )
***************
*** 161,165 ****
  \ ** If this parameter is FALSE, the message clears the tick marks but does not redraw
  \ ** the trackbar.
!                 0 SWAP TBM_CLEARTICS SendMessage:Self  DROP ;M

  :M GetTickPos: 	( iTic -- n )
--- 161,165 ----
  \ ** If this parameter is FALSE, the message clears the tick marks but does not redraw
  \ ** the trackbar.
!                 0 SWAP TBM_CLEARTICS SendMessage:SelfDrop ;M

  :M GetTickPos: 	( iTic -- n )
***************
*** 186,190 ****
  \ ** associated with a tick mark.
  \ *P The trackbar must have the TBS_AUTOTICKS style to use this method.
! 		TBM_SETTICFREQ SendMessage:Self  DROP ;M

  :M GetNumTicks: ( -- n )
--- 186,190 ----
  \ ** associated with a tick mark.
  \ *P The trackbar must have the TBS_AUTOTICKS style to use this method.
! 		TBM_SETTICFREQ SendMessage:SelfDrop ;M

  :M GetNumTicks: ( -- n )
***************
*** 198,202 ****
  \ *P If the \i f \d parameter is TRUE, the trackbar is redrawn after the range is set. If this
  \ ** parameter is FALSE, the message sets the range but does not redraw the trackbar.
! 		>R word-join R> TBM_SETRANGE SendMessage:Self  DROP ;M

  :M SetSel: 	( min max f -- )
--- 198,202 ----
  \ *P If the \i f \d parameter is TRUE, the trackbar is redrawn after the range is set. If this
  \ ** parameter is FALSE, the message sets the range but does not redraw the trackbar.
! 		>R word-join R> TBM_SETRANGE SendMessage:SelfDrop ;M

  :M SetSel: 	( min max f -- )
***************
*** 205,214 ****
  \ ** If this parameter is FALSE, the message sets the selection range but does not redraw the trackbar.
  \ *P This method is ignored if the trackbar does not have the TBS_ENABLESELRANGE style.
! 		>R word-join R> TBM_SETSEL SendMessage:Self  DROP ;M

  :M ClearSel: 	( f -- )
  \ *G Clears the current selection range in the trackbar.
  \ *P If the \i f \d is TRUE, the trackbar is redrawn after the selection is cleared.
! 		0 SWAP TBM_CLEARSEL SendMessage:Self  DROP ;M

  :M Enable:      ( f -- )
--- 205,214 ----
  \ ** If this parameter is FALSE, the message sets the selection range but does not redraw the trackbar.
  \ *P This method is ignored if the trackbar does not have the TBS_ENABLESELRANGE style.
! 		>R word-join R> TBM_SETSEL SendMessage:SelfDrop ;M

  :M ClearSel: 	( f -- )
  \ *G Clears the current selection range in the trackbar.
  \ *P If the \i f \d is TRUE, the trackbar is redrawn after the selection is cleared.
! 		0 SWAP TBM_CLEARSEL SendMessage:SelfDrop ;M

  :M Enable:      ( f -- )

Thread: [Win32forth-cvs] win32forth/src/lib ButtonBar.f, 1.1, 1.2 Buttons.f, 1.1, 1.2 Calendar.f, 1.1, 1.2

win32forth-cvs