Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.
authorclaus
Mon, 28 Aug 1995 23:12:11 +0200
changeset 149 17f5c54f9e36
parent 148 3c0b3c51bee7
child 150 9411bf3927d9
.
Button.st file | annotate | diff | comparison | revisions
ButtonC.st file | annotate | diff | comparison | revisions
ButtonController.st file | annotate | diff | comparison | revisions 
--- a/Button.st	Mon Aug 28 17:49:37 1995 +0200
+++ b/Button.st	Mon Aug 28 23:12:11 1995 +0200
@@ -39,7 +39,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Button.st,v 1.27 1995-08-27 23:23:25 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Button.st,v 1.28 1995-08-28 21:12:03 claus Exp $
 '!
 
 !Button class methodsFor:'documentation'!
@@ -60,7 +60,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Button.st,v 1.27 1995-08-27 23:23:25 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Button.st,v 1.28 1995-08-28 21:12:03 claus Exp $
 "
 !
 
@@ -1571,7 +1571,7 @@
     "redraw the button. but not if currently active"
 
     shown ifFalse:[^ self].
-    controller active ifTrue:[^ self].
+"/    controller active ifTrue:[^ self].  - disabled; otherwise, we do not redreaw if changed from within action procedure
     self redisplay.
 !
 
--- a/ButtonC.st	Mon Aug 28 17:49:37 1995 +0200
+++ b/ButtonC.st	Mon Aug 28 23:12:11 1995 +0200
@@ -40,7 +40,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.15 1995-08-27 00:33:47 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.16 1995-08-28 21:12:11 claus Exp $
 "
 !
 
@@ -282,7 +282,7 @@
 
     enableChannel value ifFalse:[
 	enableChannel value:true.
-	"/ view redraw    - not needed; button listenes to enableChannel
+	"/ view redraw    - not needed; I listen to enableChannel
     ]
 !
 
@@ -291,7 +291,7 @@
 
     enableChannel value ifTrue:[
 	enableChannel value:false.
-	"/ view redraw    - not needed; button listenes to enableChannel
+	"/ view redraw    - not needed; I listen to enableChannel
     ]
 ! !
 
--- a/ButtonController.st	Mon Aug 28 17:49:37 1995 +0200
+++ b/ButtonController.st	Mon Aug 28 23:12:11 1995 +0200
@@ -40,7 +40,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.15 1995-08-27 00:33:47 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.16 1995-08-28 21:12:11 claus Exp $
 "
 !
 
@@ -282,7 +282,7 @@
 
     enableChannel value ifFalse:[
 	enableChannel value:true.
-	"/ view redraw    - not needed; button listenes to enableChannel
+	"/ view redraw    - not needed; I listen to enableChannel
     ]
 !
 
@@ -291,7 +291,7 @@
 
     enableChannel value ifTrue:[
 	enableChannel value:false.
-	"/ view redraw    - not needed; button listenes to enableChannel
+	"/ view redraw    - not needed; I listen to enableChannel
     ]
 ! !
hg/stx-libwidg