WorkspaceApplication.st
changeset 12737 6496bc257aaf
parent 12735 44e8ea95cd2f
child 12767 332530749a77
--- a/WorkspaceApplication.st	Wed May 01 17:10:01 2013 +0200
+++ b/WorkspaceApplication.st	Wed May 01 17:11:56 2013 +0200
@@ -3086,7 +3086,12 @@
     |inspectorClass|
 
     isBasicInspector ifFalse:[
-        inspectorClass := aValue inspectorClass.
+        "/ Inspector2 does not work yet!!
+        "(Tools::Inspector2 notNil and:[UserPreferences current useInspector2])" false ifTrue:[
+            inspectorClass := Tools::Inspector2.
+        ] ifFalse:[
+            inspectorClass := aValue inspectorClass.
+        ].
     ].
     inspectorClass isNil ifTrue:[
         inspectorClass := InspectorView
@@ -4026,11 +4031,11 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.241 2013-05-01 11:14:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.242 2013-05-01 15:11:56 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.241 2013-05-01 11:14:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.242 2013-05-01 15:11:56 stefan Exp $'
 !
 
 version_SVN