Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31127/src/lib
Modified Files:
treeview.f
Log Message:
Jos: Enabled the right mouse click.
Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** treeview.f 1 May 2005 06:27:42 -0000 1.2
--- treeview.f 8 Mar 2006 21:40:17 -0000 1.3
***************
*** 239,242 ****
--- 239,243 ----
TVN_SELCHANGINGA of fill-nmtv On_SelChanging: [ self ] endof
TVN_SETDISPINFOA of fill-tvitem On_SetDispInfo: [ self ] endof
+ NM_RCLICK of On_RightClick: [ self ] endof
false swap ( default)
endcase
***************
*** 290,293 ****
--- 291,297 ----
false
;M
+ :M On_RightClick: ( -- f )
+ false
+ ;M
;Class
***************
*** 412,414 ****
\ End of File
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! |