Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdFilePane.f, 1.1, 1.2 FileWindow.frm, 1.1, 1.2
|
From: Rod O. <rod...@us...> - 2006-06-15 20:59:39
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24746/apps/Win32ForthIDE Modified Files: EdFilePane.f FileWindow.frm Log Message: Rod: Eliminated the flicker in the Directory Tab when resizing. Index: EdFilePane.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFilePane.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdFilePane.f 14 Jun 2006 06:02:56 -0000 1.1 --- EdFilePane.f 15 Jun 2006 20:59:36 -0000 1.2 *************** *** 175,178 **** --- 175,179 ---- drvbitmap SetImage: imgDrvButton s" Change drive/folder" BInfo: imgDrvButton place \ tooltip + WS_CLIPSIBLINGS +Style: imgDrvButton \ allow user specified filespecs, N.B. changes lost when program exited *************** *** 182,185 **** --- 183,187 ---- specsbmp SetImage: imgSpecsButton s" Add file specification string e.g (*.f;*.4th)" Binfo: imgSpecsButton place + WS_CLIPSIBLINGS +Style: imgSpecsButton copybmp usebitmap map-3dcolors *************** *** 188,191 **** --- 190,194 ---- copybmp SetImage: imgCopyButton s" Copy selected file" Binfo: imgCopyButton place + WS_CLIPSIBLINGS +Style: imgCopyButton deletebmp usebitmap map-3dcolors *************** *** 194,197 **** --- 197,201 ---- deletebmp SetImage: imgDeleteButton s" Delete selected file" Binfo: imgDeleteButton place + WS_CLIPSIBLINGS +Style: imgDeleteButton dupebmp usebitmap map-3dcolors *************** *** 200,203 **** --- 204,208 ---- dupebmp SetImage: imgDupeButton s" Duplicate selected file" Binfo: imgDupeButton place + WS_CLIPSIBLINGS +Style: imgDupeButton \ true ReadOnly: cmblstPathPicker *************** *** 254,258 **** :M ExWindowStyle: ( -- ) WS_EX_CLIENTEDGE ;M ! :m classinit: classinit: super 1290 to id ;m --- 259,267 ---- :M ExWindowStyle: ( -- ) WS_EX_CLIENTEDGE ;M ! ! :M WndClassStyle: ( -- style ) ! \ CS_DBLCLKS only to prevent flicker in window on sizing. ! CS_DBLCLKS ;M ! :m classinit: classinit: super 1290 to id ;m Index: FileWindow.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FileWindow.frm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** FileWindow.frm 14 Jun 2006 06:02:56 -0000 1.1 --- FileWindow.frm 15 Jun 2006 20:59:36 -0000 1.2 *************** *** 73,87 **** COLOR_BTNFACE Call GetSysColor NewColor: FrmColor - - self Start: cmblstPathPicker - 2 30 180 17 Move: cmblstPathPicker - Handle: Winfont SetFont: cmblstPathPicker - self Start: TheDirectory 2 50 180 371 Move: TheDirectory self Start: CmbLstFilters 2 423 180 23 Move: CmbLstFilters Handle: Winfont SetFont: CmbLstFilters ;M --- 73,90 ---- COLOR_BTNFACE Call GetSysColor NewColor: FrmColor self Start: TheDirectory 2 50 180 371 Move: TheDirectory + CS_DBLCLKS GCL_STYLE GetHandle: TheDirectory Call SetClassLong drop + WS_CLIPSIBLINGS +Style: TheDirectory self Start: CmbLstFilters 2 423 180 23 Move: CmbLstFilters Handle: Winfont SetFont: CmbLstFilters + WS_CLIPSIBLINGS +Style: CmbLstFilters + + self Start: cmblstPathPicker + 2 30 180 17 Move: cmblstPathPicker + Handle: Winfont SetFont: cmblstPathPicker + WS_CLIPSIBLINGS +Style: cmblstPathPicker ;M *************** *** 108,110 **** --- 111,117 ---- ;M + :M WndClassStyle: ( -- style ) + \ CS_DBLCLKS only to prevent flicker in window on sizing. + CS_DBLCLKS ;M + ;Object |
