Workspace.st
changeset 6316 9c60c63d8333
parent 6302 9a1eaefba171
child 6317 162eab34215c
--- a/Workspace.st	Wed May 09 13:11:29 2018 +0200
+++ b/Workspace.st	Wed May 09 19:38:12 2018 +0200
@@ -1782,6 +1782,11 @@
                                 ifFalse:[ evaluatedValue class ].
             ].
     ].
+    classToBrowse browserClass isNil ifTrue:[
+        (Dialog confirm:'The object is class-less. Inspect the value instead?') ifFalse:[^ self].
+        evaluatedValue inspect.
+        ^ self.
+    ].
 
     browser := classToBrowse browserClass openInClass:classToBrowse selector:selector.
     (selector notNil and:[lineNr notNil]) ifTrue:[