PO refactoring: moved icon from PO to ClassPO and JavaImportPO...
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 20 May 2014 11:58:01 +0100
changeset 231 d934396fce8e
parent 230 2c12395f8108
child 232 a95a378b4248
PO refactoring: moved icon from PO to ClassPO and JavaImportPO... ...for only the above classes used it to cache icon object.
SmallSense__ClassPO.st
SmallSense__JavaImportPO.st
SmallSense__PO.st
smallsense.rc
--- a/SmallSense__ClassPO.st	Tue May 20 11:50:16 2014 +0100
+++ b/SmallSense__ClassPO.st	Tue May 20 11:58:01 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: SmallSense }"
 
 PO subclass:#ClassPO
-	instanceVariableNames:'showPrefix klass'
+	instanceVariableNames:'showPrefix klass icon'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core-Interface-PO'
--- a/SmallSense__JavaImportPO.st	Tue May 20 11:50:16 2014 +0100
+++ b/SmallSense__JavaImportPO.st	Tue May 20 11:58:01 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: SmallSense }"
 
 PO subclass:#JavaImportPO
-	instanceVariableNames:'klass import'
+	instanceVariableNames:'klass import icon'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Java-Interface-PO'
--- a/SmallSense__PO.st	Tue May 20 11:50:16 2014 +0100
+++ b/SmallSense__PO.st	Tue May 20 11:58:01 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: SmallSense }"
 
 HierarchicalItem subclass:#PO
-	instanceVariableNames:'icon label relevance context'
+	instanceVariableNames:'label relevance context'
 	classVariableNames:'IconWidth'
 	poolDictionaries:''
 	category:'SmallSense-Core-Interface-PO'
@@ -82,6 +82,15 @@
     "Modified: / 04-10-2013 / 07:48:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+hint
+    "Return a hint text to be displayed in gray after a label
+     (if there's space). If nil is returned, no hint is shown"
+
+    ^ nil
+
+    "Created: / 20-05-2014 / 11:52:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 icon
 
     ^nil
--- a/smallsense.rc	Tue May 20 11:50:16 2014 +0100
+++ b/smallsense.rc	Tue May 20 11:58:01 2014 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011\0"
       VALUE "ProductName", "Smalltalk/X\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Tue, 20 May 2014 10:44:04 GMT\0"
+      VALUE "ProductDate", "Tue, 20 May 2014 10:56:33 GMT\0"
     END
 
   END