--- a/ProjectBrowser.st Thu Sep 23 19:55:16 1999 +0200
+++ b/ProjectBrowser.st Fri Sep 24 15:02:03 1999 +0200
@@ -589,7 +589,7 @@
#name: 'NewApplication'
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 420 49 720 349)
+ #bounds: #(#Rectangle 3 77 303 377)
)
#component:
#(#SpecCollection
@@ -2273,29 +2273,30 @@
<resource: #tableColumns>
-
- ^ #(
- #(#DataSetColumnSpec
- #label: 'Class'
- #id: 'classColumn'
- #labelAlignment: #left
- #model: #classNameFromClassInfo:
+ ^#(
+ #(#DataSetColumnSpec
+ #label: 'Class'
+ #id: 'classColumn'
+ #labelAlignment: #left
+ #model: #classNameFromClassInfo:
)
- #(#DataSetColumnSpec
- #label: 'Included'
- #id: 'inclusion'
- #columnAlignment: #center
- #width: 100
- #editorType: #ComboList
- #model: #classIncludeConditionFromClassInfo:
+ #(#DataSetColumnSpec
+ #label: 'Included'
+ #id: 'inclusion'
+ #width: 150
+ #editorType: #ComboList
+ #choices: #listOfPossibleConditions:
+ #model: #classIncludeConditionFromClassInfo:
+ #writeSelector: #classIncludeConditionFromClassInfo:put:
)
- #(#DataSetColumnSpec
- #label: 'Filename'
- #labelAlignment: #left
- #minWidth: 200
- #model: #classFilenameFromClassInfo:
+ #(#DataSetColumnSpec
+ #label: 'Filename'
+ #labelAlignment: #left
+ #minWidth: 200
+ #model: #classFilenameFromClassInfo:
)
- )
+ )
+
!
patchesTableColumns
@@ -2831,6 +2832,12 @@
"Created: / 23.3.1999 / 14:18:05 / cg"
!
+listOfPossibleConditions:aRow
+ ^ #( always never autoload '-' unix win32 vms macos)
+
+
+!
+
listOfRequiredClassesInPrerequisites
"automatically generated by UIPainter ..."
@@ -4015,6 +4022,10 @@
^ cInfo conditionForInclusion
!
+classIncludeConditionFromClassInfo:cInfo put:aSymbol
+ cInfo conditionForInclusion:aSymbol
+!
+
classNameFromClassInfo:cInfo
^ cInfo className
!