--- a/FileBrowserV2.st Fri Feb 09 16:43:14 2007 +0100
+++ b/FileBrowserV2.st Sat Feb 10 17:03:17 2007 +0100
@@ -12,11 +12,11 @@
"{ Package: 'stx:libtool' }"
AbstractFileBrowser subclass:#FileBrowserV2
- instanceVariableNames:'fileEntryFieldHolder pathEntryField previewProcess
- listOfDeviceDrives selectedDeviceDrive imgView lineLabel'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Tools-File'
+ instanceVariableNames:'fileEntryFieldHolder pathEntryField previewProcess
+ listOfDeviceDrives selectedDeviceDrive imgView lineLabel'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Tools-File'
!
!FileBrowserV2 class methodsFor:'documentation'!
@@ -186,10 +186,6 @@
!FileBrowserV2 class methodsFor:'class initialization'!
-applicationIcon
- ^ ToolbarIconLibrary startNewFileBrowserIcon
-!
-
initialize
"/ self installInLauncher. - now done in phase 2
ObjectMemory addDependent:self.
@@ -204,7 +200,7 @@
action := [FileBrowserV2 open].
- icon := [self applicationIcon]. "/ self defaultIcon magnifiedTo:28@28.
+ icon := [self defaultIcon]. "/ self defaultIcon magnifiedTo:28@28.
menuItem := MenuItem new
translateLabel: true;
@@ -1851,7 +1847,7 @@
!FileBrowserV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.165 2007-02-06 18:41:00 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.166 2007-02-10 16:03:17 cg Exp $'
! !
FileBrowserV2 initialize!