--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Tools__Inspector2Tab.st Wed Sep 23 19:01:50 2009 +0200
@@ -0,0 +1,87 @@
+"{ Package: 'cvut:stx/goodies/libtool3' }"
+
+"{ NameSpace: Tools }"
+
+Object subclass:#Inspector2Tab
+ instanceVariableNames:'label view application priority'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Inspector 2'
+!
+
+!Inspector2Tab class methodsFor:'documentation'!
+
+version_SVN
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2Tab.st,v 1.1 2009-09-23 17:01:50 fm Exp $'
+! !
+
+!Inspector2Tab methodsFor:'accessing'!
+
+application
+ ^ application
+
+ "Created: / 16-01-2008 / 16:51:05 / janfrog"
+!
+
+application:anApplicationModel
+ application := anApplicationModel.
+
+ "Created: / 16-01-2008 / 16:51:05 / janfrog"
+ "Modified: / 17-02-2008 / 08:58:34 / janfrog"
+!
+
+label
+ ^ label
+
+ "Created: / 16-01-2008 / 16:51:05 / janfrog"
+!
+
+label:aString
+ label := aString.
+
+ "Created: / 16-01-2008 / 16:51:05 / janfrog"
+ "Modified: / 17-02-2008 / 08:58:41 / janfrog"
+!
+
+priority
+ ^ priority ? 25
+
+ "Created: / 17-02-2008 / 10:05:51 / janfrog"
+!
+
+priority:something
+ priority := something.
+
+ "Created: / 17-02-2008 / 10:05:51 / janfrog"
+!
+
+text:aStringOrValueModel
+
+ self view:((HVScrollableView for:TextView) model: aStringOrValueModel; yourself)
+
+ "Modified: / 17-02-2008 / 08:58:41 / janfrog"
+ "Created: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+view
+ view ifNil:
+ [application ifNotNil:
+ [view := ApplicationSubView new client: application]].
+ ^ view
+
+ "Created: / 16-01-2008 / 16:51:05 / janfrog"
+ "Modified: / 17-02-2008 / 10:38:59 / janfrog"
+!
+
+view:aView
+ view := aView.
+
+ "Created: / 16-01-2008 / 16:51:05 / janfrog"
+ "Modified: / 17-02-2008 / 08:58:46 / janfrog"
+! !
+
+!Inspector2Tab class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2Tab.st,v 1.1 2009-09-23 17:01:50 fm Exp $'
+! !