Tools_NavigationState.st
changeset 10744 5ea86a37bd99
parent 10544 a50efe3ac2be
child 11252 9a84838c3b8b
--- a/Tools_NavigationState.st	Mon Oct 03 18:11:07 2011 +0200
+++ b/Tools_NavigationState.st	Mon Oct 03 18:16:49 2011 +0200
@@ -35,7 +35,8 @@
 		messageSpecHolder messageHolder progressHolder tabContentView
 		messagePaneView codePaneAndPluginView
 		codePaneAndPluginViewRelativeCorners pluginVisibleHolder
-		bookmarkHolder worker'
+		bookmarkHolder worker packageInfoBackgroundColorHolder
+		packageInfoButton'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -455,6 +456,14 @@
     "Created: / 08-08-2011 / 15:32:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+packageInfoButton
+    ^ packageInfoButton
+!
+
+packageInfoButton:something
+    packageInfoButton := something.
+!
+
 scrollableCodeView
     scrollableCodeView isNil ifTrue:[
         scrollableCodeView := self setUpScrollableCodeView.
@@ -851,6 +860,16 @@
     "Created: / 24.2.2000 / 23:45:28 / cg"
 !
 
+packageInfoBackgroundColorHolder
+
+    packageInfoBackgroundColorHolder isNil ifTrue:[
+        packageInfoBackgroundColorHolder := nil asValue.
+    ].
+    ^ packageInfoBackgroundColorHolder
+
+    "Created: / 03-10-2011 / 14:04:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 packageLabelHolder
     packageLabelHolder isNil ifTrue:[
         packageLabelHolder := '' asValue.
@@ -1633,7 +1652,7 @@
 !NavigationState class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.39 2011-08-08 14:36:37 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.40 2011-10-03 16:16:49 vrany Exp $'
 !
 
 version_SVN