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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 23 Jan 1997 19:23:15 +0100
changeset 986 3e1efc0e05b3
parent 985 fde6b90945cc
child 987 e24e45bd126a
checkin from browser
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Thu Jan 23 14:36:02 1997 +0100
+++ b/FBrowser.st	Thu Jan 23 19:23:15 1997 +0100
@@ -2477,7 +2477,14 @@
 
     msg notNil ifTrue:[
         defaultFont isNil ifTrue:[
-            defaultFont := device listOfAvailableFonts detect:[:f | filter value:f].
+            defaultFont := device 
+                                listOfAvailableFonts 
+                                    detect:[:f | filter value:f]
+                                    ifNone:nil.
+            defaultFont isNil ifTrue:[
+                self warn:'your display does not seem to provide any ' , newEncoding , '-encoded font.'.
+                ^ self.
+            ]
         ].
 
         (ask not or:[self confirm:(resources string:msg) withCRs])
@@ -2493,7 +2500,7 @@
     ]
 
     "Created: 26.10.1996 / 12:06:54 / cg"
-    "Modified: 26.10.1996 / 12:07:31 / cg"
+    "Modified: 23.1.1997 / 18:50:37 / cg"
 !
 
 withoutHiddenFiles:aCollection
@@ -2782,5 +2789,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.113 1997-01-17 15:20:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.114 1997-01-23 18:23:15 cg Exp $'
 ! !
--- a/FileBrowser.st	Thu Jan 23 14:36:02 1997 +0100
+++ b/FileBrowser.st	Thu Jan 23 19:23:15 1997 +0100
@@ -2477,7 +2477,14 @@
 
     msg notNil ifTrue:[
         defaultFont isNil ifTrue:[
-            defaultFont := device listOfAvailableFonts detect:[:f | filter value:f].
+            defaultFont := device 
+                                listOfAvailableFonts 
+                                    detect:[:f | filter value:f]
+                                    ifNone:nil.
+            defaultFont isNil ifTrue:[
+                self warn:'your display does not seem to provide any ' , newEncoding , '-encoded font.'.
+                ^ self.
+            ]
         ].
 
         (ask not or:[self confirm:(resources string:msg) withCRs])
@@ -2493,7 +2500,7 @@
     ]
 
     "Created: 26.10.1996 / 12:06:54 / cg"
-    "Modified: 26.10.1996 / 12:07:31 / cg"
+    "Modified: 23.1.1997 / 18:50:37 / cg"
 !
 
 withoutHiddenFiles:aCollection
@@ -2782,5 +2789,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.113 1997-01-17 15:20:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.114 1997-01-23 18:23:15 cg Exp $'
 ! !
hg/stx-libtool