equal
deleted
inserted
replaced
877 createNewBuilder: true |
877 createNewBuilder: true |
878 ) |
878 ) |
879 (HorizontalPanelViewSpec |
879 (HorizontalPanelViewSpec |
880 name: 'HorizontalPanel1' |
880 name: 'HorizontalPanel1' |
881 layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
881 layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
882 horizontalLayout: center |
882 horizontalLayout: centerMax |
883 verticalLayout: center |
883 verticalLayout: center |
884 horizontalSpace: 3 |
884 horizontalSpace: 3 |
885 verticalSpace: 3 |
885 verticalSpace: 3 |
886 component: |
886 component: |
887 (SpecCollection |
887 (SpecCollection |
892 translateLabel: true |
892 translateLabel: true |
893 resizeForLabel: true |
893 resizeForLabel: true |
894 model: doOpenExplorer |
894 model: doOpenExplorer |
895 extent: (Point 172 22) |
895 extent: (Point 172 22) |
896 ) |
896 ) |
|
897 (ActionButtonSpec |
|
898 label: 'Open Console' |
|
899 name: 'Button2' |
|
900 translateLabel: true |
|
901 resizeForLabel: true |
|
902 model: doOpenConsoleTerminal |
|
903 extent: (Point 172 22) |
|
904 ) |
897 ) |
905 ) |
898 |
906 |
899 ) |
907 ) |
900 ) |
908 ) |
901 ) |
909 ) |
1073 |
1081 |
1074 self hasApplicationSelected ifTrue:[ |
1082 self hasApplicationSelected ifTrue:[ |
1075 appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value). |
1083 appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value). |
1076 appClass open. |
1084 appClass open. |
1077 ]. |
1085 ]. |
|
1086 ! |
|
1087 |
|
1088 doOpenConsoleTerminal |
|
1089 "/ OperatingSystem |
|
1090 "/ executeCommand:'cmd.exe' |
|
1091 "/ inDirectory:(projectBuilder packageBuildDirectory) |
|
1092 OperatingSystem |
|
1093 executeCommand:'c:\windows\System32\cmd.exe' |
|
1094 inDirectory:(projectBuilder packageBuildDirectory) |
1078 ! |
1095 ! |
1079 |
1096 |
1080 doOpenExplorer |
1097 doOpenExplorer |
1081 OperatingSystem |
1098 OperatingSystem |
1082 openApplicationForDocument:(projectBuilder packageBuildDirectory) operation:#explore. |
1099 openApplicationForDocument:(projectBuilder packageBuildDirectory) operation:#explore. |