AbstractFileBrowser.st
changeset 4094 aa3dbbfe7ea4
parent 4093 ada0669d06bd
child 4101 cc9cdc23b789
--- a/AbstractFileBrowser.st	Tue Oct 29 12:18:06 2002 +0100
+++ b/AbstractFileBrowser.st	Tue Oct 29 12:59:38 2002 +0100
@@ -1,13 +1,13 @@
 "{ Package: 'stx:libtool' }"
 
 ApplicationModel subclass:#AbstractFileBrowser
-	instanceVariableNames:'aspects'
-	classVariableNames:'DirectoryHistory DefaultCommandPerMIME SettingsAspects
-		RuntimeAspects DirectoryBookmarks LastEnforcedNameSpace
-		CommandHistory DefaultCommandPerSuffix CommandHistorySize
-		LastFileDiffFile DefaultFilters'
-	poolDictionaries:''
-	category:'Interface-Tools-File'
+        instanceVariableNames:'aspects'
+        classVariableNames:'DirectoryHistory DefaultCommandPerMIME SettingsAspects
+                RuntimeAspects DirectoryBookmarks LastEnforcedNameSpace
+                CommandHistory DefaultCommandPerSuffix CommandHistorySize
+                LastFileDiffFile DefaultFilters'
+        poolDictionaries:''
+        category:'Interface-Tools-File'
 !
 
 AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
@@ -15,52 +15,52 @@
 "
  The following class instance variables are inherited by this class:
 
-	ApplicationModel - ClassResources
-	Model - 
-	Object - 
+        ApplicationModel - ClassResources
+        Model - 
+        Object - 
 "
 !
 
 Object subclass:#Clipboard
-	instanceVariableNames:'method files'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractFileBrowser
+        instanceVariableNames:'method files'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractFileBrowser
 !
 
 Object subclass:#CodeExecutionLock
-	instanceVariableNames:'locked'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractFileBrowser
+        instanceVariableNames:'locked'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractFileBrowser
 !
 
 OrderedCollection subclass:#DirectoryHistory
-	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath'
-	classVariableNames:'HistorySize'
-	poolDictionaries:''
-	privateIn:AbstractFileBrowser
+        instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath'
+        classVariableNames:'HistorySize'
+        poolDictionaries:''
+        privateIn:AbstractFileBrowser
 !
 
 Object subclass:#DirectoryHistoryItem
-	instanceVariableNames:'path position'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractFileBrowser::DirectoryHistory
+        instanceVariableNames:'path position'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractFileBrowser::DirectoryHistory
 !
 
 OrderedSet subclass:#FilenameHistory
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractFileBrowser
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractFileBrowser
 !
 
 Object subclass:#SaveAspectItem
-	instanceVariableNames:'value isHolder'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractFileBrowser
+        instanceVariableNames:'value isHolder'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractFileBrowser
 !
 
 
@@ -333,7 +333,7 @@
 fileInIcon
     <resource: #programImage>
 
-    ^ ToolbarIconLibrary fileIn20x20Icon
+    ^ ToolbarIconLibrary fileIn20x20Icon3
 !
 
 goHomeIcon
@@ -493,6 +493,10 @@
 @@@KB0,@@@@@@@@K@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 32 96 32 64 96 96 128 160 64 96 128 128 160 192 32 96 128 128 160 160 160 192 224 0 96 128 0 0 0 128 128 160 64 192 192 32 160 192 64 128 192 128 192 224 192 224 224 0 0 32 96 192 224 0 160 192 0 128 192 160 224 224 96 160 192 128 192 192 64 160 192 192 192 192 32 192 192 0 192 224 0 128 160 32 192 224 64 192 224 0 192 192 0 64 96 0 64 128]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A@@@C@@@G@@@O@@@_@@@?? A?? C?? G?? G?? C?? A?? @?? @_@@@O@@?''@@_C@@NA@@D@@@') ; yourself); yourself]
 !
 
+leftArrowIcon
+    ^ self leftArrow20x20Icon
+!
+
 leftArrowPlusMenu
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -688,6 +692,10 @@
 @ HB@ HB@ HB@@HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @a') ; colorMapFromArray:#[0 0 0 100 128 255 128 128 128]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@D@@@F@H@G@@@G @@G0@O?8AO?<@O?>@O??@O??DO?>DO?<@O?8@@G0@@G @@G@@@F@@@D@J@@@@') ; yourself); yourself]
 !
 
+rightArrowIcon
+    ^ self rightArrow20x20Icon
+!
+
 rightArrowPlusMenu
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -766,7 +774,8 @@
 searchIcon
     <resource: #programImage>
 
-    ^ ToolbarIconLibrary search16x16Icon "/ search28x28Icon
+    ^ ToolbarIconLibrary search20x20Icon "/ search28x28Icon
+    "/ ^ ToolbarIconLibrary search16x16Icon "/ search28x28Icon
 !
 
 shellIcon
@@ -778,6 +787,15 @@
     ^ ToolbarIconLibrary shell20x20Icon
 !
 
+shellWithoutTextIcon
+    <resource: #programImage>
+
+    OperatingSystem isMSDOSlike ifTrue:[
+        ^ ToolbarIconLibrary dosWithoutText20x20Icon
+    ].
+    ^ ToolbarIconLibrary shellWithoutText20x20Icon
+!
+
 upArrow
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -854,6 +872,10 @@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 96 128 160 0 96 128 0 0 32 128 160 192 192 224 224 0 160 192 128 128 160 32 192 192 128 160 160 96 192 224 0 192 224 32 192 224 32 160 192 64 224 224 160 192 224 64 192 192 0 128 192 0 192 192 0 128 160 32 64 96 64 96 128 32 96 128 0 64 128 0 64 96 192 192 192 0 32 96 32 128 192 128 192 224 64 192 224 128 192 192 160 224 224 96 192 192 96 160 192 64 160 192]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@F@@@O@@@_ @@?0@A?8@C?<@G?>@O??@_?? @?0@@?0@@?0@@?0@@?0@@?0@@?0@@@@@@@@@') ; yourself); yourself]
 !
 
+upArrowIcon
+    ^ self upArrow20x20Icon
+!
+
 upArrowPlusMenu
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -4924,5 +4946,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.40 2002-10-29 11:18:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.41 2002-10-29 11:59:03 cg Exp $'
 ! !