SimpleView.st
changeset 8922 b28adba3b05b
parent 8916 60eeeafa3a6f
child 8937 a9c4ca74ecb0
--- a/SimpleView.st	Thu Dec 12 18:34:36 2019 +0100
+++ b/SimpleView.st	Fri Dec 13 15:39:45 2019 +0100
@@ -1208,20 +1208,21 @@
     |iconLibraryClass |
 
     DefaultStyle isNil ifTrue:[
-	self setDefaultStyle
+        self setDefaultStyle
     ].
 
     StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
     StyleSheet fileReadFailed ifTrue:[
-	('SimpleView [warning]: ***** no styleSheet for ' , DefaultStyle , '-style.') errorPrintCR.
-	DefaultStyle ~~ #normal ifTrue:[
-	    DefaultStyle := #normal.
-	    StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
-
-	    StyleSheet fileReadFailed ifTrue:[
-		'SimpleView [warning]: not even a styleSheet for normal-style (using ugly defaults).' errorPrintCR.
-	    ]
-	]
+        ('SimpleView [warning]: ***** no styleSheet for ' , DefaultStyle , '-style.') errorPrintCR.
+        DefaultStyle ~~ #normal ifTrue:[
+            DefaultStyle := #normal.
+            StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
+
+            StyleSheet fileReadFailed ifTrue:[
+                thisContext fullPrintAll.
+                'SimpleView [warning]: ***** not even a styleSheet for normal-style (using ugly defaults).' errorPrintCR.
+            ]
+        ]
     ].
 
     iconLibraryClass := StyleSheet at:#ToolbarIconLibrary.