Merge jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sat, 02 Apr 2016 11:06:24 +0100
branchjv
changeset 5010 48191c4158e8
parent 4984 b1e50d91ed67 (current diff)
parent 4985 818d298db0df (diff)
child 5011 46de83b69b3d
Merge
LinkButton.st
--- 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$'
 ! !