--- a/ResourceSpecEditor.st Mon Sep 21 22:05:34 2009 +0200
+++ b/ResourceSpecEditor.st Mon Sep 21 22:45:00 2009 +0200
@@ -13,7 +13,7 @@
ToolApplicationModel subclass:#ResourceSpecEditor
instanceVariableNames:'specClass specClassName specSelector aspects modified hasSaved
- tabSelection'
+ tabSelection isEmbeddedInBrowser'
classVariableNames:''
poolDictionaries:''
category:'Interface-Framework'
@@ -161,6 +161,14 @@
self modified:false
!
+isEmbeddedInBrowser
+ ^ isEmbeddedInBrowser ? false
+!
+
+isEmbeddedInBrowser:something
+ isEmbeddedInBrowser := something.
+!
+
modified
"returns whether the resource spec was modified"
@@ -775,5 +783,5 @@
!ResourceSpecEditor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.47 2009-07-09 18:07:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.48 2009-09-21 20:45:00 cg Exp $'
! !