# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 919719210 -3600
# Node ID 41da0e38af8476b1ca0521acbbb319daba1e15a8
# Parent  3a75844e668afcfa4f2db7b71e1f2602cfde8987
checkin from browser

diff -r 3a75844e668a -r 41da0e38af84 ProjectBrowser.st
--- 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).
 !