12 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
13 |
13 |
14 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
15 |
15 |
16 Object subclass:#Inspector2Tab |
16 Object subclass:#Inspector2Tab |
17 instanceVariableNames:'label view application priority' |
17 instanceVariableNames:'label view application priority viewHolder' |
18 classVariableNames:'' |
18 classVariableNames:'' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Interface-Inspector2' |
20 category:'Interface-Inspector2' |
21 ! |
21 ! |
22 |
22 |
84 "Created: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
84 "Created: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
85 ! |
85 ! |
86 |
86 |
87 view |
87 view |
88 view isNil ifTrue:[ |
88 view isNil ifTrue:[ |
89 application ifNotNil:[ |
89 viewHolder notNil ifTrue:[ |
90 view := ApplicationSubView new client: application |
90 view := viewHolder value |
|
91 ] ifFalse:[ |
|
92 application notNil ifTrue:[ |
|
93 view := ApplicationSubView new client: application |
|
94 ] |
91 ] |
95 ] |
92 ]. |
96 ]. |
93 ^ view |
97 ^ view |
94 |
98 |
95 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
99 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
96 "Modified: / 17-02-2008 / 10:38:59 / janfrog" |
100 "Modified: / 17-02-2008 / 10:38:59 / janfrog" |
97 "Modified (format): / 18-11-2011 / 15:00:22 / cg" |
101 "Modified: / 13-06-2012 / 14:57:25 / cg" |
98 ! |
102 ! |
99 |
103 |
100 view:aView |
104 view:aView |
101 view := aView. |
105 view := aView. |
102 |
106 |
103 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
107 "Created: / 16-01-2008 / 16:51:05 / janfrog" |
104 "Modified: / 17-02-2008 / 08:58:46 / janfrog" |
108 "Modified: / 17-02-2008 / 08:58:46 / janfrog" |
|
109 ! |
|
110 |
|
111 viewHolder:something |
|
112 viewHolder := something. |
105 ! ! |
113 ! ! |
106 |
114 |
107 !Inspector2Tab class methodsFor:'documentation'! |
115 !Inspector2Tab class methodsFor:'documentation'! |
108 |
116 |
109 version_CVS |
117 version_CVS |
110 ^ '§Header: /cvs/stx/stx/libtool/Tools__Inspector2Tab.st,v 1.6 2011/11/18 14:06:10 cg Exp §' |
118 ^ '§Header: /cvs/stx/stx/libtool/Tools__Inspector2Tab.st,v 1.7 2012/06/13 12:59:31 cg Exp §' |
111 ! |
119 ! |
112 |
120 |
113 version_CVS_jvrany |
121 version_CVS_jvrany |
114 ^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2Tab.st,v 1.3 2008-02-17 10:12:10 vranyj1 Exp §' |
122 ^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2Tab.st,v 1.3 2008-02-17 10:12:10 vranyj1 Exp §' |
115 ! |
123 ! |
116 |
124 |
117 version_SVN |
125 version_SVN |
118 ^ '$Id: Tools__Inspector2Tab.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
126 ^ '$Id: Tools__Inspector2Tab.st 8018 2012-07-18 17:00:57Z vranyj1 $' |
119 ! ! |
127 ! ! |