FileBrowserV2.st
changeset 7642 7a736bd24cbd
parent 7630 4033fd07cfe2
child 7670 f4016c41eb2b
--- 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!