Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18160/apps/SciEdit
Modified Files:
Main.f
Log Message:
Rod: Added WndClassStyle: CS_DBLCLKS and removed borders
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Main.f 7 May 2006 06:34:26 -0000 1.18
--- Main.f 13 May 2006 20:31:02 -0000 1.19
***************
*** 128,145 ****
:M ReSize: ( -- )
! tempRect.AddrOf GetClientRect: self
!
! Left: tempRect
! ShowToolbar? if Height: TheRebar 2 - else Top: tempRect then
! Right: tempRect
! Bottom: tempRect
! ShowStatusbar? if Height: ScintillaStatusbar - 1+ then
! ShowToolbar? if Height: TheRebar - 1+ then
Move: MDIClient
! ShowToolbar? if Width Height: TheRebar GetHandle: TheRebar AdjustWindowSize then
! ShowStatusbar? if Redraw: ScintillaStatusbar then
;M
int WindowState
:M On_Size: ( h m w -- )
--- 128,145 ----
:M ReSize: ( -- )
! 0
! ShowToolbar? if Height: TheRebar else 0 then
! width
! height
! ShowStatusbar? if Height: ScintillaStatusbar - then
! ShowToolbar? if Height: TheRebar - then
Move: MDIClient
! ShowToolbar? if Width Height: TheRebar GetHandle: TheRebar AdjustWindowSize then
! ShowStatusbar? if Redraw: ScintillaStatusbar then
;M
+ :M MinSize: ( -- width height ) 412 0 ;M \ prevent menu wrapping onto another line
+
int WindowState
:M On_Size: ( h m w -- )
***************
*** 275,282 ****
LoadAppIcon ;M
! :M On_Init: ( -- )
!
! On_Init: super
InitScintillaControl \ Dienstag, August 03 2004 dbu
AccelTable EnableAccelerators \ init the accelerator table
--- 275,281 ----
LoadAppIcon ;M
! :M WndClassStyle: ( -- style ) CS_DBLCLKS ;M
+ :M On_Init: ( -- )
InitScintillaControl \ Dienstag, August 03 2004 dbu
AccelTable EnableAccelerators \ init the accelerator table
***************
*** 284,288 ****
self Start: TheRebar
EnableToolbar
! load-defaults ReSize: self
;M
--- 283,291 ----
self Start: TheRebar
EnableToolbar
! On_Init: super
! \ with CS_DBLCLKS as WndClassStyle to prevent flicker
! \ Statusbar must now be started before MDIClient
! \ ( not needed) CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop
! load-defaults
;M
|
