equal
deleted
inserted
replaced
1036 (SpecCollection |
1036 (SpecCollection |
1037 collection: ( |
1037 collection: ( |
1038 (ActionButtonSpec |
1038 (ActionButtonSpec |
1039 label: 'Open Windows Explorer' |
1039 label: 'Open Windows Explorer' |
1040 name: 'Button1' |
1040 name: 'Button1' |
|
1041 visibilityChannel: isWindowsOS |
1041 translateLabel: true |
1042 translateLabel: true |
1042 resizeForLabel: true |
1043 resizeForLabel: true |
1043 model: doOpenExplorer |
1044 model: doOpenExplorer |
1044 extent: (Point 172 22) |
1045 extent: (Point 172 22) |
1045 ) |
1046 ) |
1046 (ActionButtonSpec |
1047 (ActionButtonSpec |
1047 label: 'Open Console' |
1048 label: 'Open Console' |
1048 name: 'Button2' |
1049 name: 'Button2' |
|
1050 visibilityChannel: false |
1049 translateLabel: true |
1051 translateLabel: true |
1050 resizeForLabel: true |
1052 resizeForLabel: true |
1051 model: doOpenConsoleTerminal |
1053 model: doOpenConsoleTerminal |
1052 extent: (Point 172 22) |
1054 extent: (Point 172 22) |
1053 ) |
1055 ) |
1963 |
1965 |
1964 canEnterStartupClassSelection |
1966 canEnterStartupClassSelection |
1965 ^ self hasProjectSelected "and:[ self hasApplicationSelected ]" |
1967 ^ self hasProjectSelected "and:[ self hasApplicationSelected ]" |
1966 ! |
1968 ! |
1967 |
1969 |
|
1970 isWindowsOS |
|
1971 ^ OperatingSystem isMSWINDOWSlike |
|
1972 ! |
|
1973 |
1968 projectTypeIsGuiApplication |
1974 projectTypeIsGuiApplication |
1969 ^ self projectTypeHolder value == #guiApplicationType |
1975 ^ self projectTypeHolder value == #guiApplicationType |
1970 ! |
1976 ! |
1971 |
1977 |
1972 projectTypeIsLibrary |
1978 projectTypeIsLibrary |