# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1576707438 -3600
# Node ID 6f7e2ad3bf768501030dda96880076556498304e
# Parent  cc84d2db5f7cd0f2315be99c014200c9f7e192b4
#BUGFIX by cg
class: AbstractFileBrowser
changed: #fileFileInPackage
endless loop

diff -r cc84d2db5f7c -r 6f7e2ad3bf76 AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Wed Dec 18 22:00:10 2019 +0100
+++ b/AbstractFileBrowser.st	Wed Dec 18 23:17:18 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -3008,7 +3006,7 @@
                                     "/ are perfect here, but usually not available in the font
                                     "/ and we have currently no way of knowing if they are...
                                     "/ (could let the font draw into a bitmap and check if there is something...)
-                                    "/ For now, write a dot.·
+                                    "/ For now, write a dot.·
                                     "/ charPrinted := (Character value:(byte + 16r2400))
                                 ].
                             ].
@@ -7576,7 +7574,7 @@
     [ (dir / 'stx') = top ] whileFalse:[
         path := dir baseName , '/' , path.
         dir := dir directory.
-        dir isNil ifTrue:[
+        (dir isNil or:[dir isRootDirectory]) ifTrue:[
             Dialog warn:'Could not find a path from "stx" to the current directory.'.
             "/ should ask the user for a packageID and proceed...
             ^  self.
@@ -9141,7 +9139,7 @@
             ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender|
                 label := msg := 'Breakpoint/Halt in fileIn'.
                 sender := ex suspendedContext.
-                msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
+                msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
             ] ifFalse:[
                 label := 'Error in fileIn'.
                 msg := 'error in fileIn: %1'