equal
deleted
inserted
replaced
2166 |
2166 |
2167 defaultInfoLabel |
2167 defaultInfoLabel |
2168 "returns the default info label" |
2168 "returns the default info label" |
2169 |
2169 |
2170 specClass isNil ifTrue: [^'No class and selector defined.']. |
2170 specClass isNil ifTrue: [^'No class and selector defined.']. |
|
2171 specSelector isNil ifTrue: [^'No selector defined.']. |
2171 ^specClass printString, ' >> ', specSelector |
2172 ^specClass printString, ' >> ', specSelector |
|
2173 |
|
2174 "Modified: / 20.6.1998 / 16:49:16 / cg" |
2172 ! ! |
2175 ! ! |
2173 |
2176 |
2174 !UIPainter methodsFor:'private'! |
2177 !UIPainter methodsFor:'private'! |
2175 |
2178 |
2176 askForModification |
2179 askForModification |