[Win32forth-cvs] win32forth/demos ListViewDemo.f,1.13,1.14

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14433/demos

Modified Files:
	ListViewDemo.f 
Log Message:
Rod: tidied up

Index: ListViewDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/ListViewDemo.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** ListViewDemo.f	23 May 2006 19:49:26 -0000	1.13
--- ListViewDemo.f	11 Jun 2006 09:53:44 -0000	1.14
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+ 
  \ Splitter window modified to prevent flicker - May 4th, 2006 Rod
  \ ForthForm generated splitter-window template
***************
*** 13,19 ****
  20 constant FontHeight
  
- defer OnPosition  ( window -- ) ' drop is OnPosition \ called when window panes are repositioned
- defer OnInit      ( window -- ) ' drop is OnInit \ called during window On_init method
- 
  \ ------------------------------------------------------------------------
  \ Define the Listview for the left part of the window.
--- 15,18 ----
***************
*** 26,33 ****
          ;M
  
- :M WndClassStyle: ( -- style )
-          \ CS_DBLCLKS only to prevent flicker in window on sizing.
-          CS_DBLCLKS ;M
- 
  ;object
  
--- 25,28 ----
***************
*** 42,49 ****
          ;M
  
- :M WndClassStyle: ( -- style )
-          \ CS_DBLCLKS only to prevent flicker in window on sizing.
-          CS_DBLCLKS ;M
- 
  ;object
  
--- 37,40 ----
***************
*** 118,127 ****
  
  :M On_Size:     ( -- )
!         gethandle: ListViewLeft
!         if   1 ( repaint flag )
!              tempRect.AddrOf GetClientRect: Self
!              Bottom: tempRect Right: tempRect   0 0
!              gethandle: ListViewLeft Call MoveWindow drop
!         then ;M
  
  : 0GetParmsItem ( nItem  - Z$text Lparm flNew )
--- 109,114 ----
  
  :M On_Size:     ( -- )
!         0 0 width height Move: ListViewLeft
!         ;M
  
  : 0GetParmsItem ( nItem  - Z$text Lparm flNew )
***************
*** 159,164 ****
          ;M
  
! :M Start:       ( parent -- )
!         start: super
          -1 to SelectedItemLeft
          Self start: ListViewLeft
--- 146,150 ----
          ;M
  
! :M On_Init: ( -- )
          -1 to SelectedItemLeft
          Self start: ListViewLeft
***************
*** 180,192 ****
  
  :M On_Size:     ( -- )
!         gethandle: ListViewRightBottom
!         if   1 ( repaint flag )
!              tempRect.AddrOf GetClientRect: Self
!              Bottom: tempRect Right: tempRect   0 0
!              gethandle: ListViewRightBottom Call MoveWindow drop
!         then ;M
  
! :M Start:       ( Parent -- )
!         start: super
          Self start: ListViewRightBottom
          ;M
--- 166,173 ----
  
  :M On_Size:     ( -- )
!         0 0 width height Move: ListViewRightBottom
!         ;M
  
! :M On_Init: ( -- )
          Self start: ListViewRightBottom
          ;M
***************
*** 194,205 ****
  ;Object
  
- \ ------------------------------------------------------------------------
- \ Define the menubar for the main window.
- \ ------------------------------------------------------------------------
- MENUBAR TestBar
-     POPUP "&File"
-         MENUITEM     "Bye"    bye ;
- ENDBAR
- 
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 175,178 ----
***************
*** 249,254 ****
          LeftWidth thickness +  ToolBarHeight  Width LeftWidth thickness + -  RightTopHeight  Move: RightTopPane
          LeftWidth thickness +  ToolBarHeight RightTopHeight +  Width LeftWidth thickness + -  RightBottomHeight  Move: RightBottomPane
!         LeftWidth  ToolBarHeight  thickness  LeftHeight  Move: Splitter
!         self OnPosition ;
  
  : InSplitter?   ( -- f1 )   \ is cursor on splitter window
--- 222,226 ----
          LeftWidth thickness +  ToolBarHeight  Width LeftWidth thickness + -  RightTopHeight  Move: RightTopPane
          LeftWidth thickness +  ToolBarHeight RightTopHeight +  Width LeftWidth thickness + -  RightBottomHeight  Move: RightBottomPane
!         LeftWidth  ToolBarHeight  thickness  LeftHeight  Move: Splitter ;
  
  : InSplitter?   ( -- f1 )   \ is cursor on splitter window
***************
*** 297,301 ****
  :M Classinit:   ( -- )
          ClassInit: super   \ init super class
-         TestBar to CurrentMenu
          ['] On_clicked     SetClickFunc: self
          ['] On_unclicked   SetUnClickFunc: self
--- 269,272 ----
***************
*** 327,331 ****
                  self Start: RightBottomPane
                  self Start: Splitter
-                 self OnInit    \ perform user function
                  ;M
  
--- 298,301 ----