--- 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>"
!