equal
deleted
inserted
replaced
24 |
24 |
25 Label comment:' |
25 Label comment:' |
26 COPYRIGHT (c) 1989 by Claus Gittinger |
26 COPYRIGHT (c) 1989 by Claus Gittinger |
27 All Rights Reserved |
27 All Rights Reserved |
28 |
28 |
29 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.16 1995-02-16 16:31:42 claus Exp $ |
29 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.17 1995-03-06 19:28:54 claus Exp $ |
30 '! |
30 '! |
31 |
31 |
32 !Label class methodsFor:'documentation'! |
32 !Label class methodsFor:'documentation'! |
33 |
33 |
34 copyright |
34 copyright |
45 " |
45 " |
46 ! |
46 ! |
47 |
47 |
48 version |
48 version |
49 " |
49 " |
50 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.16 1995-02-16 16:31:42 claus Exp $ |
50 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.17 1995-03-06 19:28:54 claus Exp $ |
51 " |
51 " |
52 ! |
52 ! |
53 |
53 |
54 documentation |
54 documentation |
55 " |
55 " |
497 !Label methodsFor:'change & update'! |
497 !Label methodsFor:'change & update'! |
498 |
498 |
499 update:something |
499 update:something |
500 "the MVC way of changing the label ..." |
500 "the MVC way of changing the label ..." |
501 |
501 |
502 (something == aspectSymbol) ifTrue:[ |
502 (aspectSymbol notNil |
|
503 and:[something == aspectSymbol]) ifTrue:[ |
503 model notNil ifTrue:[ |
504 model notNil ifTrue:[ |
504 self label:(model perform: aspectSymbol) printString. |
505 self label:(model perform: aspectSymbol) printString. |
505 ]. |
506 ]. |
506 ^ self. |
507 ^ self. |
507 ]. |
508 ]. |