Merged e3400ab65300 and 8238ebef6929
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 03 Feb 2015 05:51:37 +0000
changeset 385 26d6f86c3744
parent 383 e3400ab65300 (current diff)
parent 384 8238ebef6929 (diff)
child 388 695b534ba661
Merged e3400ab65300 and 8238ebef6929
SmallSense__PO.st
SmallSense__VariablePO.st
--- a/SmallSense__PO.st	Sun Feb 01 07:35:12 2015 +0000
+++ b/SmallSense__PO.st	Tue Feb 03 05:51:37 2015 +0000
@@ -314,7 +314,7 @@
 
 !PO methodsFor:'displaying'!
 
-displayLabel:lab h:lH on:gc x:x y:y0 h:h
+displayLabel:lab h:lH on:gc x:x y:y0 h:h isHighlightedAsSelected: highlighted
     | cx hint hintW cy |
 
     cx := x.
@@ -326,7 +326,7 @@
 "/    cx := cx + IconWidth.
 
     "/ Display label
-    super displayLabel:lab h:lH on:gc x:cx y:y0 h:h.
+    super displayLabel:lab h:lH on:gc x:cx y:y0 h:h isHighlightedAsSelected: highlighted.
 
     "/ Display hint
     hint := self hint.
@@ -360,7 +360,11 @@
 
             cy := cy + (hint ascentOn:gc).   
             savPaint := gc paint.
-            gc paint: (Color gray: 40).
+            highlighted ifTrue:[
+                gc paint: (Color white).
+            ] ifFalse:[ 
+                gc paint: (Color gray: 40).
+            ].
             hint displayOn:gc x: cx y:cy.  
             gc paint: savPaint
         ] ifFalse:[ 
@@ -371,8 +375,7 @@
         ].
     ].
 
-    "Created: / 24-07-2013 / 00:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 19-06-2014 / 15:18:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 03-02-2015 / 05:34:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 displayOn:aGC x:x y:y h:h 
--- a/SmallSense__VariablePO.st	Sun Feb 01 07:35:12 2015 +0000
+++ b/SmallSense__VariablePO.st	Tue Feb 03 05:51:37 2015 +0000
@@ -140,10 +140,10 @@
 
 !VariablePO methodsFor:'displaying'!
 
-displayLabel:aLabel h:lH on:aGC x:x y:y h:h
+displayLabel:aLabel h:lH on:aGC x:x y:y h:h isHighlightedAsSelected: highlighted
     | lw cn cnw fg y0 |
 
-    super displayLabel:aLabel h:lH on:aGC x:x y:y h:h.
+    super displayLabel:aLabel h:lH on:aGC x:x y:y h:h isHighlightedAsSelected: highlighted.
 
     class isNil ifTrue:[ ^ self ]. "/ Could be pseudo-variable
 
@@ -160,7 +160,7 @@
         aGC paint: fg.
     ]
 
-    "Created: / 18-09-2013 / 00:19:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 03-02-2015 / 05:34:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 28-04-2014 / 00:24:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !