[Win32forth-cvs] win32forth/apps/Win32ForthIDE/Forms CONTROLPROPERTY.ff, 1.1, 1.2 CONTROLPROPERTY.frm, 1.1, 1.2

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv17441/apps/Win32ForthIDE/Forms

Modified Files:
	CONTROLPROPERTY.ff CONTROLPROPERTY.frm 
Log Message:
IDE Enhancements. Bug Fixes. Doc Updates.

Index: CONTROLPROPERTY.ff
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/CONTROLPROPERTY.ff,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsapyerf and /tmp/cvsZbPbB6 differ

Index: CONTROLPROPERTY.frm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Forms/CONTROLPROPERTY.frm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CONTROLPROPERTY.frm	28 Apr 2008 05:13:37 -0000	1.1
--- CONTROLPROPERTY.frm	10 Apr 2009 16:54:26 -0000	1.2
***************
*** 21,24 ****
--- 21,26 ----
  PushButton btnPrevious
  PushButton btnNext
+ ComboListBox cmblstIDs
+ PushButton btnChangeFont
  
  :Object frmEditProperties                <Super Child-Window
***************
*** 38,47 ****
  Label lblTooltip
  Label lblBitmap
  
  :M ClassInit:   ( -- )
                  ClassInit: super
                  +dialoglist  \ allow handling of dialog messages
!                 414  to id     \ set child id, changeable
!                 \ Insert your code here
                  ;M
  
--- 40,51 ----
  Label lblTooltip
  Label lblBitmap
+ Label lblIDs
+ 
  
  :M ClassInit:   ( -- )
                  ClassInit: super
                  +dialoglist  \ allow handling of dialog messages
!                 672  to id     \ set child id, changeable
!                 \ Insert your code here, e.g initialize variables, values etc.
                  ;M
  
***************
*** 66,77 ****
  
  :M StartSize:   ( -- width height )
!                 258 259 
                  ;M
  
  :M Close:        ( -- )
!                 \ Insert your code here
                  Close: super
                  ;M
  
  :M On_Init:     ( -- )
                  s" MS Sans Serif" SetFaceName: WinFont
--- 70,92 ----
  
  :M StartSize:   ( -- width height )
!                 255 305 
                  ;M
  
  :M Close:        ( -- )
!                 \ Insert your code here, e.g any data entered in form that needs to be saved
                  Close: super
                  ;M
  
+ :M WM_COMMAND   ( h m w l -- res )
+                 over LOWORD ( ID ) self   \ object address on stack
+                 WMCommand-Func ?dup    \ must not be zero
+                 if        execute
+                 else        2drop   \ drop ID and object address
+                 then        0 ;M
+ 
+ :M SetCommand:  ( cfa -- )  \ set WMCommand function
+                 to WMCommand-Func
+                 ;M
+ 
  :M On_Init:     ( -- )
                  s" MS Sans Serif" SetFaceName: WinFont
***************
*** 90,96 ****
  
                  self Start: grpControls
!                 8 201 141 43 Move: grpControls
                  Handle: Winfont SetFont: grpControls
-                 BS_CENTER +Style: grpControls
                  s" Control" SetText: grpControls
  
--- 105,110 ----
  
                  self Start: grpControls
!                 7 219 116 42 Move: grpControls
                  Handle: Winfont SetFont: grpControls
                  s" Control" SetText: grpControls
  
***************
*** 149,152 ****
--- 163,172 ----
                  s" Bitmap:" SetText: lblBitmap
  
+                 self Start: lblIDs
+                 126 235 34 20 Move: lblIDs
+                 Handle: Winfont SetFont: lblIDs
+                 SS_RIGHT +Style: lblIDs
+                 s" SetID:" SetText: lblIDs
+ 
                  self Start: txtName
                  44 3 175 17 Move: txtName
***************
*** 235,239 ****
  
                  self Start: btnPrevious
!                 17 217 49 20 Move: btnPrevious
                  WS_GROUP +Style: btnPrevious
                  Handle: Winfont SetFont: btnPrevious
--- 255,259 ----
  
                  self Start: btnPrevious
!                 17 235 49 20 Move: btnPrevious
                  WS_GROUP +Style: btnPrevious
                  Handle: Winfont SetFont: btnPrevious
***************
*** 242,260 ****
  
                  self Start: btnNext
!                 90 217 49 20 Move: btnNext
                  Handle: Winfont SetFont: btnNext
                  s" &Next" SetText: btnNext
  
!                 ;M
  
! :M WM_COMMAND   ( h m w l -- res )
!                 over LOWORD ( ID ) self   \ object address on stack
!                 WMCommand-Func ?dup    \ must not be zero
!                 if        execute
!                 else        2drop   \ drop ID and object address
!                 then        0 ;M
  
- :M SetCommand:  ( cfa -- )  \ set WMCommand function
-                 to WMCommand-Func
                  ;M
  
--- 262,278 ----
  
                  self Start: btnNext
!                 68 235 49 20 Move: btnNext
                  Handle: Winfont SetFont: btnNext
                  s" &Next" SetText: btnNext
  
!                 self Start: cmblstIDs
!                 161 233 86 20 Move: cmblstIDs
!                 Handle: Winfont SetFont: cmblstIDs
  
!                 self Start: btnChangeFont
!                 18 270 66 20 Move: btnChangeFont
!                 Handle: Winfont SetFont: btnChangeFont
!                 s" Change Font" SetText: btnChangeFont
  
                  ;M
  
***************
*** 265,269 ****
  :M On_Done:    ( -- )
                  Delete: WinFont
!                 \ Insert your code here
                  On_Done: super
                  ;M
--- 283,287 ----
  :M On_Done:    ( -- )
                  Delete: WinFont
!                 \ Insert your code here, e.g delete fonts, any bitmaps etc.
                  On_Done: super
                  ;M