--- a/DialogBox.st Sat May 18 16:25:16 1996 +0200
+++ b/DialogBox.st Sat May 18 17:42:59 1996 +0200
@@ -156,9 +156,9 @@
[exBegin]
(Dialog confirm:'is this simple ?')
ifTrue:[
- Transcript showCr:'thats what I expected'
+ Transcript showCR:'thats what I expected'
] ifFalse:[
- Transcript showCr:'read more examples and documentation'
+ Transcript showCR:'read more examples and documentation'
]
[exEnd]
@@ -169,12 +169,12 @@
answer := Dialog confirmWithCancel:'is this simple ?'.
answer isNil ifTrue:[
- Transcript showCr:'no easy decision'
+ Transcript showCR:'no easy decision'
] ifFalse:[
answer ifTrue:[
- Transcript showCr:'thats what I expected'
+ Transcript showCR:'thats what I expected'
] ifFalse:[
- Transcript showCr:'read more examples and documentation'
+ Transcript showCR:'read more examples and documentation'
]
]
[exEnd]
@@ -186,7 +186,7 @@
s := Dialog request:'enter your name, please:'.
s notEmpty ifTrue:[
- Transcript showCr:'you entered: ' , s.
+ Transcript showCR:'you entered: ' , s.
]
[exEnd]
@@ -199,7 +199,7 @@
request:'enter your name, please:'
initialAnswer:(OperatingSystem getLoginName).
s notEmpty ifTrue:[
- Transcript showCr:'you entered: ' , s.
+ Transcript showCR:'you entered: ' , s.
]
[exEnd]
@@ -211,7 +211,7 @@
s := Dialog
requestFileName:'select a file, please:'
default:''.
- Transcript show:'you entered: '; showCr:s.
+ Transcript show:'you entered: '; showCR:s.
[exEnd]
@@ -225,7 +225,7 @@
ok:'show'
abort:'cancel'
pattern:'*.rc'.
- Transcript show:'you entered: '; showCr:s.
+ Transcript show:'you entered: '; showCR:s.
[exEnd]
@@ -235,7 +235,7 @@
s := Dialog
requestPassword:'enter your secret, please:'.
- Transcript show:'you entered: '; showCr:s.
+ Transcript show:'you entered: '; showCR:s.
[exEnd]
multiple choice dialogs:
@@ -252,7 +252,7 @@
multiple choice dialog, with list & buttons:
[exBegin]
- Transcript showCr:(
+ Transcript showCR:(
Dialog
choose:'choose example'
fromList:#('one' 'two' 'three' 'four')
@@ -386,9 +386,9 @@
sizeFixed:true;
open
) accepted ifTrue:[
- Transcript showCr:'yes'
+ Transcript showCR:'yes'
] ifFalse:[
- Transcript showCr:'no'
+ Transcript showCR:'no'
]
[exEnd]
@@ -424,7 +424,7 @@
addOkButton;
open
) accepted ifTrue:[
- Transcript showCr:'entered: ', stringModel value
+ Transcript showCR:'entered: ', stringModel value
]
[exEnd]
@@ -445,7 +445,7 @@
addOkButton;
open
) accepted ifTrue:[
- Transcript showCr:'entered: ', firstName value , ' ' , lastName value
+ Transcript showCR:'entered: ', firstName value , ' ' , lastName value
]
[exEnd]
@@ -472,7 +472,7 @@
name notNil ifTrue:[
firstName value: name asCollectionOfWords first.
lastName value: name asCollectionOfWords last.
- Transcript showCr:'initially ' , firstName value , ' ' , lastName value.
+ Transcript showCR:'initially ' , firstName value , ' ' , lastName value.
].
p close.
].
@@ -486,7 +486,7 @@
addOkButton;
open
) accepted ifTrue:[
- Transcript showCr:'entered: ', firstName value , ' ' , lastName value
+ Transcript showCR:'entered: ', firstName value , ' ' , lastName value
]
[exEnd]
@@ -508,9 +508,9 @@
box open.
box accepted ifTrue:[
firstEntry value ~= secondEntry value ifTrue:[
- Transcript showCr:'wrong input - try again'
+ Transcript showCR:'wrong input - try again'
] ifFalse:[
- Transcript showCr:'entered: ', firstEntry value
+ Transcript showCR:'entered: ', firstEntry value
]
]
[exEnd]
@@ -574,7 +574,7 @@
top openModal.
top accepted ifTrue:[
- Transcript show:'fileName: '; showCr:fileName value storeString.
+ Transcript show:'fileName: '; showCR:fileName value storeString.
]
[exEnd]
@@ -598,7 +598,7 @@
top openModal.
top accepted ifTrue:[
- Transcript show:'fileName: '; showCr:fileName value storeString.
+ Transcript show:'fileName: '; showCR:fileName value storeString.
]
[exEnd]
@@ -629,7 +629,7 @@
top openModal.
top accepted ifTrue:[
- Transcript show:'fileName: '; showCr:fileName value storeString.
+ Transcript show:'fileName: '; showCR:fileName value storeString.
]
[exEnd]
@@ -665,10 +665,10 @@
top open.
top accepted ifTrue:[
- Transcript show:'value1: '; showCr:value1 value.
- Transcript show:'value2: '; showCr:value2 value.
- Transcript show:'value3: '; showCr:value3 value.
- Transcript show:'value4: '; showCr:value4 value.
+ Transcript show:'value1: '; showCR:value1 value.
+ Transcript show:'value2: '; showCR:value2 value.
+ Transcript show:'value3: '; showCR:value3 value.
+ Transcript show:'value4: '; showCR:value4 value.
]
[exEnd]
@@ -696,10 +696,10 @@
box open.
box accepted ifTrue:[
- Transcript show:'value1: '; showCr:value1 value.
- Transcript show:'value2: '; showCr:value2 value.
- Transcript show:'value3: '; showCr:value3 value.
- Transcript show:'value4: '; showCr:value4 value.
+ Transcript show:'value1: '; showCR:value1 value.
+ Transcript show:'value2: '; showCR:value2 value.
+ Transcript show:'value3: '; showCR:value3 value.
+ Transcript show:'value4: '; showCR:value4 value.
]
[exEnd]
@@ -725,7 +725,7 @@
box accepted ifTrue:[
values with:labels do:[:val :lbl |
- Transcript show:(lbl , ': '); showCr:val value.
+ Transcript show:(lbl , ': '); showCR:val value.
]
]
[exEnd]
@@ -784,11 +784,11 @@
box addAbortButton; addOkButton.
box openModal.
box accepted ifTrue:[
- Transcript showCr:'accepted with:'.
- Transcript showCr:' m1: ' , m1 value printString.
- Transcript showCr:' m2: ' , m2 value printString.
- Transcript showCr:' m3: ' , m3 value printString.
- Transcript showCr:' m4: ' , m4 value printString.
+ Transcript showCR:'accepted with:'.
+ Transcript showCR:' m1: ' , m1 value printString.
+ Transcript showCR:' m2: ' , m2 value printString.
+ Transcript showCR:' m3: ' , m3 value printString.
+ Transcript showCR:' m4: ' , m4 value printString.
]
[exEnd]
@@ -867,12 +867,12 @@
Smalltalk logDoits:logDoits value.
- Transcript showCr:'change language to ' , listOfLanguages selection , ' ...'.
+ Transcript showCR:'change language to ' , listOfLanguages selection , ' ...'.
Smalltalk at:#Language put:listOfLanguages selection asSymbol.
Smalltalk changed:#Language.
ResourcePack flushCachedResourcePacks.
- Transcript showCr:'change style to ' , listOfStyles selection , ' ...'.
+ Transcript showCR:'change style to ' , listOfStyles selection , ' ...'.
View defaultStyle:listOfStyles selection asSymbol.
]
]
@@ -1017,7 +1017,7 @@
"
Dialog confirm:'really ?'
- Transcript showCr:(
+ Transcript showCR:(
Dialog confirm:'are you certain ?'
)
"
@@ -1047,11 +1047,11 @@
"
Dialog confirm:'really ?' initialAnswer:false
- Transcript showCr:(
+ Transcript showCR:(
Dialog confirm:'are you certain ?' initialAnswer:false
)
- Transcript showCr:(
+ Transcript showCR:(
Dialog confirm:'are you certain ?' initialAnswer:true
)
"
@@ -1131,7 +1131,7 @@
"
Dialog confirmWithCancel:'really ?'
- Transcript showCr:(
+ Transcript showCR:(
Dialog confirmWithCancel:'really ?'
)
"
@@ -1881,7 +1881,7 @@
"
full example:
- Transcript showCr:(
+ Transcript showCR:(
Dialog
choose:'choose any'
fromList:#('one' 'two' 'three' 'four')
@@ -1895,7 +1895,7 @@
no buttons:
- Transcript showCr:(
+ Transcript showCR:(
Dialog
choose:'choose any'
fromList:#('one' 'two' 'three' 'four')
@@ -1909,7 +1909,7 @@
no list (lines argument is ignored):
- Transcript showCr:(
+ Transcript showCR:(
Dialog
choose:'choose any'
fromList:nil
@@ -1923,7 +1923,7 @@
full including cancel value:
- Transcript showCr:(
+ Transcript showCR:(
Dialog
choose:'choose example'
fromList:#('one' 'two' 'three' 'four')
@@ -1937,7 +1937,7 @@
degenerated:
- Transcript showCr:(
+ Transcript showCR:(
Dialog
choose:'choose any'
fromList:nil
@@ -1971,7 +1971,7 @@
cancel:cancelBlock
"
- Transcript showCr:(
+ Transcript showCR:(
Dialog
choose:'choose any'
fromList:#('one' 'two' 'three' 'four')
@@ -1980,7 +1980,7 @@
cancel:nil
)
- Transcript showCr:(
+ Transcript showCR:(
Dialog
choose:'choose example'
fromList:#('one' 'two' 'three' 'four')
@@ -2438,7 +2438,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:model value].
+ dialog accepted ifTrue:[Transcript showCR:model value].
"
"
@@ -2458,7 +2458,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:model value].
+ dialog accepted ifTrue:[Transcript showCR:model value].
"
"Created: 13.4.1996 / 13:41:31 / cg"
@@ -2590,7 +2590,7 @@
dialog addAbortButtonLabelled:'get out of here'.
dialog addOkButtonLabelled:'yes thats ok'.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"Modified: 9.2.1996 / 22:09:40 / cg"
@@ -2607,10 +2607,10 @@
dialog := DialogBox new.
dialog addAbortButton.
- dialog addButton:(Button label:'foo' action:[Transcript showCr:'foo']).
+ dialog addButton:(Button label:'foo' action:[Transcript showCR:'foo']).
dialog addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"
@@ -2618,21 +2618,21 @@
dialog := DialogBox new.
dialog addAbortButton.
- dialog addButton:(Button label:'foo' action:[dialog hide. Transcript showCr:'foo']).
+ dialog addButton:(Button label:'foo' action:[dialog hide. Transcript showCR:'foo']).
dialog addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"
|dialog|
dialog := DialogBox new.
- dialog addButton:(Button label:'foo' action:[dialog hide. Transcript showCr:'foo']).
+ dialog addButton:(Button label:'foo' action:[dialog hide. Transcript showCR:'foo']).
dialog addAbortButton.
dialog addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"Modified: 9.2.1996 / 22:14:17 / cg"
@@ -2663,10 +2663,10 @@
dialog addOkButton.
dialog addButton:(Button
label:'foo'
- action:[dialog hide. Transcript showCr:'foo'])
+ action:[dialog hide. Transcript showCR:'foo'])
after:(dialog okButton).
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"
|dialog|
@@ -2676,10 +2676,10 @@
dialog addOkButton.
dialog addButton:(Button
label:'foo'
- action:[dialog hide. Transcript showCr:'foo'])
+ action:[dialog hide. Transcript showCR:'foo'])
after:(dialog abortButton).
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"
|dialog|
@@ -2689,10 +2689,10 @@
dialog addOkButton.
dialog addButton:(Button
label:'foo'
- action:[dialog hide. Transcript showCr:'foo'])
+ action:[dialog hide. Transcript showCR:'foo'])
after:nil.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"Modified: 9.2.1996 / 22:13:51 / cg"
@@ -2723,10 +2723,10 @@
dialog addOkButton.
dialog addButton:(Button
label:'foo'
- action:[dialog hide. Transcript showCr:'foo'])
+ action:[dialog hide. Transcript showCR:'foo'])
before:(dialog okButton).
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"
|dialog|
@@ -2736,10 +2736,10 @@
dialog addOkButton.
dialog addButton:(Button
label:'foo'
- action:[dialog hide. Transcript showCr:'foo'])
+ action:[dialog hide. Transcript showCR:'foo'])
before:nil.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"Modified: 9.2.1996 / 22:13:51 / cg"
@@ -2787,7 +2787,7 @@
dialog := DialogBox new.
dialog addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"Modified: 9.2.1996 / 21:37:02 / cg"
@@ -2810,7 +2810,7 @@
dialog := DialogBox new.
dialog addOkButton:b.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"Modified: 17.9.1995 / 20:20:41 / claus"
@@ -2836,7 +2836,7 @@
dialog := DialogBox new.
dialog addOkButtonLabelled:'get out of here'.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:'yes'].
+ dialog accepted ifTrue:[Transcript showCR:'yes'].
"
"Modified: 9.2.1996 / 21:39:34 / cg"
@@ -2859,7 +2859,7 @@
dialog addCheckBox:'on or off' on:check.
dialog addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:check value].
+ dialog accepted ifTrue:[Transcript showCR:check value].
"
"Modified: 9.2.1996 / 22:15:38 / cg"
@@ -2917,7 +2917,7 @@
box addOkButton.
box open.
box accepted ifTrue:[
- Transcript showCr:val value
+ Transcript showCR:val value
].
"
@@ -2935,7 +2935,7 @@
box addOkButton.
box open.
box accepted ifTrue:[
- Transcript showCr:val value
+ Transcript showCR:val value
].
"
@@ -2972,7 +2972,7 @@
box addOkButton.
box open.
box accepted ifTrue:[
- Transcript showCr:val value
+ Transcript showCR:val value
].
"
@@ -2990,7 +2990,7 @@
box addOkButton.
box open.
box accepted ifTrue:[
- Transcript showCr:val value
+ Transcript showCR:val value
].
"
@@ -3017,7 +3017,7 @@
box addOkButton.
box open.
box accepted ifTrue:[
- Transcript showCr:val value
+ Transcript showCR:val value
].
"
@@ -3035,7 +3035,7 @@
box addOkButton.
box open.
box accepted ifTrue:[
- Transcript showCr:val value
+ Transcript showCR:val value
].
"
@@ -3068,7 +3068,7 @@
box addOkButton.
box open.
box accepted ifTrue:[
- Transcript showCr:val value
+ Transcript showCR:val value
].
"
@@ -3086,7 +3086,7 @@
box addOkButton.
box open.
box accepted ifTrue:[
- Transcript showCr:val value
+ Transcript showCR:val value
].
"
@@ -3152,7 +3152,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:model value].
+ dialog accepted ifTrue:[Transcript showCR:model value].
"
"Modified: 9.2.1996 / 21:34:14 / cg"
@@ -3185,7 +3185,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:model value].
+ dialog accepted ifTrue:[Transcript showCR:model value].
"
"Modified: 9.2.1996 / 21:36:16 / cg"
@@ -3221,7 +3221,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript showCr:model value].
+ dialog accepted ifTrue:[Transcript showCR:model value].
"
"
@@ -3252,8 +3252,8 @@
dialog addAbortButton; addOkButton.
dialog open.
dialog accepted ifTrue:[
- Transcript showCr:model1 value.
- Transcript showCr:model2 value.
+ Transcript showCR:model1 value.
+ Transcript showCR:model2 value.
].
"
@@ -3562,7 +3562,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript show:'selection is:'; showCr:model selection].
+ dialog accepted ifTrue:[Transcript show:'selection is:'; showCR:model selection].
"
"Modified: 27.4.1996 / 18:27:58 / cg"
@@ -3617,7 +3617,7 @@
scr := ScrollableView forView:l
].
scr resize.
- "/ Transcript show:scr height; show:' '; showCr:l height.
+ "/ Transcript show:scr height; show:' '; showCR:l height.
dH := scr height - l height.
] ifFalse:[
l level:-1.
@@ -3651,7 +3651,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript show:'selection is:'; showCr:listView selectionValue].
+ dialog accepted ifTrue:[Transcript show:'selection is:'; showCR:listView selectionValue].
"
"Created: 22.2.1996 / 15:40:07 / cg"
@@ -3684,7 +3684,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript show:'selection is:'; showCr:model selection].
+ dialog accepted ifTrue:[Transcript show:'selection is:'; showCR:model selection].
"
"Created: 22.2.1996 / 15:40:07 / cg"
@@ -3718,7 +3718,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript show:'selection is:'; showCr:model selection].
+ dialog accepted ifTrue:[Transcript show:'selection is:'; showCR:model selection].
"
"
@@ -3736,7 +3736,7 @@
dialog addAbortButton; addOkButton.
dialog open.
- dialog accepted ifTrue:[Transcript show:'selection is:'; showCr:model selection].
+ dialog accepted ifTrue:[Transcript show:'selection is:'; showCR:model selection].
"
"Created: 22.2.1996 / 15:40:07 / cg"
@@ -3893,7 +3893,7 @@
dialog open.
dialog accepted ifTrue:[
- Transcript showCr:(values collect:[:holder | holder value])
+ Transcript showCR:(values collect:[:holder | holder value])
]
"
@@ -3925,7 +3925,7 @@
dialog open.
dialog accepted ifTrue:[
- Transcript showCr:(values collect:[:holder | holder value])
+ Transcript showCR:(values collect:[:holder | holder value])
]
"
@@ -3952,7 +3952,7 @@
self addComponent:helper.
width < helper preferredExtent x ifTrue:[
self width:helper preferredExtent x.
- "/ Transcript show:'w now: '; showCr:helper preferredExtent x
+ "/ Transcript show:'w now: '; showCR:helper preferredExtent x
].
helper horizontalLayout:hLayout.
helper left:leftX asFloat;
@@ -3985,7 +3985,7 @@
dialog open.
dialog accepted ifTrue:[
- Transcript showCr:(values collect:[:holder | holder value])
+ Transcript showCR:(values collect:[:holder | holder value])
]
"
@@ -4014,7 +4014,7 @@
dialog open.
dialog accepted ifTrue:[
- Transcript showCr:(values collect:[:holder | holder value])
+ Transcript showCR:(values collect:[:holder | holder value])
]
"
@@ -4113,7 +4113,7 @@
width < helper preferredExtent x ifTrue:[
self width:helper preferredExtent x.
- "/ Transcript show:'w now: '; showCr:helper preferredExtent x
+ "/ Transcript show:'w now: '; showCR:helper preferredExtent x
].
helper horizontalLayout:hLayout.
helper verticalLayout:#fit.
@@ -4496,6 +4496,6 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.72 1996-05-16 10:20:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.73 1996-05-18 15:38:42 cg Exp $'
! !
DialogBox initialize!