equal
deleted
inserted
replaced
94 " |
94 " |
95 |
95 |
96 "Modified: 14.2.1997 / 13:46:07 / cg" |
96 "Modified: 14.2.1997 / 13:46:07 / cg" |
97 ! ! |
97 ! ! |
98 |
98 |
99 !ProjectView methodsFor:'initialization'! |
99 !ProjectView methodsFor:'initialize / release'! |
100 |
100 |
101 addToCurrentProject |
101 addToCurrentProject |
102 "add this view to the current projects set of views. |
102 "add this view to the current projects set of views. |
103 Ignored here - ProjectViews are global." |
103 Ignored here - ProjectViews are global." |
104 |
104 |
105 ^ self |
105 ^ self |
106 |
106 |
107 "Modified: 14.2.1997 / 13:35:58 / cg" |
107 "Modified: 14.2.1997 / 13:35:58 / cg" |
|
108 ! |
|
109 |
|
110 destroy |
|
111 "Let user confirm, then close all of my views, and get rid of the changeList. |
|
112 However, methods and classes are not restored to their |
|
113 previous state." |
|
114 |
|
115 |views| |
|
116 |
|
117 myProject notNil ifTrue:[ |
|
118 views := myProject views. |
|
119 (views size > 0) ifTrue:[ |
|
120 |box| |
|
121 |
|
122 box := YesNoBox new. |
|
123 box title:(resources string:'PROJECT_DESTROY') withCRs. |
|
124 box okText:(resources string:'yes'). |
|
125 (box confirm) ifFalse:[^ self] |
|
126 ]. |
|
127 ]. |
|
128 self doDestroy |
|
129 |
|
130 "Modified: 14.2.1997 / 13:39:03 / cg" |
108 ! |
131 ! |
109 |
132 |
110 initialize |
133 initialize |
111 super initialize. |
134 super initialize. |
112 |
135 |
300 ]. |
323 ]. |
301 |
324 |
302 "Modified: 14.2.1997 / 13:38:06 / cg" |
325 "Modified: 14.2.1997 / 13:38:06 / cg" |
303 ! |
326 ! |
304 |
327 |
305 destroy |
|
306 "Let user confirm, then close all of my views, and get rid of the changeList. |
|
307 However, methods and classes are not restored to their |
|
308 previous state." |
|
309 |
|
310 |views| |
|
311 |
|
312 myProject notNil ifTrue:[ |
|
313 views := myProject views. |
|
314 (views size > 0) ifTrue:[ |
|
315 |box| |
|
316 |
|
317 box := YesNoBox new. |
|
318 box title:(resources string:'PROJECT_DESTROY') withCRs. |
|
319 box okText:(resources string:'yes'). |
|
320 (box confirm) ifFalse:[^ self] |
|
321 ]. |
|
322 ]. |
|
323 self doDestroy |
|
324 |
|
325 "Modified: 14.2.1997 / 13:39:03 / cg" |
|
326 ! |
|
327 |
|
328 doDestroy |
328 doDestroy |
329 "close all of my views, and get rid of the changeList. |
329 "close all of my views, and get rid of the changeList. |
330 However, methods and classes are not restored to their |
330 However, methods and classes are not restored to their |
331 previous state. |
331 previous state. |
332 No confiramtion here." |
332 No confiramtion here." |
764 ! ! |
764 ! ! |
765 |
765 |
766 !ProjectView class methodsFor:'documentation'! |
766 !ProjectView class methodsFor:'documentation'! |
767 |
767 |
768 version |
768 version |
769 ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.45 1999-04-22 16:40:27 cg Exp $' |
769 ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.46 1999-04-23 12:47:08 cg Exp $' |
770 ! ! |
770 ! ! |