--- a/Tools__Inspector2Tab.st Wed Jun 13 14:58:53 2012 +0200
+++ b/Tools__Inspector2Tab.st Wed Jun 13 14:59:31 2012 +0200
@@ -14,7 +14,7 @@
"{ NameSpace: Tools }"
Object subclass:#Inspector2Tab
- instanceVariableNames:'label view application priority'
+ instanceVariableNames:'label view application priority viewHolder'
classVariableNames:''
poolDictionaries:''
category:'Interface-Inspector2'
@@ -86,15 +86,19 @@
view
view isNil ifTrue:[
- application ifNotNil:[
- view := ApplicationSubView new client: application
+ viewHolder notNil ifTrue:[
+ view := viewHolder value
+ ] ifFalse:[
+ application notNil ifTrue:[
+ view := ApplicationSubView new client: application
+ ]
]
].
^ view
"Created: / 16-01-2008 / 16:51:05 / janfrog"
"Modified: / 17-02-2008 / 10:38:59 / janfrog"
- "Modified (format): / 18-11-2011 / 15:00:22 / cg"
+ "Modified: / 13-06-2012 / 14:57:25 / cg"
!
view:aView
@@ -102,12 +106,16 @@
"Created: / 16-01-2008 / 16:51:05 / janfrog"
"Modified: / 17-02-2008 / 08:58:46 / janfrog"
+!
+
+viewHolder:something
+ viewHolder := something.
! !
!Inspector2Tab class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2Tab.st,v 1.6 2011-11-18 14:06:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2Tab.st,v 1.7 2012-06-13 12:59:31 cg Exp $'
!
version_CVS_jvrany