249 #name: #rightCanvasSpecForDeployment |
249 #name: #rightCanvasSpecForDeployment |
250 #window: |
250 #window: |
251 #(#WindowSpec |
251 #(#WindowSpec |
252 #label: 'NewApplication' |
252 #label: 'NewApplication' |
253 #name: 'NewApplication' |
253 #name: 'NewApplication' |
254 #layout: #(#LayoutFrame 908 0 40 0 1207 0 339 0) |
254 #layout: #(#LayoutFrame 140 0 81 0 439 0 380 0) |
255 #level: 0 |
255 #level: 0 |
256 #min: #(#Point 10 10) |
256 #min: #(#Point 10 10) |
257 #max: #(#Point 1280 1024) |
257 #max: #(#Point 1280 1024) |
258 #bounds: #(#Rectangle 908 40 1208 340) |
258 #bounds: #(#Rectangle 140 81 440 381) |
259 #usePreferredExtent: false |
259 #usePreferredExtent: false |
260 #returnIsOKInDialog: true |
260 #returnIsOKInDialog: true |
261 #escapeIsCancelInDialog: true |
261 #escapeIsCancelInDialog: true |
262 ) |
262 ) |
263 #component: |
263 #component: |
264 #(#SpecCollection |
264 #(#SpecCollection |
265 #collection: #( |
265 #collection: #( |
|
266 #(#FramedBoxSpec |
|
267 #label: 'Delivery' |
|
268 #name: 'FramedBox1' |
|
269 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 173 0) |
|
270 #labelPosition: #topLeft |
|
271 #translateLabel: true |
|
272 #component: |
|
273 #(#SpecCollection |
|
274 #collection: #( |
|
275 #(#CheckBoxSpec |
|
276 #label: 'Compiled Binary' |
|
277 #name: 'CheckBox1' |
|
278 #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
|
279 #tabable: true |
|
280 #model: #deliverCompiledBinary |
|
281 #translateLabel: true |
|
282 ) |
|
283 #(#CheckBoxSpec |
|
284 #label: 'Zip Archive' |
|
285 #name: 'CheckBox2' |
|
286 #layout: #(#LayoutFrame 0 0.0 38 0 0 1.0 60 0) |
|
287 #tabable: true |
|
288 #model: #deliverZipArchive |
|
289 #translateLabel: true |
|
290 ) |
|
291 #(#CheckBoxSpec |
|
292 #label: 'GZip Archive (self extracting)' |
|
293 #name: 'CheckBox3' |
|
294 #layout: #(#LayoutFrame 0 0.0 66 0 0 1.0 88 0) |
|
295 #tabable: true |
|
296 #model: #deliverSources |
|
297 #translateLabel: true |
|
298 ) |
|
299 #(#CheckBoxSpec |
|
300 #label: 'Sources' |
|
301 #name: 'CheckBox4' |
|
302 #layout: #(#LayoutFrame 0 0.0 94 0 0 1.0 116 0) |
|
303 #tabable: true |
|
304 #model: #deliverGZipArchive |
|
305 #translateLabel: true |
|
306 ) |
|
307 #(#CheckBoxSpec |
|
308 #label: 'loadAll-File' |
|
309 #name: 'CheckBox5' |
|
310 #layout: #(#LayoutFrame 0 0.0 122 0 0 1.0 144 0) |
|
311 #tabable: true |
|
312 #model: #deliverLoadAllFile |
|
313 #translateLabel: true |
|
314 ) |
|
315 ) |
|
316 |
|
317 ) |
|
318 ) |
|
319 #(#FramedBoxSpec |
|
320 #label: 'Install Directory' |
|
321 #name: 'FramedBox2' |
|
322 #layout: #(#LayoutFrame 0 0.0 178 0 0 1.0 243 0) |
|
323 #labelPosition: #topLeft |
|
324 #translateLabel: true |
|
325 #component: |
|
326 #(#SpecCollection |
|
327 #collection: #( |
|
328 #(#InputFieldSpec |
|
329 #name: 'EntryField1' |
|
330 #layout: #(#LayoutFrame 0 0.0 6 0 0 1.0 28 0) |
|
331 #tabable: true |
|
332 #model: #installDirectory |
|
333 #modifiedChannel: #modifiedChannel |
|
334 ) |
|
335 ) |
|
336 |
|
337 ) |
|
338 ) |
266 #(#HorizontalPanelViewSpec |
339 #(#HorizontalPanelViewSpec |
267 #name: 'HorizontalPanel1' |
340 #name: 'HorizontalPanel1' |
268 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
341 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
269 #horizontalLayout: #fitSpace |
342 #horizontalLayout: #fitSpace |
270 #verticalLayout: #center |
343 #verticalLayout: #center |
275 #collection: #( |
348 #collection: #( |
276 #(#ActionButtonSpec |
349 #(#ActionButtonSpec |
277 #label: 'Cancel' |
350 #label: 'Cancel' |
278 #name: 'Button1' |
351 #name: 'Button1' |
279 #translateLabel: true |
352 #translateLabel: true |
|
353 #tabable: true |
280 #model: #cancel |
354 #model: #cancel |
281 #enableChannel: #modifiedChannel |
355 #enableChannel: #modifiedChannel |
282 #extent: #(#Point 145 22) |
356 #actionValue: '' |
|
357 #useDefaultExtent: true |
283 ) |
358 ) |
284 #(#ActionButtonSpec |
359 #(#ActionButtonSpec |
285 #label: 'OK' |
360 #label: 'OK' |
286 #name: 'Button2' |
361 #name: 'Button2' |
287 #translateLabel: true |
362 #translateLabel: true |
|
363 #tabable: true |
288 #model: #accept |
364 #model: #accept |
289 #enableChannel: #modifiedChannel |
365 #enableChannel: #modifiedChannel |
290 #extent: #(#Point 146 22) |
366 #actionValue: '' |
291 ) |
367 #useDefaultExtent: true |
292 ) |
|
293 |
|
294 ) |
|
295 ) |
|
296 #(#FramedBoxSpec |
|
297 #label: 'Delivery' |
|
298 #name: 'FramedBox1' |
|
299 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 150 0) |
|
300 #labelPosition: #topLeft |
|
301 #translateLabel: true |
|
302 #component: |
|
303 #(#SpecCollection |
|
304 #collection: #( |
|
305 #(#CheckBoxSpec |
|
306 #label: 'Compiled Binary' |
|
307 #name: 'CheckBox1' |
|
308 #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
|
309 #model: #deliverCompiledBinary |
|
310 #translateLabel: true |
|
311 ) |
|
312 #(#CheckBoxSpec |
|
313 #label: 'Zip Archive' |
|
314 #name: 'CheckBox2' |
|
315 #layout: #(#LayoutFrame 0 0.0 38 0 0 1.0 60 0) |
|
316 #model: #deliverZipArchive |
|
317 #translateLabel: true |
|
318 ) |
|
319 #(#CheckBoxSpec |
|
320 #label: 'GZip Archive (self extracting)' |
|
321 #name: 'CheckBox3' |
|
322 #layout: #(#LayoutFrame 0 0.0 66 0 0 1.0 88 0) |
|
323 #model: #deliverSources |
|
324 #translateLabel: true |
|
325 ) |
|
326 #(#CheckBoxSpec |
|
327 #label: 'Sources' |
|
328 #name: 'CheckBox4' |
|
329 #layout: #(#LayoutFrame 0 0.0 94 0 0 1.0 116 0) |
|
330 #model: #deliverGZipArchive |
|
331 #translateLabel: true |
|
332 ) |
|
333 ) |
|
334 |
|
335 ) |
|
336 ) |
|
337 #(#FramedBoxSpec |
|
338 #label: 'Install Directory' |
|
339 #name: 'FramedBox2' |
|
340 #layout: #(#LayoutFrame 0 0.0 153 0 0 1.0 218 0) |
|
341 #labelPosition: #topLeft |
|
342 #translateLabel: true |
|
343 #component: |
|
344 #(#SpecCollection |
|
345 #collection: #( |
|
346 #(#InputFieldSpec |
|
347 #name: 'EntryField1' |
|
348 #layout: #(#LayoutFrame 0 0.0 5 0 0 1.0 27 0) |
|
349 #model: #installDirectory |
|
350 #modifiedChannel: #modifiedChannel |
|
351 ) |
368 ) |
352 ) |
369 ) |
353 |
370 |
354 ) |
371 ) |
355 ) |
372 ) |
514 #name: #rightCanvasSpecForPrerequisites |
531 #name: #rightCanvasSpecForPrerequisites |
515 #window: |
532 #window: |
516 #(#WindowSpec |
533 #(#WindowSpec |
517 #label: 'NewApplication' |
534 #label: 'NewApplication' |
518 #name: 'NewApplication' |
535 #name: 'NewApplication' |
519 #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0) |
536 #layout: #(#LayoutFrame 208 0 222 0 507 0 521 0) |
520 #level: 0 |
537 #level: 0 |
521 #min: #(#Point 10 10) |
538 #min: #(#Point 10 10) |
522 #max: #(#Point 1280 1024) |
539 #max: #(#Point 1280 1024) |
523 #bounds: #(#Rectangle 216 173 516 473) |
540 #bounds: #(#Rectangle 208 222 508 522) |
524 #usePreferredExtent: false |
541 #usePreferredExtent: false |
525 #returnIsOKInDialog: true |
542 #returnIsOKInDialog: true |
526 #escapeIsCancelInDialog: true |
543 #escapeIsCancelInDialog: true |
527 ) |
544 ) |
528 #component: |
545 #component: |
529 #(#SpecCollection |
546 #(#SpecCollection |
530 #collection: #( |
547 #collection: #( |
531 #(#LabelSpec |
548 #(#LabelSpec |
532 #label: 'Projects' |
549 #label: 'Known Projects' |
533 #name: 'Label1' |
550 #name: 'Label1' |
534 #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0) |
551 #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0) |
535 #translateLabel: true |
552 #translateLabel: true |
536 ) |
553 ) |
537 #(#SequenceViewSpec |
554 #(#SequenceViewSpec |
655 #name: #rightCanvasSpecForProperties |
672 #name: #rightCanvasSpecForProperties |
656 #window: |
673 #window: |
657 #(#WindowSpec |
674 #(#WindowSpec |
658 #label: 'NewApplication' |
675 #label: 'NewApplication' |
659 #name: 'NewApplication' |
676 #name: 'NewApplication' |
660 #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0) |
677 #layout: #(#LayoutFrame 21 0 21 0 320 0 364 0) |
661 #level: 0 |
678 #level: 0 |
662 #min: #(#Point 10 10) |
679 #min: #(#Point 10 10) |
663 #max: #(#Point 1280 1024) |
680 #max: #(#Point 1280 1024) |
664 #bounds: #(#Rectangle 216 173 516 473) |
681 #bounds: #(#Rectangle 21 21 321 365) |
665 #usePreferredExtent: false |
682 #usePreferredExtent: false |
666 #returnIsOKInDialog: true |
683 #returnIsOKInDialog: true |
667 #escapeIsCancelInDialog: true |
684 #escapeIsCancelInDialog: true |
668 ) |
685 ) |
669 #component: |
686 #component: |
683 #label: 'Cancel' |
700 #label: 'Cancel' |
684 #name: 'Button1' |
701 #name: 'Button1' |
685 #translateLabel: true |
702 #translateLabel: true |
686 #model: #cancel |
703 #model: #cancel |
687 #enableChannel: #modifiedChannel |
704 #enableChannel: #modifiedChannel |
688 #extent: #(#Point 145 22) |
705 #actionValue: '' |
|
706 #useDefaultExtent: true |
689 ) |
707 ) |
690 #(#ActionButtonSpec |
708 #(#ActionButtonSpec |
691 #label: 'OK' |
709 #label: 'OK' |
692 #name: 'Button2' |
710 #name: 'Button2' |
693 #translateLabel: true |
711 #translateLabel: true |
694 #model: #accept |
712 #model: #accept |
695 #enableChannel: #modifiedChannel |
713 #enableChannel: #modifiedChannel |
696 #extent: #(#Point 146 22) |
714 #useDefaultExtent: true |
697 ) |
715 ) |
698 ) |
716 ) |
699 |
717 |
700 ) |
718 ) |
701 ) |
719 ) |
702 #(#FramedBoxSpec |
720 #(#FramedBoxSpec |
703 #label: 'Project Type' |
721 #label: 'Project Type' |
704 #name: 'FramedBox1' |
722 #name: 'FramedBox1' |
705 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 93 0) |
723 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 89 0) |
706 #labelPosition: #topLeft |
724 #labelPosition: #topLeft |
707 #translateLabel: true |
725 #translateLabel: true |
708 #component: |
726 #component: |
709 #(#SpecCollection |
727 #(#SpecCollection |
710 #collection: #( |
728 #collection: #( |
1392 |
1431 |
1393 |holder| |
1432 |holder| |
1394 |
1433 |
1395 (holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[ |
1434 (holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[ |
1396 builder aspectAt:#deliverGZipArchive put:(holder := ValueHolder new). |
1435 builder aspectAt:#deliverGZipArchive put:(holder := ValueHolder new). |
|
1436 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
1437 ]. |
|
1438 ^ holder. |
|
1439 |
|
1440 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1441 ! |
|
1442 |
|
1443 deliverLoadAllFile |
|
1444 "automatically generated by UIPainter ..." |
|
1445 |
|
1446 "*** the code below creates a default model when invoked." |
|
1447 "*** (which may not be the one you wanted)" |
|
1448 "*** Please change as required and accept in the browser." |
|
1449 |
|
1450 |holder| |
|
1451 |
|
1452 (holder := builder bindingAt:#deliverLoadAllFile) isNil ifTrue:[ |
|
1453 builder aspectAt:#deliverLoadAllFile put:(holder := ValueHolder new). |
1397 holder onChangeSend:#value to:[modifiedChannel value:true]. |
1454 holder onChangeSend:#value to:[modifiedChannel value:true]. |
1398 ]. |
1455 ]. |
1399 ^ holder. |
1456 ^ holder. |
1400 |
1457 |
1401 "Created: / 23.3.1999 / 14:18:05 / cg" |
1458 "Created: / 23.3.1999 / 14:18:05 / cg" |
1487 |
1544 |
1488 "*** the code below creates a default model when invoked." |
1545 "*** the code below creates a default model when invoked." |
1489 "*** (which may not be the one you wanted)" |
1546 "*** (which may not be the one you wanted)" |
1490 "*** Please change as required and accept in the browser." |
1547 "*** Please change as required and accept in the browser." |
1491 |
1548 |
1492 |holder projects| |
1549 |holder projects currentProject| |
1493 |
1550 |
1494 (holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[ |
1551 (holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[ |
1495 builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := List new). |
1552 builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := List new). |
|
1553 |
|
1554 currentProject := self currentProject. |
|
1555 |
1496 projects := Set new. |
1556 projects := Set new. |
1497 Project allInstancesDo:[:p | |
1557 Project allInstancesDo:[:p | |
1498 projects add:p name |
1558 (p ~~ currentProject |
|
1559 and:[p ~~ Project defaultProject]) ifTrue:[ |
|
1560 projects add:p name. |
|
1561 ] |
1499 ]. |
1562 ]. |
1500 projects := projects asOrderedCollection sort. |
1563 projects := projects asOrderedCollection sort. |
1501 holder addAll:projects. |
1564 holder addAll:projects. |
1502 ]. |
1565 ]. |
1503 ^ holder. |
1566 ^ holder. |
1560 |
1623 |
1561 |holder| |
1624 |holder| |
1562 |
1625 |
1563 (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[ |
1626 (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[ |
1564 builder aspectAt:#projectDirectory put:(holder := '.' asValue). |
1627 builder aspectAt:#projectDirectory put:(holder := '.' asValue). |
|
1628 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
1629 ]. |
|
1630 ^ holder. |
|
1631 |
|
1632 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1633 ! |
|
1634 |
|
1635 projectNamespace |
|
1636 "automatically generated by UIPainter ..." |
|
1637 |
|
1638 "*** the code below creates a default model when invoked." |
|
1639 "*** (which may not be the one you wanted)" |
|
1640 "*** Please change as required and accept in the browser." |
|
1641 |
|
1642 |holder| |
|
1643 |
|
1644 (holder := builder bindingAt:#projectNamespace) isNil ifTrue:[ |
|
1645 builder aspectAt:#projectNamespace put:(holder := ValueHolder new). |
1565 holder onChangeSend:#value to:[modifiedChannel value:true]. |
1646 holder onChangeSend:#value to:[modifiedChannel value:true]. |
1566 ]. |
1647 ]. |
1567 ^ holder. |
1648 ^ holder. |
1568 |
1649 |
1569 "Created: / 23.3.1999 / 14:18:05 / cg" |
1650 "Created: / 23.3.1999 / 14:18:05 / cg" |
1889 cNode := ProjectTreeItem name:cName. |
1975 cNode := ProjectTreeItem name:cName. |
1890 classesNode add:cNode. |
1976 classesNode add:cNode. |
1891 ]. |
1977 ]. |
1892 |
1978 |
1893 propertiesNode contents:#properties. |
1979 propertiesNode contents:#properties. |
1894 propertiesNode spec:(self class rightCanvasSpecForProperties). |
1980 propertiesNode spec:[self class rightCanvasSpecForProperties]. |
1895 |
1981 |
1896 filesNode contents:#files. |
1982 filesNode contents:#files. |
1897 filesNode icon:(self class filesIcon). |
1983 filesNode icon:(self class filesIcon). |
1898 |
1984 |
1899 patchesNode contents:#patches. |
1985 patchesNode contents:#patches. |
1900 patchesNode icon:(self class methodsIcon). |
1986 patchesNode icon:(self class methodsIcon). |
1901 |
1987 |
1902 deploymentNode icon:(self class deploymentIcon). |
1988 deploymentNode icon:(self class deploymentIcon). |
1903 deploymentNode spec:(self class rightCanvasSpecForDeployment). |
1989 deploymentNode spec:[self class rightCanvasSpecForDeployment]. |
1904 |
1990 |
1905 ^ pNode |
1991 ^ pNode |
1906 |
1992 |
1907 "Modified: / 23.3.1999 / 14:27:30 / cg" |
1993 "Modified: / 23.3.1999 / 14:27:30 / cg" |
1908 ! |
1994 ! |
1932 |
2018 |
1933 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
2019 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
1934 self projectType value:(p type). |
2020 self projectType value:(p type). |
1935 self projectDirectory value:(p directory). |
2021 self projectDirectory value:(p directory). |
1936 |
2022 |
|
2023 self projectNamespace value:(p defaultNameSpace ? Smalltalk) name. |
|
2024 |
1937 self repositoryModule value:(p repositoryModule). |
2025 self repositoryModule value:(p repositoryModule). |
1938 self repositoryDirectory value:(p repositoryDirectory). |
2026 self repositoryDirectory value:(p repositoryDirectory). |
1939 |
2027 |
1940 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
2028 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
1941 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |
2029 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |
1942 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
2030 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
1943 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
2031 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
|
2032 self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false. |
1944 |
2033 |
1945 modifiedChannel value:false. |
2034 modifiedChannel value:false. |
1946 p addDependent:self. |
2035 p addDependent:self. |
1947 ]. |
2036 ]. |
1948 |
2037 |
1949 "Created: / 23.3.1999 / 14:16:12 / cg" |
2038 "Created: / 23.3.1999 / 14:16:12 / cg" |
1950 "Modified: / 23.3.1999 / 14:18:38 / cg" |
2039 "Modified: / 23.3.1999 / 14:18:38 / cg" |
1951 ! |
2040 ! |
1952 |
2041 |
1953 saveAspectsIntoProject |
2042 saveAspectsIntoProject |
1954 |p| |
2043 |p s ns| |
1955 |
2044 |
1956 p := self currentProject. |
2045 p := self currentProject. |
1957 p notNil ifTrue:[ |
2046 p notNil ifTrue:[ |
1958 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
2047 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
1959 p type:self projectType value. |
2048 p type:self projectType value. |
1960 "/ p directory:self projectDirectory value. |
2049 "/ p directory:self projectDirectory value. |
1961 |
2050 |
1962 p repositoryModule:self repositoryModule value. |
2051 p repositoryModule:self repositoryModule value. |
1963 p repositoryDirectory:self repositoryDirectory value. |
2052 p repositoryDirectory:self repositoryDirectory value. |
1964 |
2053 |
|
2054 s := self projectNamespace value. |
|
2055 (s size == 0) ifTrue:[ |
|
2056 ns := Smalltalk |
|
2057 ] ifFalse:[ |
|
2058 ns := Namespace name:s |
|
2059 ]. |
|
2060 p defaultNameSpace:ns. |
|
2061 |
1965 p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value. |
2062 p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value. |
1966 p propertyAt:#deliverSources put:self deliverSources value. |
2063 p propertyAt:#deliverSources put:self deliverSources value. |
1967 p propertyAt:#deliverZipArchive put:self deliverZipArchive value. |
2064 p propertyAt:#deliverZipArchive put:self deliverZipArchive value. |
1968 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
2065 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
|
2066 p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value. |
1969 |
2067 |
1970 "/ modifiedChannel value:false. |
2068 "/ modifiedChannel value:false. |
1971 ]. |
2069 ]. |
1972 |
2070 |
1973 "Created: / 23.3.1999 / 14:16:12 / cg" |
2071 "Created: / 23.3.1999 / 14:16:12 / cg" |
1974 "Modified: / 23.3.1999 / 14:18:38 / cg" |
2072 "Modified: / 23.3.1999 / 14:18:38 / cg" |
1975 ! |
2073 ! |
1976 |
2074 |
1977 updateRightCanvas |
2075 updateRightCanvas |
1978 |selectedNode nodeContents spec| |
2076 |selectedNode nodeContents spec| |
|
2077 |
|
2078 self selectedProjectInPrerequisites value:nil. |
|
2079 self selectedRequiredProjectInPrerequisites value:nil. |
1979 |
2080 |
1980 selectedNode := self selectedTreeNode value. |
2081 selectedNode := self selectedTreeNode value. |
1981 selectedNode isNil ifTrue:[ |
2082 selectedNode isNil ifTrue:[ |
1982 self setupCanvasForNoSelection. |
2083 self setupCanvasForNoSelection. |
1983 ^ self |
2084 ^ self |
1984 ]. |
2085 ]. |
1985 |
2086 |
1986 (spec := selectedNode spec) notNil ifTrue:[ |
2087 (spec := selectedNode spec) notNil ifTrue:[ |
1987 self currentCanvasHolder value:spec. |
2088 self currentCanvasHolder value:spec value. |
1988 ^ self |
2089 ^ self |
1989 ]. |
2090 ]. |
1990 |
2091 |
1991 selectedNode isProjectNode ifTrue:[ |
2092 selectedNode isProjectNode ifTrue:[ |
1992 self showCommentOf:selectedNode. |
2093 self showCommentOf:selectedNode. |