equal
deleted
inserted
replaced
3770 "browse class of columns spec" |
3770 "browse class of columns spec" |
3771 |
3771 |
3772 |cls| |
3772 |cls| |
3773 |
3773 |
3774 (cls := self resolveRowClass) notNil |
3774 (cls := self resolveRowClass) notNil |
3775 ifTrue: [UserPreferences systemBrowserClass openInClass:cls] |
3775 ifTrue: [Smalltalk browseInClass:cls] |
3776 ifFalse:[self information:'No class defined !!'] |
3776 ifFalse:[self information:'No class defined !!'] |
3777 |
3777 |
3778 "Modified: / 20.5.1998 / 03:48:04 / cg" |
3778 "Modified: / 20.5.1998 / 03:48:04 / cg" |
3779 ! |
3779 ! |
3780 |
3780 |