--- a/LinkButton.st Thu Mar 31 06:47:26 2016 +0200
+++ b/LinkButton.st Sat Apr 02 11:06:24 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
@@ -111,6 +113,17 @@
l foregroundColor:Color blue.
v open
[exEnd]
+ Dialog aboutToOpenBoxNotificationSignal handle:[:ex |
+ |lbl|
+
+ lbl := LinkButton label:(('XXX'
+ colorizeAllWith:Color blue)
+ actionForAll:[ Transcript showCR:'xxx' ]).
+ ex box verticalPanel addComponent:lbl.
+ ] do:[
+ self warn:'Bla bla bla'
+ ].
+
"
! !
@@ -193,7 +206,7 @@
labelsAndActions isNil ifTrue:[
"take action from logo, which is normally a text"
- emphasis := logo emphasisAtPoint:aPoint on:self.
+ emphasis := logo emphasisAtPoint:(aPoint - (labelOriginX@labelOriginY)) on:self.
(emphasis isNil or:[emphasis isSymbol]) ifTrue:[
^ pressAction.
].
@@ -344,10 +357,10 @@
!LinkButton class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/LinkButton.st,v 1.13 2014-12-02 18:35:56 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/LinkButton.st,v 1.13 2014-12-02 18:35:56 cg Exp $'
+ ^ '$Header$'
! !