--- a/TriggerValue.st Sat Apr 27 19:56:35 1996 +0200
+++ b/TriggerValue.st Sat Apr 27 19:59:26 1996 +0200
@@ -50,34 +50,35 @@
examples
"
buffered editing with a TriggerValue
-
- |firstName lastName trigger dialog|
+ [exBegin]
+ |firstName lastName trigger dialog|
- firstName := 'foo' asValue.
- lastName := 'bar' asValue.
- trigger := TriggerValue new.
+ firstName := 'foo' asValue.
+ lastName := 'bar' asValue.
+ trigger := TriggerValue new.
- dialog := Dialog new.
- (dialog addTextLabel:'Name:') layout:#left.
- (dialog addInputFieldOn:(BufferedValueHolder
- subject:firstName
- triggerChannel:trigger)) immediateAccept:true.
- dialog addVerticalSpace.
- (dialog addTextLabel:'Address:') layout:#left.
- (dialog addInputFieldOn:(BufferedValueHolder
- subject:lastName
- triggerChannel:trigger)) immediateAccept:true.
+ dialog := Dialog new.
+ (dialog addTextLabel:'Name:') layout:#left.
+ (dialog addInputFieldOn:(BufferedValueHolder
+ subject:firstName
+ triggerChannel:trigger)) immediateAccept:true.
+ dialog addVerticalSpace.
+ (dialog addTextLabel:'Address:') layout:#left.
+ (dialog addInputFieldOn:(BufferedValueHolder
+ subject:lastName
+ triggerChannel:trigger)) immediateAccept:true.
- dialog addAbortButton;
- addButton:(Button new
- label:'undo';
- action:[trigger value:false]);
- addOkButton.
+ dialog addAbortButton;
+ addButton:(Button new
+ label:'undo';
+ action:[trigger value:false]);
+ addOkButton.
- dialog okAction:[trigger value:true].
- dialog open.
+ dialog okAction:[trigger value:true].
+ dialog open.
- Transcript show:firstName value; show:' '; showCr:lastName value
+ Transcript show:firstName value; show:' '; showCr:lastName value
+ [exEnd]
"
! !
@@ -94,5 +95,5 @@
!TriggerValue class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/TriggerValue.st,v 1.7 1996-04-25 16:43:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/TriggerValue.st,v 1.8 1996-04-27 17:59:05 cg Exp $'
! !