[Win32forth-cvs] win32forth/src/lib Listview.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-cvs1.sourceforge.net:/tmp/cvs-serv940/src/lib

Modified Files:
	Listview.f 
Log Message:
Jos: Forget to update a few wrong stacknotations.

Index: Listview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Listview.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Listview.f	2 May 2006 09:55:39 -0000	1.1
--- Listview.f	2 May 2006 10:12:20 -0000	1.2
***************
*** 33,42 ****
  :M Sizeof: ( -- n ) /NMHDR  ;M
  
! :M GethwndFrom: ( -- ) hwndFrom ;M
! :M GetidFrom:   ( -- ) idFrom   ;M
! :M Getcode:     ( -- ) code     ;M
! :M SethwndFrom: ( -- ) to hwndFrom ;M
! :M SetidFrom:   ( -- ) to idFrom   ;M
! :M Setcode:     ( -- ) to code     ;M
  
  ;Class
--- 33,42 ----
  :M Sizeof: ( -- n ) /NMHDR  ;M
  
! :M GethwndFrom: ( -- hwndFrom ) hwndFrom ;M
! :M GetidFrom:   ( -- idFrom )   idFrom   ;M
! :M Getcode:     ( -- code )     code     ;M
! :M SethwndFrom: ( hwndFrom -- ) to hwndFrom ;M
! :M SetidFrom:   ( idFrom -- )   to idFrom   ;M
! :M Setcode:     ( code -- )     to code     ;M
  
  ;Class
***************
*** 62,84 ****
  :M Sizeof: ( -- n ) /LV_ITEM   ;M
  
! :M GetMask:       ( -- ) mask       ;M
! :M GetiItem:      ( -- ) iItem      ;M
! :M GetiSubItem:   ( -- ) iSubItem   ;M
! :M Getstate:      ( -- ) state      ;M
! :M GetstateMask:  ( -- ) stateMask  ;M
! :M GetpszText:    ( -- ) pszText    ;M
! :M GetcchTextMax: ( -- ) cchTextMax ;M
! :M GetiImage:     ( -- ) iImage     ;M
! :M GetlParam:     ( -- ) lParam     ;M
  
! :M SetMask:       ( -- ) _LV_ITEM /LV_ITEM erase to mask  ;M
! :M SetiItem:      ( -- ) to iItem      ;M
! :M SetiSubItem:   ( -- ) to iSubItem   ;M
! :M Setstate:      ( -- ) to state      ;M
! :M SetstateMask:  ( -- ) to stateMask  ;M
! :M SetpszText:    ( -- ) to pszText    ;M
! :M SetcchTextMax: ( -- ) to cchTextMax ;M
! :M SetiImage:     ( -- ) to iImage     ;M
! :M SetlParam:     ( -- ) to lParam     ;M
  
  ;Class
--- 62,84 ----
  :M Sizeof: ( -- n ) /LV_ITEM   ;M
  
! :M GetMask:       ( -- mask )           mask       ;M
! :M GetiItem:      ( -- iItem )          iItem      ;M
! :M GetiSubItem:   ( -- iSubItem )       iSubItem   ;M
! :M Getstate:      ( -- state )          state      ;M
! :M GetstateMask:  ( -- stateMask )      stateMask  ;M
! :M GetpszText:    ( -- pszText )        pszText    ;M
! :M GetcchTextMax: ( -- cchTextMax )     cchTextMax ;M
! :M GetiImage:     ( -- iImage )         iImage     ;M
! :M GetlParam:     ( -- lParam)          lParam     ;M
  
! :M SetMask:       ( mask -- ) _LV_ITEM /LV_ITEM erase to mask  ;M
! :M SetiItem:      ( iItem -- )          to iItem      ;M
! :M SetiSubItem:   ( iSubItem -- )       to iSubItem   ;M
! :M Setstate:      ( state -- )          to state      ;M
! :M SetstateMask:  ( stateMask -- )      to stateMask  ;M
! :M SetpszText:    ( pszText -- )        to pszText    ;M
! :M SetcchTextMax: ( cchTextMax -- )     to cchTextMax ;M
! :M SetiImage:     ( iImage -- )         to iImage     ;M
! :M SetlParam:     ( lParam-- )          to lParam     ;M
  
  ;Class
***************
*** 104,126 ****
  :M Sizeof: ( -- n ) /LV_DISPINFO  ;M
  
! :M GetMask:        ( -- ) mask       ;M
! :M GetiItem:       ( -- ) iItem      ;M
! :M GetiSubItem:    ( -- ) iSubItem   ;M
! :M Getstate:       ( -- ) state      ;M
! :M GetstateMask:   ( -- ) stateMask  ;M
! :M GetpszText:     ( -- ) pszText    ;M
! :M GetcchTextMax:  ( -- ) cchTextMax ;M
! :M GetiImage:      ( -- ) iImage     ;M
! :M GetlParam:      ( -- ) lParam     ;M
  
! :M SetMask:        ( -- ) _LV_DISPINFO /LV_DISPINFO erase to mask       ;M
! :M SetiItem:       ( -- ) to iItem      ;M
! :M SetiSubItem:    ( -- ) to iSubItem   ;M
! :M Setstate:       ( -- ) to state      ;M
! :M SetstateMask:   ( -- ) to stateMask  ;M
! :M SetpszText:     ( -- ) to pszText    ;M
! :M SetcchTextMax:  ( -- ) to cchTextMax ;M
! :M SetiImage:      ( -- ) to iImage     ;M
! :M SetlParam:      ( -- ) to lParam     ;M
  
  ;Class
--- 104,126 ----
  :M Sizeof: ( -- n ) /LV_DISPINFO  ;M
  
! :M GetMask:        ( -- mask )          mask       ;M
! :M GetiItem:       ( -- iItem  )        iItem      ;M
! :M GetiSubItem:    ( -- iSubItem )      iSubItem   ;M
! :M Getstate:       ( -- state )         state      ;M
! :M GetstateMask:   ( -- stateMask )     stateMask  ;M
! :M GetpszText:     ( -- pszText )       pszText    ;M
! :M GetcchTextMax:  ( -- cchTextMax )    cchTextMax ;M
! :M GetiImage:      ( -- iImage )        iImage     ;M
! :M GetlParam:      ( -- lParam )        lParam     ;M
  
! :M SetMask:        ( mask -- ) _LV_DISPINFO /LV_DISPINFO erase to mask       ;M
! :M SetiItem:       ( iItem -- )         to iItem      ;M
! :M SetiSubItem:    ( iSubItem -- )      to iSubItem   ;M
! :M Setstate:       ( state -- )         to state      ;M
! :M SetstateMask:   ( stateMask -- )     to stateMask  ;M
! :M SetpszText:     ( pszText -- )       to pszText    ;M
! :M SetcchTextMax:  ( cchTextMax -- )    to cchTextMax ;M
! :M SetiImage:      ( iImage -- )        to iImage     ;M
! :M SetlParam:      ( lParam -- )        to lParam     ;M
  
  ;Class
***************
*** 143,159 ****
  :M Sizeof: ( -- n ) /LV_COLUMN   ;M
  
! :M Getmask:       ( -- ) mask       ;M
! :M Getfmt:        ( -- ) fmt        ;M
! :M Getcx:         ( -- ) cx         ;M
! :M GetpszText:    ( -- ) pszText    ;M
! :M GetcchTextMax: ( -- ) cchTextMax ;M
! :M GetiSubItem:   ( -- ) iSubItem   ;M
  
! :M Setmask:       ( -- ) _LV_COLUMN /LV_COLUMN erase to mask       ;M
! :M Setfmt:        ( -- ) to fmt        ;M
! :M Setcx:         ( -- ) to cx         ;M
! :M SetpszText:    ( -- ) to pszText    ;M
! :M SetcchTextMax: ( -- ) to cchTextMax ;M
! :M SetiSubItem:   ( -- ) to iSubItem   ;M
  
  ;Class
--- 143,159 ----
  :M Sizeof: ( -- n ) /LV_COLUMN   ;M
  
! :M Getmask:       ( -- mask )           mask       ;M
! :M Getfmt:        ( -- fmt )            fmt        ;M
! :M Getcx:         ( -- cx )             cx         ;M
! :M GetpszText:    ( -- pszText )        pszText    ;M
! :M GetcchTextMax: ( -- cchTextMax )     cchTextMax ;M
! :M GetiSubItem:   ( -- iSubItem )       iSubItem   ;M
  
! :M Setmask:       ( mask -- ) _LV_COLUMN /LV_COLUMN erase to mask  ;M
! :M Setfmt:        ( fmt -- )            to fmt        ;M
! :M Setcx:         ( cx -- )             to cx         ;M
! :M SetpszText:    ( pszText -- )        to pszText    ;M
! :M SetcchTextMax: ( cchTextMax -- )     to cchTextMax ;M
! :M SetiSubItem:   ( iSubItem -- )       to iSubItem   ;M
  
  ;Class
***************
*** 176,188 ****
  :M Sizeof: ( -- n ) /LV_FINDINFO   ;M
  
! :M Getflags:       ( -- ) flags       ;M
! :M Getpsz:         ( -- ) psz         ;M
! :M GetlParam:      ( -- ) lparam      ;M
! :M GetvkDirection: ( -- ) vkDirection ;M
  
! :M Setflags:       ( -- ) to flags       ;M
! :M Setpsz:         ( -- ) to psz         ;M
! :M SetlParam:      ( -- ) to lparam      ;M
! :M SetvkDirection: ( -- ) to vkDirection ;M
  
  :M Getpt:          ( -- x y ) x y       ;M
--- 176,188 ----
  :M Sizeof: ( -- n ) /LV_FINDINFO   ;M
  
! :M Getflags:       ( -- flags )         flags       ;M
! :M Getpsz:         ( -- psz )           psz         ;M
! :M GetlParam:      ( -- lparam )        lparam      ;M
! :M GetvkDirection: ( -- vkDirection )   vkDirection ;M
  
! :M Setflags:       ( flags -- )         to flags       ;M
! :M Setpsz:         ( psz -- )           to psz         ;M
! :M SetlParam:      ( lparam -- )        to lparam      ;M
! :M SetvkDirection: ( vkDirection -- )   to vkDirection ;M
  
  :M Getpt:          ( -- x y ) x y       ;M
***************
*** 206,214 ****
  :M Sizeof: ( -- n ) /LV_HITTESTINFO  ;M
  
! :M Getflags: ( -- ) flags ;M
! :M GetiItem: ( -- ) iItem ;M
  
! :M Setflags: ( -- ) to flags ;M
! :M SetiItem: ( -- ) to iItem ;M
  
  :M Getpt: ( -- x y ) x y ;M
--- 206,214 ----
  :M Sizeof: ( -- n ) /LV_HITTESTINFO  ;M
  
! :M Getflags: ( -- flags ) flags ;M
! :M GetiItem: ( -- iItem ) iItem ;M
  
! :M Setflags: ( flags -- ) to flags ;M
! :M SetiItem: ( iItem -- ) to iItem ;M
  
  :M Getpt: ( -- x y ) x y ;M
***************
*** 230,235 ****
  :M Sizeof: ( -- n ) /LV_KEYDOWN  ;M
  
! :M GetwvKey: ( -- ) wVKey  ;M
! :M Getflags: ( -- ) flags  ;M
  
  :M SetwvKey: ( -- ) to wVKey ;M
--- 230,235 ----
  :M Sizeof: ( -- n ) /LV_KEYDOWN  ;M
  
! :M GetwvKey: ( -- wVKey ) wVKey  ;M
! :M Getflags: ( -- flags ) flags  ;M
  
  :M SetwvKey: ( -- ) to wVKey ;M
***************
*** 258,274 ****
  :M Sizeof: ( -- n ) /NM_LISTVIEW  ;M
  
! :M GetiItem:     ( -- ) iItem     ;M
! :M GetiSubItem:  ( -- ) iSubItem  ;M
! :M GetuNewState: ( -- ) uNewState ;M
! :M GetuOldState: ( -- ) uOldState ;M
! :M GetuChanged:  ( -- ) uChanged  ;M
! :M GetlParam:    ( -- ) lParam    ;M
  
! :M SetiItem:     ( -- ) to iItem     ;M
! :M SetiSubItem:  ( -- ) to iSubItem  ;M
! :M SetuNewState: ( -- ) to uNewState ;M
! :M SetuOldState: ( -- ) to uOldState ;M
! :M SetuChanged:  ( -- ) to uChanged  ;M
! :M SetlParam:    ( -- ) to lParam    ;M
  
  :M Getpt: ( -- x y ) x y ;M
--- 258,274 ----
  :M Sizeof: ( -- n ) /NM_LISTVIEW  ;M
  
! :M GetiItem:     ( -- iItem )           iItem     ;M
! :M GetiSubItem:  ( -- iSubItem )        iSubItem  ;M
! :M GetuNewState: ( -- uNewState )       uNewState ;M
! :M GetuOldState: ( -- uOldState )       uOldState ;M
! :M GetuChanged:  ( -- uChanged )        uChanged  ;M
! :M GetlParam:    ( -- lParam )          lParam    ;M
  
! :M SetiItem:     ( iItem -- )           to iItem     ;M
! :M SetiSubItem:  ( iSubItem -- )        to iSubItem  ;M
! :M SetuNewState: ( uNewState -- )       to uNewState ;M
! :M SetuOldState: ( uOldState -- )       to uOldState ;M
! :M SetuChanged:  ( uChanged -- )        to uChanged  ;M
! :M SetlParam:    ( lParam -- )          to lParam    ;M
  
  :M Getpt: ( -- x y ) x y ;M