equal
deleted
inserted
replaced
14 selectedApplication hasApplicationSelectedHolder |
14 selectedApplication hasApplicationSelectedHolder |
15 listOfStartupClassesInProject selectedStartupClassIndexHolder |
15 listOfStartupClassesInProject selectedStartupClassIndexHolder |
16 selectedStartupClass hasStartupClassSelectedHolder |
16 selectedStartupClass hasStartupClassSelectedHolder |
17 selectedApplicationsComment buildDirectoryHolder makeProcess |
17 selectedApplicationsComment buildDirectoryHolder makeProcess |
18 listOfClassesInProject makeOutputWindow projectBuilder |
18 listOfClassesInProject makeOutputWindow projectBuilder |
19 newStartupClassName usedCompilerHolder' |
19 newStartupClassName usedCompilerHolder listOfNewProjectsName' |
20 classVariableNames:'' |
20 classVariableNames:'' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'System-Support-Projects' |
22 category:'System-Support-Projects' |
23 ! |
23 ! |
24 |
24 |
227 labelPosition: topLeft |
227 labelPosition: topLeft |
228 translateLabel: true |
228 translateLabel: true |
229 component: |
229 component: |
230 (SpecCollection |
230 (SpecCollection |
231 collection: ( |
231 collection: ( |
232 (InputFieldSpec |
|
233 name: 'EntryField1' |
|
234 layout: (LayoutFrame 1 0 6 0 -113 1 28 0) |
|
235 model: newProjectsName |
|
236 acceptOnReturn: true |
|
237 acceptOnTab: true |
|
238 acceptOnLostFocus: true |
|
239 acceptOnPointerLeave: true |
|
240 emptyFieldReplacementText: 'module:directory' |
|
241 ) |
|
242 (ActionButtonSpec |
232 (ActionButtonSpec |
243 label: 'Create' |
233 label: 'Create' |
244 name: 'Button1' |
234 name: 'Button1' |
245 layout: (LayoutFrame -100 1 6 0 2 1 28 0) |
235 layout: (LayoutFrame -100 1 6 0 2 1 28 0) |
246 translateLabel: true |
236 translateLabel: true |
247 model: createNewProject |
237 model: createNewProject |
|
238 ) |
|
239 (ExtendedComboBoxSpec |
|
240 name: 'NewProjectsNameListExtendedComboBox' |
|
241 layout: (LayoutFrame 1 0 6 0 -113 1 28 0) |
|
242 model: newProjectsName |
|
243 readOnly: false |
|
244 miniScrollerHorizontal: true |
|
245 postBuildCallback: postBuildNewProjectsNameListExtendedComboBox: |
248 ) |
246 ) |
249 ) |
247 ) |
250 |
248 |
251 ) |
249 ) |
252 ) |
250 ) |
938 |
936 |
939 ) |
937 ) |
940 ) |
938 ) |
941 ! ! |
939 ! ! |
942 |
940 |
|
941 !ProjectBuilderAssistantApplication class methodsFor:'misc specs'! |
|
942 |
|
943 newProjectsNameListSpec |
|
944 "This resource specification was automatically generated |
|
945 by the UIPainter of ST/X." |
|
946 |
|
947 "Do not manually edit this!! If it is corrupted, |
|
948 the UIPainter may not be able to read the specification." |
|
949 |
|
950 " |
|
951 UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#newProjectsNameListSpec |
|
952 Tools::ProjectBuilderAssistantApplication new openInterface:#newProjectsNameListSpec |
|
953 " |
|
954 |
|
955 <resource: #canvas> |
|
956 |
|
957 ^ |
|
958 #(FullSpec |
|
959 name: newProjectsNameListSpec |
|
960 window: |
|
961 (WindowSpec |
|
962 label: 'NewApplication' |
|
963 name: 'NewApplication' |
|
964 min: (Point 0 0) |
|
965 bounds: (Rectangle 0 0 131 207) |
|
966 ) |
|
967 component: |
|
968 (SpecCollection |
|
969 collection: ( |
|
970 (SequenceViewSpec |
|
971 name: 'ReferencePoint2' |
|
972 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
973 model: newProjectsName |
|
974 hasHorizontalScrollBar: true |
|
975 hasVerticalScrollBar: true |
|
976 miniScrollerHorizontal: true |
|
977 miniScrollerVertical: false |
|
978 useIndex: false |
|
979 sequenceList: listOfNewProjectsName |
|
980 ) |
|
981 ) |
|
982 |
|
983 ) |
|
984 ) |
|
985 ! ! |
|
986 |
943 !ProjectBuilderAssistantApplication methodsFor:'actions'! |
987 !ProjectBuilderAssistantApplication methodsFor:'actions'! |
944 |
988 |
945 buildDirectoryChanged |
989 buildDirectoryChanged |
946 self updateButtonEnableState. |
990 self updateButtonEnableState. |
947 ! |
991 ! |
992 ^ self |
1036 ^ self |
993 ]. |
1037 ]. |
994 |
1038 |
995 projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value). |
1039 projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value). |
996 |
1040 |
997 |
|
998 projectDefinitionClass := ProjectDefinition |
1041 projectDefinitionClass := ProjectDefinition |
999 definitionClassForPackage:newProjectID |
1042 definitionClassForPackage:newProjectID |
1000 projectType: projectDefinitionType |
1043 projectType: projectDefinitionType |
1001 createIfAbsent:true. |
1044 createIfAbsent:true. |
1002 |
1045 |
1003 projectDefinitionClass compileDescriptionMethods. |
1046 projectDefinitionClass compileDescriptionMethods. |
1004 self updateListOfMatchingProjects. |
1047 self updateListOfMatchingProjects. |
|
1048 self updateListOfNewProjectsName. |
1005 |
1049 |
1006 self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass). |
1050 self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass). |
1007 |
1051 |
1008 projectClasses := projectDefinitionClass allClassNames |
1052 projectClasses := projectDefinitionClass allClassNames |
1009 collect:[:nm |Smalltalk classNamed:nm]. |
1053 collect:[:nm |Smalltalk classNamed:nm]. |
1411 listOfMatchingProjects := ValueHolder new. |
1455 listOfMatchingProjects := ValueHolder new. |
1412 ]. |
1456 ]. |
1413 ^ listOfMatchingProjects. |
1457 ^ listOfMatchingProjects. |
1414 ! |
1458 ! |
1415 |
1459 |
|
1460 listOfNewProjectsName |
|
1461 |
|
1462 <resource: #uiAspect> |
|
1463 |
|
1464 listOfNewProjectsName isNil ifTrue:[ |
|
1465 listOfNewProjectsName := ValueHolder new. |
|
1466 ]. |
|
1467 ^ listOfNewProjectsName. |
|
1468 ! |
|
1469 |
1416 listOfPossibleCompilers |
1470 listOfPossibleCompilers |
1417 OperatingSystem isMSWINDOWSlike ifTrue:[ |
1471 OperatingSystem isMSWINDOWSlike ifTrue:[ |
1418 ^ #('bcc' 'vc' 'lcc') |
1472 ^ #('bcc' 'vc' 'lcc') |
1419 ]. |
1473 ]. |
1420 ^ #('gcc') |
1474 ^ #('gcc') |
1627 |
1681 |
1628 postBuildMakeOutputWindow:aView |
1682 postBuildMakeOutputWindow:aView |
1629 makeOutputWindow := aView |
1683 makeOutputWindow := aView |
1630 ! |
1684 ! |
1631 |
1685 |
|
1686 postBuildNewProjectsNameListExtendedComboBox:aBox |
|
1687 |
|
1688 |menu| |
|
1689 |
|
1690 menu := SubCanvas new. |
|
1691 menu client:self spec:#newProjectsNameListSpec builder:nil. |
|
1692 aBox menuWidget:menu. |
|
1693 |
|
1694 aBox editor |
|
1695 immediateAccept:true; |
|
1696 acceptOnLeave:true; |
|
1697 acceptOnLostFocus:true; |
|
1698 acceptOnPointerLeave:true; |
|
1699 acceptOnReturn:true; |
|
1700 acceptOnTab:true. |
|
1701 ! |
|
1702 |
1632 postBuildWith:aBuilder |
1703 postBuildWith:aBuilder |
1633 super postBuildWith:aBuilder. |
1704 super postBuildWith:aBuilder. |
1634 self updateListOfMatchingProjects. |
1705 self updateListOfMatchingProjects. |
|
1706 self updateListOfNewProjectsName. |
1635 |
1707 |
1636 Smalltalk addDependent:self. |
1708 Smalltalk addDependent:self. |
1637 ! |
1709 ! |
1638 |
1710 |
1639 release |
1711 release |
1869 changedObject == Smalltalk ifTrue:[ |
1941 changedObject == Smalltalk ifTrue:[ |
1870 (something == #newClass |
1942 (something == #newClass |
1871 or:[something == #classRemove |
1943 or:[something == #classRemove |
1872 or:[something == #projectOrganization]]) ifTrue:[ |
1944 or:[something == #projectOrganization]]) ifTrue:[ |
1873 self updateListOfMatchingProjects. |
1945 self updateListOfMatchingProjects. |
|
1946 self updateListOfNewProjectsName. |
1874 ^ self. |
1947 ^ self. |
1875 ]. |
1948 ]. |
1876 ^ self. |
1949 ^ self. |
1877 ]. |
1950 ]. |
1878 super update:something with:anArgument from:changedObject |
1951 super update:something with:anArgument from:changedObject |
1989 ] ifFalse:[ |
2062 ] ifFalse:[ |
1990 self selectedProjectIndexHolder value:idx. |
2063 self selectedProjectIndexHolder value:idx. |
1991 ]. |
2064 ]. |
1992 ! |
2065 ! |
1993 |
2066 |
|
2067 updateListOfNewProjectsName |
|
2068 |
|
2069 |loadedProjectIDsWithoutProjectDefinition| |
|
2070 |
|
2071 loadedProjectIDsWithoutProjectDefinition := Smalltalk allLoadedProjectIDs |
|
2072 select:[:eachProjectID | |
|
2073 eachProjectID ~= PackageId noProjectID |
|
2074 and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ]. |
|
2075 ]. |
|
2076 self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition. |
|
2077 ! |
|
2078 |
1994 updateListOfStartupClassesInProject |
2079 updateListOfStartupClassesInProject |
1995 |startupClasses package startUpClassName startUpClass startupClassIndex| |
2080 |startupClasses package startUpClassName startUpClass startupClassIndex| |
1996 |
2081 |
1997 startupClassIndex := nil. |
2082 startupClassIndex := nil. |
1998 self selectedStartupClassIndexHolder value:nil. |
2083 self selectedStartupClassIndexHolder value:nil. |