--- a/FontPanel.st Sat May 18 16:25:16 1996 +0200
+++ b/FontPanel.st Sat May 18 17:42:59 1996 +0200
@@ -59,7 +59,7 @@
|font|
font := FontPanel fontFromUser.
- Transcript showCr:font
+ Transcript showCR:font
[exEnd]
@@ -71,7 +71,7 @@
fontFromUserInitial:(Font
family:'courier'
size:12).
- Transcript showCr:font
+ Transcript showCR:font
[exEnd]
@@ -84,7 +84,7 @@
family:'courier'
size:12)
title:'select a fooBar font'.
- Transcript showCr:font
+ Transcript showCR:font
[exEnd]
@@ -99,10 +99,10 @@
panel filter:[:fd | fd encoding notNil
and:[fd encoding startsWith:'iso']].
panel action:[:family :face :style :size |
- Transcript showCr:'family:' , family.
- Transcript showCr:'face:' , face.
- Transcript showCr:'style:' , style.
- Transcript showCr:'size:' , size printString.
+ Transcript showCR:'family:' , family.
+ Transcript showCR:'face:' , face.
+ Transcript showCR:'style:' , style.
+ Transcript showCR:'size:' , size printString.
].
panel open
[exEnd]
@@ -644,5 +644,5 @@
!FontPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.33 1996-04-29 07:57:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.34 1996-05-18 15:40:38 cg Exp $'
! !