[Win32forth-cvs] win32forth/apps/ProMgr HexViewer.f,1.3,1.4

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

Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27830/apps/ProMgr

Modified Files:
	HexViewer.f 
Log Message:
Rod: changed to use proportional scrollbar

Index: HexViewer.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/HexViewer.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** HexViewer.f	6 Nov 2005 10:43:15 -0000	1.3
--- HexViewer.f	7 Nov 2005 20:18:19 -0000	1.4
***************
*** 18,41 ****
  Font fdFont
  
! :m classinit:   ( -- )
!                 classinit: super
!                 NextID to ID
!                 0 to buff-ptr
!                 0 to buff-len
!                 0 to eob-ptr
!                 200 to last-line#
!                 last-line# 20 - to last-top-line# ;m
  
! : set-params    ( -- )
!                 temprect GetClientrect: self
!                 temprect.right to width
!                 temprect.bottom to height
!                 width char-width / to screen-cols
!                 height char-height / to screen-rows
!                 last-line# screen-rows - 0max to last-top-line#
!                 \ set the vertical scroll limits
!                 false last-top-line# first-line# SB_VERT
!                 GetHandle: self Call SetScrollRange drop ;
!                 
  
  : release-buffptr   ( -- )
--- 18,55 ----
  Font fdFont
  
! Record: ScrollInfo
!     int cbSize
!     int fMask
!     int nMin
!     int nMax
!     int nPage
!     int nPos
!     int nTrackPos
! ;RecordSize: sizeof(ScrollInfo)
  
! :M classinit:   ( -- )
!         classinit: super
!         sizeof(ScrollInfo) to cbSize
!         SIF_ALL to fMask
!         NextID to ID
!         0 to buff-ptr
!         0 to buff-len
!         0 to eob-ptr
!         200 to last-line#
!         last-line# 20 - to last-top-line#
!         ;M
! 
! : set-scrollinfo ( -- )
!         screen-rows  to nPage
!         cur-first-line to nPos
!         last-line# 1- to nMax  first-line# to nMin
!         true ScrollInfo SB_VERT hWnd Call SetScrollInfo drop
!         ;
! 
! : set-params ( -- )
!         width char-width / to screen-cols
!         height char-height / to screen-rows
!         last-line# screen-rows - 0max to last-top-line#
!         ;
  
  : release-buffptr   ( -- )
***************
*** 58,69 ****
                  ;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
- 
  :m startpos: 0 0 ;m
  
--- 72,75 ----
***************
*** 128,132 ****
          0max last-top-line# min to cur-first-line
          cur-first-line - char-height * 0 swap Scroll: self  \ scroll rather than repaint
!         set-scrollpos ;M
  
  :M VScroll: ( n -- )   \ move n lines up or down
--- 134,138 ----
          0max last-top-line# min to cur-first-line
          cur-first-line - char-height * 0 swap Scroll: self  \ scroll rather than repaint
!         set-scrollinfo ;M
  
  :M VScroll: ( n -- )   \ move n lines up or down
***************
*** 176,179 ****
--- 182,191 ----
              on_done: super ;m
  
+ :M on_size: ( -- )
+         set-params
+         set-scrollinfo
+         cur-first-line last-top-line# > IF  -1 VScroll: self  THEN
+         ;M
+ 
  :M AutoSize:    ( -- )
                  tempRect.AddrOf GetClientRect: Parent
***************
*** 186,188 ****
  
  ;class
- \s
--- 198,199 ----