--- a/Tools__ProjectDefinitionEditor.st Fri Nov 17 15:12:37 2006 +0100
+++ b/Tools__ProjectDefinitionEditor.st Tue Nov 21 18:08:38 2006 +0100
@@ -1177,23 +1177,23 @@
(DataSetColumnSpec
label: 'Auto'
labelButtonType: Button
+ editorType: CheckToggle
rendererType: CheckToggle
model: autoloaded
- canSelect: false
)
(DataSetColumnSpec
label: 'Win32'
labelButtonType: Button
+ editorType: CheckToggle
rendererType: CheckToggle
model: win32
- canSelect: false
)
(DataSetColumnSpec
label: 'Unix'
labelButtonType: Button
+ editorType: CheckToggle
rendererType: CheckToggle
model: unix
- canSelect: false
)
)
@@ -1749,21 +1749,22 @@
entries := OrderedCollection new.
definitionClass
- classNamesAndAttributesDo:[:className :attributes |
- |entry|
+ classNamesAndAttributesDo:[:className :attributes |
+ |entry|
- entry := ClassListEntry new.
- entry
- className:className
- autoloaded:(attributes includes:#autoload)
- win32:(attributes includes:#win32)
- unix:(attributes includes:#unix).
- entries add:entry.
- ].
-
+ entry := ClassListEntry new.
+ entry
+ className:className
+ autoloaded:(attributes includes:#autoload)
+ win32:(attributes includes:#win32)
+ unix:(attributes includes:#unix).
+ entries add:entry.
+ ].
+ entries sort:[:a :b | a className < b className].
^ entries.
"Created: / 05-09-2006 / 12:31:26 / cg"
+ "Modified: / 21-11-2006 / 18:04:35 / cg"
!
fetchExtensionsListEntries
@@ -2190,8 +2191,10 @@
^ autoloaded
!
-autoloaded:something
- autoloaded := something.
+autoloaded:aBoolean
+ autoloaded := aBoolean.
+
+ "Modified: / 21-11-2006 / 18:05:26 / cg"
!
className
@@ -2213,16 +2216,20 @@
^ unix
!
-unix:something
- unix := something.
+unix:aBoolean
+ unix := aBoolean.
+
+ "Modified: / 21-11-2006 / 18:05:32 / cg"
!
win32
^ win32
!
-win32:something
- win32 := something.
+win32:aBoolean
+ win32 := aBoolean.
+
+ "Modified: / 21-11-2006 / 18:05:35 / cg"
! !
!ProjectDefinitionEditor::ExtensionsListEntry methodsFor:'accessing'!