*** empty log message *** expecco_1_0_3
authorClaus Gittinger <cg@exept.de>
Tue, 21 Nov 2006 18:08:38 +0100
changeset 2146 a5ce8e00652f
parent 2145 4233bdb1ee28
child 2147 ff72b5236caf
*** empty log message ***
Tools__ProjectDefinitionEditor.st
--- 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'!