special editor stuff
authorClaus Gittinger <cg@exept.de>
Mon, 21 Sep 2009 22:47:21 +0200
changeset 8744 2ad1b8a365db
parent 8743 49ab1a31fb79
child 8745 8ce9f5d5bd52
special editor stuff
Tools_NavigationState.st
--- a/Tools_NavigationState.st	Mon Sep 21 22:46:53 2009 +0200
+++ b/Tools_NavigationState.st	Mon Sep 21 22:47:21 2009 +0200
@@ -401,27 +401,10 @@
 !
 
 specialEditorCanvasClassForResourceType:resourceTypeSymbol
-    resourceTypeSymbol == #image ifTrue:[
-        ^ ImageEditor.
-    ].
-    resourceTypeSymbol == #menu ifTrue:[
-        ^ MenuEditor.
-    ].
-    resourceTypeSymbol == #help ifTrue:[
-        ^ UIHelpTool.
+    resourceTypeSymbol == #fileImage ifTrue:[
+        ^ nil
     ].
-    resourceTypeSymbol == #canvas ifTrue:[
-        ^ UIPainter.
-    ].
-    resourceTypeSymbol == #tableColumns ifTrue:[
-        ^ DataSetBuilder.
-    ].
-    resourceTypeSymbol == #projectDefinition ifTrue:[
-        ^ ProjectDefinitionEditor.
-    ].
-    ^ nil
-
-    "Modified: / 06-09-2006 / 19:18:53 / cg"
+    ^ SystemBrowser resourceEditorClassFor:resourceTypeSymbol
 !
 
 specialEditorCanvasForResourceType:resourceTypeSymbol
@@ -436,6 +419,7 @@
         appClass notNil ifTrue:[
             app := appClass new.
             app masterApplication:self canvas application.
+            app isEmbeddedInBrowser:true.
             app infoLabelHolder:(self canvas application infoLabelHolder).
 
             editorView := ApplicationSubView new.
@@ -1301,5 +1285,5 @@
 !NavigationState class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.27 2009-02-16 20:36:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.28 2009-09-21 20:47:21 cg Exp $'
 ! !