equal
deleted
inserted
replaced
1081 |
1081 |
1082 <resource: #tableColumns> |
1082 <resource: #tableColumns> |
1083 |
1083 |
1084 ^#( |
1084 ^#( |
1085 (DataSetColumnSpec |
1085 (DataSetColumnSpec |
1086 label: 'Auto' |
1086 label: 'Class' |
1087 labelButtonType: Button |
1087 labelAlignment: left |
1088 rendererType: CheckToggle |
1088 labelButtonType: Button |
1089 model: autoloaded |
1089 model: className |
1090 canSelect: false |
1090 canSelect: false |
1091 ) |
1091 ) |
1092 (DataSetColumnSpec |
1092 (DataSetColumnSpec |
1093 label: 'Win32' |
1093 label: 'Auto' |
1094 labelButtonType: Button |
1094 labelButtonType: Button |
1095 rendererType: CheckToggle |
1095 rendererType: CheckToggle |
1096 model: win32 |
1096 model: autoloaded |
1097 canSelect: false |
1097 canSelect: false |
1098 ) |
1098 ) |
1099 (DataSetColumnSpec |
1099 (DataSetColumnSpec |
1100 label: 'Unix' |
1100 label: 'Win32' |
1101 labelButtonType: Button |
1101 labelButtonType: Button |
1102 rendererType: CheckToggle |
1102 rendererType: CheckToggle |
1103 model: unix |
1103 model: win32 |
1104 canSelect: false |
1104 canSelect: false |
1105 ) |
1105 ) |
1106 (DataSetColumnSpec |
1106 (DataSetColumnSpec |
1107 label: 'Class' |
1107 label: 'Unix' |
1108 labelAlignment: left |
1108 labelButtonType: Button |
1109 labelButtonType: Button |
1109 rendererType: CheckToggle |
1110 model: className |
1110 model: unix |
1111 canSelect: false |
1111 canSelect: false |
1112 ) |
1112 ) |
1113 ) |
1113 ) |
1114 |
1114 |
1115 ! |
1115 ! |
1116 |
1116 |
1117 extensionsTableColumns |
1117 extensionsTableColumns |
1118 "This resource specification was automatically generated |
1118 "This resource specification was automatically generated |
1119 by the DataSetBuilder of ST/X." |
1119 by the DataSetBuilder of ST/X." |
1654 definitionClass isNil ifTrue:[^ self ]. |
1654 definitionClass isNil ifTrue:[^ self ]. |
1655 |
1655 |
1656 isApplicationDefinition := definitionClass isApplicationDefinition. |
1656 isApplicationDefinition := definitionClass isApplicationDefinition. |
1657 |
1657 |
1658 self isApplicationDefinitionHolder value:isApplicationDefinition. |
1658 self isApplicationDefinitionHolder value:isApplicationDefinition. |
1659 self isNonGUIApplicationHolder value:definitionClass isGUIApplication not. |
1659 self isNonGUIApplicationHolder value:(isApplicationDefinition and:[definitionClass isGUIApplication not]). |
1660 self hasConsoleHolder value:definitionClass isConsoleApplication. |
1660 self hasConsoleHolder value:(isApplicationDefinition and:[definitionClass isConsoleApplication]). |
1661 self startSinglethreadedHolder value:definitionClass isSingleThreadedApplication. |
1661 self startSinglethreadedHolder value:(isApplicationDefinition and:[definitionClass isSingleThreadedApplication]). |
1662 |
1662 |
1663 isApplicationDefinition ifTrue:[ |
1663 isApplicationDefinition ifTrue:[ |
1664 startupClassName := definitionClass name. |
1664 startupClassName := definitionClass name. |
1665 startupSelector := #start. |
1665 startupSelector := #start. |
1666 |
1666 |
1701 ifFalse:'Library' ) |
1701 ifFalse:'Library' ) |
1702 , ' Definition: ',definitionClass name. |
1702 , ' Definition: ',definitionClass name. |
1703 ]. |
1703 ]. |
1704 |
1704 |
1705 "Created: / 04-09-2006 / 16:34:39 / cg" |
1705 "Created: / 04-09-2006 / 16:34:39 / cg" |
1706 "Modified: / 20-09-2006 / 14:41:39 / cg" |
1706 "Modified: / 04-10-2006 / 21:19:19 / cg" |
1707 ! |
1707 ! |
1708 |
1708 |
1709 refetchDefinitionValues |
1709 refetchDefinitionValues |
1710 self isApplicationDefinitionHolder value:( definitionClass isApplicationDefinition ). |
1710 self isApplicationDefinitionHolder value:( definitionClass isApplicationDefinition ). |
1711 self fetchValues. |
1711 self fetchValues. |