Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31285/apps/ProMgr
Modified Files:
HexViewer.f
Log Message:
Rod: fixed problems with sizing HexViewer window. It was not updating when sizing right pane in ProjectManager and Scrollbar was not in correct position when it reappeared.
Index: HexViewer.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/HexViewer.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HexViewer.f 1 Nov 2005 23:17:36 -0000 1.1
--- HexViewer.f 5 Nov 2005 22:22:30 -0000 1.2
***************
*** 68,71 ****
--- 68,72 ----
:M On_Init: ( -- )
On_Init: super
+ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
8 Width: fdFont
14 Height: fdFont
***************
*** 74,79 ****
--- 75,84 ----
;M
+ : set-scrollpos ( -- ) \ position the vertical button in the scroll bar
+ TRUE cur-first-line SB_VERT GetHandle: self Call SetScrollPos drop ;
+
:m on_size: ( -- )
set-params
+ set-scrollpos
;m
***************
*** 121,125 ****
SaveDC: dc \ save device context
Handle: fdFont SetFont: dc \ set the font to be used
! screen-rows 0
do 0 char-height i *
i cur-first-line + dup last-line# >=
--- 126,130 ----
SaveDC: dc \ save device context
Handle: fdFont SetFont: dc \ set the font to be used
! screen-rows 1+ 0
do 0 char-height i *
i cur-first-line + dup last-line# >=
***************
*** 162,169 ****
ENDCASE r>drop
\ position the vertical button in the scroll bar
! TRUE cur-first-line SB_VERT
! GetHandle: self Call SetScrollPos drop
!
! 0 ;M
:m on_done: ( -- )
--- 167,172 ----
ENDCASE r>drop
\ position the vertical button in the scroll bar
! set-scrollpos
! 0 ;M
:m on_done: ( -- )
|
