Mercurial Mercurial > hg > stx-libwidg / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
EnterBox.st
changeset 655 acad3ef3a46c
parent 593 86dd024ed773
child 669 fef6f8160573 
--- a/EnterBox.st	Sat May 18 16:25:16 1996 +0200
+++ b/EnterBox.st	Sat May 18 17:42:59 1996 +0200
@@ -103,7 +103,7 @@
         |someString|
 
         someString := EnterBox request:'enter a string'.
-        Transcript showCr:someString
+        Transcript showCR:someString
                                                                         [exEnd]
 
 
@@ -113,7 +113,7 @@
 
         box := EnterBox new.
         box title:'your name please:'.
-        box action:[:arg | Transcript showCr:'entered: ' , arg printString].
+        box action:[:arg | Transcript showCR:'entered: ' , arg printString].
         box open
                                                                         [exEnd]
 
@@ -126,7 +126,7 @@
 
         box := EnterBox new.
         box title:'your name please:'.
-        box action:[:arg | Transcript showCr:'entered: ' , arg printString].
+        box action:[:arg | Transcript showCR:'entered: ' , arg printString].
         box openModeless
                                                                         [exEnd]
 
@@ -137,7 +137,7 @@
 
         box := EnterBox 
                  title:'your name please:'
-                 action:[:arg | Transcript showCr:'entered: ' , arg printString].
+                 action:[:arg | Transcript showCR:'entered: ' , arg printString].
         box open
                                                                         [exEnd]
 
@@ -152,9 +152,9 @@
 
         box := EnterBox request:'input some string:'.
         string isNil ifTrue:[
-            Transcript showCr:'no input'
+            Transcript showCR:'no input'
         ] ifFalse:[
-            Transcript showCr:('the entered string was: ' , string)
+            Transcript showCR:('the entered string was: ' , string)
         ]
                                                                         [exEnd]
 
@@ -165,9 +165,9 @@
 
         string := EnterBox request:'input some string:'.
         string isNil ifTrue:[
-            Transcript showCr:'no input'
+            Transcript showCR:'no input'
         ] ifFalse:[
-            Transcript showCr:('the entered string was: ' , string)
+            Transcript showCR:('the entered string was: ' , string)
         ]
                                                                         [exEnd]
 
@@ -178,7 +178,7 @@
 
         box := EnterBox 
                  title:'your name please:'
-                 action:[:arg | Transcript showCr:'entered: ' , arg printString].
+                 action:[:arg | Transcript showCR:'entered: ' , arg printString].
         box enterField passwordCharacter:$*.
         box showAtPointer
                                                                         [exEnd]
@@ -189,7 +189,7 @@
         |string|
 
         string := EnterBox requestPassword:'enter your password:'.
-        Transcript showCr:string.
+        Transcript showCR:string.
                                                                         [exEnd]
 
     ATTENTION:
@@ -200,9 +200,9 @@
 
         string := Dialog request:'input some string:'.
         string isNil ifTrue:[
-            Transcript showCr:'no input'
+            Transcript showCR:'no input'
         ] ifFalse:[
-            Transcript showCr:('the entered string was: ' , string)
+            Transcript showCR:('the entered string was: ' , string)
         ]
                                                                         [exEnd]
     and:    
@@ -210,7 +210,7 @@
         |string|
 
         string := Dialog requestPassword:'enter your password:'.
-        Transcript showCr:string.
+        Transcript showCR:string.
                                                                         [exEnd]
 "
 
@@ -225,7 +225,7 @@
 
     ^ (self new) action:aBlock
 
-    "(EnterBox action:[:string | Transcript showCr:string]) showAtPointer"
+    "(EnterBox action:[:string | Transcript showCR:string]) showAtPointer"
 !
 
 title:titleString
@@ -299,7 +299,7 @@
      |s|
 
      s := EnterBox requestPassword:'enter a string'.
-     Transcript showCr:'you entered: ' , s
+     Transcript showCR:'you entered: ' , s
     "
 
     "Created: 16.11.1995 / 21:25:08 / cg"
@@ -617,5 +617,5 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.40 1996-04-27 18:16:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.41 1996-05-18 15:40:15 cg Exp $'
 ! !
hg/stx-libwidg