equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 "{ Package: 'stx:libview2' }" |
12 |
14 |
13 Object subclass:#PrintConverter |
15 Object subclass:#PrintConverter |
14 instanceVariableNames:'valueToStringBlock stringToValueBlock type' |
16 instanceVariableNames:'valueToStringBlock stringToValueBlock type' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
85 conv := (PrintConverter new) initForYesNo. |
87 conv := (PrintConverter new) initForYesNo. |
86 (conv printStringFor:true). |
88 (conv printStringFor:true). |
87 (conv printStringFor:false). |
89 (conv printStringFor:false). |
88 (conv readValueFrom:'yes'). |
90 (conv readValueFrom:'yes'). |
89 (conv readValueFrom:'no'). |
91 (conv readValueFrom:'no'). |
90 'if language is german:'. |
92 'if language is #de:'. |
91 (conv readValueFrom:'ja'). |
93 (conv readValueFrom:'ja'). |
92 (conv readValueFrom:'nein') |
94 (conv readValueFrom:'nein') |
93 [exEnd] |
95 [exEnd] |
94 |
96 |
95 concrete examples: |
97 concrete examples: |
461 ! ! |
463 ! ! |
462 |
464 |
463 !PrintConverter class methodsFor:'documentation'! |
465 !PrintConverter class methodsFor:'documentation'! |
464 |
466 |
465 version |
467 version |
466 ^ '$Header: /cvs/stx/stx/libview2/PrintConverter.st,v 1.17 1999-06-25 14:35:06 cg Exp $' |
468 ^ '$Header: /cvs/stx/stx/libview2/PrintConverter.st,v 1.18 2001-04-20 09:47:43 stefan Exp $' |
467 ! ! |
469 ! ! |