--- a/ProjectBrowser.st Mon Feb 22 22:06:01 1999 +0100
+++ b/ProjectBrowser.st Mon Feb 22 22:33:30 1999 +0100
@@ -619,18 +619,7 @@
!
classTableColumns
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept in the browser."
-
- |holder|
-
- (holder := builder bindingAt:#classTableColumns) isNil ifTrue:[
- builder aspectAt:#classTableColumns put:(holder := ValueHolder new).
- ].
- ^ holder.
+ ^ self class classTableColumns
!
currentCanvasHolder
@@ -861,9 +850,16 @@
!ProjectBrowser methodsFor:'private - table col access'!
+classFilenameFromClassInfo:cInfo
+ ^ cInfo classFileName
+!
+
+classIncludeConditionFromClassInfo:cInfo
+ ^ cInfo conditionForInclusion
+!
+
classNameFromClassInfo:cInfo
-Transcript showCR:'xxx'.
- self halt.
+ ^ cInfo className
! !
!ProjectBrowser methodsFor:'user actions'!
@@ -987,11 +983,12 @@
projectItem := anItem parent.
project := projectItem contents.
- classInfo := project classInfo.
+ classInfo := project classInfo asOrderedCollection.
+ classInfo sort:[:a :b | a className < b className].
+
l := self classList.
l removeAll.
l addAll:classInfo.
-self halt.
self currentCanvasHolder value:(self class rightCanvasSpecForClassList).
!