equal
deleted
inserted
replaced
240 ! ! |
240 ! ! |
241 |
241 |
242 !TypeConverter methodsFor:'accessing'! |
242 !TypeConverter methodsFor:'accessing'! |
243 |
243 |
244 subject |
244 subject |
245 "return the cobverted subject" |
245 "return the subject to be converted" |
246 |
246 |
247 ^ model |
247 ^ model |
248 |
|
249 "Created: 21.2.1997 / 18:45:12 / cg" |
|
250 ! |
248 ! |
251 |
249 |
252 value:newValue |
250 value:newValue |
253 "convert and change" |
251 "convert and change" |
254 |
252 |
522 date := defaultValue |
520 date := defaultValue |
523 ]. |
521 ]. |
524 date isNil ifTrue:[ |
522 date isNil ifTrue:[ |
525 '' |
523 '' |
526 ] ifFalse:[ |
524 ] ifFalse:[ |
527 stxFormat isNil ifTrue:[ |
525 (stxFormat isNil or:[date isString]) ifTrue:[ |
528 date printString |
526 date printString |
529 ] ifFalse:[ |
527 ] ifFalse:[ |
530 date printStringFormat:stxFormat |
528 date printStringFormat:stxFormat |
531 ]]] |
529 ]. |
|
530 ]] |
532 |
531 |
533 putBlock: |
532 putBlock: |
534 [:model :string | |
533 [:model :string | |
535 |
534 |
536 |value| |
535 |value| |
1500 ! ! |
1499 ! ! |
1501 |
1500 |
1502 !TypeConverter class methodsFor:'documentation'! |
1501 !TypeConverter class methodsFor:'documentation'! |
1503 |
1502 |
1504 version |
1503 version |
1505 ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.52 2008-03-09 22:06:15 stefan Exp $' |
1504 ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.53 2008-03-14 10:42:25 stefan Exp $' |
1506 ! ! |
1505 ! ! |