Dynamic Object Document Browsing ( was Class Comments )
Stephen Travis Pope
stp at create.ucsb.edu
Wed Feb 9 18:52:30 UTC 2000
This is an option in the package browser -- look at the file-in below
!Browser methodsFor: 'class list' stamp: 'stp 02/09/2000 10:50'!
classListIndex: anInteger
"Set anInteger to be the index of the current class selection."
| className |
classListIndex _ anInteger.
self setClassOrganizer.
messageCategoryListIndex _ 0.
messageListIndex _ 0.
self classCommentIndicated
ifTrue: []
ifFalse: [editSelection _ anInteger = 0
ifTrue: [metaClassIndicated | (systemCategoryListIndex == 0)
ifTrue: [#none]
ifFalse: [#newClass]]
ifFalse: [#editComment]]. "Changed from editClass"
contents _ nil.
self selectedClass isNil
ifFalse: [className _ self selectedClass name.
(RecentClasses includes: className)
ifTrue: [RecentClasses remove: className].
RecentClasses addFirst: className.
RecentClasses size > 16
ifTrue: [RecentClasses removeLast]].
self changed: #classSelectionChanged.
self changed: #classListIndex. "update my selection"
self changed: #varsList.
self changed: #messageCategoryList.
self changed: #messageList.
self changed: #contents! !
stp
Les Tyrrell wrote:
>
> Alan Kay wrote:
> >
> > I think that class comments should come up automatically (perhaps in a
> > separate pane) when the class level is reached in the browser.
--
stp
Stephen Travis Pope
http://www.create.ucsb.edu/~stp
More information about the Squeak-dev
mailing list
|