equal
deleted
inserted
replaced
1489 #translateLabel: true |
1489 #translateLabel: true |
1490 #value: #saveProject |
1490 #value: #saveProject |
1491 #enabled: #hasProjectSelectedAndProjectFilenameHolder |
1491 #enabled: #hasProjectSelectedAndProjectFilenameHolder |
1492 ) |
1492 ) |
1493 #(#MenuItem |
1493 #(#MenuItem |
1494 #label: 'Save As...' |
|
1495 #translateLabel: true |
|
1496 #value: #saveProjectAs |
|
1497 #enabled: #hasProjectSelectedHolder |
|
1498 ) |
|
1499 #(#MenuItem |
|
1500 #label: '-' |
1494 #label: '-' |
1501 ) |
1495 ) |
1502 #(#MenuItem |
1496 #(#MenuItem |
1503 #label: 'Exit' |
1497 #label: 'Exit' |
1504 #translateLabel: true |
1498 #translateLabel: true |
2839 ]. |
2833 ]. |
2840 |
2834 |
2841 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
2835 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
2842 self projectType value:(p type). |
2836 self projectType value:(p type). |
2843 self projectDirectory value:(p directory). |
2837 self projectDirectory value:(p directory). |
2844 |
2838 self projectPackage value:(p packageName). |
2845 self projectNamespace value:(p defaultNameSpace ? Smalltalk) name. |
2839 self projectNamespace value:(p defaultNameSpace ? Smalltalk) name. |
2846 |
2840 |
2847 self repositoryModule value:(p repositoryModule). |
2841 self repositoryModule value:(p repositoryModule). |
2848 self repositoryDirectory value:(p repositoryDirectory). |
2842 self repositoryDirectory value:(p repositoryDirectory). |
2849 |
2843 |
2900 (dir exists and:[dir isDirectory]) ifFalse:[ |
2894 (dir exists and:[dir isDirectory]) ifFalse:[ |
2901 self warn:'Invalid project directory: ' , dir pathName |
2895 self warn:'Invalid project directory: ' , dir pathName |
2902 ]. |
2896 ]. |
2903 |
2897 |
2904 p directory:self projectDirectory value. |
2898 p directory:self projectDirectory value. |
|
2899 p packageName:(self projectPackage value) asSymbol. |
2905 |
2900 |
2906 p repositoryModule:self repositoryModule value. |
2901 p repositoryModule:self repositoryModule value. |
2907 p repositoryDirectory:self repositoryDirectory value. |
2902 p repositoryDirectory:self repositoryDirectory value. |
2908 |
2903 |
2909 s := self projectNamespace value. |
2904 s := self projectNamespace value. |
3294 (self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self] |
3289 (self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self] |
3295 ]. |
3290 ]. |
3296 |
3291 |
3297 p := self currentProject. |
3292 p := self currentProject. |
3298 p isNil ifTrue:[ |
3293 p isNil ifTrue:[ |
3299 self information:'Selet a project first.'. |
3294 self information:'Select a project first.'. |
3300 ^self |
3295 ^self |
3301 ]. |
3296 ]. |
3302 p directory isNil ifTrue:[ |
3297 p directory isNil ifTrue:[ |
3303 d := (Dialog request:'Project Directory:'). |
3298 d := (Dialog request:'Project Directory:'). |
3304 d size == 0 ifTrue:[ |
3299 d size == 0 ifTrue:[ |
3305 ^ self |
3300 ^ self |
3306 ]. |
3301 ]. |
3307 p directory:d |
3302 p directory:d |
3308 ]. |
3303 ]. |
3309 |
3304 |
3310 p saveAsProjectFile. |
3305 self withCursor:Cursor write do:[ |
|
3306 p saveAsProjectFile. |
|
3307 ] |
3311 |
3308 |
3312 "Modified: / 26.4.1999 / 22:43:57 / cg" |
3309 "Modified: / 26.4.1999 / 22:43:57 / cg" |
3313 ! |
3310 ! |
3314 |
3311 |
3315 selectionChangeAllowed:newNode |
3312 selectionChangeAllowed:newNode |