#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Mon, 31 Oct 2016 14:21:58 +0100
changeset 3345 681833029ed5
parent 3344 18268a21cb60
child 3346 15a3fc3d13d9
#UI_ENHANCEMENT by cg class: Tools::ObjectModuleInformation changed: #tableColumns sortable
Tools__ObjectModuleInformation.st
--- a/Tools__ObjectModuleInformation.st	Fri Oct 14 18:52:36 2016 +0200
+++ b/Tools__ObjectModuleInformation.st	Mon Oct 31 14:21:58 2016 +0100
@@ -559,7 +559,7 @@
      the DataSetBuilder may not be able to read the specification."
 
     "
-     DataSetBuilder new openOnClass:ObjectModuleInformation andSelector:#tableColumns
+     DataSetBuilder new openOnClass:Tools::ObjectModuleInformation andSelector:#tableColumns
     "
 
     <resource: #tableColumns>
@@ -568,23 +568,34 @@
       (DataSetColumnSpec
          label: 'Name'
          activeHelpKey: ''
+         activeHelpKeyForLabel: ''
          labelButtonType: Button
+         isSortable: true
+         sortSelector: name
          width: 0.5
+         height: heightOfFirstRow
          model: name
+         menuFromApplication: false
          canSelect: false
        )
       (DataSetColumnSpec
          label: 'Version'
          activeHelpKey: ''
          labelButtonType: Button
+         height: heightOfFirstRow
          model: version
          canSelect: false
        )
       (DataSetColumnSpec
          label: 'Date'
          activeHelpKey: ''
+         activeHelpKeyForLabel: ''
          labelButtonType: Button
+         isSortable: true
+         sortSelector: dateOrEmpty
+         height: heightOfFirstRow
          model: date
+         menuFromApplication: false
          canSelect: false
        )
       )
@@ -1555,6 +1566,10 @@
     date := something.
 !
 
+dateOrEmpty
+    ^ date ? ''
+!
+
 name
     ^ name
 !