--- a/PopUpList.st	Sat May 18 16:25:16 1996 +0200
+++ b/PopUpList.st	Sat May 18 17:42:59 1996 +0200
@@ -110,7 +110,7 @@
      p := PopUpList label:'dummy'.
      p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').
      p selection:'apples'.
-     p action:[:what | Transcript showCr:'you selected: ' , what].
+     p action:[:what | Transcript showCR:'you selected: ' , what].
      p open
                                                                         [exEnd]
 
@@ -122,7 +122,7 @@
      p := PopUpList label:'dummy'.
      p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').
      p selection:'apples'.
-     p action:[:what | Transcript show:'you selected: '; showCr:what].
+     p action:[:what | Transcript show:'you selected: '; showCR:what].
      p useIndex:true.
      p open
                                                                         [exEnd]
@@ -143,7 +143,7 @@
                 nil
                 'great' 'another headache' 'not bad' 'neat').
      p selection:'apples'.
-     p action:[:what | Transcript show:'you selected: '; showCr:what].
+     p action:[:what | Transcript show:'you selected: '; showCR:what].
      p open
                                                                         [exEnd]
 
@@ -175,7 +175,7 @@
                 nil
                 'great' 'another headache' 'not bad' 'neat').
      p selection:'apples'.
-     p action:[:what | Transcript show:'you selected: '; showCr:what].
+     p action:[:what | Transcript show:'you selected: '; showCR:what].
      p open
                                                                         [exEnd]
 
@@ -187,7 +187,7 @@
      p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').
      p selection:'apples'.
      p values:#(10 20 30 40 nil 50).
-     p action:[:what | Transcript show:'you selected: '; showCr:what].
+     p action:[:what | Transcript show:'you selected: '; showCR:what].
      p open
                                                                         [exEnd]
 
@@ -229,8 +229,8 @@
      |top panel p model|
 
      model := Plug new.
-     model respondTo:#eat: with:[:val | Transcript showCr:'eat: ' , val].
-     model respondTo:#drink: with:[:val | Transcript showCr:'drink: ' , val].
+     model respondTo:#eat: with:[:val | Transcript showCR:'eat: ' , val].
+     model respondTo:#drink: with:[:val | Transcript showCR:'drink: ' , val].
      model respondTo:#meals with:[#(taco burrito enchilada)].
      model respondTo:#drinks with:[#(margarita water corona)].
 
@@ -295,7 +295,7 @@
      |p|
      p := PopUpList label:'fruit ?'.
      p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').
-     p action:[:val | Transcript showCr:'selected: ' , val printString].   
+     p action:[:val | Transcript showCR:'selected: ' , val printString].   
      p open
     "
 !
@@ -343,7 +343,7 @@
      p := PopUpList label:'fruit ?'.
      p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').
      p values:#(1 2 3 4 'mhmh - good').
-     p action:[:val | Transcript showCr:'selected: ' , val printString].   
+     p action:[:val | Transcript showCR:'selected: ' , val printString].   
      p open.
     "
 ! !
@@ -369,14 +369,14 @@
      |p|
      p := PopUpList label:'fruit ?'.
      p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').
-     p action:[:val | Transcript showCr:'selected: ' , val printString].   
+     p action:[:val | Transcript showCR:'selected: ' , val printString].   
      p open.
     "
     "
      |p|
      p := PopUpList label:'fruit ?'.
      p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').
-     p action:[:val | Transcript showCr:'selected: ' , val printString].   
+     p action:[:val | Transcript showCR:'selected: ' , val printString].   
      p useIndex:true.
      p open.
     "
@@ -638,5 +638,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.23 1996-04-27 18:18:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.24 1996-05-18 15:41:36 cg Exp $'
 ! !