Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
another icon for executable files.
authorClaus Gittinger <cg@exept.de>
Mon, 27 Jul 1998 09:59:52 +0200
changeset 1746 68a187e3f30f
parent 1745 337a8b80e297
child 1747 c5bb7a2b0037
another icon for executable files.
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Sat Jul 25 12:14:16 1998 +0200
+++ b/FBrowser.st	Mon Jul 27 09:59:52 1998 +0200
@@ -128,34 +128,35 @@
     Icons := IdentityDictionary new.
 
     #(
-	(#directory       'ICON_DIRECTORY'        'tiny_yellow_dir.xpm'       )
-	(#directoryLocked 'ICON_DIRECTORY_LOCKED' 'tiny_yellow_dir_locked.xpm')
-	(#directoryLink   'ICON_DIRECTORY_LINK'   'tiny_yellow_dir_link.xpm'  )
-	(#file            'ICON_FILE'             'tiny_file_plain.xpm'       )
-	(#fileLink        'ICON_FILE_LINK'        'tiny_file_link.xpm'        )
-	(#fileLocked      'ICON_FILE_LOCKED'      'tiny_file_lock.xpm'        )
-	(#imageFile       'ICON_IMAGE_FILE'       'tiny_file_pix.xpm'         )
-	(#textFile        'ICON_TEXT_FILE'        'tiny_file_text.xpm'         )
+        (#directory       'ICON_DIRECTORY'        'tiny_yellow_dir.xpm'       )
+        (#directoryLocked 'ICON_DIRECTORY_LOCKED' 'tiny_yellow_dir_locked.xpm')
+        (#directoryLink   'ICON_DIRECTORY_LINK'   'tiny_yellow_dir_link.xpm'  )
+        (#file            'ICON_FILE'             'tiny_file_plain.xpm'       )
+        (#fileLink        'ICON_FILE_LINK'        'tiny_file_link.xpm'        )
+        (#fileLocked      'ICON_FILE_LOCKED'      'tiny_file_lock.xpm'        )
+        (#imageFile       'ICON_IMAGE_FILE'       'tiny_file_pix.xpm'         )
+        (#textFile        'ICON_TEXT_FILE'        'tiny_file_text.xpm'         )
+        (#executableFile  'ICON_EXECUTABLEFILE'   'tiny_file_exec.xpm'         )
 
      ) do:[:entry |
-	|key resource defaultName nm|
-
-	key := entry at:1.
-	resource := entry at:2.
-	defaultName := entry at:3.
-
-	nm := resources at:resource default:nil.
-	nm isNil ifTrue:[
-	    nm := 'bitmaps/xpmBitmaps/document_images/' , defaultName
-	].
-	Icons at:key put:(Image fromFile:nm).
+        |key resource defaultName nm|
+
+        key := entry at:1.
+        resource := entry at:2.
+        defaultName := entry at:3.
+
+        nm := resources at:resource default:nil.
+        nm isNil ifTrue:[
+            nm := 'bitmaps/xpmBitmaps/document_images/' , defaultName
+        ].
+        Icons at:key put:(Image fromFile:nm).
     ]
 
     "
      self initializeIcons
     "
 
-    "Modified: 28.7.1997 / 09:19:45 / cg"
+    "Modified: / 25.7.1998 / 21:09:19 / cg"
 ! !
 
 !FileBrowser class methodsFor:'command history'!
@@ -3556,6 +3557,9 @@
             ]
         ] ifFalse:[
             key := key2 := #file.
+            f isExecutable ifTrue:[
+                key := key2 := #executableFile
+            ].
             (f isReadable not) ifTrue:[
                 key := #fileLocked
             ] ifFalse:[
@@ -3595,8 +3599,8 @@
     icons at:key put:icn.
     ^ icn
 
-    "Modified: 28.7.1997 / 09:19:11 / cg"
-    "Modified: 18.9.1997 / 16:35:28 / stefan"
+    "Modified: / 18.9.1997 / 16:35:28 / stefan"
+    "Modified: / 25.7.1998 / 21:10:42 / cg"
 !
 
 stopUpdateProcess
@@ -4038,5 +4042,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.233 1998-07-21 14:44:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.234 1998-07-27 07:59:52 cg Exp $'
 ! !
--- a/FileBrowser.st	Sat Jul 25 12:14:16 1998 +0200
+++ b/FileBrowser.st	Mon Jul 27 09:59:52 1998 +0200
@@ -128,34 +128,35 @@
     Icons := IdentityDictionary new.
 
     #(
-	(#directory       'ICON_DIRECTORY'        'tiny_yellow_dir.xpm'       )
-	(#directoryLocked 'ICON_DIRECTORY_LOCKED' 'tiny_yellow_dir_locked.xpm')
-	(#directoryLink   'ICON_DIRECTORY_LINK'   'tiny_yellow_dir_link.xpm'  )
-	(#file            'ICON_FILE'             'tiny_file_plain.xpm'       )
-	(#fileLink        'ICON_FILE_LINK'        'tiny_file_link.xpm'        )
-	(#fileLocked      'ICON_FILE_LOCKED'      'tiny_file_lock.xpm'        )
-	(#imageFile       'ICON_IMAGE_FILE'       'tiny_file_pix.xpm'         )
-	(#textFile        'ICON_TEXT_FILE'        'tiny_file_text.xpm'         )
+        (#directory       'ICON_DIRECTORY'        'tiny_yellow_dir.xpm'       )
+        (#directoryLocked 'ICON_DIRECTORY_LOCKED' 'tiny_yellow_dir_locked.xpm')
+        (#directoryLink   'ICON_DIRECTORY_LINK'   'tiny_yellow_dir_link.xpm'  )
+        (#file            'ICON_FILE'             'tiny_file_plain.xpm'       )
+        (#fileLink        'ICON_FILE_LINK'        'tiny_file_link.xpm'        )
+        (#fileLocked      'ICON_FILE_LOCKED'      'tiny_file_lock.xpm'        )
+        (#imageFile       'ICON_IMAGE_FILE'       'tiny_file_pix.xpm'         )
+        (#textFile        'ICON_TEXT_FILE'        'tiny_file_text.xpm'         )
+        (#executableFile  'ICON_EXECUTABLEFILE'   'tiny_file_exec.xpm'         )
 
      ) do:[:entry |
-	|key resource defaultName nm|
-
-	key := entry at:1.
-	resource := entry at:2.
-	defaultName := entry at:3.
-
-	nm := resources at:resource default:nil.
-	nm isNil ifTrue:[
-	    nm := 'bitmaps/xpmBitmaps/document_images/' , defaultName
-	].
-	Icons at:key put:(Image fromFile:nm).
+        |key resource defaultName nm|
+
+        key := entry at:1.
+        resource := entry at:2.
+        defaultName := entry at:3.
+
+        nm := resources at:resource default:nil.
+        nm isNil ifTrue:[
+            nm := 'bitmaps/xpmBitmaps/document_images/' , defaultName
+        ].
+        Icons at:key put:(Image fromFile:nm).
     ]
 
     "
      self initializeIcons
     "
 
-    "Modified: 28.7.1997 / 09:19:45 / cg"
+    "Modified: / 25.7.1998 / 21:09:19 / cg"
 ! !
 
 !FileBrowser class methodsFor:'command history'!
@@ -3556,6 +3557,9 @@
             ]
         ] ifFalse:[
             key := key2 := #file.
+            f isExecutable ifTrue:[
+                key := key2 := #executableFile
+            ].
             (f isReadable not) ifTrue:[
                 key := #fileLocked
             ] ifFalse:[
@@ -3595,8 +3599,8 @@
     icons at:key put:icn.
     ^ icn
 
-    "Modified: 28.7.1997 / 09:19:11 / cg"
-    "Modified: 18.9.1997 / 16:35:28 / stefan"
+    "Modified: / 18.9.1997 / 16:35:28 / stefan"
+    "Modified: / 25.7.1998 / 21:10:42 / cg"
 !
 
 stopUpdateProcess
@@ -4038,5 +4042,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.233 1998-07-21 14:44:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.234 1998-07-27 07:59:52 cg Exp $'
 ! !
hg/stx-libtool