ResourceSpecEditor.st
changeset 2748 03b9b57d2076
parent 2693 63c153f0ce90
child 2874 6a5590e8b647
equal deleted inserted replaced
2747:66277799abc8 2748:03b9b57d2076
    11 "
    11 "
    12 "{ Package: 'stx:libview2' }"
    12 "{ Package: 'stx:libview2' }"
    13 
    13 
    14 ToolApplicationModel subclass:#ResourceSpecEditor
    14 ToolApplicationModel subclass:#ResourceSpecEditor
    15 	instanceVariableNames:'specClass specClassName specSelector aspects modified hasSaved
    15 	instanceVariableNames:'specClass specClassName specSelector aspects modified hasSaved
    16 		tabSelection'
    16 		tabSelection isEmbeddedInBrowser'
    17 	classVariableNames:''
    17 	classVariableNames:''
    18 	poolDictionaries:''
    18 	poolDictionaries:''
    19 	category:'Interface-Framework'
    19 	category:'Interface-Framework'
    20 !
    20 !
    21 
    21 
   157 
   157 
   158 !ResourceSpecEditor methodsFor:'accessing'!
   158 !ResourceSpecEditor methodsFor:'accessing'!
   159 
   159 
   160 clearModified       
   160 clearModified       
   161     self modified:false
   161     self modified:false
       
   162 !
       
   163 
       
   164 isEmbeddedInBrowser
       
   165     ^ isEmbeddedInBrowser ? false
       
   166 !
       
   167 
       
   168 isEmbeddedInBrowser:something
       
   169     isEmbeddedInBrowser := something.
   162 !
   170 !
   163 
   171 
   164 modified       
   172 modified       
   165     "returns whether the resource spec was modified"
   173     "returns whether the resource spec was modified"
   166 
   174 
   773 ! !
   781 ! !
   774 
   782 
   775 !ResourceSpecEditor class methodsFor:'documentation'!
   783 !ResourceSpecEditor class methodsFor:'documentation'!
   776 
   784 
   777 version
   785 version
   778     ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.47 2009-07-09 18:07:51 cg Exp $'
   786     ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.48 2009-09-21 20:45:00 cg Exp $'
   779 ! !
   787 ! !