equal
deleted
inserted
replaced
347 #name: 'EntryField1' |
347 #name: 'EntryField1' |
348 #layout: #(#LayoutFrame 0 0.0 6 0 0 1.0 28 0) |
348 #layout: #(#LayoutFrame 0 0.0 6 0 0 1.0 28 0) |
349 #tabable: true |
349 #tabable: true |
350 #model: #installDirectory |
350 #model: #installDirectory |
351 #modifiedChannel: #modifiedChannel |
351 #modifiedChannel: #modifiedChannel |
|
352 #acceptChannel: #acceptChannel |
352 ) |
353 ) |
353 ) |
354 ) |
354 |
355 |
355 ) |
356 ) |
356 ) |
357 ) |
779 #name: 'EntryField1' |
780 #name: 'EntryField1' |
780 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
781 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
781 #enableChannel: #currentProjectWasNotLoadedFromFile |
782 #enableChannel: #currentProjectWasNotLoadedFromFile |
782 #model: #projectDirectory |
783 #model: #projectDirectory |
783 #modifiedChannel: #modifiedChannel |
784 #modifiedChannel: #modifiedChannel |
|
785 #acceptChannel: #acceptChannel |
784 ) |
786 ) |
785 ) |
787 ) |
786 |
788 |
787 ) |
789 ) |
788 ) |
790 ) |
798 #(#InputFieldSpec |
800 #(#InputFieldSpec |
799 #name: 'EntryField2' |
801 #name: 'EntryField2' |
800 #layout: #(#LayoutFrame 92 0.0 4 0 0 1.0 26 0) |
802 #layout: #(#LayoutFrame 92 0.0 4 0 0 1.0 26 0) |
801 #model: #repositoryModule |
803 #model: #repositoryModule |
802 #modifiedChannel: #modifiedChannel |
804 #modifiedChannel: #modifiedChannel |
|
805 #acceptChannel: #acceptChannel |
803 ) |
806 ) |
804 #(#InputFieldSpec |
807 #(#InputFieldSpec |
805 #name: 'EntryField3' |
808 #name: 'EntryField3' |
806 #layout: #(#LayoutFrame 92 0.0 29 0 0 1.0 51 0) |
809 #layout: #(#LayoutFrame 92 0.0 29 0 0 1.0 51 0) |
807 #model: #repositoryDirectory |
810 #model: #repositoryDirectory |
808 #modifiedChannel: #modifiedChannel |
811 #modifiedChannel: #modifiedChannel |
|
812 #acceptChannel: #acceptChannel |
809 ) |
813 ) |
810 #(#LabelSpec |
814 #(#LabelSpec |
811 #label: 'Module:' |
815 #label: 'Module:' |
812 #name: 'Label1' |
816 #name: 'Label1' |
813 #layout: #(#LayoutFrame 7 0 4 0 86 0 26 0) |
817 #layout: #(#LayoutFrame 7 0 4 0 86 0 26 0) |
837 #(#InputFieldSpec |
841 #(#InputFieldSpec |
838 #name: 'EntryField4' |
842 #name: 'EntryField4' |
839 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
843 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
840 #model: #projectNamespace |
844 #model: #projectNamespace |
841 #modifiedChannel: #modifiedChannel |
845 #modifiedChannel: #modifiedChannel |
|
846 #acceptChannel: #acceptChannel |
842 ) |
847 ) |
843 ) |
848 ) |
844 |
849 |
845 ) |
850 ) |
846 ) |
851 ) |
1454 ^ self selectedTreeNodeHolder value |
1459 ^ self selectedTreeNodeHolder value |
1455 ! ! |
1460 ! ! |
1456 |
1461 |
1457 !ProjectBrowser methodsFor:'aspects'! |
1462 !ProjectBrowser methodsFor:'aspects'! |
1458 |
1463 |
|
1464 acceptChannel |
|
1465 |holder| |
|
1466 |
|
1467 (holder := builder bindingAt:#acceptChannel) isNil ifTrue:[ |
|
1468 holder := false asValue. |
|
1469 builder aspectAt:#acceptChannel put:holder. |
|
1470 ]. |
|
1471 ^ holder. |
|
1472 |
|
1473 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1474 ! |
|
1475 |
1459 browseClass |
1476 browseClass |
1460 |node className cls| |
1477 |node className cls| |
1461 |
1478 |
1462 self hasClassNodeSelected ifFalse:[^ self]. |
1479 self hasClassNodeSelected ifFalse:[^ self]. |
1463 |
1480 |
2157 |p s ns| |
2174 |p s ns| |
2158 |
2175 |
2159 p := self currentProject. |
2176 p := self currentProject. |
2160 p notNil ifTrue:[ |
2177 p notNil ifTrue:[ |
2161 p removeDependent:self. |
2178 p removeDependent:self. |
|
2179 |
|
2180 self acceptChannel value:true; value:false. |
2162 |
2181 |
2163 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
2182 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
2164 p type:self projectType value. |
2183 p type:self projectType value. |
2165 "/ p directory:self projectDirectory value. |
2184 "/ p directory:self projectDirectory value. |
2166 |
2185 |