equal
deleted
inserted
replaced
89 ! ! |
89 ! ! |
90 |
90 |
91 !ProjectView methodsFor:'menu actions'! |
91 !ProjectView methodsFor:'menu actions'! |
92 |
92 |
93 buildProject |
93 buildProject |
|
94 (self confirm:'create files in: ' , myProject directory) ifTrue:[ |
|
95 myProject createProjectFiles. |
|
96 (self confirm:'starting make in: ' , myProject directory) ifTrue:[ |
|
97 myProject buildProject. |
|
98 ]. |
|
99 ]. |
94 ! |
100 ! |
95 |
101 |
96 browseChanges |
102 browseChanges |
97 ChangeSetBrowser startOn:(myProject changeSet) |
103 ChangeSetBrowser startOn:(myProject changeSet) |
98 ! |
104 ! |
99 |
105 |
100 browseProps |
106 browseProps |
101 |p| |
107 "will look better, once property inspector runs ..." |
102 |
108 |
103 p := myProject properties. |
109 myProject properties inspect |
104 p isNil ifTrue:[ |
|
105 p := DIctionary new. |
|
106 myProject properties:p |
|
107 ]. |
|
108 p inspect |
|
109 ! |
110 ! |
110 |
111 |
111 destroyProject |
112 destroyProject |
112 |box| |
113 |box| |
113 |
114 |
127 ActiveProjectView notNil ifTrue:[ |
128 ActiveProjectView notNil ifTrue:[ |
128 ActiveProjectView hideProject |
129 ActiveProjectView hideProject |
129 ]. |
130 ]. |
130 ActiveProjectView := self. |
131 ActiveProjectView := self. |
131 |
132 |
132 myProject views notNil ifTrue:[ |
133 myProject showViews. |
133 myProject views do:[:aView | |
|
134 aView rerealize |
|
135 ] |
|
136 ]. |
|
137 Project current:myProject. |
134 Project current:myProject. |
138 toggle turnOn |
135 toggle turnOn |
139 ! |
136 ! |
140 |
137 |
141 hideProject |
138 hideProject |
142 myProject views notNil ifTrue:[ |
139 myProject hideViews. |
143 myProject views do:[:aView | |
|
144 aView unrealize |
|
145 ] |
|
146 ]. |
|
147 ActiveProjectView := nil. |
140 ActiveProjectView := nil. |
148 toggle turnOff |
141 toggle turnOff |
149 ! |
142 ! |
150 |
143 |
151 renameProject |
144 renameProject |