--- a/ProjectBrowser.st Tue Mar 21 20:50:03 2000 +0100
+++ b/ProjectBrowser.st Fri Mar 24 18:28:20 2000 +0100
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1999 by eXept Software AG
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -40,7 +40,7 @@
copyright
"
COPYRIGHT (c) 1999 by eXept Software AG
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -63,13 +63,13 @@
EXPERIMENTAL: not finished.
[start with:]
- ProjectBrowser open
+ ProjectBrowser open
[see also:]
- Project
+ Project
[author:]
- Claus Gittinger, eXept Software AG
+ Claus Gittinger, eXept Software AG
"
@@ -81,12 +81,12 @@
"add myself to the launchers tool menu"
NewLauncher allInstancesDo:[:l |
- l addUserTool:'Project Builder'
- action:[ProjectBrowser open]
- in:#menu
- after:'Changes Browser'
- icon:self projectBrowserIcon
- space:false
+ l addUserTool:'Project Builder'
+ action:[ProjectBrowser open]
+ in:#menu
+ after:'Changes Browser'
+ icon:self projectBrowserIcon
+ space:false
].
"
@@ -94,7 +94,7 @@
"
"
NewLauncher allInstancesDo:[:l |
- l removeUserTool:'Project Builder'
+ l removeUserTool:'Project Builder'
]
"
! !
@@ -211,8 +211,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser bigProjectBrowserIcon'
- ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProjectBrowser bigProjectBrowserIcon'
+ ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@EUP@@@@@@@@@@U@@EUP@@@@@@@@@UUP
@UUU@@@@@@@@EUEPEP@U@@@@@@@@EUEPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEPUU@@@@@@@@EU%Z%UU*(@@@
@@@@EU%Z%UU*"@@@@@@@EUUZUUZ*J@@@@@@@EUUUUUUU*@@@@@@@EUUUUUUU*@@@@@@@J**UU**E*@@@@@@@**%UZ*(%*@@@@@@B**%UZ*"%*@@@@@@@@@UU
@@ -240,8 +240,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser bigProjectBrowserIcon2'
- ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProjectBrowser bigProjectBrowserIcon2'
+ ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@EUP@@@@@@@@@@U@@EUP@@@@@@@@@UUP
@UUU@@@@@@@@EUEPEP@U@@@@@@@@EUEPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEP@U@@@@@@@@U@EPEPUU@@@@@@@@EU%Z%UU*(@@@
@@@@EU%Z%UU*"@@@@@@@EUUZUUZ*J@@@@@@@EUUUUUUU*@@@@@@@EUUUUUUU*@@@@@@@J**UU**E*@@@@@@@**%UZ*(%*@@@@@@B**%UZ*"%*@@@@@@@@@UU
@@ -269,8 +269,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser buildOptionsIcon'
- ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]!
+ constantNamed:#'ProjectBrowser buildOptionsIcon'
+ ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]!
classIcon
"This resource specification was automatically generated
@@ -287,8 +287,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser classIcon'
- ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUEUUUUQP@@@TTV*%EE@@@AQQUUTTTZ*)@@@@@@@AUUT@@Z*)@@EUUQQQ**$TTUUUEE@@@@AQUUUUTUUUUP@a') ; colorMapFromArray:#[0 0 0 255 255 255 132 130 132]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?8O? ?>C?8O? ?>C?8O? ?>C?8O? ?>@@@@@@b') ; yourself); yourself]!
+ constantNamed:#'ProjectBrowser classIcon'
+ ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUEUUUUQP@@@TTV*%EE@@@AQQUUTTTZ*)@@@@@@@AUUT@@Z*)@@EUUQQQ**$TTUUUEE@@@@AQUUUUTUUUUP@a') ; colorMapFromArray:#[0 0 0 255 255 255 132 130 132]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?8O? ?>C?8O? ?>C?8O? ?>C?8O? ?>@@@@@@b') ; yourself); yourself]!
classesIcon
"This resource specification was automatically generated
@@ -305,8 +305,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser classesIcon'
- ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B"B%U(( @@@@HJ**"BBUUX @***H @@@BHB**("@)UZH J**"HB**("@@@@H (***HJ@@@BB*J** * @@@@@a') ; colorMapFromArray:#[0 0 0 132 130 132 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O?8??#??/?>??;??/?>??;??/?>O?8?? ?>C?8b') ; yourself); yourself]!
+ constantNamed:#'ProjectBrowser classesIcon'
+ ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B"B%U(( @@@@HJ**"BBUUX @***H @@@BHB**("@)UZH J**"HB**("@@@@H (***HJ@@@BB*J** * @@@@@a') ; colorMapFromArray:#[0 0 0 132 130 132 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O?8??#??/?>??;??/?>??;??/?>O?8?? ?>C?8b') ; yourself); yourself]!
commentIcon
"This resource specification was automatically generated
@@ -323,8 +323,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser commentIcon'
- ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'******************U****%Z***)V*********%Z***!!T***(UJ***ER***!!T***(UJ**(UT***(B****(** @a') ; colorMapFromArray:#[0 0 0 0 0 255 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProjectBrowser commentIcon'
+ ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'******************U****%Z***)V*********%Z***!!T***(UJ***ER***!!T***(UJ**(UT***(B****(** @a') ; colorMapFromArray:#[0 0 0 0 0 255 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@@@@@@@8@C @N@@@@C @N@@8@C @N@@8@G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
@@ -344,8 +344,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser deploymentIcon'
- ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]!
+ constantNamed:#'ProjectBrowser deploymentIcon'
+ ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@AY%Z@@UUUX@J%*F@@E@I B)Z"X@*V(&@J%*I B)Z"X@*V($@J%*I@B)Z @@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]!
filesIcon
"This resource specification was automatically generated
@@ -362,8 +362,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser filesIcon'
- ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G:@P@A_(E@@U>!!W;E_ U?9W?!!_>E?8G? _>@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@C? O?@?>C?<O?8??3??/??????????O?<??0??C?<b') ; yourself); yourself]!
+ constantNamed:#'ProjectBrowser filesIcon'
+ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G:@P@A_(E@@U>!!W;E_ U?9W?!!_>E?8G? _>@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@C? O?@?>C?<O?8??3??/??????????O?<??0??C?<b') ; yourself); yourself]!
methodIcon
"This resource specification was automatically generated
@@ -380,8 +380,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser methodIcon'
- ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@@@I@L@@@@@@@@QD@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@B@@\@C8@_0A? C?@G<@O @\@@ @@@@@@@@@b') ; yourself); yourself]!
+ constantNamed:#'ProjectBrowser methodIcon'
+ ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@@@I@L@@@@@@@@QD@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@B@@\@C8@_0A? C?@G<@O @\@@ @@@@@@@@@b') ; yourself); yourself]!
methodsIcon
"This resource specification was automatically generated
@@ -398,8 +398,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser methodsIcon'
- ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@M@I@L@@@@@EDPQD@@@@@@CQDIB@@@@@@DDQDPP@@@@@CEDPP@@@@@@@BPC@@@@@@@@DQ@@@@@@@@@B@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'B@@\@C8@_0A? C?@G<@? G<@_8@?0A?@C8@G@@H@@@@b') ; yourself); yourself]
+ constantNamed:#'ProjectBrowser methodsIcon'
+ ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@M@I@L@@@@@EDPQD@@@@@@CQDIB@@@@@@DDQDPP@@@@@CEDPP@@@@@@@BPC@@@@@@@@DQ@@@@@@@@@B@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'B@@\@C8@_0A? C?@G<@? G<@_8@?0A?@C8@G@@H@@@@b') ; yourself); yourself]
!
@@ -431,8 +431,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser prerequisitesIcon'
- ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C@@L@@@@@@@@@@0A#@F@@X@@@@@L@@0@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A8@G(@^PA80@C@^@=8S7//^D<@C7#@^LA9@G(@@@@b') ; yourself); yourself]!
+ constantNamed:#'ProjectBrowser prerequisitesIcon'
+ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C@@L@@@@@@@@@@0A#@F@@X@@@@@L@@0@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A8@G(@^PA80@C@^@=8S7//^D<@C7#@^LA9@G(@@@@b') ; yourself); yourself]!
projectBrowserIcon
"This resource specification was automatically generated
@@ -449,8 +449,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser projectBrowserIcon'
- ifAbsentPut:[(Depth2Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+ constantNamed:#'ProjectBrowser projectBrowserIcon'
+ ifAbsentPut:[(Depth2Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@@T@ET@@@@@@UTAUT@@@@@EQPTAP@@@@APEAPE@@@@@E@TE@T@@@@@TAPTUP@@@@@U%)UZ @@@@AUVUV( @@@@EUUUUZ@@@@@*)U*!!(@@@@B*UZ(& @@@@@
ET@JZ@@@@J*U*()(@@@@*)V*"& @@@B*%Z*JZ@@@@J*U*()(@@@@*)V*"& @@@B*%Z*JZ@@@@J*U*() @@@@*)V*"$@@@@B*%Z*JP@@@@J*U*( @@@@@*)V*
@@@@@@@EP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
@@ -472,8 +472,8 @@
<resource: #image>
^Icon
- constantNamed:#'ProjectBrowser projectsIcon'
- ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@_8C?P_;@@\O=0?7C?\O=0?6C?PO<@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 128 128]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@G? ?>G?8??''?>_?9??''?>_?9??G?8_?A?8@@@@@@b') ; yourself); yourself]! !
+ constantNamed:#'ProjectBrowser projectsIcon'
+ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@_8C?P_;@@\O=0?7C?\O=0?6C?PO<@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 128 128]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@G? ?>G?8??''?>_?9??''?>_?9??G?8_?A?8@@@@@@b') ; yourself); yourself]! !
!ProjectBrowser class methodsFor:'interface specs'!
@@ -493,107 +493,107 @@
^
#(#FullSpec
- #name: #classValidationDialogSpec
- #window:
+ #name: #classValidationDialogSpec
+ #window:
#(#WindowSpec
- #label: 'ProjectBrowser'
- #name: 'ProjectBrowser'
- #min: #(#Point 10 10)
- #max: #(#Point 1024 768)
- #bounds: #(#Rectangle 24 554 457 1003)
- #menu: #mainMenu
- #icon: #bigProjectBrowserIcon
- )
- #component:
+ #label: 'ProjectBrowser'
+ #name: 'ProjectBrowser'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1024 768)
+ #bounds: #(#Rectangle 24 554 457 1003)
+ #menu: #mainMenu
+ #icon: #bigProjectBrowserIcon
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#VariableVerticalPanelSpec
- #name: 'VariableVerticalPanel1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
- #handles:
- #(#OrderedCollection
- #Any 0.5
- 1.0
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'Box1'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Classes only in Image'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
- #translateLabel: true
- #adjust: #left
- )
- #(#SequenceViewSpec
- #name: 'List2'
- #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #useIndex: false
- #sequenceList: #classesInImageOnly
- )
- )
+ #collection: #(
+ #(#VariableVerticalPanelSpec
+ #name: 'VariableVerticalPanel1'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
+ #handles:
+ #(#OrderedCollection
+ #Any 0.5
+ 1.0
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ViewSpec
+ #name: 'Box1'
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Classes only in Image'
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+ #translateLabel: true
+ #adjust: #left
+ )
+ #(#SequenceViewSpec
+ #name: 'List2'
+ #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #useIndex: false
+ #sequenceList: #classesInImageOnly
+ )
+ )
- )
- )
- #(#ViewSpec
- #name: 'Box2'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Classes only in Project'
- #name: 'Label2'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
- #translateLabel: true
- #adjust: #left
- )
- #(#SequenceViewSpec
- #name: 'List1'
- #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #useIndex: false
- #sequenceList: #classesInProjectOnly
- )
- )
+ )
+ )
+ #(#ViewSpec
+ #name: 'Box2'
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Classes only in Project'
+ #name: 'Label2'
+ #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+ #translateLabel: true
+ #adjust: #left
+ )
+ #(#SequenceViewSpec
+ #name: 'List1'
+ #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #useIndex: false
+ #sequenceList: #classesInProjectOnly
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
- #horizontalLayout: #center
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #translateLabel: true
- #model: #closeRequest
- #extent: #(#Point 125 22)
- )
- )
+ )
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
+ #horizontalLayout: #center
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #translateLabel: true
+ #model: #closeRequest
+ #extent: #(#Point 125 22)
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
+ )
)
!
@@ -613,31 +613,31 @@
^
#(#FullSpec
- #name: #emptyRightCanvasSpec
- #window:
+ #name: #emptyRightCanvasSpec
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 10 20 310 320)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 10 20 310 320)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#TextEditorSpec
- #name: 'TextEditor1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #initiallyInvisible: true
- #model: #rightCanvasTextHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #isReadOnly: true
- )
- )
+ #collection: #(
+ #(#TextEditorSpec
+ #name: 'TextEditor1'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #initiallyInvisible: true
+ #model: #rightCanvasTextHolder
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #isReadOnly: true
+ )
+ )
- )
+ )
)
!
@@ -657,107 +657,107 @@
^
#(#FullSpec
- #name: #classValidationDialogSpec
- #window:
+ #name: #classValidationDialogSpec
+ #window:
#(#WindowSpec
- #label: 'ProjectBrowser'
- #name: 'ProjectBrowser'
- #min: #(#Point 10 10)
- #max: #(#Point 1024 768)
- #bounds: #(#Rectangle 24 554 457 1003)
- #menu: #mainMenu
- #icon: #bigProjectBrowserIcon
- )
- #component:
+ #label: 'ProjectBrowser'
+ #name: 'ProjectBrowser'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1024 768)
+ #bounds: #(#Rectangle 24 554 457 1003)
+ #menu: #mainMenu
+ #icon: #bigProjectBrowserIcon
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#VariableVerticalPanelSpec
- #name: 'VariableVerticalPanel1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
- #handles:
- #(#OrderedCollection
- #Any 0.5
- 1.0
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'Box1'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Methods only in Image'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
- #translateLabel: true
- #adjust: #left
- )
- #(#SequenceViewSpec
- #name: 'List2'
- #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #useIndex: false
- #sequenceList: #methodsInImageOnly
- )
- )
+ #collection: #(
+ #(#VariableVerticalPanelSpec
+ #name: 'VariableVerticalPanel1'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
+ #handles:
+ #(#OrderedCollection
+ #Any 0.5
+ 1.0
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ViewSpec
+ #name: 'Box1'
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Methods only in Image'
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+ #translateLabel: true
+ #adjust: #left
+ )
+ #(#SequenceViewSpec
+ #name: 'List2'
+ #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #useIndex: false
+ #sequenceList: #methodsInImageOnly
+ )
+ )
- )
- )
- #(#ViewSpec
- #name: 'Box2'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Methods only in Project'
- #name: 'Label2'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
- #translateLabel: true
- #adjust: #left
- )
- #(#SequenceViewSpec
- #name: 'List1'
- #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #useIndex: false
- #sequenceList: #methodsInProjectOnly
- )
- )
+ )
+ )
+ #(#ViewSpec
+ #name: 'Box2'
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Methods only in Project'
+ #name: 'Label2'
+ #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+ #translateLabel: true
+ #adjust: #left
+ )
+ #(#SequenceViewSpec
+ #name: 'List1'
+ #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #useIndex: false
+ #sequenceList: #methodsInProjectOnly
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
- #horizontalLayout: #center
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button1'
- #translateLabel: true
- #model: #closeRequest
- #extent: #(#Point 125 22)
- )
- )
+ )
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
+ #horizontalLayout: #center
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button1'
+ #translateLabel: true
+ #model: #closeRequest
+ #extent: #(#Point 125 22)
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
+ )
)
!
@@ -777,146 +777,146 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForBuildOptions
- #window:
+ #name: #rightCanvasSpecForBuildOptions
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 216 173 577 536)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 216 173 577 536)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#FramedBoxSpec
- #label: 'STC Compiler Warnings'
- #name: 'FramedBox2'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 146 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#CheckBoxSpec
- #label: 'Non Standard Language Features'
- #name: 'CheckBox1'
- #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0)
- #tabable: true
- #model: #makeWarnNonStandard
- #translateLabel: true
- )
- #(#CheckBoxSpec
- #label: 'End-of-line Comments'
- #name: 'CheckBox2'
- #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0)
- #tabable: true
- #model: #makeWarnEOLComments
- #translateLabel: true
- )
- #(#LabelSpec
- #label: 'other warning options:'
- #name: 'Label3'
- #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0)
- #translateLabel: true
- #adjust: #left
- )
- #(#InputFieldSpec
- #name: 'EntryField1'
- #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0)
- #activeHelpKey: #projectDir
- #tabable: true
- #model: #makeOtherWarningOptions
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- )
+ #collection: #(
+ #(#FramedBoxSpec
+ #label: 'STC Compiler Warnings'
+ #name: 'FramedBox2'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 146 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#CheckBoxSpec
+ #label: 'Non Standard Language Features'
+ #name: 'CheckBox1'
+ #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0)
+ #tabable: true
+ #model: #makeWarnNonStandard
+ #translateLabel: true
+ )
+ #(#CheckBoxSpec
+ #label: 'End-of-line Comments'
+ #name: 'CheckBox2'
+ #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0)
+ #tabable: true
+ #model: #makeWarnEOLComments
+ #translateLabel: true
+ )
+ #(#LabelSpec
+ #label: 'other warning options:'
+ #name: 'Label3'
+ #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0)
+ #translateLabel: true
+ #adjust: #left
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField1'
+ #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0)
+ #activeHelpKey: #projectDir
+ #tabable: true
+ #model: #makeOtherWarningOptions
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ )
- )
- )
- #(#FramedBoxSpec
- #label: 'STC Compiler Includes'
- #name: 'FramedBox3'
- #layout: #(#LayoutFrame 0 0.0 146 0.0 0 1.0 203 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#InputFieldSpec
- #name: 'EntryField2'
- #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
- #activeHelpKey: #repositoryModule
- #tabable: true
- #model: #makeIncludes
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- )
+ )
+ )
+ #(#FramedBoxSpec
+ #label: 'STC Compiler Includes'
+ #name: 'FramedBox3'
+ #layout: #(#LayoutFrame 0 0.0 146 0.0 0 1.0 203 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#InputFieldSpec
+ #name: 'EntryField2'
+ #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
+ #activeHelpKey: #repositoryModule
+ #tabable: true
+ #model: #makeIncludes
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ )
- )
- )
- #(#FramedBoxSpec
- #label: 'STC Compiler Defines'
- #name: 'FramedBox5'
- #layout: #(#LayoutFrame 0 0.0 210 0.0 0 1.0 267 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#InputFieldSpec
- #name: 'EntryField5'
- #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
- #activeHelpKey: #repositoryModule
- #tabable: true
- #model: #makeDefines
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- )
+ )
+ )
+ #(#FramedBoxSpec
+ #label: 'STC Compiler Defines'
+ #name: 'FramedBox5'
+ #layout: #(#LayoutFrame 0 0.0 210 0.0 0 1.0 267 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#InputFieldSpec
+ #name: 'EntryField5'
+ #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
+ #activeHelpKey: #repositoryModule
+ #tabable: true
+ #model: #makeDefines
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ )
- )
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #activeHelpKey: #cancel
- #translateLabel: true
- #model: #cancel
- #enableChannel: #modifiedChannel
- #actionValue: ''
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #activeHelpKey: #accept
- #translateLabel: true
- #model: #accept
- #enableChannel: #modifiedChannel
- #useDefaultExtent: true
- )
- )
+ )
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button1'
+ #activeHelpKey: #cancel
+ #translateLabel: true
+ #model: #cancel
+ #enableChannel: #modifiedChannel
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button2'
+ #activeHelpKey: #accept
+ #translateLabel: true
+ #model: #accept
+ #enableChannel: #modifiedChannel
+ #useDefaultExtent: true
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
+ )
)
!
@@ -936,33 +936,33 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForClassList
- #window:
+ #name: #rightCanvasSpecForClassList
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 10 20 310 320)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 10 20 310 320)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#DataSetSpec
- #name: 'classTable'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #dataList: #classList
- #has3Dsepartors: false
- #columnHolder: #classTableColumns
- #verticalSpacing: 0
- #columnAdaptor: #classTableAdaptor
- )
- )
+ #collection: #(
+ #(#DataSetSpec
+ #name: 'classTable'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #dataList: #classList
+ #has3Dsepartors: false
+ #columnHolder: #classTableColumns
+ #verticalSpacing: 0
+ #columnAdaptor: #classTableAdaptor
+ )
+ )
- )
+ )
)
!
@@ -982,244 +982,244 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForDeployment
- #window:
+ #name: #rightCanvasSpecForDeployment
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 12 22 365 521)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 12 22 365 521)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#FramedBoxSpec
- #label: 'Deliver'
- #name: 'DeliverBox'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 172 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#CheckBoxSpec
- #label: '''loadAll''-File'
- #name: 'CheckBox5'
- #layout: #(#LayoutFrame 0 0.0 67 0 0 1.0 89 0)
- #activeHelpKey: #deliverLoadAll
- #tabable: true
- #model: #deliverLoadAllFile
- #translateLabel: true
- )
- #(#CheckBoxSpec
- #label: 'Compiled Binary (non-portable .dll / .so)'
- #name: 'CheckBox6'
- #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 54 0)
- #activeHelpKey: #deliverCompiledBinary
- #tabable: true
- #model: #deliverCompiledBinary
- #translateLabel: true
- )
- #(#CheckBoxSpec
- #label: 'Bytecode Binary (portable)'
- #name: 'CheckBox1'
- #layout: #(#LayoutFrame 0 0.0 8 0 0 1.0 30 0)
- #activeHelpKey: #deliverByteCode
- #tabable: true
- #model: #deliverByteCode
- #translateLabel: true
- )
- #(#CheckBoxSpec
- #label: 'Sources'
- #name: 'CheckBox4'
- #layout: #(#LayoutFrame 0 0.0 90 0 0 1.0 112 0)
- #activeHelpKey: #deliverSources
- #tabable: true
- #model: #deliverSources
- #translateLabel: true
- )
- #(#CheckBoxSpec
- #label: 'Makefiles'
- #name: 'CheckBox8'
- #layout: #(#LayoutFrame 0 0.0 113 0 0 1.0 135 0)
- #activeHelpKey: #deliverMakefiles
- #tabable: true
- #model: #deliverMakefiles
- #translateLabel: true
- )
- )
+ #collection: #(
+ #(#FramedBoxSpec
+ #label: 'Deliver'
+ #name: 'DeliverBox'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 172 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#CheckBoxSpec
+ #label: '''loadAll''-File'
+ #name: 'CheckBox5'
+ #layout: #(#LayoutFrame 0 0.0 67 0 0 1.0 89 0)
+ #activeHelpKey: #deliverLoadAll
+ #tabable: true
+ #model: #deliverLoadAllFile
+ #translateLabel: true
+ )
+ #(#CheckBoxSpec
+ #label: 'Compiled Binary (non-portable .dll / .so)'
+ #name: 'CheckBox6'
+ #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 54 0)
+ #activeHelpKey: #deliverCompiledBinary
+ #tabable: true
+ #model: #deliverCompiledBinary
+ #translateLabel: true
+ )
+ #(#CheckBoxSpec
+ #label: 'Bytecode Binary (portable)'
+ #name: 'CheckBox1'
+ #layout: #(#LayoutFrame 0 0.0 8 0 0 1.0 30 0)
+ #activeHelpKey: #deliverByteCode
+ #tabable: true
+ #model: #deliverByteCode
+ #translateLabel: true
+ )
+ #(#CheckBoxSpec
+ #label: 'Sources'
+ #name: 'CheckBox4'
+ #layout: #(#LayoutFrame 0 0.0 90 0 0 1.0 112 0)
+ #activeHelpKey: #deliverSources
+ #tabable: true
+ #model: #deliverSources
+ #translateLabel: true
+ )
+ #(#CheckBoxSpec
+ #label: 'Makefiles'
+ #name: 'CheckBox8'
+ #layout: #(#LayoutFrame 0 0.0 113 0 0 1.0 135 0)
+ #activeHelpKey: #deliverMakefiles
+ #tabable: true
+ #model: #deliverMakefiles
+ #translateLabel: true
+ )
+ )
- )
- )
- #(#FramedBoxSpec
- #label: 'Format'
- #name: 'DeliverAsBox'
- #layout: #(#LayoutFrame 0 0.0 172 0 0 1.0 290 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#CheckBoxSpec
- #label: 'Tar Archive (.tar - for unix)'
- #name: 'CheckBox7'
- #layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 56 0)
- #activeHelpKey: #deliverTarArchive
- #tabable: true
- #model: #deliverTarArchive
- #translateLabel: true
- )
- #(#CheckBoxSpec
- #label: 'Zip Archive (.zip - for windows)'
- #name: 'CheckBox2'
- #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0)
- #activeHelpKey: #deliverZipArchive
- #tabable: true
- #model: #deliverZipArchive
- #translateLabel: true
- )
- #(#CheckBoxSpec
- #label: 'GZip Archive (self extracting for unix)'
- #name: 'CheckBox3'
- #layout: #(#LayoutFrame 0 0.0 58 0 0 1.0 80 0)
- #activeHelpKey: #deliverGZipArchive
- #tabable: true
- #model: #deliverGZipArchive
- #translateLabel: true
- )
- )
+ )
+ )
+ #(#FramedBoxSpec
+ #label: 'Format'
+ #name: 'DeliverAsBox'
+ #layout: #(#LayoutFrame 0 0.0 172 0 0 1.0 290 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#CheckBoxSpec
+ #label: 'Tar Archive (.tar - for unix)'
+ #name: 'CheckBox7'
+ #layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 56 0)
+ #activeHelpKey: #deliverTarArchive
+ #tabable: true
+ #model: #deliverTarArchive
+ #translateLabel: true
+ )
+ #(#CheckBoxSpec
+ #label: 'Zip Archive (.zip - for windows)'
+ #name: 'CheckBox2'
+ #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0)
+ #activeHelpKey: #deliverZipArchive
+ #tabable: true
+ #model: #deliverZipArchive
+ #translateLabel: true
+ )
+ #(#CheckBoxSpec
+ #label: 'GZip Archive (self extracting for unix)'
+ #name: 'CheckBox3'
+ #layout: #(#LayoutFrame 0 0.0 58 0 0 1.0 80 0)
+ #activeHelpKey: #deliverGZipArchive
+ #tabable: true
+ #model: #deliverGZipArchive
+ #translateLabel: true
+ )
+ )
- )
- )
- #(#FramedBoxSpec
- #label: 'Target Install Directory'
- #name: 'DestinationBox'
- #layout: #(#LayoutFrame 0 0.0 295 0 0 1.0 448 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Unix:'
- #name: 'Label1'
- #layout: #(#AlignmentOrigin 76 0.0 16 0 1 0.5)
- #translateLabel: true
- #resizeForLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField1'
- #layout: #(#LayoutFrame 80 0.0 4 0 0 1.0 26 0)
- #activeHelpKey: #installDirUnix
- #enableChannel: #canDeliverForUnix
- #tabable: true
- #model: #installDirectoryUnix
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- #(#LabelSpec
- #label: 'Win32:'
- #name: 'Label2'
- #layout: #(#AlignmentOrigin 76 0.0 47 0 1 0.5)
- #translateLabel: true
- #resizeForLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField2'
- #layout: #(#LayoutFrame 80 0.0 34 0 0 1.0 56 0)
- #activeHelpKey: #installDirWin32
- #enableChannel: #canDeliverForWin32
- #tabable: true
- #model: #installDirectoryWin32
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- #(#LabelSpec
- #label: 'VMS:'
- #name: 'Label3'
- #layout: #(#AlignmentOrigin 76 0.0 76 0 1 0.5)
- #translateLabel: true
- #resizeForLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField3'
- #layout: #(#LayoutFrame 80 0.0 63 0 0 1.0 85 0)
- #activeHelpKey: #installDirVMS
- #initiallyDisabled: true
- #enableChannel: #canDeliverForVMS
- #tabable: true
- #model: #installDirectoryVMS
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- #(#LabelSpec
- #label: 'MacOS:'
- #name: 'Label4'
- #layout: #(#AlignmentOrigin 76 0.0 106 0 1 0.5)
- #translateLabel: true
- #resizeForLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField4'
- #layout: #(#LayoutFrame 80 0.0 93 0 0 1.0 115 0)
- #activeHelpKey: #installDirMacOS
- #initiallyDisabled: true
- #enableChannel: #canDeliverForMacOS
- #tabable: true
- #model: #installDirectoryMac
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- )
+ )
+ )
+ #(#FramedBoxSpec
+ #label: 'Target Install Directory'
+ #name: 'DestinationBox'
+ #layout: #(#LayoutFrame 0 0.0 295 0 0 1.0 448 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Unix:'
+ #name: 'Label1'
+ #layout: #(#AlignmentOrigin 76 0.0 16 0 1 0.5)
+ #translateLabel: true
+ #resizeForLabel: true
+ #adjust: #right
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField1'
+ #layout: #(#LayoutFrame 80 0.0 4 0 0 1.0 26 0)
+ #activeHelpKey: #installDirUnix
+ #enableChannel: #canDeliverForUnix
+ #tabable: true
+ #model: #installDirectoryUnix
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ #(#LabelSpec
+ #label: 'Win32:'
+ #name: 'Label2'
+ #layout: #(#AlignmentOrigin 76 0.0 47 0 1 0.5)
+ #translateLabel: true
+ #resizeForLabel: true
+ #adjust: #right
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField2'
+ #layout: #(#LayoutFrame 80 0.0 34 0 0 1.0 56 0)
+ #activeHelpKey: #installDirWin32
+ #enableChannel: #canDeliverForWin32
+ #tabable: true
+ #model: #installDirectoryWin32
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ #(#LabelSpec
+ #label: 'VMS:'
+ #name: 'Label3'
+ #layout: #(#AlignmentOrigin 76 0.0 76 0 1 0.5)
+ #translateLabel: true
+ #resizeForLabel: true
+ #adjust: #right
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField3'
+ #layout: #(#LayoutFrame 80 0.0 63 0 0 1.0 85 0)
+ #activeHelpKey: #installDirVMS
+ #initiallyDisabled: true
+ #enableChannel: #canDeliverForVMS
+ #tabable: true
+ #model: #installDirectoryVMS
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ #(#LabelSpec
+ #label: 'MacOS:'
+ #name: 'Label4'
+ #layout: #(#AlignmentOrigin 76 0.0 106 0 1 0.5)
+ #translateLabel: true
+ #resizeForLabel: true
+ #adjust: #right
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField4'
+ #layout: #(#LayoutFrame 80 0.0 93 0 0 1.0 115 0)
+ #activeHelpKey: #installDirMacOS
+ #initiallyDisabled: true
+ #enableChannel: #canDeliverForMacOS
+ #tabable: true
+ #model: #installDirectoryMac
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ )
- )
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #translateLabel: true
- #tabable: true
- #model: #cancel
- #enableChannel: #modifiedChannel
- #actionValue: ''
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #translateLabel: true
- #tabable: true
- #model: #accept
- #enableChannel: #modifiedChannel
- #actionValue: ''
- #useDefaultExtent: true
- )
- )
+ )
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button1'
+ #translateLabel: true
+ #tabable: true
+ #model: #cancel
+ #enableChannel: #modifiedChannel
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button2'
+ #translateLabel: true
+ #tabable: true
+ #model: #accept
+ #enableChannel: #modifiedChannel
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
+ )
)
!
@@ -1239,37 +1239,37 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForEditableText
- #window:
+ #name: #rightCanvasSpecForEditableText
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 216 173 516 473)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 216 173 516 473)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#TextEditorSpec
- #name: 'TextEditor1'
- #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
- #model: #rightCanvasTextHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- )
- #(#LabelSpec
- #label: 'Label'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
- #translateLabel: true
- #labelChannel: #textCanvasLabelHolder
- #adjust: #left
- )
- )
+ #collection: #(
+ #(#TextEditorSpec
+ #name: 'TextEditor1'
+ #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+ #model: #rightCanvasTextHolder
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ )
+ #(#LabelSpec
+ #label: 'Label'
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+ #translateLabel: true
+ #labelChannel: #textCanvasLabelHolder
+ #adjust: #left
+ )
+ )
- )
+ )
)
!
@@ -1289,76 +1289,76 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForFiles
- #window:
+ #name: #rightCanvasSpecForFiles
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 216 173 577 536)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 216 173 577 536)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#FramedBoxSpec
- #label: 'File for extensions & patches'
- #name: 'FramedBox2'
- #layout: #(#LayoutFrame 0 0.0 62 0.0 0 1.0 122 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#InputFieldSpec
- #name: 'methodsFileEntryField'
- #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
- #activeHelpKey: #methodsFile
- #model: #methodsFile
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- )
+ #collection: #(
+ #(#FramedBoxSpec
+ #label: 'File for extensions & patches'
+ #name: 'FramedBox2'
+ #layout: #(#LayoutFrame 0 0.0 62 0.0 0 1.0 122 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#InputFieldSpec
+ #name: 'methodsFileEntryField'
+ #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
+ #activeHelpKey: #methodsFile
+ #model: #methodsFile
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ )
- )
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #activeHelpKey: #cancel
- #translateLabel: true
- #model: #cancel
- #enableChannel: #modifiedChannel
- #actionValue: ''
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #activeHelpKey: #accept
- #translateLabel: true
- #model: #accept
- #enableChannel: #modifiedChannel
- #useDefaultExtent: true
- )
- )
+ )
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button1'
+ #activeHelpKey: #cancel
+ #translateLabel: true
+ #model: #cancel
+ #enableChannel: #modifiedChannel
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button2'
+ #activeHelpKey: #accept
+ #translateLabel: true
+ #model: #accept
+ #enableChannel: #modifiedChannel
+ #useDefaultExtent: true
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
+ )
)
!
@@ -1379,30 +1379,30 @@
^
#(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'NewApplication'
- #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
- #level: 0
- #label: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 216 173 516 473)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#HTMLViewSpec
- #name: 'HTMLBrowser1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #model: #htmlDocumentURLHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- )
- )
- )
+ #window:
+ #(#WindowSpec
+ #name: 'NewApplication'
+ #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
+ #level: 0
+ #label: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 216 173 516 473)
+ #usePreferredExtent: false
+ )
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#HTMLViewSpec
+ #name: 'HTMLBrowser1'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #model: #htmlDocumentURLHolder
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ )
+ )
+ )
)
!
@@ -1422,33 +1422,33 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForPatchesList
- #window:
+ #name: #rightCanvasSpecForPatchesList
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 162 22 462 322)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 162 22 462 322)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#DataSetSpec
- #name: 'patchesTable'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #menu: #methodMenu
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #dataList: #patchesList
- #has3Dsepartors: false
- #columnHolder: #patchesTableColumns
- #columnAdaptor: #classTableAdaptor
- )
- )
+ #collection: #(
+ #(#DataSetSpec
+ #name: 'patchesTable'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #menu: #methodMenu
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #dataList: #patchesList
+ #has3Dsepartors: false
+ #columnHolder: #patchesTableColumns
+ #columnAdaptor: #classTableAdaptor
+ )
+ )
- )
+ )
)
!
@@ -1468,132 +1468,132 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForPrerequisiteClasses
- #window:
+ #name: #rightCanvasSpecForPrerequisiteClasses
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
- #level: 0
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 220 200 520 500)
- #usePreferredExtent: false
- #returnIsOKInDialog: true
- #escapeIsCancelInDialog: true
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 220 200 520 500)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Known Classes'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
- #translateLabel: true
- )
- #(#SequenceViewSpec
- #name: 'List1'
- #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
- #tabable: true
- #model: #selectedClassInPrerequisites
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: true
- #doubleClickSelector: #addClassToPrerequisites
- #valueChangeSelector: #showInfoForRequiredClass:
- #useIndex: false
- #sequenceList: #listOfAllClassesInPrerequisites
- )
- #(#LabelSpec
- #label: 'Required Classes'
- #name: 'Label2'
- #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
- #translateLabel: true
- )
- #(#SequenceViewSpec
- #name: 'List2'
- #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
- #tabable: true
- #model: #selectedRequiredClassInPrerequisites
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: true
- #doubleClickSelector: #removeClassFromPrerequisites
- #valueChangeSelector: #showInfoForRequiredClass:
- #useIndex: false
- #sequenceList: #listOfRequiredClassesInPrerequisites
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel2'
- #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Add'
- #name: 'addButton'
- #translateLabel: true
- #resizeForLabel: false
- #tabable: true
- #model: #addClassToPrerequisites
- #enableChannel: #canAddSelectedClassToPrerequisites
- #actionValue: ''
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'Remove'
- #name: 'removeButton'
- #translateLabel: true
- #resizeForLabel: false
- #tabable: true
- #model: #removeClassFromPrerequisites
- #enableChannel: #canRemoveSelectedClassFromPrerequisites
- #actionValue: ''
- #useDefaultExtent: true
- )
- )
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Known Classes'
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
+ #translateLabel: true
+ )
+ #(#SequenceViewSpec
+ #name: 'List1'
+ #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
+ #tabable: true
+ #model: #selectedClassInPrerequisites
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #miniScrollerVertical: true
+ #doubleClickSelector: #addClassToPrerequisites
+ #valueChangeSelector: #showInfoForRequiredClass:
+ #useIndex: false
+ #sequenceList: #listOfAllClassesInPrerequisites
+ )
+ #(#LabelSpec
+ #label: 'Required Classes'
+ #name: 'Label2'
+ #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
+ #translateLabel: true
+ )
+ #(#SequenceViewSpec
+ #name: 'List2'
+ #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
+ #tabable: true
+ #model: #selectedRequiredClassInPrerequisites
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #miniScrollerVertical: true
+ #doubleClickSelector: #removeClassFromPrerequisites
+ #valueChangeSelector: #showInfoForRequiredClass:
+ #useIndex: false
+ #sequenceList: #listOfRequiredClassesInPrerequisites
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel2'
+ #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Add'
+ #name: 'addButton'
+ #translateLabel: true
+ #resizeForLabel: false
+ #tabable: true
+ #model: #addClassToPrerequisites
+ #enableChannel: #canAddSelectedClassToPrerequisites
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ #(#ActionButtonSpec
+ #label: 'Remove'
+ #name: 'removeButton'
+ #translateLabel: true
+ #resizeForLabel: false
+ #tabable: true
+ #model: #removeClassFromPrerequisites
+ #enableChannel: #canRemoveSelectedClassFromPrerequisites
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ )
- )
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #translateLabel: true
- #tabable: true
- #model: #cancel
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #translateLabel: true
- #tabable: true
- #model: #accept
- #useDefaultExtent: true
- )
- )
+ )
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button1'
+ #translateLabel: true
+ #tabable: true
+ #model: #cancel
+ #useDefaultExtent: true
+ )
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button2'
+ #translateLabel: true
+ #tabable: true
+ #model: #accept
+ #useDefaultExtent: true
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
+ )
)
!
@@ -1613,130 +1613,130 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForPrerequisitePackages
- #window:
+ #name: #rightCanvasSpecForPrerequisitePackages
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
- #level: 0
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 220 200 520 500)
- #usePreferredExtent: false
- #returnIsOKInDialog: true
- #escapeIsCancelInDialog: true
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 220 200 520 500)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Known Packages'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
- #translateLabel: true
- )
- #(#SequenceViewSpec
- #name: 'List1'
- #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
- #tabable: true
- #model: #selectedProjectInPrerequisites
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: true
- #doubleClickSelector: #addProjectToPrerequisites
- #useIndex: false
- #sequenceList: #listOfAllProjectsInPrerequisites
- )
- #(#LabelSpec
- #label: 'Prerequisites'
- #name: 'Label2'
- #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
- #translateLabel: true
- )
- #(#SequenceViewSpec
- #name: 'List2'
- #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
- #tabable: true
- #model: #selectedRequiredProjectInPrerequisites
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: true
- #doubleClickSelector: #removeProjectFromPrerequisites
- #useIndex: false
- #sequenceList: #listOfRequiredProjectsInPrerequisites
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel2'
- #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Add'
- #name: 'addButton'
- #translateLabel: true
- #resizeForLabel: false
- #tabable: true
- #model: #addProjectToPrerequisites
- #enableChannel: #canAddSelectedProjectToPrerequisites
- #actionValue: ''
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'Remove'
- #name: 'removeButton'
- #translateLabel: true
- #resizeForLabel: false
- #tabable: true
- #model: #removeProjectFromPrerequisites
- #enableChannel: #canRemoveSelectedProjectFromPrerequisites
- #actionValue: ''
- #useDefaultExtent: true
- )
- )
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Known Packages'
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0)
+ #translateLabel: true
+ )
+ #(#SequenceViewSpec
+ #name: 'List1'
+ #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1)
+ #tabable: true
+ #model: #selectedProjectInPrerequisites
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #miniScrollerVertical: true
+ #doubleClickSelector: #addProjectToPrerequisites
+ #useIndex: false
+ #sequenceList: #listOfAllProjectsInPrerequisites
+ )
+ #(#LabelSpec
+ #label: 'Prerequisites'
+ #name: 'Label2'
+ #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0)
+ #translateLabel: true
+ )
+ #(#SequenceViewSpec
+ #name: 'List2'
+ #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1)
+ #tabable: true
+ #model: #selectedRequiredProjectInPrerequisites
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #miniScrollerVertical: true
+ #doubleClickSelector: #removeProjectFromPrerequisites
+ #useIndex: false
+ #sequenceList: #listOfRequiredProjectsInPrerequisites
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel2'
+ #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Add'
+ #name: 'addButton'
+ #translateLabel: true
+ #resizeForLabel: false
+ #tabable: true
+ #model: #addProjectToPrerequisites
+ #enableChannel: #canAddSelectedProjectToPrerequisites
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ #(#ActionButtonSpec
+ #label: 'Remove'
+ #name: 'removeButton'
+ #translateLabel: true
+ #resizeForLabel: false
+ #tabable: true
+ #model: #removeProjectFromPrerequisites
+ #enableChannel: #canRemoveSelectedProjectFromPrerequisites
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ )
- )
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #translateLabel: true
- #tabable: true
- #model: #cancel
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #translateLabel: true
- #tabable: true
- #model: #accept
- #useDefaultExtent: true
- )
- )
+ )
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button1'
+ #translateLabel: true
+ #tabable: true
+ #model: #cancel
+ #useDefaultExtent: true
+ )
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button2'
+ #translateLabel: true
+ #tabable: true
+ #model: #accept
+ #useDefaultExtent: true
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
+ )
)
!
@@ -1756,179 +1756,179 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForProperties
- #window:
+ #name: #rightCanvasSpecForProperties
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 12 22 373 346)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 12 22 373 346)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#FramedBoxSpec
- #label: 'Project Type'
- #name: 'FramedBox1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 61 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#RadioButtonSpec
- #label: 'Application'
- #name: 'RadioButton1'
- #layout: #(#LayoutFrame -1 0.0 5 0 0 0.5 27 0)
- #activeHelpKey: #appType
- #translateLabel: true
- #model: #projectType
- #isTriggerOnDown: true
- #select: #application
- )
- #(#RadioButtonSpec
- #label: 'Class Library'
- #name: 'RadioButton2'
- #layout: #(#LayoutFrame 0 0.5 5 0 0 1.0 27 0)
- #activeHelpKey: #libType
- #translateLabel: true
- #model: #projectType
- #isTriggerOnDown: true
- #select: #library
- )
- )
+ #collection: #(
+ #(#FramedBoxSpec
+ #label: 'Project Type'
+ #name: 'FramedBox1'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 61 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#RadioButtonSpec
+ #label: 'Application'
+ #name: 'RadioButton1'
+ #layout: #(#LayoutFrame -1 0.0 5 0 0 0.5 27 0)
+ #activeHelpKey: #appType
+ #translateLabel: true
+ #model: #projectType
+ #isTriggerOnDown: true
+ #select: #application
+ )
+ #(#RadioButtonSpec
+ #label: 'Class Library'
+ #name: 'RadioButton2'
+ #layout: #(#LayoutFrame 0 0.5 5 0 0 1.0 27 0)
+ #activeHelpKey: #libType
+ #translateLabel: true
+ #model: #projectType
+ #isTriggerOnDown: true
+ #select: #library
+ )
+ )
- )
- )
- #(#FramedBoxSpec
- #label: 'Project Working Directory'
- #name: 'FramedBox2'
- #layout: #(#LayoutFrame 0 0.0 67 0.0 0 1.0 127 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#InputFieldSpec
- #name: 'EntryField1'
- #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
- #activeHelpKey: #projectDir
- #enableChannel: #currentProjectWasNotLoadedFromFile
- #model: #projectDirectory
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- )
+ )
+ )
+ #(#FramedBoxSpec
+ #label: 'Project Working Directory'
+ #name: 'FramedBox2'
+ #layout: #(#LayoutFrame 0 0.0 67 0.0 0 1.0 127 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#InputFieldSpec
+ #name: 'EntryField1'
+ #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0)
+ #activeHelpKey: #projectDir
+ #enableChannel: #currentProjectWasNotLoadedFromFile
+ #model: #projectDirectory
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ )
- )
- )
- #(#FramedBoxSpec
- #label: 'Repository'
- #name: 'FramedBox3'
- #layout: #(#LayoutFrame 0 0.0 137 0.0 0 1.0 220 0)
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Module:'
- #name: 'Label1'
- #layout: #(#AlignmentOrigin 106 0 11 0 1 0.5)
- #translateLabel: true
- #resizeForLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField2'
- #layout: #(#LayoutFrame 110 0.0 0 0 0 1.0 22 0)
- #activeHelpKey: #repositoryModule
- #model: #repositoryModule
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- #(#LabelSpec
- #label: 'Directory:'
- #name: 'Label2'
- #layout: #(#AlignmentOrigin 106 0 36 0 1 0.5)
- #translateLabel: true
- #resizeForLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField3'
- #layout: #(#LayoutFrame 110 0.0 25 0 0 1.0 47 0)
- #activeHelpKey: #repositoryDirectory
- #model: #repositoryDirectory
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- )
+ )
+ )
+ #(#FramedBoxSpec
+ #label: 'Repository'
+ #name: 'FramedBox3'
+ #layout: #(#LayoutFrame 0 0.0 137 0.0 0 1.0 220 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'Module:'
+ #name: 'Label1'
+ #layout: #(#AlignmentOrigin 106 0 11 0 1 0.5)
+ #translateLabel: true
+ #resizeForLabel: true
+ #adjust: #right
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField2'
+ #layout: #(#LayoutFrame 110 0.0 0 0 0 1.0 22 0)
+ #activeHelpKey: #repositoryModule
+ #model: #repositoryModule
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ #(#LabelSpec
+ #label: 'Directory:'
+ #name: 'Label2'
+ #layout: #(#AlignmentOrigin 106 0 36 0 1 0.5)
+ #translateLabel: true
+ #resizeForLabel: true
+ #adjust: #right
+ )
+ #(#InputFieldSpec
+ #name: 'EntryField3'
+ #layout: #(#LayoutFrame 110 0.0 25 0 0 1.0 47 0)
+ #activeHelpKey: #repositoryDirectory
+ #model: #repositoryDirectory
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ )
- )
- )
- #(#FramedBoxSpec
- #label: 'Default Namespace'
- #name: 'FramedBox4'
- #layout: #(#LayoutFrame 0 0.0 226 0 0 1.0 284 0)
- #activeHelpKey: #defaultNamespace
- #labelPosition: #topLeft
- #translateLabel: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#InputFieldSpec
- #name: 'EntryField4'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 22 0)
- #model: #projectNamespace
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
- )
- )
+ )
+ )
+ #(#FramedBoxSpec
+ #label: 'Default Namespace'
+ #name: 'FramedBox4'
+ #layout: #(#LayoutFrame 0 0.0 226 0 0 1.0 284 0)
+ #activeHelpKey: #defaultNamespace
+ #labelPosition: #topLeft
+ #translateLabel: true
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#InputFieldSpec
+ #name: 'EntryField4'
+ #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 22 0)
+ #model: #projectNamespace
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ )
- )
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #activeHelpKey: #cancel
- #translateLabel: true
- #model: #cancel
- #enableChannel: #modifiedChannel
- #actionValue: ''
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #activeHelpKey: #accept
- #translateLabel: true
- #model: #accept
- #enableChannel: #modifiedChannel
- #useDefaultExtent: true
- )
- )
+ )
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'HorizontalPanel1'
+ #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button1'
+ #activeHelpKey: #cancel
+ #translateLabel: true
+ #model: #cancel
+ #enableChannel: #modifiedChannel
+ #actionValue: ''
+ #useDefaultExtent: true
+ )
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button2'
+ #activeHelpKey: #accept
+ #translateLabel: true
+ #model: #accept
+ #enableChannel: #modifiedChannel
+ #useDefaultExtent: true
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
+ )
)
!
@@ -1948,38 +1948,38 @@
^
#(#FullSpec
- #name: #rightCanvasSpecForReadOnlyText
- #window:
+ #name: #rightCanvasSpecForReadOnlyText
+ #window:
#(#WindowSpec
- #label: 'NewApplication'
- #name: 'NewApplication'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 216 173 516 473)
- )
- #component:
+ #label: 'NewApplication'
+ #name: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 216 173 516 473)
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#TextEditorSpec
- #name: 'TextEditor1'
- #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
- #model: #rightCanvasTextHolder
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #isReadOnly: true
- )
- #(#LabelSpec
- #label: 'Label'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
- #translateLabel: true
- #labelChannel: #textCanvasLabelHolder
- #adjust: #left
- )
- )
+ #collection: #(
+ #(#TextEditorSpec
+ #name: 'TextEditor1'
+ #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0)
+ #model: #rightCanvasTextHolder
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #isReadOnly: true
+ )
+ #(#LabelSpec
+ #label: 'Label'
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0)
+ #translateLabel: true
+ #labelChannel: #textCanvasLabelHolder
+ #adjust: #left
+ )
+ )
- )
+ )
)
!
@@ -2000,89 +2000,89 @@
^
#(#FullSpec
- #name: #windowSpec
- #window:
+ #name: #windowSpec
+ #window:
#(#WindowSpec
- #label: 'ProjectBrowser'
- #name: 'ProjectBrowser'
- #min: #(#Point 10 10)
- #max: #(#Point 1024 768)
- #bounds: #(#Rectangle 20 94 623 645)
- #menu: #mainMenu
- #icon: #bigProjectBrowserIcon
- )
- #component:
+ #label: 'ProjectBrowser'
+ #name: 'ProjectBrowser'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1024 768)
+ #bounds: #(#Rectangle 20 94 623 645)
+ #menu: #mainMenu
+ #icon: #bigProjectBrowserIcon
+ )
+ #component:
#(#SpecCollection
- #collection: #(
- #(#MenuPanelSpec
- #name: 'ToolBar1'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
- #menu: #menu
- #textDefault: true
- )
- #(#VariableVerticalPanelSpec
- #name: 'VariableVerticalPanel1'
- #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
- #level: 1
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableHorizontalPanelSpec
- #name: 'VariableHorizontalPanel1'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#SelectionInTreeViewSpec
- #name: 'TreeList1'
- #model: #selectedTreeNodeHolder
- #menu: #itemMenuHolder
- #performer: #itemMenuPerformer
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #showRoot: false
- #showDirectoryIndicatorForRoot: false
- #showDirectoryIndicator: true
- #valueChangeSelector: #itemSelected:
- #doubleClickSelector: #itemDoubleClicked:
- #hierarchicalList: #projectTreeHolder
- #selectConditionSelector: #selectionChangeAllowed:
- #highlightMode: #label
- )
- #(#SubCanvasSpec
- #name: 'SubCanvas1'
- #hasHorizontalScrollBar: false
- #hasVerticalScrollBar: false
- #specHolder: #currentCanvasHolder
- )
- )
+ #collection: #(
+ #(#MenuPanelSpec
+ #name: 'ToolBar1'
+ #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+ #menu: #menu
+ #textDefault: true
+ )
+ #(#VariableVerticalPanelSpec
+ #name: 'VariableVerticalPanel1'
+ #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
+ #level: 1
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#VariableHorizontalPanelSpec
+ #name: 'VariableHorizontalPanel1'
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#SelectionInTreeViewSpec
+ #name: 'TreeList1'
+ #model: #selectedTreeNodeHolder
+ #menu: #itemMenuHolder
+ #performer: #itemMenuPerformer
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #showRoot: false
+ #showDirectoryIndicatorForRoot: false
+ #showDirectoryIndicator: true
+ #valueChangeSelector: #itemSelected:
+ #doubleClickSelector: #itemDoubleClicked:
+ #hierarchicalList: #projectTreeHolder
+ #selectConditionSelector: #selectionChangeAllowed:
+ #highlightMode: #label
+ )
+ #(#SubCanvasSpec
+ #name: 'SubCanvas1'
+ #hasHorizontalScrollBar: false
+ #hasVerticalScrollBar: false
+ #specHolder: #currentCanvasHolder
+ )
+ )
- )
- #handles: #(#Any 0.389718 1.0)
- )
- #(#ArbitraryComponentSpec
- #name: 'commandOutputView'
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #hasBorder: false
- #component: #TextCollector
- )
- )
+ )
+ #handles: #(#Any 0.389718 1.0)
+ )
+ #(#ArbitraryComponentSpec
+ #name: 'commandOutputView'
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #hasBorder: false
+ #component: #TextCollector
+ )
+ )
- )
- #handles: #(#Any 0.987879 1.0)
- )
- #(#UISubSpecification
- #name: 'infoBarSubSpec'
- #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
- #level: 1
- #majorKey: #ToolApplicationModel
- #minorKey: #windowSpecForInfoBar
- )
- )
+ )
+ #handles: #(#Any 0.987879 1.0)
+ )
+ #(#UISubSpecification
+ #name: 'infoBarSubSpec'
+ #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
+ #level: 1
+ #majorKey: #ToolApplicationModel
+ #minorKey: #windowSpecForInfoBar
+ )
+ )
- )
+ )
)
! !
@@ -2104,25 +2104,25 @@
^
#(#Menu
- #(
- #(#MenuItem
- #label: 'Remove from Project...'
- #translateLabel: true
- #value: #removeClassFromProject
- #enabled: #hasClassesSelectedHolder
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Browse...'
- #translateLabel: true
- #value: #browseClass
- #enabled: #hasClassesSelectedHolder
- )
- )
- nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'Remove from Project...'
+ #translateLabel: true
+ #value: #removeClassFromProject
+ #enabled: #hasClassesSelectedHolder
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Browse...'
+ #translateLabel: true
+ #value: #browseClass
+ #enabled: #hasClassesSelectedHolder
+ )
+ )
+ nil
+ nil
)
!
@@ -2144,67 +2144,67 @@
#(#Menu
- #(
- #(#MenuItem
- #label: 'Add Class...'
- #translateLabel: true
- #value: #addClass
- #enabled: #hasClassesSelectedHolder
- )
- #(#MenuItem
- #label: 'Add Classes found in image'
- #translateLabel: true
- #value: #addClassesFromImage
- #enabled: #hasClassesSelectedHolder
- )
- #(#MenuItem
- #label: 'Add Classes from files found in directory'
- #translateLabel: true
- #value: #addClassesFromFilesInDirectory
- #enabled: #hasClassesSelectedHolder
- )
- #(#MenuItem
- #label: 'Add Classes from files found in directory if present in image'
- #translateLabel: true
- #value: #addClassesFromFilesInDirectoryIfPresentInImage
- #enabled: #hasClassesSelectedHolder
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Load Classes from Directory'
- #translateLabel: true
- #value: #loadClassesFromDirectory
- #enabled: #canLoadClassesFromDirectory
- )
- #(#MenuItem
- #label: 'Load Classes from Repository'
- #translateLabel: true
- #value: #loadClassesFromRepository
- #enabled: #canLoadClassesFromRepository
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Validate...'
- #translateLabel: true
- #value: #validateAgainstClassesInImage
- #enabled: #hasClassesSelectedHolder
- )
-
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Browse...'
- #translateLabel: true
- #value: #browseClasses
- #enabled: #hasClassesSelectedHolder
- )
- ) nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'Add Class...'
+ #translateLabel: true
+ #value: #addClass
+ #enabled: #hasClassesSelectedHolder
+ )
+ #(#MenuItem
+ #label: 'Add Classes found in image'
+ #translateLabel: true
+ #value: #addClassesFromImage
+ #enabled: #hasClassesSelectedHolder
+ )
+ #(#MenuItem
+ #label: 'Add Classes from files found in directory'
+ #translateLabel: true
+ #value: #addClassesFromFilesInDirectory
+ #enabled: #hasClassesSelectedHolder
+ )
+ #(#MenuItem
+ #label: 'Add Classes from files found in directory if present in image'
+ #translateLabel: true
+ #value: #addClassesFromFilesInDirectoryIfPresentInImage
+ #enabled: #hasClassesSelectedHolder
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Load Classes from Directory'
+ #translateLabel: true
+ #value: #loadClassesFromDirectory
+ #enabled: #canLoadClassesFromDirectory
+ )
+ #(#MenuItem
+ #label: 'Load Classes from Repository'
+ #translateLabel: true
+ #value: #loadClassesFromRepository
+ #enabled: #canLoadClassesFromRepository
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Validate...'
+ #translateLabel: true
+ #value: #validateAgainstClassesInImage
+ #enabled: #hasClassesSelectedHolder
+ )
+
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Browse...'
+ #translateLabel: true
+ #value: #browseClasses
+ #enabled: #hasClassesSelectedHolder
+ )
+ ) nil
+ nil
)
!
@@ -2224,253 +2224,253 @@
^
#(#Menu
- #(
- #(#MenuItem
- #label: 'File'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'New'
- #translateLabel: true
- #value: #newProject
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Load From...'
- #translateLabel: true
- #value: #openProject
- #activeHelpKey: #openProject
- )
- #(#MenuItem
- #label: 'Load Project Code'
- #translateLabel: true
- #value: #loadProjectCode
- #enabled: #hasProjectSelectedAndProjectFilenameHolder
- #activeHelpKey: #loadProjectCode
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Save Project File'
- #translateLabel: true
- #value: #saveProjectFile
- #enabled: #hasProjectSelectedAndProjectFilenameHolder
- #activeHelpKey: #saveProjectFile
- )
- #(#MenuItem
- #label: 'Save Project Code'
- #translateLabel: true
- #value: #saveProjectCode
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'Save All'
- #translateLabel: true
- #value: #saveAll
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Exit'
- #translateLabel: true
- #value: #closeRequest
- )
- )
- nil
- nil
- )
- )
- #(#MenuItem
- #label: 'Repository'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'CheckIn All'
- #translateLabel: true
- #value: #checkInProject
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'CheckIn Classes'
- #translateLabel: true
- #value: #checkInAllClasses
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'CheckIn Extensions'
- #translateLabel: true
- #value: #checkInMethods
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'CheckIn Project File'
- #translateLabel: true
- #value: #checkInProjectFile
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'CheckIn Makefiles'
- #translateLabel: true
- #value: #checkInMakefiles
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- )
- nil
- nil
- )
- )
- #(#MenuItem
- #label: 'View'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Current Project'
- #translateLabel: true
- #choice: #showWhat
- #choiceValue: #current
- )
- #(#MenuItem
- #label: 'Non BaseSystem Projects'
- #translateLabel: true
- #choice: #showWhat
- #choiceValue: #userProjects
- )
- #(#MenuItem
- #label: 'All Projects'
- #translateLabel: true
- #choice: #showWhat
- #choiceValue: #all
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Update'
- #translateLabel: true
- #value: #updateListOfProjects
- )
- )
- nil
- nil
- )
- )
- #(#MenuItem
- #label: 'Project'
- #translateLabel: true
- #submenuChannel: #projectItemMenu
- )
- #(#MenuItem
- #label: 'Build'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'All'
- #translateLabel: true
- #value: #buildAll
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Make.proto && Makefile'
- #translateLabel: true
- #value: #buildMakefiles
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'Makefile'
- #translateLabel: true
- #value: #buildMakefile
- #isVisible: #osIsUnix
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'Makefile for windows (nt.mak)'
- #translateLabel: true
- #value: #buildNTMakefile
- #isVisible: #osIsWindows
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'LoadAll file'
- #translateLabel: true
- #value: #buildLoadAllFile
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'abbrev file (for autoload)'
- #translateLabel: true
- #value: #buildAbbrevFile
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'Binary class library (non portable)'
- #translateLabel: true
- #value: #buildCompiledClassLibrary
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'Bytecode class library (portable)'
- #translateLabel: true
- #value: #buildByteCodeClassLibrary
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- #(#MenuItem
- #label: 'Zip archive'
- #translateLabel: true
- #value: #buildZipArchive
- #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
- )
- )
- nil
- nil
- )
- )
- #(#MenuItem
- #label: 'Help'
- #translateLabel: true
- #startGroup: #right
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Documentation'
- #translateLabel: true
- #value: #openDocumentation
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'About this Application'
- #translateLabel: true
- #value: #openAboutThisApplication
- )
- )
- nil
- nil
- )
- )
- )
- nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'File'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'New'
+ #translateLabel: true
+ #value: #newProject
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Load From...'
+ #translateLabel: true
+ #value: #openProject
+ #activeHelpKey: #openProject
+ )
+ #(#MenuItem
+ #label: 'Load Project Code'
+ #translateLabel: true
+ #value: #loadProjectCode
+ #enabled: #hasProjectSelectedAndProjectFilenameHolder
+ #activeHelpKey: #loadProjectCode
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Save Project File'
+ #translateLabel: true
+ #value: #saveProjectFile
+ #enabled: #hasProjectSelectedAndProjectFilenameHolder
+ #activeHelpKey: #saveProjectFile
+ )
+ #(#MenuItem
+ #label: 'Save Project Code'
+ #translateLabel: true
+ #value: #saveProjectCode
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'Save All'
+ #translateLabel: true
+ #value: #saveAll
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Exit'
+ #translateLabel: true
+ #value: #closeRequest
+ )
+ )
+ nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'Repository'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'CheckIn All'
+ #translateLabel: true
+ #value: #checkInProject
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'CheckIn Classes'
+ #translateLabel: true
+ #value: #checkInAllClasses
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'CheckIn Extensions'
+ #translateLabel: true
+ #value: #checkInMethods
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'CheckIn Project File'
+ #translateLabel: true
+ #value: #checkInProjectFile
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'CheckIn Makefiles'
+ #translateLabel: true
+ #value: #checkInMakefiles
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ )
+ nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'View'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Current Project'
+ #translateLabel: true
+ #choice: #showWhat
+ #choiceValue: #current
+ )
+ #(#MenuItem
+ #label: 'Non BaseSystem Projects'
+ #translateLabel: true
+ #choice: #showWhat
+ #choiceValue: #userProjects
+ )
+ #(#MenuItem
+ #label: 'All Projects'
+ #translateLabel: true
+ #choice: #showWhat
+ #choiceValue: #all
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Update'
+ #translateLabel: true
+ #value: #updateListOfProjects
+ )
+ )
+ nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'Project'
+ #translateLabel: true
+ #submenuChannel: #projectItemMenu
+ )
+ #(#MenuItem
+ #label: 'Build'
+ #translateLabel: true
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'All'
+ #translateLabel: true
+ #value: #buildAll
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Make.proto && Makefile'
+ #translateLabel: true
+ #value: #buildMakefiles
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'Makefile'
+ #translateLabel: true
+ #value: #buildMakefile
+ #isVisible: #osIsUnix
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'Makefile for windows (nt.mak)'
+ #translateLabel: true
+ #value: #buildNTMakefile
+ #isVisible: #osIsWindows
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'LoadAll file'
+ #translateLabel: true
+ #value: #buildLoadAllFile
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'abbrev file (for autoload)'
+ #translateLabel: true
+ #value: #buildAbbrevFile
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'Binary class library (non portable)'
+ #translateLabel: true
+ #value: #buildCompiledClassLibrary
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'Bytecode class library (portable)'
+ #translateLabel: true
+ #value: #buildByteCodeClassLibrary
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ #(#MenuItem
+ #label: 'Zip archive'
+ #translateLabel: true
+ #value: #buildZipArchive
+ #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded
+ )
+ )
+ nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'Help'
+ #translateLabel: true
+ #startGroup: #right
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Documentation'
+ #translateLabel: true
+ #value: #openDocumentation
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'About this Application'
+ #translateLabel: true
+ #value: #openAboutThisApplication
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
)
"Modified: / 19.1.2000 / 16:52:31 / cg"
@@ -2492,38 +2492,38 @@
^
#(#Menu
- #(
- #(#MenuItem
- #label: 'Browse'
- #translateLabel: true
- #value: #browseMethod
- )
- #(#MenuItem
- #label: 'Browse Full'
- #translateLabel: true
- #value: #browseMethodFull
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Remove...'
- #translateLabel: true
- #value: #removeMethod
- )
- #(#MenuItem
- #label: 'Remove from Project...'
- #translateLabel: true
- #value: #removeMethodFromProject
- )
- #(#MenuItem
- #label: 'Move to Project...'
- #translateLabel: true
- #value: #moveMethodToProject
- )
- )
- nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'Browse'
+ #translateLabel: true
+ #value: #browseMethod
+ )
+ #(#MenuItem
+ #label: 'Browse Full'
+ #translateLabel: true
+ #value: #browseMethodFull
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Remove...'
+ #translateLabel: true
+ #value: #removeMethod
+ )
+ #(#MenuItem
+ #label: 'Remove from Project...'
+ #translateLabel: true
+ #value: #removeMethodFromProject
+ )
+ #(#MenuItem
+ #label: 'Move to Project...'
+ #translateLabel: true
+ #value: #moveMethodToProject
+ )
+ )
+ nil
+ nil
)
!
@@ -2543,16 +2543,16 @@
^
#(#Menu
- #(
- #(#MenuItem
- #label: 'Validate...'
- #translateLabel: true
- #value: #validateAgainstMethodsInImage
- #enabled: #hasMethodsSelectedHolder
- )
- )
- nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'Validate...'
+ #translateLabel: true
+ #value: #validateAgainstMethodsInImage
+ #enabled: #hasMethodsSelectedHolder
+ )
+ )
+ nil
+ nil
)
!
@@ -2574,14 +2574,14 @@
#(#Menu
- #(
- #(#MenuItem
- #label: 'New Project'
- #translateLabel: true
- #value: #newProject
- )
- ) nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'New Project'
+ #translateLabel: true
+ #value: #newProject
+ )
+ ) nil
+ nil
)
!
@@ -2601,16 +2601,16 @@
^
#(#Menu
- #(
- #(#MenuItem
- #label: 'Update'
- #translateLabel: true
- #value: #updateListOfRequiredPrerequisiteClasses
- #enabled: #hasClassesSelectedHolder
- )
- )
- nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'Update'
+ #translateLabel: true
+ #value: #updateListOfRequiredPrerequisiteClasses
+ #enabled: #hasClassesSelectedHolder
+ )
+ )
+ nil
+ nil
)
!
@@ -2630,15 +2630,15 @@
^
#(#Menu
- #(
- #(#MenuItem
- #label: 'Add package...'
- #translateLabel: true
- #value: #addPrerequisitePackage
- )
- )
- nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'Add package...'
+ #translateLabel: true
+ #value: #addPrerequisitePackage
+ )
+ )
+ nil
+ nil
)
!
@@ -2660,37 +2660,37 @@
#(#Menu
- #(
- #(#MenuItem
- #label: 'Load Project'
- #translateLabel: true
- #value: #loadProject
- #enabled: #canLoadCurrentProjectHolder
- )
- #(#MenuItem
- #label: 'Unload Project'
- #translateLabel: true
- #value: #unloadProject
- #enabled: #canUnloadCurrentProjectHolder
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Make Current'
- #translateLabel: true
- #value: #makeCurrentProject
- #enabled: #hasProjectSelectedHolder
- )
- #(#MenuItem
- #label: 'Inspect'
- #translateLabel: true
- #value: #inspectCurrentProject
- #enabled: #hasProjectSelectedHolder
- )
- #(#MenuItem
- #label: '-'
- )
+ #(
+ #(#MenuItem
+ #label: 'Load Project'
+ #translateLabel: true
+ #value: #loadProject
+ #enabled: #canLoadCurrentProjectHolder
+ )
+ #(#MenuItem
+ #label: 'Unload Project'
+ #translateLabel: true
+ #value: #unloadProject
+ #enabled: #canUnloadCurrentProjectHolder
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Make Current'
+ #translateLabel: true
+ #value: #makeCurrentProject
+ #enabled: #hasProjectSelectedHolder
+ )
+ #(#MenuItem
+ #label: 'Inspect'
+ #translateLabel: true
+ #value: #inspectCurrentProject
+ #enabled: #hasProjectSelectedHolder
+ )
+ #(#MenuItem
+ #label: '-'
+ )
"/ #(#MenuItem
"/ #label: 'New SubProject'
"/ #translateLabel: true
@@ -2700,23 +2700,23 @@
"/ #(#MenuItem
"/ #label: '-'
"/ )
- #(#MenuItem
- #label: 'Rename...'
- #translateLabel: true
- #value: #renameProject
- #enabled: #hasProjectSelectedHolder
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Remove...'
- #translateLabel: true
- #value: #removeProject
- #enabled: #hasProjectSelectedHolder
- )
- ) nil
- nil
+ #(#MenuItem
+ #label: 'Rename...'
+ #translateLabel: true
+ #value: #renameProject
+ #enabled: #hasProjectSelectedHolder
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Remove...'
+ #translateLabel: true
+ #value: #removeProject
+ #enabled: #hasProjectSelectedHolder
+ )
+ ) nil
+ nil
)
!
@@ -2738,15 +2738,15 @@
#(#Menu
- #(
- #(#MenuItem
- #label: 'New SubProject'
- #translateLabel: true
- #value: #newSubProject
- #enabled: #hasSubProjectsSelectedHolder
- )
- ) nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'New SubProject'
+ #translateLabel: true
+ #value: #newSubProject
+ #enabled: #hasSubProjectsSelectedHolder
+ )
+ ) nil
+ nil
)
! !
@@ -2779,25 +2779,25 @@
^#(
#(#DataSetColumnSpec
- #label: 'Class'
- #id: 'classColumn'
- #labelAlignment: #left
- #model: #classNameFromClassInfo:
+ #label: 'Class'
+ #id: 'classColumn'
+ #labelAlignment: #left
+ #model: #classNameFromClassInfo:
)
#(#DataSetColumnSpec
- #label: 'Included'
- #id: 'inclusion'
- #width: 150
- #editorType: #ComboList
- #choices: #listOfPossibleConditions:
- #model: #classIncludeConditionFromClassInfo:
- #writeSelector: #classIncludeConditionFromClassInfo:put:
+ #label: 'Included'
+ #id: 'inclusion'
+ #width: 150
+ #editorType: #ComboList
+ #choices: #listOfPossibleConditions:
+ #model: #classIncludeConditionFromClassInfo:
+ #writeSelector: #classIncludeConditionFromClassInfo:put:
)
#(#DataSetColumnSpec
- #label: 'Filename'
- #labelAlignment: #left
- #minWidth: 200
- #model: #classFilenameFromClassInfo:
+ #label: 'Filename'
+ #labelAlignment: #left
+ #minWidth: 200
+ #model: #classFilenameFromClassInfo:
)
)
@@ -2818,20 +2818,20 @@
^#(
#(#DataSetColumnSpec
- #label: 'Class'
- #id: 'classColumn'
- #labelAlignment: #left
- #menu: #patchesMethodMenu
- #model: #classNameFromMethodInfo:
- #doubleClickedSelector: #methodPatchDoubleClick:
- #canSelect: false
+ #label: 'Class'
+ #id: 'classColumn'
+ #labelAlignment: #left
+ #menu: #patchesMethodMenu
+ #model: #classNameFromMethodInfo:
+ #doubleClickedSelector: #methodPatchDoubleClick:
+ #canSelect: false
)
#(#DataSetColumnSpec
- #label: 'Selector'
- #id: 'selectorColumn'
- #labelAlignment: #left
- #model: #selectorFromMethodInfo:
- #canSelect: false
+ #label: 'Selector'
+ #id: 'selectorColumn'
+ #labelAlignment: #left
+ #model: #selectorFromMethodInfo:
+ #canSelect: false
)
)
@@ -2851,8 +2851,8 @@
|holder|
(holder := builder bindingAt:#acceptChannel) isNil ifTrue:[
- holder := false asValue.
- builder aspectAt:#acceptChannel put:holder.
+ holder := false asValue.
+ builder aspectAt:#acceptChannel put:holder.
].
^ holder.
@@ -2867,16 +2867,16 @@
node := self selectedTreeNode.
classOrClassName := node contents value.
classOrClassName isBehavior ifTrue:[
- cls := classOrClassName.
+ cls := classOrClassName.
] ifFalse:[
- cls := Smalltalk at:classOrClassName.
+ cls := Smalltalk at:classOrClassName.
].
cls isNil ifTrue:[
- self information:'The class is not (yet) loaded'.
- ^ self.
+ self information:'The class is not (yet) loaded'.
+ ^ self.
].
cls isLoaded ifFalse:[
- self information:'The class is an autoloaded class.'.
+ self information:'The class is an autoloaded class.'.
].
SystemBrowser openInClass:cls selector:nil.
@@ -2886,10 +2886,10 @@
|holder|
(holder := builder bindingAt:#canAddSelectedClassToPrerequisites) isNil ifTrue:[
- holder := BlockValue
- with:[:m | self canAddClassToPrerequisites:m]
- argument:(self selectedClassInPrerequisites).
- builder aspectAt:#canAddSelectedClassToPrerequisites put:holder.
+ holder := BlockValue
+ with:[:m | self canAddClassToPrerequisites:m]
+ argument:(self selectedClassInPrerequisites).
+ builder aspectAt:#canAddSelectedClassToPrerequisites put:holder.
].
^ holder.
@@ -2900,10 +2900,10 @@
|holder|
(holder := builder bindingAt:#canAddSelectedProjectToPrerequisites) isNil ifTrue:[
- holder := BlockValue
- with:[:m | self canAddProjectToPrerequisites:m]
- argument:(self selectedProjectInPrerequisites).
- builder aspectAt:#canAddSelectedProjectToPrerequisites put:holder.
+ holder := BlockValue
+ with:[:m | self canAddProjectToPrerequisites:m]
+ argument:(self selectedProjectInPrerequisites).
+ builder aspectAt:#canAddSelectedProjectToPrerequisites put:holder.
].
^ holder.
@@ -2931,12 +2931,12 @@
|holder|
(holder := builder bindingAt:#canDeliverForMacOS) isNil ifTrue:[
- holder := BlockValue
- with:[:a1 :a2 | a1 or:[a2 not]]
- arguments:(Array
- with:self canDeliverBinaryForMacOS
- with:self deliverCompiledBinary).
- builder aspectAt:#canDeliverForMacOS put:holder.
+ holder := BlockValue
+ with:[:a1 :a2 | a1 or:[a2 not]]
+ arguments:(Array
+ with:self canDeliverBinaryForMacOS
+ with:self deliverCompiledBinary).
+ builder aspectAt:#canDeliverForMacOS put:holder.
].
^ holder.
!
@@ -2945,12 +2945,12 @@
|holder|
(holder := builder bindingAt:#canDeliverForUnix) isNil ifTrue:[
- holder := BlockValue
- with:[:a1 :a2 | a1 or:[a2 not]]
- arguments:(Array
- with:self canDeliverBinaryForUnix
- with:self deliverCompiledBinary).
- builder aspectAt:#canDeliverForUnix put:holder.
+ holder := BlockValue
+ with:[:a1 :a2 | a1 or:[a2 not]]
+ arguments:(Array
+ with:self canDeliverBinaryForUnix
+ with:self deliverCompiledBinary).
+ builder aspectAt:#canDeliverForUnix put:holder.
].
^ holder.
!
@@ -2959,12 +2959,12 @@
|holder|
(holder := builder bindingAt:#canDeliverForVMS) isNil ifTrue:[
- holder := BlockValue
- with:[:a1 :a2 | a1 or:[a2 not]]
- arguments:(Array
- with:self canDeliverBinaryForVMS
- with:self deliverCompiledBinary).
- builder aspectAt:#canDeliverForVMS put:holder.
+ holder := BlockValue
+ with:[:a1 :a2 | a1 or:[a2 not]]
+ arguments:(Array
+ with:self canDeliverBinaryForVMS
+ with:self deliverCompiledBinary).
+ builder aspectAt:#canDeliverForVMS put:holder.
].
^ holder.
!
@@ -2973,12 +2973,12 @@
|holder|
(holder := builder bindingAt:#canDeliverForWin32) isNil ifTrue:[
- holder := BlockValue
- with:[:a1 :a2 | a1 or:[a2 not]]
- arguments:(Array
- with:self canDeliverBinaryForWin32
- with:self deliverCompiledBinary).
- builder aspectAt:#canDeliverForWin32 put:holder.
+ holder := BlockValue
+ with:[:a1 :a2 | a1 or:[a2 not]]
+ arguments:(Array
+ with:self canDeliverBinaryForWin32
+ with:self deliverCompiledBinary).
+ builder aspectAt:#canDeliverForWin32 put:holder.
].
^ holder.
!
@@ -2987,8 +2987,8 @@
|holder|
(holder := builder bindingAt:#canLoadCurrentProjectHolder) isNil ifTrue:[
- holder := false asValue.
- builder aspectAt:#canLoadCurrentProjectHolder put:holder.
+ holder := false asValue.
+ builder aspectAt:#canLoadCurrentProjectHolder put:holder.
].
^ holder.
@@ -2999,8 +2999,8 @@
|holder|
(holder := builder bindingAt:#canRemoveSelectedClassFromPrerequisites) isNil ifTrue:[
- holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredClassInPrerequisites).
- builder aspectAt:#canRemoveSelectedClassFromPrerequisites put:holder.
+ holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredClassInPrerequisites).
+ builder aspectAt:#canRemoveSelectedClassFromPrerequisites put:holder.
].
^ holder.
@@ -3011,8 +3011,8 @@
|holder|
(holder := builder bindingAt:#canRemoveSelectedProjectFromPrerequisites) isNil ifTrue:[
- holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredProjectInPrerequisites).
- builder aspectAt:#canRemoveSelectedProjectFromPrerequisites put:holder.
+ holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredProjectInPrerequisites).
+ builder aspectAt:#canRemoveSelectedProjectFromPrerequisites put:holder.
].
^ holder.
@@ -3023,8 +3023,8 @@
|holder|
(holder := builder bindingAt:#canUnloadCurrentProjectHolder) isNil ifTrue:[
- holder := false asValue.
- builder aspectAt:#canUnloadCurrentProjectHolder put:holder.
+ holder := false asValue.
+ builder aspectAt:#canUnloadCurrentProjectHolder put:holder.
].
^ holder.
@@ -3037,7 +3037,7 @@
|holder|
(holder := builder bindingAt:#classList) isNil ifTrue:[
- builder aspectAt:#classList put:(holder := List new).
+ builder aspectAt:#classList put:(holder := List new).
].
^ holder.
!
@@ -3056,7 +3056,7 @@
|holder|
(holder := builder bindingAt:#currentCanvasHolder) isNil ifTrue:[
- builder aspectAt:#currentCanvasHolder put:(holder := ValueHolder new).
+ builder aspectAt:#currentCanvasHolder put:(holder := ValueHolder new).
].
^ holder.
!
@@ -3067,7 +3067,7 @@
|holder|
(holder := builder bindingAt:#currentProjectWasNotLoadedFromFile) isNil ifTrue:[
- builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder := ValueHolder new).
+ builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder := ValueHolder new).
].
^ holder.
@@ -3080,8 +3080,8 @@
|holder|
(holder := builder bindingAt:#deliverByteCode) isNil ifTrue:[
- builder aspectAt:#deliverByteCode put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#deliverByteCode put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3094,8 +3094,8 @@
|holder|
(holder := builder bindingAt:#deliverCompiledBinary) isNil ifTrue:[
- builder aspectAt:#deliverCompiledBinary put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#deliverCompiledBinary put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3108,8 +3108,8 @@
|holder|
(holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[
- builder aspectAt:#deliverGZipArchive put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#deliverGZipArchive put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3122,8 +3122,8 @@
|holder|
(holder := builder bindingAt:#deliverLoadAllFile) isNil ifTrue:[
- builder aspectAt:#deliverLoadAllFile put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#deliverLoadAllFile put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3136,8 +3136,8 @@
|holder|
(holder := builder bindingAt:#deliverMakefiles) isNil ifTrue:[
- builder aspectAt:#deliverMakefiles put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#deliverMakefiles put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3150,8 +3150,8 @@
|holder|
(holder := builder bindingAt:#deliverSources) isNil ifTrue:[
- builder aspectAt:#deliverSources put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#deliverSources put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3164,8 +3164,8 @@
|holder|
(holder := builder bindingAt:#deliverTarArchive) isNil ifTrue:[
- builder aspectAt:#deliverTarArchive put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#deliverTarArchive put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3178,8 +3178,8 @@
|holder|
(holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[
- builder aspectAt:#deliverZipArchive put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#deliverZipArchive put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3189,12 +3189,12 @@
hasProjectSelectedAndProjectFilenameHolder
^ [ |dir|
- dir := self projectDirectory value asFilename.
- (dir exists and:[dir isDirectory]) ifTrue:[
- self hasProjectSelectedHolder value
- ] ifFalse:[
- false
- ]
+ dir := self projectDirectory value asFilename.
+ (dir exists and:[dir isDirectory]) ifTrue:[
+ self hasProjectSelectedHolder value
+ ] ifFalse:[
+ false
+ ]
].
!
@@ -3202,16 +3202,16 @@
^ true.
^ [ |dir|
- dir := self projectDirectory value asFilename.
- (dir exists and:[dir isDirectory]) ifTrue:[
- (self hasProjectSelectedHolder value) ifTrue:[
- self projectCodeIsLoadedHolder value
- ] ifFalse:[
- false.
- ]
- ] ifFalse:[
- false
- ]
+ dir := self projectDirectory value asFilename.
+ (dir exists and:[dir isDirectory]) ifTrue:[
+ (self hasProjectSelectedHolder value) ifTrue:[
+ self projectCodeIsLoadedHolder value
+ ] ifFalse:[
+ false.
+ ]
+ ] ifFalse:[
+ false
+ ]
].
!
@@ -3219,8 +3219,8 @@
|holder|
(holder := builder bindingAt:#hasProjectSelectedHolder) isNil ifTrue:[
- holder := false asValue.
- builder aspectAt:#hasProjectSelectedHolder put:holder.
+ holder := false asValue.
+ builder aspectAt:#hasProjectSelectedHolder put:holder.
].
^ holder.
@@ -3229,7 +3229,7 @@
hasSubProjectsSelectedHolder
^ [
- self hasSubProjectsNodeSelected
+ self hasSubProjectsNodeSelected
]
!
@@ -3239,7 +3239,7 @@
|holder|
(holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[
- builder aspectAt:#htmlDocumentURLHolder put:(holder := ValueHolder new).
+ builder aspectAt:#htmlDocumentURLHolder put:(holder := ValueHolder new).
].
^ holder.
!
@@ -3250,8 +3250,8 @@
|holder|
(holder := builder bindingAt:#installDirectoryMacOS) isNil ifTrue:[
- builder aspectAt:#installDirectoryMacOS put:(holder := '' asValue).
- holder onChangeSend:#value to:[modifiedChannel value:true].
+ builder aspectAt:#installDirectoryMacOS put:(holder := '' asValue).
+ holder onChangeSend:#value to:[modifiedChannel value:true].
].
^ holder.
@@ -3264,8 +3264,8 @@
|holder|
(holder := builder bindingAt:#installDirectoryUnix) isNil ifTrue:[
- builder aspectAt:#installDirectoryUnix put:(holder := '/opt/smalltalk' asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#installDirectoryUnix put:(holder := '/opt/smalltalk' asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3278,8 +3278,8 @@
|holder|
(holder := builder bindingAt:#installDirectoryVMS) isNil ifTrue:[
- builder aspectAt:#installDirectoryVMS put:(holder := '' asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#installDirectoryVMS put:(holder := '' asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3292,8 +3292,8 @@
|holder|
(holder := builder bindingAt:#installDirectoryWin32) isNil ifTrue:[
- builder aspectAt:#installDirectoryWin32 put:(holder := '\Programme\SmalltalkX' asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#installDirectoryWin32 put:(holder := '\Programme\SmalltalkX' asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3304,33 +3304,33 @@
|holder classes|
(holder := builder bindingAt:#listOfAllClassesInPrerequisites) isNil ifTrue:[
- builder aspectAt:#listOfAllClassesInPrerequisites put:(holder := SortedCollection new asValue).
-
- "/ all unloaded classes and classes which where
- "/ loaded are candidates.
-
- classes := Smalltalk allClasses
- select:[:cls |
- cls isMeta not
- and:[
- cls isLoaded not
- or:[cls wasAutoloaded]]
- ].
-
- "/ mark currently loaded classes as bold;
- "/ LATER: those which are superclasses of any of my classes bold-red.
-
- classes := classes collect:[:cls | |nm|
- nm := cls name.
- cls isLoaded ifTrue:[
- nm := nm asText allBold.
- ].
- nm
- ].
- holder value addAll:classes.
- self currentProject wasLoadedFromFile ifFalse:[
- self updateListOfRequiredPrerequisiteClasses.
- ]
+ builder aspectAt:#listOfAllClassesInPrerequisites put:(holder := SortedCollection new asValue).
+
+ "/ all unloaded classes and classes which where
+ "/ loaded are candidates.
+
+ classes := Smalltalk allClasses
+ select:[:cls |
+ cls isMeta not
+ and:[
+ cls isLoaded not
+ or:[cls wasAutoloaded]]
+ ].
+
+ "/ mark currently loaded classes as bold;
+ "/ LATER: those which are superclasses of any of my classes bold-red.
+
+ classes := classes collect:[:cls | |nm|
+ nm := cls name.
+ cls isLoaded ifTrue:[
+ nm := nm asText allBold.
+ ].
+ nm
+ ].
+ holder value addAll:classes.
+ self currentProject wasLoadedFromFile ifFalse:[
+ self updateListOfRequiredPrerequisiteClasses.
+ ]
].
^ holder.
@@ -3343,18 +3343,18 @@
|holder projects currentProject|
(holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[
- builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := SortedCollection new asValue).
-
- currentProject := self currentProject.
-
- projects := Set new.
- Project allInstancesDo:[:p |
- (p ~~ currentProject
- and:[p ~~ Project defaultProject]) ifTrue:[
- projects add:p name.
- ]
- ].
- holder value addAll:projects.
+ builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := SortedCollection new asValue).
+
+ currentProject := self currentProject.
+
+ projects := Set new.
+ Project allInstancesDo:[:p |
+ (p ~~ currentProject
+ and:[p ~~ Project defaultProject]) ifTrue:[
+ projects add:p name.
+ ]
+ ].
+ holder value addAll:projects.
].
^ holder.
@@ -3373,10 +3373,10 @@
|holder|
(holder := builder bindingAt:#listOfRequiredClassesInPrerequisites) isNil ifTrue:[
- builder aspectAt:#listOfRequiredClassesInPrerequisites put:(holder := SortedCollection new asValue).
- self currentProject wasLoadedFromFile ifFalse:[
- self updateListOfRequiredPrerequisiteClasses.
- ]
+ builder aspectAt:#listOfRequiredClassesInPrerequisites put:(holder := SortedCollection new asValue).
+ self currentProject wasLoadedFromFile ifFalse:[
+ self updateListOfRequiredPrerequisiteClasses.
+ ]
].
^ holder.
@@ -3389,7 +3389,7 @@
|holder|
(holder := builder bindingAt:#listOfRequiredProjectsInPrerequisites) isNil ifTrue:[
- builder aspectAt:#listOfRequiredProjectsInPrerequisites put:(holder := SortedCollection new asValue).
+ builder aspectAt:#listOfRequiredProjectsInPrerequisites put:(holder := SortedCollection new asValue).
].
^ holder.
@@ -3402,8 +3402,8 @@
|holder|
(holder := builder bindingAt:#makeDefines) isNil ifTrue:[
- builder aspectAt:#makeDefines put:(holder := '' asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#makeDefines put:(holder := '' asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3416,8 +3416,8 @@
|holder|
(holder := builder bindingAt:#makeIncludes) isNil ifTrue:[
- builder aspectAt:#makeIncludes put:(holder := '' asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#makeIncludes put:(holder := '' asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3430,8 +3430,8 @@
|holder|
(holder := builder bindingAt:#makeOtherWarningOptions) isNil ifTrue:[
- builder aspectAt:#makeOtherWarningOptions put:(holder := '' asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#makeOtherWarningOptions put:(holder := '' asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3444,8 +3444,8 @@
|holder|
(holder := builder bindingAt:#makeWarnEOLComments) isNil ifTrue:[
- builder aspectAt:#makeWarnEOLComments put:(holder := false asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#makeWarnEOLComments put:(holder := false asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3458,8 +3458,8 @@
|holder|
(holder := builder bindingAt:#makeWarnNonStandard) isNil ifTrue:[
- builder aspectAt:#makeWarnNonStandard put:(holder := true asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#makeWarnNonStandard put:(holder := true asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3472,8 +3472,8 @@
|holder|
(holder := builder bindingAt:#methodsFile) isNil ifTrue:[
- builder aspectAt:#methodsFile put:(holder := '' asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#methodsFile put:(holder := '' asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3484,7 +3484,7 @@
"automatically generated by UIPainter ..."
modifiedChannel isNil ifTrue:[
- modifiedChannel := false asValue.
+ modifiedChannel := false asValue.
].
^ modifiedChannel.
@@ -3509,7 +3509,7 @@
|holder|
(holder := builder bindingAt:#patchesList) isNil ifTrue:[
- builder aspectAt:#patchesList put:(holder := List new).
+ builder aspectAt:#patchesList put:(holder := List new).
].
^ holder.
!
@@ -3520,7 +3520,7 @@
|holder|
(holder := builder bindingAt:#projectCodeIsLoadedHolder) isNil ifTrue:[
- builder aspectAt:#projectCodeIsLoadedHolder put:(holder := ValueHolder new).
+ builder aspectAt:#projectCodeIsLoadedHolder put:(holder := ValueHolder new).
].
^ holder.
@@ -3533,8 +3533,8 @@
|holder|
(holder := builder bindingAt:#projectDirectory) isNil ifTrue:[
- builder aspectAt:#projectDirectory put:(holder := '.' asValue).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#projectDirectory put:(holder := '.' asValue).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3547,8 +3547,8 @@
|holder|
(holder := builder bindingAt:#projectNamespace) isNil ifTrue:[
- builder aspectAt:#projectNamespace put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#projectNamespace put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3559,14 +3559,14 @@
|holder dir module|
(holder := builder bindingAt:#projectPackage) isNil ifTrue:[
- builder aspectAt:#projectPackage put:(holder := '' asValue).
+ builder aspectAt:#projectPackage put:(holder := '' asValue).
].
holder value size == 0 ifTrue:[
- (module := self repositoryModule value) notNil ifTrue:[
- (dir := self repositoryDirectory value) notNil ifTrue:[
- holder value:(module , ':' , dir)
- ]
- ]
+ (module := self repositoryModule value) notNil ifTrue:[
+ (dir := self repositoryDirectory value) notNil ifTrue:[
+ holder value:(module , ':' , dir)
+ ]
+ ]
].
^ holder.
@@ -3579,8 +3579,8 @@
|holder|
(holder := builder bindingAt:#projectTree) isNil ifTrue:[
- builder aspectAt:#projectTree put:(holder := SelectionInTree new).
- holder root:self projectTree.
+ builder aspectAt:#projectTree put:(holder := SelectionInTree new).
+ holder root:self projectTree.
].
^ holder.
!
@@ -3591,8 +3591,8 @@
|holder|
(holder := builder bindingAt:#projectType) isNil ifTrue:[
- builder aspectAt:#projectType put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#projectType put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3605,8 +3605,8 @@
|holder|
(holder := builder bindingAt:#repositoryDirectory) isNil ifTrue:[
- builder aspectAt:#repositoryDirectory put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#repositoryDirectory put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3619,8 +3619,8 @@
|holder|
(holder := builder bindingAt:#repositoryModule) isNil ifTrue:[
- builder aspectAt:#repositoryModule put:(holder := ValueHolder new).
- holder onChangeEvaluate:[modifiedChannel value:true].
+ builder aspectAt:#repositoryModule put:(holder := ValueHolder new).
+ holder onChangeEvaluate:[modifiedChannel value:true].
].
^ holder.
@@ -3633,7 +3633,7 @@
|holder|
(holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[
- builder aspectAt:#rightCanvasTextHolder put:(holder := ValueHolder new).
+ builder aspectAt:#rightCanvasTextHolder put:(holder := ValueHolder new).
].
^ holder.
!
@@ -3644,7 +3644,7 @@
|holder|
(holder := builder bindingAt:#selectedClassInPrerequisites) isNil ifTrue:[
- builder aspectAt:#selectedClassInPrerequisites put:(holder := ValueHolder new).
+ builder aspectAt:#selectedClassInPrerequisites put:(holder := ValueHolder new).
].
^ holder.
@@ -3657,7 +3657,7 @@
|holder|
(holder := builder bindingAt:#selectedPatchInRightCanvas) isNil ifTrue:[
- builder aspectAt:#selectedPatchInRightCanvas put:(holder := ValueHolder new).
+ builder aspectAt:#selectedPatchInRightCanvas put:(holder := ValueHolder new).
].
^ holder.
!
@@ -3668,7 +3668,7 @@
|holder|
(holder := builder bindingAt:#selectedProjectInPrerequisites) isNil ifTrue:[
- builder aspectAt:#selectedProjectInPrerequisites put:(holder := ValueHolder new).
+ builder aspectAt:#selectedProjectInPrerequisites put:(holder := ValueHolder new).
].
^ holder.
@@ -3681,7 +3681,7 @@
|holder|
(holder := builder bindingAt:#selectedRequiredClassInPrerequisites) isNil ifTrue:[
- builder aspectAt:#selectedRequiredClassInPrerequisites put:(holder := ValueHolder new).
+ builder aspectAt:#selectedRequiredClassInPrerequisites put:(holder := ValueHolder new).
].
^ holder.
@@ -3694,7 +3694,7 @@
|holder|
(holder := builder bindingAt:#selectedRequiredProjectInPrerequisites) isNil ifTrue:[
- builder aspectAt:#selectedRequiredProjectInPrerequisites put:(holder := ValueHolder new).
+ builder aspectAt:#selectedRequiredProjectInPrerequisites put:(holder := ValueHolder new).
].
^ holder.
@@ -3705,7 +3705,7 @@
"automatically generated by UIPainter ..."
selectedTreeNodeHolder isNil ifTrue:[
- selectedTreeNodeHolder := ValueHolder new.
+ selectedTreeNodeHolder := ValueHolder new.
].
^ selectedTreeNodeHolder.
!
@@ -3714,9 +3714,9 @@
|holder|
(holder := builder bindingAt:#showWhat) isNil ifTrue:[
- holder := ValueHolder new.
- builder aspectAt:#showWhat put:holder.
- holder onChangeSend:#projectFilterChanged to:self.
+ holder := ValueHolder new.
+ builder aspectAt:#showWhat put:holder.
+ holder onChangeSend:#projectFilterChanged to:self.
].
^ holder.
@@ -3729,7 +3729,7 @@
|holder|
(holder := builder bindingAt:#textCanvasLabelHolder) isNil ifTrue:[
- builder aspectAt:#textCanvasLabelHolder put:(holder :='' asValue).
+ builder aspectAt:#textCanvasLabelHolder put:(holder :='' asValue).
].
^ holder.
! !
@@ -3740,14 +3740,14 @@
|cls sel oldMthd newMthd prj package|
something == #name ifTrue:[
- "/ a project was renamed - update my tree
- self projectTree children do:[:pNode |
- pNode contents == changedObject ifTrue:[
- pNode name:changedObject name.
- pNode changed.
- ]
- ].
- ^ self.
+ "/ a project was renamed - update my tree
+ self projectTree children do:[:pNode |
+ pNode contents == changedObject ifTrue:[
+ pNode name:changedObject name.
+ pNode changed.
+ ]
+ ].
+ ^ self.
].
prj := self currentProject.
@@ -3756,50 +3756,50 @@
package := prj package.
changedObject == prj ifTrue:[
- self readAspectsFromProject.
+ self readAspectsFromProject.
].
changedObject == Smalltalk ifTrue:[
- something == #newClass ifTrue:[
- aParameter isBehavior ifTrue:[
- aParameter wasAutoloaded ifTrue:[
- self listOfAllClassesInPrerequisites add:something name.
- ^ self.
- ].
- aParameter package = package ifTrue:[
- "/ a new class was added to the package;
- "/ must look if already there, and possibly update my
- "/ tree and classList
- (self currentProject includesClass:aParameter) ifFalse:[
- self halt.
- ].
- ^ self.
- ]
- ]
- ].
-
- something == #methodInClass ifTrue:[
- cls := aParameter first.
- sel := aParameter second.
- oldMthd := aParameter third.
- newMthd := cls compiledMethodAt:sel.
-
- cls package ~= package ifTrue:[
- "/ method removed from project ?
- (oldMthd notNil and:[oldMthd package = package]) ifTrue:[
- (newMthd notNil and:[newMthd package ~= package]) ifTrue:[
- "/ remove from methodList
- ]
- ].
-
- "/ method added to project ?
- (oldMthd isNil or:[oldMthd package ~= package]) ifTrue:[
- (newMthd notNil and:[newMthd package = package]) ifTrue:[
- "/ add to methodList
- ]
- ]
- ]
- ].
+ something == #newClass ifTrue:[
+ aParameter isBehavior ifTrue:[
+ aParameter wasAutoloaded ifTrue:[
+ self listOfAllClassesInPrerequisites add:something name.
+ ^ self.
+ ].
+ aParameter package = package ifTrue:[
+ "/ a new class was added to the package;
+ "/ must look if already there, and possibly update my
+ "/ tree and classList
+ (self currentProject includesClass:aParameter) ifFalse:[
+ self halt.
+ ].
+ ^ self.
+ ]
+ ]
+ ].
+
+ something == #methodInClass ifTrue:[
+ cls := aParameter first.
+ sel := aParameter second.
+ oldMthd := aParameter third.
+ newMthd := cls compiledMethodAt:sel.
+
+ cls package ~= package ifTrue:[
+ "/ method removed from project ?
+ (oldMthd notNil and:[oldMthd package = package]) ifTrue:[
+ (newMthd notNil and:[newMthd package ~= package]) ifTrue:[
+ "/ remove from methodList
+ ]
+ ].
+
+ "/ method added to project ?
+ (oldMthd isNil or:[oldMthd package ~= package]) ifTrue:[
+ (newMthd notNil and:[newMthd package = package]) ifTrue:[
+ "/ add to methodList
+ ]
+ ]
+ ]
+ ].
].
"Modified: / 26.4.1999 / 23:39:04 / cg"
@@ -3822,7 +3822,7 @@
setupCanvasForNoSelection
self
- showReadOnlyText:'Please select an existing project,
+ showReadOnlyText:'Please select an existing project,
load one from a (''.prj'')-file,
or create a new project.'.
! !
@@ -3833,31 +3833,31 @@
|m|
self hasNodeSelected ifFalse:[
- ^ self class noItemMenu
+ ^ self class noItemMenu
].
self hasProjectNodeSelected ifTrue:[
- ^ self class projectItemMenu
+ ^ self class projectItemMenu
].
self hasSubProjectsNodeSelected ifTrue:[
- ^ self class subProjectsItemMenu
+ ^ self class subProjectsItemMenu
].
self hasClassesNodeSelected ifTrue:[
- ^ self class classesItemMenu
+ ^ self class classesItemMenu
].
self hasClassNodeSelected ifTrue:[
- ^ self class classItemMenu
+ ^ self class classItemMenu
].
self hasMethodNodeSelected ifTrue:[
- ^ self class methodItemMenu
+ ^ self class methodItemMenu
].
self hasPatchesNodeSelected ifTrue:[
- ^ self class methodsItemMenu
+ ^ self class methodsItemMenu
].
self hasPrerequisiteClassesNodeSelected ifTrue:[
- ^ self class prerequisiteClassesItemMenu
+ ^ self class prerequisiteClassesItemMenu
].
self hasPrerequisitePackagesNodeSelected ifTrue:[
- ^ self class prerequisitePackagesItemMenu
+ ^ self class prerequisitePackagesItemMenu
].
^ nil
!
@@ -3882,11 +3882,11 @@
path := newNode contents package asCollectionOfSubstringsSeparatedByAny:'/\:'.
path from:1 to:path size-1 do:[:part |
- childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
- childNode isNil ifTrue:[
- nodeToAdd add:(childNode := ProjectTreeItem new name:part).
- ].
- nodeToAdd := childNode.
+ childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
+ childNode isNil ifTrue:[
+ nodeToAdd add:(childNode := ProjectTreeItem new name:part).
+ ].
+ nodeToAdd := childNode.
].
newNode name:(path last).
nodeToAdd add:newNode.
@@ -3927,7 +3927,7 @@
(AbstractSourceCodeManager notNil
and:[AbstractSourceCodeManager isLoaded not]) ifTrue:[
- AbstractSourceCodeManager autoload.
+ AbstractSourceCodeManager autoload.
].
AbstractSourceCodeManager isNil ifTrue:[^ false].
@@ -3938,14 +3938,14 @@
"/ since this is a slow operation (involving the CVS manager,
"/ remember checked modules here in a classVar
AlreadCheckedExistingModulesAndPackages isNil ifTrue:[
- AlreadCheckedExistingModulesAndPackages := OrderedCollection new
+ AlreadCheckedExistingModulesAndPackages := OrderedCollection new
].
AlreadCheckedExistingModulesAndPackages do:[:entry |
- (entry at:1) = moduleDir ifTrue:[
- (entry at:2) = packageDir ifTrue:[
- ^ true
- ]
- ]
+ (entry at:1) = moduleDir ifTrue:[
+ (entry at:2) = packageDir ifTrue:[
+ ^ true
+ ]
+ ]
].
(manager checkForExistingModule:moduleDir package:packageDir) ifFalse:[^ false].
@@ -3995,10 +3995,10 @@
node isNil ifTrue:[^ nil].
[node notNil and:[node isProjectNode not]] whileTrue:[
- node := node parent.
+ node := node parent.
].
node notNil ifTrue:[
- ^ node
+ ^ node
].
^ nil
@@ -4009,13 +4009,13 @@
p := self currentProject.
^ p classes
- collect:[:classOrSymbol |
- classOrSymbol isBehavior ifTrue:[
- classOrSymbol name
- ] ifFalse:[
- classOrSymbol
- ]
- ]
+ collect:[:classOrSymbol |
+ classOrSymbol isBehavior ifTrue:[
+ classOrSymbol name
+ ] ifFalse:[
+ classOrSymbol
+ ]
+ ]
!
@@ -4023,11 +4023,11 @@
|theNode|
theNode := self projectTreeHolder
- detectFirstItem:[:item | item contents == someContents].
+ detectFirstItem:[:item | item contents == someContents].
[theNode notNil] whileTrue:[
- self projectTreeHolder expand:theNode.
- theNode := theNode parent.
+ self projectTreeHolder expand:theNode.
+ theNode := theNode parent.
].
@@ -4112,8 +4112,8 @@
node := selectedNode.
[node notNil] whileTrue:[
- node isProjectNode ifTrue:[^ true].
- node := node parent.
+ node isProjectNode ifTrue:[^ true].
+ node := node parent.
].
^ false.
!
@@ -4129,8 +4129,8 @@
transcript := self transcript.
(transcript relativeCorner y - transcript relativeOrigin y) < 0.1 ifTrue:[
- (self builder componentAt:#VariableVerticalPanel1)
- resizeSubViewsTo:#(0.7 0.3)
+ (self builder componentAt:#VariableVerticalPanel1)
+ resizeSubViewsTo:#(0.7 0.3)
].
@@ -4163,10 +4163,10 @@
pNode add:(deploymentNode := ProjectTreeItem name:'Deployment').
subprojectsNode notNil ifTrue:[
- subprojectsNode contents:#subprojects.
- aProject subProjects do:[:aSubProject |
- subprojectsNode add:(self nodeFor:aSubProject)
- ].
+ subprojectsNode contents:#subprojects.
+ aProject subProjects do:[:aSubProject |
+ subprojectsNode add:(self nodeFor:aSubProject)
+ ].
].
commentNode icon:(self class commentIcon).
@@ -4175,18 +4175,18 @@
commentNode contents:#comment.
docNode notNil ifTrue:[
- docNode contents:#documentation.
- docNode action:[:item | self showDocumentationFor:item].
-
- docNode add:(analysisNode := ProjectTreeItem name:'Analysis').
- docNode add:(designNode := ProjectTreeItem name:'Design').
- docNode add:(codeNode := ProjectTreeItem name:'Code').
- docNode add:(userDocNode := ProjectTreeItem name:'User Documentation').
- userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview').
- userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide').
- userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference').
- docNode add:(userDocNode := ProjectTreeItem name:'Error Reports').
- docNode add:(userDocNode := ProjectTreeItem name:'Other').
+ docNode contents:#documentation.
+ docNode action:[:item | self showDocumentationFor:item].
+
+ docNode add:(analysisNode := ProjectTreeItem name:'Analysis').
+ docNode add:(designNode := ProjectTreeItem name:'Design').
+ docNode add:(codeNode := ProjectTreeItem name:'Code').
+ docNode add:(userDocNode := ProjectTreeItem name:'User Documentation').
+ userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview').
+ userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide').
+ userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference').
+ docNode add:(userDocNode := ProjectTreeItem name:'Error Reports').
+ docNode add:(userDocNode := ProjectTreeItem name:'Other').
].
prerequisitesNode contents:#prerequisites.
@@ -4211,21 +4211,21 @@
classesNode icon:(self class classesIcon).
classesNode info:'Classes contained in the project'.
(aProject classes copy
- sort:[:a :b |
- |nmA nmB|
-
- nmA := a isBehavior ifTrue:[a name] ifFalse:[a].
- nmB := b isBehavior ifTrue:[b name] ifFalse:[b].
- nmA < nmB
- ]
+ sort:[:a :b |
+ |nmA nmB|
+
+ nmA := a isBehavior ifTrue:[a name] ifFalse:[a].
+ nmB := b isBehavior ifTrue:[b name] ifFalse:[b].
+ nmA < nmB
+ ]
) do:[:aClass |
- |cNode cName|
-
- cName := aClass isBehavior ifTrue:[aClass name] ifFalse:[aClass].
- cNode := ProjectTreeItem name:cName.
- cNode contents:(#class -> aClass).
- cNode icon:classIcon.
- classesNode add:cNode.
+ |cNode cName|
+
+ cName := aClass isBehavior ifTrue:[aClass name] ifFalse:[aClass].
+ cNode := ProjectTreeItem name:cName.
+ cNode contents:(#class -> aClass).
+ cNode icon:classIcon.
+ classesNode add:cNode.
].
@@ -4244,16 +4244,16 @@
patchesNode icon:(self class methodsIcon).
patchesNode info:'Patches & Extensions (system-changes) contained in the project'.
(aProject methodInfo copy
- sort:[:a :b |
- a displayString < b displayString.
- ]
+ sort:[:a :b |
+ a displayString < b displayString.
+ ]
) do:[:aMethodInfo |
- |cNode cName|
-
- cNode := ProjectTreeItem name:(aMethodInfo className , ' ' , aMethodInfo methodName).
- cNode contents:(#method -> aMethodInfo).
- cNode icon:methodIcon.
- patchesNode add:cNode.
+ |cNode cName|
+
+ cNode := ProjectTreeItem name:(aMethodInfo className , ' ' , aMethodInfo methodName).
+ cNode contents:(#method -> aMethodInfo).
+ cNode icon:methodIcon.
+ patchesNode add:cNode.
].
deploymentNode icon:(self class deploymentIcon).
@@ -4273,7 +4273,7 @@
projectTree
projectTree isNil ifTrue:[
- self updateProjectTree
+ self updateProjectTree
].
^ projectTree
@@ -4284,103 +4284,103 @@
p := self currentProject.
p notNil ifTrue:[
- self selectedTreeNode contents == #comment ifTrue:[
- self rightCanvasTextHolder value:p comment.
- ].
-
- self methodsFile value:(p propertyAt:#methodsFile).
- self projectCodeIsLoadedHolder value:(p isLoaded == true).
- p isLoaded == true ifFalse:[
- self valueOfInfoLabel value:'Projects code is not loaded.'
- ].
-
- self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
- (type := p type) == #classLibrary ifTrue:[
- type := #library
- ].
- self projectType value:type.
- self projectDirectory value:(p directory).
- ns := p defaultNameSpace ? Smalltalk.
- ns isSymbol ifFalse:[
- ns := ns name
- ].
- self projectNamespace value:ns.
-
- pkg := p package ? Project current package.
- mMod := p repositoryModule ? '?'.
- mDir := p repositoryDirectory ? '?'.
- mPkg := mMod , ':' , mDir.
-
- mPkg ~= pkg ifTrue:[
- (pkg includes:$:) ifTrue:[
- mMod := pkg upTo:$:.
- mDir := pkg copyFrom:mMod size + 2.
+ self selectedTreeNode contents == #comment ifTrue:[
+ self rightCanvasTextHolder value:p comment.
+ ].
+
+ self methodsFile value:(p propertyAt:#methodsFile).
+ self projectCodeIsLoadedHolder value:(p isLoaded == true).
+ p isLoaded == true ifFalse:[
+ self valueOfInfoLabel value:'Projects code is not loaded.'
+ ].
+
+ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
+ (type := p type) == #classLibrary ifTrue:[
+ type := #library
+ ].
+ self projectType value:type.
+ self projectDirectory value:(p directory).
+ ns := p defaultNameSpace ? Smalltalk.
+ ns isSymbol ifFalse:[
+ ns := ns name
+ ].
+ self projectNamespace value:ns.
+
+ pkg := p package ? Project current package.
+ mMod := p repositoryModule ? '?'.
+ mDir := p repositoryDirectory ? '?'.
+ mPkg := mMod , ':' , mDir.
+
+ mPkg ~= pkg ifTrue:[
+ (pkg includes:$:) ifTrue:[
+ mMod := pkg upTo:$:.
+ mDir := pkg copyFrom:mMod size + 2.
"/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
"/ '\\Assume module:''' , mMod , ''' directory:''' , mDir , '''') withCRs.
- ] ifFalse:[
- ((mMod ~= '?') and:[mDir ~= '?']) ifTrue:[
+ ] ifFalse:[
+ ((mMod ~= '?') and:[mDir ~= '?']) ifTrue:[
"/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
"/ '\\Assume package:''' , mMod , ':' , mDir , '''') withCRs.
- pkg := mMod , ':' , mDir
- ] ifFalse:[
+ pkg := mMod , ':' , mDir
+ ] ifFalse:[
"/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
"/ '\\Please care for the module and directory settings.') withCRs.
- ]
- ]
- ].
- self projectPackage value:pkg.
- self repositoryModule value:mMod.
- self repositoryDirectory value:mDir.
-
- self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false.
- self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false.
- self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false.
- self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false.
- self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false.
- self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false.
- self deliverSources value:(p propertyAt:#deliverSources) ? false.
- self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false.
-
- self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''.
- self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''.
- self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''.
- self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false.
- self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true.
+ ]
+ ]
+ ].
+ self projectPackage value:pkg.
+ self repositoryModule value:mMod.
+ self repositoryDirectory value:mDir.
+
+ self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false.
+ self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false.
+ self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false.
+ self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false.
+ self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false.
+ self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false.
+ self deliverSources value:(p propertyAt:#deliverSources) ? false.
+ self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false.
+
+ self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''.
+ self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''.
+ self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''.
+ self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false.
+ self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true.
"/ self makeLocalLibs value:(p propertyAt:#'make.LD_OBJ_LIBS') ? ''.
"/ self makeExtraTargets value:(p propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? ''.
- self installDirectoryUnix
- value:(p propertyAt:#installDirectoryUnix) ?
- ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages').
- self installDirectoryWin32
- value:(p propertyAt:#installDirectoryWin32) ?
- ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX\packages').
- self installDirectoryVMS
- value:(p propertyAt:#installDirectoryVMS) ?
- ((p propertyAt:#installDirectory) ? 'SYS$SMALLTALKX:[PACKAGES]').
+ self installDirectoryUnix
+ value:(p propertyAt:#installDirectoryUnix) ?
+ ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages').
+ self installDirectoryWin32
+ value:(p propertyAt:#installDirectoryWin32) ?
+ ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX\packages').
+ self installDirectoryVMS
+ value:(p propertyAt:#installDirectoryVMS) ?
+ ((p propertyAt:#installDirectory) ? 'SYS$SMALLTALKX:[PACKAGES]').
"/ self installDirectoryMacOS
"/ value:(p propertyAt:#installDirectoryMacOS) ?
"/ ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX').
- l := p prerequisitePackages collect:[:entry |
- |pName|
-
- entry isString ifTrue:[
- pName := entry
- ] ifFalse:[
- entry isArray ifTrue:[
- pName := entry at:1
- ] ifFalse:[
- pName := entry name
- ]
- ]
- ].
- self listOfRequiredProjectsInPrerequisites value:(l sort).
- self listOfRequiredClassesInPrerequisites value:(p prerequisiteClasses copy sort).
-
- modifiedChannel value:false.
- p addDependent:self.
+ l := p prerequisitePackages collect:[:entry |
+ |pName|
+
+ entry isString ifTrue:[
+ pName := entry
+ ] ifFalse:[
+ entry isArray ifTrue:[
+ pName := entry at:1
+ ] ifFalse:[
+ pName := entry name
+ ]
+ ]
+ ].
+ self listOfRequiredProjectsInPrerequisites value:(l sort).
+ self listOfRequiredClassesInPrerequisites value:(p prerequisiteClasses copy sort).
+
+ modifiedChannel value:false.
+ p addDependent:self.
].
"Created: / 23.3.1999 / 14:16:12 / cg"
@@ -4395,40 +4395,40 @@
selectedNodeType == #comment ifTrue:[
self halt.
- ^ self rightCanvasTextHolder value ~= p comment
+ ^ self rightCanvasTextHolder value ~= p comment
].
selectedNodeType == #deployment ifTrue:[
- (self deliverByteCode value ~= (p propertyAt:#deliverByteCode)) ifTrue:[^ true].
- (self deliverCompiledBinary value ~= (p propertyAt:#deliverCompiledBinary)) ifTrue:[^ true].
- (self deliverLoadAllFile value ~= (p propertyAt:#deliverLoadAllFile)) ifTrue:[^ true].
- (self deliverSources value ~= (p propertyAt:#deliverSources)) ifTrue:[^ true].
- (self deliverMakefiles value ~= (p propertyAt:#deliverMakefiles)) ifTrue:[^ true].
-
- (self deliverZipArchive value ~= (p propertyAt:#deliverZipArchive)) ifTrue:[^ true].
- (self deliverTarArchive value ~= (p propertyAt:#deliverTarArchive)) ifTrue:[^ true].
- (self deliverGZipArchive value ~= (p propertyAt:#deliverGZipArchive)) ifTrue:[^ true].
-
- self installDirectoryUnix value ~=
- ((p propertyAt:#installDirectoryUnix) ?
- ((p propertyAt:#installDirectory) ?
- '/opt/smalltalk/packages')) ifTrue:[^ true].
-
- self installDirectoryWin32 value ~=
- ((p propertyAt:#installDirectoryWin32) ?
- ((p propertyAt:#installDirectory) ?
- '\Programme\SmalltalkX\packages')) ifTrue:[^ true].
-
- self installDirectoryVMS value ~=
- ((p propertyAt:#installDirectoryVMS) ?
- ((p propertyAt:#installDirectory) ?
- 'SYS$SMALLTALKX:[PACKAGES]')) ifTrue:[^ true].
-
- ^ false
+ (self deliverByteCode value ~= (p propertyAt:#deliverByteCode)) ifTrue:[^ true].
+ (self deliverCompiledBinary value ~= (p propertyAt:#deliverCompiledBinary)) ifTrue:[^ true].
+ (self deliverLoadAllFile value ~= (p propertyAt:#deliverLoadAllFile)) ifTrue:[^ true].
+ (self deliverSources value ~= (p propertyAt:#deliverSources)) ifTrue:[^ true].
+ (self deliverMakefiles value ~= (p propertyAt:#deliverMakefiles)) ifTrue:[^ true].
+
+ (self deliverZipArchive value ~= (p propertyAt:#deliverZipArchive)) ifTrue:[^ true].
+ (self deliverTarArchive value ~= (p propertyAt:#deliverTarArchive)) ifTrue:[^ true].
+ (self deliverGZipArchive value ~= (p propertyAt:#deliverGZipArchive)) ifTrue:[^ true].
+
+ self installDirectoryUnix value ~=
+ ((p propertyAt:#installDirectoryUnix) ?
+ ((p propertyAt:#installDirectory) ?
+ '/opt/smalltalk/packages')) ifTrue:[^ true].
+
+ self installDirectoryWin32 value ~=
+ ((p propertyAt:#installDirectoryWin32) ?
+ ((p propertyAt:#installDirectory) ?
+ '\Programme\SmalltalkX\packages')) ifTrue:[^ true].
+
+ self installDirectoryVMS value ~=
+ ((p propertyAt:#installDirectoryVMS) ?
+ ((p propertyAt:#installDirectory) ?
+ 'SYS$SMALLTALKX:[PACKAGES]')) ifTrue:[^ true].
+
+ ^ false
].
selectedNodeType == #files ifTrue:[
^ true.
- (self methodsFile value ~= (p propertyAt:#methodsFile)) ifTrue:[^ true].
- ^ false
+ (self methodsFile value ~= (p propertyAt:#methodsFile)) ifTrue:[^ true].
+ ^ false
].
self halt.
@@ -4446,18 +4446,18 @@
"/ '\Programme\SmalltalkX')) ifTrue:[^ true].
l := p prerequisitePackages collect:[:entry |
- |pName|
-
- entry isString ifTrue:[
- pName := entry
- ] ifFalse:[
- entry isArray ifTrue:[
- pName := entry at:1
- ] ifFalse:[
- pName := entry name
- ]
- ]
- ].
+ |pName|
+
+ entry isString ifTrue:[
+ pName := entry
+ ] ifFalse:[
+ entry isArray ifTrue:[
+ pName := entry at:1
+ ] ifFalse:[
+ pName := entry name
+ ]
+ ]
+ ].
self listOfRequiredProjectsInPrerequisites value ~= (l sort) ifTrue:[^ true].
self listOfRequiredClassesInPrerequisites value ~= (p prerequisiteClasses copy sort) ifTrue:[^ true].
self halt.
@@ -4469,66 +4469,66 @@
p := self currentProject.
p notNil ifTrue:[
- p removeDependent:self.
-
- self acceptChannel value:true; value:false.
+ p removeDependent:self.
+
+ self acceptChannel value:true; value:false.
"/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
- p type:self projectType value.
-
- dir := self projectDirectory value.
- dir := (dir ? '') asFilename.
- (dir exists and:[dir isDirectory]) ifFalse:[
- self warn:'Invalid project directory: ' , dir pathName
- ].
-
- p directory:self projectDirectory value.
- pkg := self repositoryModule value , ':' , self repositoryDirectory value.
- p packageName:pkg asSymbol.
-
- p repositoryModule:self repositoryModule value.
- p repositoryDirectory:self repositoryDirectory value.
-
- s := self projectNamespace value.
- (s size == 0) ifTrue:[
- ns := Smalltalk
- ] ifFalse:[
- ns := Namespace name:s
- ].
- p defaultNameSpace:ns.
-
- p propertyAt:#methodsFile put:self methodsFile value.
-
- p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value.
- p propertyAt:#deliverByteCode put:self deliverByteCode value.
- p propertyAt:#deliverTarArchive put:self deliverTarArchive value.
- p propertyAt:#deliverZipArchive put:self deliverZipArchive value.
- p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value.
- p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value.
- p propertyAt:#deliverSources put:self deliverSources value.
- p propertyAt:#deliverMakefiles put:self deliverMakefiles value.
-
- p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value.
- p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value.
- p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value.
- p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value.
- p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value.
+ p type:self projectType value.
+
+ dir := self projectDirectory value.
+ dir := (dir ? '') asFilename.
+ (dir exists and:[dir isDirectory]) ifFalse:[
+ self warn:'Invalid project directory: ' , dir pathName
+ ].
+
+ p directory:self projectDirectory value.
+ pkg := self repositoryModule value , ':' , self repositoryDirectory value.
+ p packageName:pkg asSymbol.
+
+ p repositoryModule:self repositoryModule value.
+ p repositoryDirectory:self repositoryDirectory value.
+
+ s := self projectNamespace value.
+ (s size == 0) ifTrue:[
+ ns := Smalltalk
+ ] ifFalse:[
+ ns := NameSpace name:s
+ ].
+ p defaultNameSpace:ns.
+
+ p propertyAt:#methodsFile put:self methodsFile value.
+
+ p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value.
+ p propertyAt:#deliverByteCode put:self deliverByteCode value.
+ p propertyAt:#deliverTarArchive put:self deliverTarArchive value.
+ p propertyAt:#deliverZipArchive put:self deliverZipArchive value.
+ p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value.
+ p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value.
+ p propertyAt:#deliverSources put:self deliverSources value.
+ p propertyAt:#deliverMakefiles put:self deliverMakefiles value.
+
+ p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value.
+ p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value.
+ p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value.
+ p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value.
+ p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value.
"/ p propertyAt:#'make.LD_OBJ_LIBS' put:self makeLocalLibs value.
"/ p propertyAt:#'make.LOCAL_EXTRA_TARGETS' put:self makeExtraTargets value.
- p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value.
- p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value.
- p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value.
- p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value.
-
- p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value
- collect:[:entry | entry string asSymbol]).
-
- p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value
- collect:[:entry | entry string asSymbol]).
-
- p addDependent:self.
+ p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value.
+ p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value.
+ p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value.
+ p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value.
+
+ p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value
+ collect:[:entry | entry string asSymbol]).
+
+ p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value
+ collect:[:entry | entry string asSymbol]).
+
+ p addDependent:self.
].
"Created: / 23.3.1999 / 14:16:12 / cg"
@@ -4544,7 +4544,7 @@
methodInfo := node contents value.
mthd := methodInfo method.
mthd isNil ifTrue:[
- self valueOfInfoLabel value:'The method is not (yet) loaded.'.
+ self valueOfInfoLabel value:'The method is not (yet) loaded.'.
].
^ mthd
!
@@ -4564,50 +4564,50 @@
|tree moduleRoots root showWhat|
self withCursor:Cursor execute do:[
- showWhat := self showWhat value.
-
- moduleRoots := Dictionary new.
-
- tree := SelectionInTree new.
- tree root:(root := ProjectTreeItem name:'invisibleRoot').
- root hide:false.
-
- showWhat notNil ifTrue:[
- showWhat == #current ifTrue:[
- root add:(self nodeFor:Project current).
- ] ifFalse:[
- (Project knownProjects asOrderedCollection
- sort:[:a :b | a package < b package])
- do:[:aProject |
- |newNode nodeToAdd doShow childNode path|
-
- (doShow := showWhat == #all) ifFalse:[
- doShow := (aProject package startsWith:'stx:') not
- ].
-
- doShow ifTrue:[
- newNode := self nodeFor:aProject.
-
- "/ insert into tree ...
- nodeToAdd := root.
-
- path := aProject package asCollectionOfSubstringsSeparatedByAny:'/\:'.
- path from:1 to:path size-1 do:[:part |
- childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
- childNode isNil ifTrue:[
- nodeToAdd add:(childNode := ProjectTreeItem new name:part).
- ].
- nodeToAdd := childNode.
- ].
- newNode name:(path last).
- nodeToAdd add:newNode.
- ]
- ].
- ].
- ].
- projectTree := root.
-
- self projectTreeHolder root:projectTree.
+ showWhat := self showWhat value.
+
+ moduleRoots := Dictionary new.
+
+ tree := SelectionInTree new.
+ tree root:(root := ProjectTreeItem name:'invisibleRoot').
+ root hide:false.
+
+ showWhat notNil ifTrue:[
+ showWhat == #current ifTrue:[
+ root add:(self nodeFor:Project current).
+ ] ifFalse:[
+ (Project knownProjects asOrderedCollection
+ sort:[:a :b | a package < b package])
+ do:[:aProject |
+ |newNode nodeToAdd doShow childNode path|
+
+ (doShow := showWhat == #all) ifFalse:[
+ doShow := (aProject package startsWith:'stx:') not
+ ].
+
+ doShow ifTrue:[
+ newNode := self nodeFor:aProject.
+
+ "/ insert into tree ...
+ nodeToAdd := root.
+
+ path := aProject package asCollectionOfSubstringsSeparatedByAny:'/\:'.
+ path from:1 to:path size-1 do:[:part |
+ childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
+ childNode isNil ifTrue:[
+ nodeToAdd add:(childNode := ProjectTreeItem new name:part).
+ ].
+ nodeToAdd := childNode.
+ ].
+ newNode name:(path last).
+ nodeToAdd add:newNode.
+ ]
+ ].
+ ].
+ ].
+ projectTree := root.
+
+ self projectTreeHolder root:projectTree.
].
^ projectTree
!
@@ -4623,39 +4623,39 @@
selectedNode := self selectedTreeNode.
selectedNode isNil ifTrue:[
- self setupCanvasForNoSelection.
- ^ self
+ self setupCanvasForNoSelection.
+ ^ self
].
(spec := selectedNode spec) notNil ifTrue:[
- self currentCanvasHolder value:spec value.
- ^ self
+ self currentCanvasHolder value:spec value.
+ ^ self
].
selectedNode isProjectNode ifTrue:[
- self showCommentOf:selectedNode.
- ^ self.
+ self showCommentOf:selectedNode.
+ ^ self.
].
selectedNode contents == #classes ifTrue:[
- self showClassListOf:selectedNode.
- ^ self.
+ self showClassListOf:selectedNode.
+ ^ self.
].
selectedNode contents == #patches ifTrue:[
- self showPatchesListOf:selectedNode.
- ^ self.
+ self showPatchesListOf:selectedNode.
+ ^ self.
].
self hasClassNodeSelected ifTrue:[
- self showClassDefinitionOf:selectedNode.
- ^ self.
+ self showClassDefinitionOf:selectedNode.
+ ^ self.
].
self hasMethodNodeSelected ifTrue:[
- self showMethodSourceOf:selectedNode.
- ^ self.
+ self showMethodSourceOf:selectedNode.
+ ^ self.
].
self hasPrerequisitesNodeSelected ifTrue:[
- self showPrerequisitesInfo.
- ^ self.
+ self showPrerequisitesInfo.
+ ^ self.
].
self currentCanvasHolder value:(self class emptyRightCanvasSpec).
@@ -4672,16 +4672,16 @@
"/ check for project directory ...
(self checkForProjectDirectoryFor:aProject) ifFalse:[
- ^ false
+ ^ false
].
"/ check for Make.proto ...
f := aProject directory asFilename construct:'Make.proto'.
f exists ifFalse:[
- (self confirm:'''Make.proto'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
- ^ false
- ].
- self buildMakefiles.
+ (self confirm:'''Make.proto'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
+ ^ false
+ ].
+ self buildMakefiles.
].
^ true
!
@@ -4691,19 +4691,19 @@
"/ check for project directory ...
(self checkForProjectDirectoryFor:aProject) ifFalse:[
- ^ false
+ ^ false
].
"/ check for Makefile ...
f := aProject directory asFilename construct:'Makefile'.
f exists ifFalse:[
- (self confirm:'''Makefile'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
- ^ false
- ].
- (self checkForMakeProtoFor:aProject) ifFalse:[
- ^ false
- ].
- self buildMakefiles.
+ (self confirm:'''Makefile'' does not exist in project directory\\Create ?' withCRs) ifFalse:[
+ ^ false
+ ].
+ (self checkForMakeProtoFor:aProject) ifFalse:[
+ ^ false
+ ].
+ self buildMakefiles.
].
^ true
!
@@ -4714,10 +4714,10 @@
"/ check for project directory ...
dir := aProject directory asFilename.
dir exists ifFalse:[
- (self confirm:'Project directory does not exist\\Create ?' withCRs) ifFalse:[
- ^ false
- ].
- dir recursiveMakeDirectory.
+ (self confirm:'Project directory does not exist\\Create ?' withCRs) ifFalse:[
+ ^ false
+ ].
+ dir recursiveMakeDirectory.
].
^ true
@@ -4727,7 +4727,7 @@
!ProjectBrowser methodsFor:'private - info'!
showPrerequisitesInfo
- self showReadOnlyText:
+ self showReadOnlyText:
'When loading this package,
these other packages/classes
will be loaded before.
@@ -4736,7 +4736,7 @@
to the include path for
stc-compilation.'.
- ^ self.
+ ^ self.
! !
@@ -4763,7 +4763,7 @@
cls := cInfo theClass.
(cls isNil or:[cls isLoaded not]) ifTrue:[
- ^ nm asText allItalic
+ ^ nm asText allItalic
].
^ nm
@@ -4799,31 +4799,31 @@
className size == 0 ifTrue:[^ self].
cls := Smalltalk classNamed:className.
cls isNil ifTrue:[
- "/ a new one
- (self confirm:'This is a new class. Add ?') ifFalse:[
- ^ self
- ].
- p
- addClass:className
- classFileName:((Smalltalk fileNameForClass:className) , '.st').
+ "/ a new one
+ (self confirm:'This is a new class. Add ?') ifFalse:[
+ ^ self
+ ].
+ p
+ addClass:className
+ classFileName:((Smalltalk fileNameForClass:className) , '.st').
] ifFalse:[
- (oldPackage := cls package) ~= p package ifTrue:[
- "/ a new one
- (self confirm:'Change the classes package from ' , oldPackage , ' to ' , p package , ' ?') ifFalse:[
- ^ self
- ].
- cls package:p package.
- ].
- "/ find the other package ..
- oldPackage := Project projectWithId:oldPackage.
- oldPackage notNil ifTrue:[
- oldPackage removeClass:cls
- ].
-
- p
- addClass:cls name
- classFileName:(cls classFilename
- ? ((Smalltalk fileNameForClass:cls) , '.st')).
+ (oldPackage := cls package) ~= p package ifTrue:[
+ "/ a new one
+ (self confirm:'Change the classes package from ' , oldPackage , ' to ' , p package , ' ?') ifFalse:[
+ ^ self
+ ].
+ cls package:p package.
+ ].
+ "/ find the other package ..
+ oldPackage := Project projectWithId:oldPackage.
+ oldPackage notNil ifTrue:[
+ oldPackage removeClass:cls
+ ].
+
+ p
+ addClass:cls name
+ classFileName:(cls classFilename
+ ? ((Smalltalk fileNameForClass:cls) , '.st')).
].
self updateClassListForProject:p
@@ -4834,18 +4834,18 @@
|node classOrClassName cls|
self hasClassNodeSelected ifTrue:[
- node := self selectedTreeNode.
- classOrClassName := node contents value.
- classOrClassName isBehavior ifTrue:[
- cls := classOrClassName.
- ] ifFalse:[
- cls := Smalltalk at:classOrClassName.
- ].
- cls isNil ifTrue:[
- self information:'The class is not (yet) loaded'.
- ^ self
- ].
- SystemBrowser browseClass:cls.
+ node := self selectedTreeNode.
+ classOrClassName := node contents value.
+ classOrClassName isBehavior ifTrue:[
+ cls := classOrClassName.
+ ] ifFalse:[
+ cls := Smalltalk at:classOrClassName.
+ ].
+ cls isNil ifTrue:[
+ self information:'The class is not (yet) loaded'.
+ ^ self
+ ].
+ SystemBrowser browseClass:cls.
].
!
@@ -4853,11 +4853,11 @@
|item action info p|
self withWaitCursorDo:[
- self updateRightCanvas.
+ self updateRightCanvas.
].
index isNil ifTrue:[
- modifiedChannel value:false.
- ^ self
+ modifiedChannel value:false.
+ ^ self
].
self readAspectsFromProject.
@@ -4865,15 +4865,15 @@
item := self projectTreeHolder value at:index.
action := item action.
action notNil ifTrue:[
- action value:item.
+ action value:item.
].
info := item info.
info size == 0 ifTrue:[
- ((p := self currentProject) notNil
- and:[p isLoaded ~~ true]) ifTrue:[
- info := 'Projects code is not loaded.'
- ].
+ ((p := self currentProject) notNil
+ and:[p isLoaded ~~ true]) ifTrue:[
+ info := 'Projects code is not loaded.'
+ ].
].
self valueOfInfoLabel value:info.
@@ -4887,22 +4887,22 @@
|oldNode newProject|
self withReadCursorDo:[
- newProject := Project new loadFromProjectFile:aFilenameString.
-
- oldNode := self projectTreeHolder
- detectFirstItem:[:item | item contents class == Project
- and:[item contents package = newProject package]].
- oldNode notNil ifTrue:[
- (self confirm:'Overload packages definitions from file ?') ifFalse:[
- ^ self
- ].
- self projectTreeHolder remove:oldNode.
- ].
-
- newProject notNil ifTrue:[
- self newProject:newProject
- ].
- self expandPathToNodeFor:newProject.
+ newProject := Project new loadFromProjectFile:aFilenameString.
+
+ oldNode := self projectTreeHolder
+ detectFirstItem:[:item | item contents class == Project
+ and:[item contents package = newProject package]].
+ oldNode notNil ifTrue:[
+ (self confirm:'Overload packages definitions from file ?') ifFalse:[
+ ^ self
+ ].
+ self projectTreeHolder remove:oldNode.
+ ].
+
+ newProject notNil ifTrue:[
+ self newProject:newProject
+ ].
+ self expandPathToNodeFor:newProject.
].
^ newProject
@@ -4923,94 +4923,94 @@
project := self currentProject.
ns := project defaultNameSpace.
ns isSymbol ifTrue:[
- ns := Namespace name:ns
+ ns := NameSpace name:ns
].
self withReadCursorDo:[
- filesToLoad := OrderedCollection new.
-
- "/ load all classes ...
- project classInfo do:[:aClassInfo |
- |className fileToLoad cls|
-
- className := aClassInfo className.
- fileToLoad := aClassInfo classFileName.
- cls := ns at:className asSymbol.
- cls notNil ifTrue:[
- cls isBehavior ifFalse:[
- (self confirm:('Attention: a global named ' , className , ' exists, but is not a class.\\Load anyway ?') withCRs)
- ifFalse:[
- fileToLoad := nil
- ]
- ] ifTrue:[
- cls isLoaded ifTrue:[
- fileToLoad := nil
- ]
- ]
- ].
- fileToLoad notNil ifTrue:[
- filesToLoad add:fileToLoad
- ].
- ].
-
- anyPatchClassMissing := false.
- anyPatches := false.
- project methodInfo do:[:aMethodInfo |
- |className methodName mthd cls|
-
- className := aMethodInfo className.
- methodName := aMethodInfo methodName.
- cls := Smalltalk at:className asSymbol.
- (cls isNil or:[cls isBehavior not or:[cls isLoaded not]]) ifTrue:[
- self warn:('Missing class: ' , className , ' (required for patches)').
- anyPatchClassMissing := anyPatches := true.
- ] ifFalse:[
- "/ already present ?
- (cls compiledMethodAt:methodName asSymbol) isNil ifTrue:[
- anyPatches := true.
- ]
- ]
- ].
-
- (methodsFile := project propertyAt:#methodsFile) notNil ifTrue:[
- anyPatches ifTrue:[
- anyPatchClassMissing ifTrue:[
- self warn:('Cannot load patches & extensions, due to missing class(es)')
- ] ifFalse:[
- filesToLoad add:methodsFile
- ]
- ]
- ] ifFalse:[
- anyPatches ifTrue:[
- self warn:('No file for methods (patches & extensions) is defined in project')
- ].
- ].
-
- filesToLoad size == 0 ifTrue:[
- self information:'Projects code is already loaded.'
- ] ifFalse:[
- "/ load as long as superclasses are missing
- "/ (since the load order could be incorrect)
- prevNMissingSuper := nil.
- nMissingSuper := 1.
- [nMissingSuper > 0 and:[nMissingSuper ~~ prevNMissingSuper]]
- whileTrue:[
- nMissingSuper := 0.
- Parser::UndefinedSuperclassError handle:[:ex |
- nMissingSuper := nMissingSuper + 1.
- ex proceed
- ] do:[
- Class packageQuerySignal answer:project package asSymbol
- do:[
- filesToLoad do:[:fileToLoad |
- Smalltalk fileIn:(project directory asFilename construct:fileToLoad) pathName
- ]
- ]
- ].
- prevNMissingSuper := nMissingSuper.
- ].
- ].
- project isLoaded:true.
- self readAspectsFromProject
+ filesToLoad := OrderedCollection new.
+
+ "/ load all classes ...
+ project classInfo do:[:aClassInfo |
+ |className fileToLoad cls|
+
+ className := aClassInfo className.
+ fileToLoad := aClassInfo classFileName.
+ cls := ns at:className asSymbol.
+ cls notNil ifTrue:[
+ cls isBehavior ifFalse:[
+ (self confirm:('Attention: a global named ' , className , ' exists, but is not a class.\\Load anyway ?') withCRs)
+ ifFalse:[
+ fileToLoad := nil
+ ]
+ ] ifTrue:[
+ cls isLoaded ifTrue:[
+ fileToLoad := nil
+ ]
+ ]
+ ].
+ fileToLoad notNil ifTrue:[
+ filesToLoad add:fileToLoad
+ ].
+ ].
+
+ anyPatchClassMissing := false.
+ anyPatches := false.
+ project methodInfo do:[:aMethodInfo |
+ |className methodName mthd cls|
+
+ className := aMethodInfo className.
+ methodName := aMethodInfo methodName.
+ cls := Smalltalk at:className asSymbol.
+ (cls isNil or:[cls isBehavior not or:[cls isLoaded not]]) ifTrue:[
+ self warn:('Missing class: ' , className , ' (required for patches)').
+ anyPatchClassMissing := anyPatches := true.
+ ] ifFalse:[
+ "/ already present ?
+ (cls compiledMethodAt:methodName asSymbol) isNil ifTrue:[
+ anyPatches := true.
+ ]
+ ]
+ ].
+
+ (methodsFile := project propertyAt:#methodsFile) notNil ifTrue:[
+ anyPatches ifTrue:[
+ anyPatchClassMissing ifTrue:[
+ self warn:('Cannot load patches & extensions, due to missing class(es)')
+ ] ifFalse:[
+ filesToLoad add:methodsFile
+ ]
+ ]
+ ] ifFalse:[
+ anyPatches ifTrue:[
+ self warn:('No file for methods (patches & extensions) is defined in project')
+ ].
+ ].
+
+ filesToLoad size == 0 ifTrue:[
+ self information:'Projects code is already loaded.'
+ ] ifFalse:[
+ "/ load as long as superclasses are missing
+ "/ (since the load order could be incorrect)
+ prevNMissingSuper := nil.
+ nMissingSuper := 1.
+ [nMissingSuper > 0 and:[nMissingSuper ~~ prevNMissingSuper]]
+ whileTrue:[
+ nMissingSuper := 0.
+ Parser::UndefinedSuperclassError handle:[:ex |
+ nMissingSuper := nMissingSuper + 1.
+ ex proceed
+ ] do:[
+ Class packageQuerySignal answer:project package asSymbol
+ do:[
+ filesToLoad do:[:fileToLoad |
+ Smalltalk fileIn:(project directory asFilename construct:fileToLoad) pathName
+ ]
+ ]
+ ].
+ prevNMissingSuper := nMissingSuper.
+ ].
+ ].
+ project isLoaded:true.
+ self readAspectsFromProject
]
!
@@ -5024,13 +5024,13 @@
self updateProjectTree.
self updateRightCanvas.
self showWhat value == #current ifTrue:[
- theNode := self projectTreeHolder
- detectFirstItem:[:item | item contents == Project current].
-
- [theNode notNil] whileTrue:[
- self projectTreeHolder expand:theNode.
- theNode := theNode parent.
- ].
+ theNode := self projectTreeHolder
+ detectFirstItem:[:item | item contents == Project current].
+
+ [theNode notNil] whileTrue:[
+ self projectTreeHolder expand:theNode.
+ theNode := theNode parent.
+ ].
].
!
@@ -5039,17 +5039,17 @@
|answer|
newNode == self selectedTreeNode ifTrue:[
- ^ true
+ ^ true
].
(modifiedChannel value
and:[true "self reallyModified"]) ifTrue:[
- answer := Dialog confirmWithCancel:'Accept changes ?'.
- answer isNil ifTrue:[
- ^ false
- ].
- answer == true ifTrue:[
- self accept.
- ].
+ answer := Dialog confirmWithCancel:'Accept changes ?'.
+ answer isNil ifTrue:[
+ ^ false
+ ].
+ answer == true ifTrue:[
+ self accept.
+ ].
].
^ true
@@ -5065,14 +5065,14 @@
node := self selectedTreeNode.
classOrClassName := node contents value.
classOrClassName isBehavior ifTrue:[
- cls := classOrClassName.
+ cls := classOrClassName.
] ifFalse:[
- cls := Smalltalk at:classOrClassName.
+ cls := Smalltalk at:classOrClassName.
].
cls isNil ifTrue:[
- text := 'The class is not (yet) loaded'.
+ text := 'The class is not (yet) loaded'.
] ifFalse:[
- text := cls definition
+ text := cls definition
].
self rightCanvasTextHolder value:text.
@@ -5093,9 +5093,9 @@
|projectItem project|
anItem contents == #comment ifTrue:[
- projectItem := anItem parent
+ projectItem := anItem parent
] ifFalse:[
- projectItem := anItem
+ projectItem := anItem
].
project := projectItem contents.
@@ -5109,9 +5109,9 @@
|projectItem project|
anItem contents == #documentation ifTrue:[
- projectItem := anItem parent
+ projectItem := anItem parent
] ifFalse:[
- projectItem := anItem
+ projectItem := anItem
].
project := projectItem contents.
@@ -5130,14 +5130,14 @@
methodInfo := node contents value.
cls := Smalltalk at:methodInfo className asSymbol.
cls isNil ifTrue:[
- text := 'The class is not (yet) loaded'.
+ text := 'The class is not (yet) loaded'.
] ifFalse:[
- mthd := cls compiledMethodAt:(methodInfo methodName asSymbol).
- mthd isNil ifTrue:[
- text := 'The method is not (yet) loaded'.
- ] ifFalse:[
- text := mthd source
- ]
+ mthd := cls compiledMethodAt:(methodInfo methodName asSymbol).
+ mthd isNil ifTrue:[
+ text := 'The method is not (yet) loaded'.
+ ] ifFalse:[
+ text := mthd source
+ ]
].
self rightCanvasTextHolder value:text.
@@ -5207,8 +5207,8 @@
"scan all classes/methods for new projects"
self withWaitCursorDo:[
- Project initKnownProjects.
- self updateProjectTree
+ Project initKnownProjects.
+ self updateProjectTree
].
!
@@ -5226,45 +5226,45 @@
requiredInPre := self listOfRequiredClassesInPrerequisites value.
self currentProjectsClassNames do:[:aClassName |
- |cls|
-
- cls := Smalltalk at:aClassName asSymbol.
- (cls notNil and:[cls isLoaded]) ifTrue:[
- cls allSuperclasses do:[:superClass |
- |sName idx|
-
- (superClass notNil
- and:[superClass isLoaded
- and:[superClass wasAutoloaded]]) ifTrue:[
- |sName entry|
-
- sName := superClass name.
- idx := allInPre findFirst:[:item | item string = sName].
- idx ~~ 0 ifTrue:[
- allInPre removeIndex:idx.
- requiredInPre add:sName asText allBold.
- anyChange := true.
- ]
- ]
- ]
- ] ifFalse:[
- nMissing := nMissing + 1.
- ].
- nTotal := nTotal + 1.
+ |cls|
+
+ cls := Smalltalk at:aClassName asSymbol.
+ (cls notNil and:[cls isLoaded]) ifTrue:[
+ cls allSuperclasses do:[:superClass |
+ |sName idx|
+
+ (superClass notNil
+ and:[superClass isLoaded
+ and:[superClass wasAutoloaded]]) ifTrue:[
+ |sName entry|
+
+ sName := superClass name.
+ idx := allInPre findFirst:[:item | item string = sName].
+ idx ~~ 0 ifTrue:[
+ allInPre removeIndex:idx.
+ requiredInPre add:sName asText allBold.
+ anyChange := true.
+ ]
+ ]
+ ]
+ ] ifFalse:[
+ nMissing := nMissing + 1.
+ ].
+ nTotal := nTotal + 1.
].
anyChange ifTrue:[
- self listOfRequiredClassesInPrerequisites changed.
- self listOfAllClassesInPrerequisites changed.
+ self listOfRequiredClassesInPrerequisites changed.
+ self listOfAllClassesInPrerequisites changed.
].
nMissing ~~ 0 ifTrue:[
- nMissing == nTotal ifTrue:[
- msg := 'Project is not loaded (' , nMissing printString
- , ' unloaded classes)'.
- ] ifFalse:[
- msg := 'Project is not loaded completely - ' , nMissing printString
- , ' of the projects ' , nTotal printString , ' classes are not loaded'.
- ].
+ nMissing == nTotal ifTrue:[
+ msg := 'Project is not loaded (' , nMissing printString
+ , ' unloaded classes)'.
+ ] ifFalse:[
+ msg := 'Project is not loaded completely - ' , nMissing printString
+ , ' of the projects ' , nTotal printString , ' classes are not loaded'.
+ ].
"/ self notify:msg.
].
modifiedChannel value:false.
@@ -5305,21 +5305,21 @@
cls := Smalltalk at:sel asSymbol.
(cls notNil and:[cls isLoaded]) ifTrue:[
- cls allSuperclasses do:[:superClass |
- |sName|
-
- (superClass notNil
- and:[superClass isLoaded
- and:[superClass wasAutoloaded]]) ifTrue:[
- |sName idx|
- sName := superClass name.
- idx := self listOfAllClassesInPrerequisites value findFirst:[:s | s string = sName].
- idx ~~ 0 ifTrue:[
- self listOfAllClassesInPrerequisites value removeIndex:idx.
- self listOfRequiredClassesInPrerequisites value add:sName asString allBold.
- ].
- ]
- ]
+ cls allSuperclasses do:[:superClass |
+ |sName|
+
+ (superClass notNil
+ and:[superClass isLoaded
+ and:[superClass wasAutoloaded]]) ifTrue:[
+ |sName idx|
+ sName := superClass name.
+ idx := self listOfAllClassesInPrerequisites value findFirst:[:s | s string = sName].
+ idx ~~ 0 ifTrue:[
+ self listOfAllClassesInPrerequisites value removeIndex:idx.
+ self listOfRequiredClassesInPrerequisites value add:sName asString allBold.
+ ].
+ ]
+ ]
].
self listOfRequiredClassesInPrerequisites changed.
self listOfAllClassesInPrerequisites changed.
@@ -5348,11 +5348,11 @@
mthdInfo := self selectedTreeNode value value.
cls := Smalltalk at: mthdInfo className asSymbol.
cls notNil ifTrue:[
- mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).
- mthd notNil ifTrue:[
- SystemBrowser browseClass:cls selector:mthdInfo methodName.
- ^ self
- ]
+ mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).
+ mthd notNil ifTrue:[
+ SystemBrowser browseClass:cls selector:mthdInfo methodName.
+ ^ self
+ ]
].
self information:'Method not (yet) loaded.'
!
@@ -5376,11 +5376,11 @@
mthdInfo := self selectedTreeNode value value.
cls := Smalltalk at: mthdInfo className asSymbol.
cls notNil ifTrue:[
- mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).
- mthd notNil ifTrue:[
- SystemBrowser openInClass:cls selector:mthdInfo methodName.
- ^ self
- ]
+ mthd := cls compiledMethodAt:(mthdInfo methodName asSymbol).
+ mthd notNil ifTrue:[
+ SystemBrowser openInClass:cls selector:mthdInfo methodName.
+ ^ self
+ ]
].
self information:'Method not (yet) loaded.'
@@ -5411,15 +5411,15 @@
"/ check if this affects my classes
(cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[
- myClasses := self currentProjectsClassNames.
- cls allSubclassesDo:[:cls |
- (myClasses includes:cls name) ifTrue:[
- self valueOfInfoLabel value:'Attention - this class is required by ' , cls name.
- (self confirm:'Attention - this class is required by ' , cls name asText allBold, '.\(The project could later fail to load correctly)\\Really remove ?' withCRs) ifFalse:[
- ^ self
- ].
- ].
- ]
+ myClasses := self currentProjectsClassNames.
+ cls allSubclassesDo:[:cls |
+ (myClasses includes:cls name) ifTrue:[
+ self valueOfInfoLabel value:'Attention - this class is required by ' , cls name.
+ (self confirm:'Attention - this class is required by ' , cls name asText allBold, '.\(The project could later fail to load correctly)\\Really remove ?' withCRs) ifFalse:[
+ ^ self
+ ].
+ ].
+ ]
].
self listOfAllClassesInPrerequisites value add:sel.
@@ -5429,14 +5429,14 @@
"/ also remove any autoloaded subclass(es)
(cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[
- cls allSubclassesDo:[:cls |
- |entry|
-
- entry := self listOfRequiredClassesInPrerequisites value remove:cls name ifAbsent:nil.
- entry notNil ifTrue:[
- self listOfAllClassesInPrerequisites value add:cls name.
- ]
- ]
+ cls allSubclassesDo:[:cls |
+ |entry|
+
+ entry := self listOfRequiredClassesInPrerequisites value remove:cls name ifAbsent:nil.
+ entry notNil ifTrue:[
+ self listOfAllClassesInPrerequisites value add:cls name.
+ ]
+ ]
].
self listOfRequiredClassesInPrerequisites changed.
@@ -5465,15 +5465,15 @@
|cls myClasses|
entry notNil ifTrue:[
- myClasses := self currentProjectsClassNames asSet.
-
- cls := Smalltalk at:entry string asSymbol.
- cls allSubclasses do:[:subClass |
- (myClasses includes:subClass name) ifTrue:[
- self valueOfInfoLabel value:('Required by ' , subClass name).
- ^ self.
- ]
- ].
+ myClasses := self currentProjectsClassNames asSet.
+
+ cls := Smalltalk at:entry string asSymbol.
+ cls allSubclasses do:[:subClass |
+ (myClasses includes:subClass name) ifTrue:[
+ self valueOfInfoLabel value:('Required by ' , subClass name).
+ ^ self.
+ ]
+ ].
].
self valueOfInfoLabel value:nil
! !
@@ -5491,25 +5491,25 @@
className size == 0 ifTrue:[^ self].
cls := Smalltalk classNamed:className.
cls isNil ifTrue:[
- "/ a new one
- (self confirm:'This is a new class. Add ?') ifFalse:[
- ^ self
- ].
- p
- addClass:className
- classFileName:((Smalltalk fileNameForClass:className) , '.st').
+ "/ a new one
+ (self confirm:'This is a new class. Add ?') ifFalse:[
+ ^ self
+ ].
+ p
+ addClass:className
+ classFileName:((Smalltalk fileNameForClass:className) , '.st').
] ifFalse:[
- cls package ~= p package ifTrue:[
- "/ a new one
- (self confirm:'Change the classes package from ' , cls package , ' to ' , p package , ' ?') ifFalse:[
- ^ self
- ].
- cls package:p package.
- ].
- p
- addClass:cls name
- classFileName:(cls classFilename
- ? ((Smalltalk fileNameForClass:cls) , '.st')).
+ cls package ~= p package ifTrue:[
+ "/ a new one
+ (self confirm:'Change the classes package from ' , cls package , ' to ' , p package , ' ?') ifFalse:[
+ ^ self
+ ].
+ cls package:p package.
+ ].
+ p
+ addClass:cls name
+ classFileName:(cls classFilename
+ ? ((Smalltalk fileNameForClass:cls) , '.st')).
].
self updateClassListForProject:p
@@ -5543,50 +5543,50 @@
prjDirectory := project directory asFilename.
(prjDirectory exists and:[prjDirectory isDirectory]) ifFalse:[
- self warn:'Invalid project directory: ' , prjDirectory pathName.
- ^ self
+ self warn:'Invalid project directory: ' , prjDirectory pathName.
+ ^ self
].
prjDirectory directoryContents do:[:fn |
- |f oldInfo cls|
-
- f := prjDirectory construct:fn.
- (f hasSuffix:'st') ifTrue:[
- numSTFilesFound := numSTFilesFound + 1.
-
- oldInfo := existingClasses
- detect:[:clsInfo |
- clsInfo classFileName = fn
- ]
- ifNone:nil.
- oldInfo isNil ifTrue:[
- "/ extract className from fileName ...
- cls := Smalltalk filenameAbbreviations keyAtValue:(f withoutSuffix baseName ).
- cls isNil ifTrue:[
- cls := f withoutSuffix baseName asSymbol.
- project defaultNameSpace notNil ifTrue:[
- cls := (project defaultNameSpace name , '::' , cls) asSymbol
- ]
- ].
- (aFilterBlockOrNil isNil
- or:[aFilterBlockOrNil value:cls]) ifTrue:[
- project addClass:cls classFileName:fn.
- anyChange := true.
+ |f oldInfo cls|
+
+ f := prjDirectory construct:fn.
+ (f hasSuffix:'st') ifTrue:[
+ numSTFilesFound := numSTFilesFound + 1.
+
+ oldInfo := existingClasses
+ detect:[:clsInfo |
+ clsInfo classFileName = fn
+ ]
+ ifNone:nil.
+ oldInfo isNil ifTrue:[
+ "/ extract className from fileName ...
+ cls := Smalltalk filenameAbbreviations keyAtValue:(f withoutSuffix baseName ).
+ cls isNil ifTrue:[
+ cls := f withoutSuffix baseName asSymbol.
+ project defaultNameSpace notNil ifTrue:[
+ cls := (project defaultNameSpace name , '::' , cls) asSymbol
+ ]
+ ].
+ (aFilterBlockOrNil isNil
+ or:[aFilterBlockOrNil value:cls]) ifTrue:[
+ project addClass:cls classFileName:fn.
+ anyChange := true.
Transcript showCR:'added ' , fn , ' as class: ' , cls printString.
- ] ifFalse:[
+ ] ifFalse:[
Transcript showCR:'skipped ' , fn , ' as class: ' , cls printString.
- ]
-
- ]
- ]
+ ]
+
+ ]
+ ]
].
anyChange ifTrue:[
- self updateClassListForProject:project
+ self updateClassListForProject:project
] ifFalse:[
- numSTFilesFound == 0 ifTrue:[
- self information:'No st-sourcefiles found in ' , prjDirectory pathName.
- ]
+ numSTFilesFound == 0 ifTrue:[
+ self information:'No st-sourcefiles found in ' , prjDirectory pathName.
+ ]
]
!
@@ -5597,18 +5597,18 @@
project := self currentProject.
Smalltalk allClassesDo:[:aClass |
- aClass isMeta ifFalse:[
- (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
- aClass package = project package ifTrue:[
- (project classInfoFor:aClass) isNil ifTrue:[
- project
- addClass:aClass name
- classFileName:(aClass classFilename
- ? ((Smalltalk fileNameForClass:aClass) , '.st')).
- ]
- ]
- ]
- ]
+ aClass isMeta ifFalse:[
+ (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
+ aClass package = project package ifTrue:[
+ (project classInfoFor:aClass) isNil ifTrue:[
+ project
+ addClass:aClass name
+ classFileName:(aClass classFilename
+ ? ((Smalltalk fileNameForClass:aClass) , '.st')).
+ ]
+ ]
+ ]
+ ]
].
self updateClassListForProject:project
@@ -5645,22 +5645,22 @@
p := self currentProject.
classes := p classes
- collect:[:clsOrName |
- |cls realName|
-
- clsOrName isSymbol ifTrue:[
- realName := clsOrName.
- (realName includes:$:) ifTrue:[
- (realName startsWith:'Smalltalk::') ifTrue:[
- realName := (realName copyFrom:'Smalltalk::' size + 1) asSymbol
- ]
- ].
- cls := Smalltalk at:realName
- ] ifFalse:[
- cls := clsOrName
- ].
- cls
- ].
+ collect:[:clsOrName |
+ |cls realName|
+
+ clsOrName isSymbol ifTrue:[
+ realName := clsOrName.
+ (realName includes:$:) ifTrue:[
+ (realName startsWith:'Smalltalk::') ifTrue:[
+ realName := (realName copyFrom:'Smalltalk::' size + 1) asSymbol
+ ]
+ ].
+ cls := Smalltalk at:realName
+ ] ifFalse:[
+ cls := clsOrName
+ ].
+ cls
+ ].
"/ remove duplicates - but want to preserve order
"/ thats why we do not use asIdentitySet asOrderedCollection
@@ -5669,13 +5669,13 @@
nBad := classes inject:0 into:[:sum :el | el isNil ifTrue:[sum+1] ifFalse:[sum]].
nBad ~~ 0 ifTrue:[
- classes := classes select:[:cls | cls notNil].
- self warn:('Oops - %1 classes could not be found.\\You should probably load them first.' bindWith:nBad) withCRs.
+ classes := classes select:[:cls | cls notNil].
+ self warn:('Oops - %1 classes could not be found.\\You should probably load them first.' bindWith:nBad) withCRs.
].
SystemBrowser
- browseClasses:classes title:('Classes in ' , p name) sort:true.
+ browseClasses:classes title:('Classes in ' , p name) sort:true.
@@ -5688,16 +5688,16 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self withCursor:Cursor wait do:[
- self makeTranscriptVisible.
- TextCollector transcriptQuerySignal answer:self transcript
- do:[
- p createAbbrevFile.
- ]
+ self makeTranscriptVisible.
+ TextCollector transcriptQuerySignal answer:self transcript
+ do:[
+ p createAbbrevFile.
+ ]
]
!
@@ -5708,51 +5708,51 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self makeTranscriptVisible.
self withCursor:Cursor wait do:[
- "/ prepare the building ...
-
- TextCollector transcriptQuerySignal answer:self transcript
- do:[
- (p propertyAt:#deliverLoadAllFile) == true ifTrue:[
- p createLoadAllFile
- ].
-
- (p propertyAt:#deliverSources) == true ifTrue:[
- p createSourceFiles
- ].
-
- (p propertyAt:#deliverMakefiles) == true ifTrue:[
- self buildMakefiles
- ].
-
- (p propertyAt:#deliverCompiledBinary) == true ifTrue:[
- self buildCompiledClassLibrary
- ].
-
- (p propertyAt:#deliverByteCode) == true ifTrue:[
- self buildByteCodeClassLibrary
- ].
-
- "/ now, deploy ...
-
- (p propertyAt:#deliverZipArchive) == true ifTrue:[
- p buildZipArchive
- ].
-
- (p propertyAt:#deliverTarArchive) == true ifTrue:[
- p buildTarArchive
- ].
-
- (p propertyAt:#deliverGZipArchive) == true ifTrue:[
- p buildGZipArchive
- ].
- ].
+ "/ prepare the building ...
+
+ TextCollector transcriptQuerySignal answer:self transcript
+ do:[
+ (p propertyAt:#deliverLoadAllFile) == true ifTrue:[
+ p createLoadAllFile
+ ].
+
+ (p propertyAt:#deliverSources) == true ifTrue:[
+ p createSourceFiles
+ ].
+
+ (p propertyAt:#deliverMakefiles) == true ifTrue:[
+ self buildMakefiles
+ ].
+
+ (p propertyAt:#deliverCompiledBinary) == true ifTrue:[
+ self buildCompiledClassLibrary
+ ].
+
+ (p propertyAt:#deliverByteCode) == true ifTrue:[
+ self buildByteCodeClassLibrary
+ ].
+
+ "/ now, deploy ...
+
+ (p propertyAt:#deliverZipArchive) == true ifTrue:[
+ p buildZipArchive
+ ].
+
+ (p propertyAt:#deliverTarArchive) == true ifTrue:[
+ p buildTarArchive
+ ].
+
+ (p propertyAt:#deliverGZipArchive) == true ifTrue:[
+ p buildGZipArchive
+ ].
+ ].
].
@@ -5765,23 +5765,23 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
"/ check for directory ...
(self checkForProjectDirectoryFor:p) ifFalse:[
- ^ self
+ ^ self
].
"/ check for Make.proto ...
(self checkForMakeProtoFor:p) ifFalse:[
- ^ self
+ ^ self
].
"/ check for Makefile ...
(self checkForMakefileFor:p) ifFalse:[
- ^ self
+ ^ self
].
self makeTranscriptVisible.
@@ -5793,13 +5793,13 @@
diagnostic nextPutLine:('Building compiled class library...' asText emphasizeAllWith:#color->Color blue).
self withCursor:Cursor wait do:[
- OperatingSystem
- executeCommand:'make'
- inputFrom:nil
- outputTo:diagnostic
- errorTo:diagnostic
- inDirectory:(p directory asFilename pathName)
- onError:[:status | error := true].
+ OperatingSystem
+ executeCommand:'make'
+ inputFrom:nil
+ outputTo:diagnostic
+ errorTo:diagnostic
+ inDirectory:(p directory asFilename pathName)
+ onError:[:status | error := true].
].
@@ -5813,16 +5813,16 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self withCursor:Cursor wait do:[
- self makeTranscriptVisible.
- TextCollector transcriptQuerySignal answer:self transcript
- do:[
- p createLoadAllFile.
- ]
+ self makeTranscriptVisible.
+ TextCollector transcriptQuerySignal answer:self transcript
+ do:[
+ p createLoadAllFile.
+ ]
]
!
@@ -5833,16 +5833,16 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self withCursor:Cursor wait do:[
- self makeTranscriptVisible.
- TextCollector transcriptQuerySignal answer:self transcript
- do:[
- p createMakefile
- ]
+ self makeTranscriptVisible.
+ TextCollector transcriptQuerySignal answer:self transcript
+ do:[
+ p createMakefile
+ ]
].
"Created: / 16.12.1999 / 01:29:30 / cg"
@@ -5855,17 +5855,17 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self withCursor:Cursor wait do:[
- self makeTranscriptVisible.
- TextCollector transcriptQuerySignal answer:self transcript
- do:[
- p createProtoMakefile.
- p createMakefile
- ]
+ self makeTranscriptVisible.
+ TextCollector transcriptQuerySignal answer:self transcript
+ do:[
+ p createProtoMakefile.
+ p createMakefile
+ ]
].
!
@@ -5876,16 +5876,16 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self withCursor:Cursor wait do:[
- self makeTranscriptVisible.
- TextCollector transcriptQuerySignal answer:self transcript
- do:[
- p createNTMakefile
- ]
+ self makeTranscriptVisible.
+ TextCollector transcriptQuerySignal answer:self transcript
+ do:[
+ p createNTMakefile
+ ]
].
"Created: / 19.1.2000 / 15:55:17 / cg"
@@ -5898,8 +5898,8 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
classesToCheckIn := OrderedCollection new.
@@ -5909,30 +5909,30 @@
classes := p classes.
classes do:[:aClassOrClassName |
- |cls clsName|
-
- cls := aClassOrClassName.
- cls isString ifTrue:[
- cls := Smalltalk at:cls asSymbol.
- clsName := aClassOrClassName
- ] ifFalse:[
- clsName := aClassOrClassName name
- ].
-
- cls isBehavior ifFalse:[
- Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
- anyBad := true.
- ] ifTrue:[
- cls isLoaded ifFalse:[
- Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
- anyBad := true.
- ] ifTrue:[
- cls owningClass isNil ifTrue:[ "/ skip private classes
- Transcript showCR:('ProjectBrowser: checking in class: ' , clsName).
- classesToCheckIn add:cls.
- ]
- ]
- ]
+ |cls clsName|
+
+ cls := aClassOrClassName.
+ cls isString ifTrue:[
+ cls := Smalltalk at:cls asSymbol.
+ clsName := aClassOrClassName
+ ] ifFalse:[
+ clsName := aClassOrClassName name
+ ].
+
+ cls isBehavior ifFalse:[
+ Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
+ anyBad := true.
+ ] ifTrue:[
+ cls isLoaded ifFalse:[
+ Transcript showCR:('ProjectBrowser: cannot checkIn unloaded class: ' , clsName).
+ anyBad := true.
+ ] ifTrue:[
+ cls owningClass isNil ifTrue:[ "/ skip private classes
+ Transcript showCR:('ProjectBrowser: checking in class: ' , clsName).
+ classesToCheckIn add:cls.
+ ]
+ ]
+ ]
].
anyBad ifTrue:[^ self].
@@ -5947,8 +5947,8 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self warn:'CheckIn of Makefiles not yet implemented.'.
@@ -5967,8 +5967,8 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self warn:'CheckIn of extensions not yet implemented.'.
@@ -5979,18 +5979,18 @@
anyMethodMissing := false.
methods := p methods.
methods size > 0 ifTrue:[
- methods do:[:aMethod |
- aMethod isMethod ifFalse:[
- Transcript showCR:('ProjectBrowser: cannot checkIn unloaded method: ' , aMethod className , ' ' , aMethod methodName).
- anyMethodMissing := true.
- ]
- ].
- anyMethodMissing ifTrue:[
- Transcript showCR:'ProjectBrowser: cannot save method patches & extensions due to missing method(s)'.
- ] ifFalse:[
- Transcript showCR:('ProjectBrowser: checking in patches & extensions').
- self checkInMethods:methods
- ].
+ methods do:[:aMethod |
+ aMethod isMethod ifFalse:[
+ Transcript showCR:('ProjectBrowser: cannot checkIn unloaded method: ' , aMethod className , ' ' , aMethod methodName).
+ anyMethodMissing := true.
+ ]
+ ].
+ anyMethodMissing ifTrue:[
+ Transcript showCR:'ProjectBrowser: cannot save method patches & extensions due to missing method(s)'.
+ ] ifFalse:[
+ Transcript showCR:('ProjectBrowser: checking in patches & extensions').
+ self checkInMethods:methods
+ ].
].
!
@@ -6002,8 +6002,8 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
"/ check in classes ...
@@ -6028,8 +6028,8 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'No project selected'.
- ^ self
+ self information:'No project selected'.
+ ^ self
].
self warn:'CheckIn of ProjectFile not yet implemented.'.
@@ -6045,7 +6045,7 @@
"inspect the current project"
self hasProjectSelected ifTrue:[
- self currentProject inspect.
+ self currentProject inspect.
]
!
@@ -6053,7 +6053,7 @@
"load all classes as contained in the project into the system"
self withReadCursorDo:[
- self currentProject loadClassesFromProjectDirectory.
+ self currentProject loadClassesFromProjectDirectory.
].
!
@@ -6072,12 +6072,12 @@
|project|
self hasProjectSelected ifTrue:[
- project := self currentProject.
-
- Project current:project.
- self showWhat value == #current ifTrue:[
- self updateProjectTree
- ]
+ project := self currentProject.
+
+ Project current:project.
+ self showWhat value == #current ifTrue:[
+ self updateProjectTree
+ ]
]
!
@@ -6088,16 +6088,16 @@
mthd := self selectedMethod.
mthd notNil ifTrue:[
- newPackage := Dialog request:'Move to project:' initialAnswer:lastMoveToProject.
- newPackage size > 0 ifTrue:[
- lastMoveToProject := newPackage.
- newPackage ~= p package ifTrue:[
- mthd package:newPackage asSymbol.
- p removeMethod:mthd.
- self updatePatchesListForProject:p.
- self projectTree remove:self selectedTreeNode.
- ]
- ]
+ newPackage := Dialog request:'Move to project:' initialAnswer:lastMoveToProject.
+ newPackage size > 0 ifTrue:[
+ lastMoveToProject := newPackage.
+ newPackage ~= p package ifTrue:[
+ mthd package:newPackage asSymbol.
+ p removeMethod:mthd.
+ self updatePatchesListForProject:p.
+ self projectTree remove:self selectedTreeNode.
+ ]
+ ]
].
!
@@ -6117,7 +6117,7 @@
self readAspectsFromProject.
newProject wasLoadedFromFile ifFalse:[
- self updateListOfRequiredPrerequisiteClasses.
+ self updateListOfRequiredPrerequisiteClasses.
]
!
@@ -6127,18 +6127,18 @@
projectNode := self currentProjectNode.
projectNode notNil ifTrue:[
- parentProject := projectNode contents.
- subProjectsNode := projectNode children detect:[:child | child contents == #subprojects].
+ parentProject := projectNode contents.
+ subProjectsNode := projectNode children detect:[:child | child contents == #subprojects].
self halt.
- parentProject notNil ifTrue:[
- newProject := Project new.
- newNode := self nodeFor:newProject.
-
- parentProject addSubProject:newProject.
- subProjectsNode add:newNode.
- self projectTreeHolder root:projectTree.
- self projectTreeHolder selectNode:newNode.
- ]
+ parentProject notNil ifTrue:[
+ newProject := Project new.
+ newNode := self nodeFor:newProject.
+
+ parentProject addSubProject:newProject.
+ subProjectsNode add:newNode.
+ self projectTreeHolder root:projectTree.
+ self projectTreeHolder selectNode:newNode.
+ ]
]
!
@@ -6152,14 +6152,14 @@
|fn|
fn := Dialog
- requestFileName:'filename:'
- default:nil
- ifFail:nil
- pattern:'*.prj'
- fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
+ requestFileName:'filename:'
+ default:nil
+ ifFail:nil
+ pattern:'*.prj'
+ fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
fn notNil ifTrue:[
- self loadFromProjectFile:fn.
+ self loadFromProjectFile:fn.
]
!
@@ -6170,14 +6170,14 @@
mthd := self selectedMethod.
mthd notNil ifTrue:[
- (self confirm:'Really remove the method (from both project and image) ?') ifTrue:[
- p removeMethod:mthd.
- mthd who methodClass removeSelector:mthd who methodSelector.
- self updatePatchesListForProject:p.
- self projectTree remove:self selectedTreeNode.
- ]
+ (self confirm:'Really remove the method (from both project and image) ?') ifTrue:[
+ p removeMethod:mthd.
+ mthd who methodClass removeSelector:mthd who methodSelector.
+ self updatePatchesListForProject:p.
+ self projectTree remove:self selectedTreeNode.
+ ]
] ifFalse:[
- self information:'No such method in the image (yet)'.
+ self information:'No such method in the image (yet)'.
]
!
@@ -6188,12 +6188,12 @@
mthd := self selectedMethod.
mthd notNil ifTrue:[
- (self confirm:'Really remove the method (from the project) ?') ifTrue:[
- mthd package:#unknown.
- p removeMethod:mthd.
- self updatePatchesListForProject:p.
- self projectTree remove:self selectedTreeNode.
- ]
+ (self confirm:'Really remove the method (from the project) ?') ifTrue:[
+ mthd package:#unknown.
+ p removeMethod:mthd.
+ self updatePatchesListForProject:p.
+ self projectTree remove:self selectedTreeNode.
+ ]
].
!
@@ -6201,15 +6201,15 @@
|projectToRemove selectedNode subNode newNode parentNode parentProject newProject|
self hasProjectNodeSelected ifTrue:[
- selectedNode := self selectedTreeNode.
- projectToRemove := selectedNode contents.
-
- (self confirm:'Really remove the project ?') ifTrue:[
- self withExecuteCursorDo:[
- self projectTreeHolder removeSelection.
- projectToRemove removeFromSystem.
- ]
- ]
+ selectedNode := self selectedTreeNode.
+ projectToRemove := selectedNode contents.
+
+ (self confirm:'Really remove the project ?') ifTrue:[
+ self withExecuteCursorDo:[
+ self projectTreeHolder removeSelection.
+ projectToRemove removeFromSystem.
+ ]
+ ]
]
!
@@ -6218,17 +6218,17 @@
projectNode := self currentProjectNode.
projectNode notNil ifTrue:[
- selectedProject := projectNode contents.
-
- nm := Dialog
- request:'Rename to:'
- initialAnswer:selectedProject name.
-
- nm size > 0 ifTrue:[
- selectedProject name:nm.
+ selectedProject := projectNode contents.
+
+ nm := Dialog
+ request:'Rename to:'
+ initialAnswer:selectedProject name.
+
+ nm size > 0 ifTrue:[
+ selectedProject name:nm.
"/ selectedNode name:nm.
"/ selectedNode changed.
- ]
+ ]
]
!
@@ -6238,24 +6238,24 @@
|d p|
self modifiedChannel value ifTrue:[
- (self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self]
+ (self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self]
].
p := self currentProject.
p isNil ifTrue:[
- self information:'Select a project first.'.
- ^self
+ self information:'Select a project first.'.
+ ^self
].
p directory isNil ifTrue:[
- d := (Dialog request:'Project Directory:').
- d size == 0 ifTrue:[
- ^ self
- ].
- p directory:d
+ d := (Dialog request:'Project Directory:').
+ d size == 0 ifTrue:[
+ ^ self
+ ].
+ p directory:d
].
self withCursor:Cursor write do:[
- p saveAsProjectFile.
+ p saveAsProjectFile.
]
"Modified: / 26.4.1999 / 22:43:57 / cg"
@@ -6271,29 +6271,29 @@
classesInProjectOnly := IdentitySet new.
Smalltalk allClassesDo:[:aClass |
- aClass isMeta ifFalse:[
- (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
- aClass package = project package ifTrue:[
- (project classInfoFor:aClass) isNil ifTrue:[
- classesInImageOnly add:aClass name.
- ]
- ]
- ]
- ]
+ aClass isMeta ifFalse:[
+ (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
+ aClass package = project package ifTrue:[
+ (project classInfoFor:aClass) isNil ifTrue:[
+ classesInImageOnly add:aClass name.
+ ]
+ ]
+ ]
+ ]
].
project classInfo do:[:clsInfo |
- |clsName cls|
-
- clsName := clsInfo className.
- cls := Smalltalk at:clsName asSymbol.
- (cls isBehavior not) ifTrue:[
- classesInProjectOnly add:clsName
- ].
+ |clsName cls|
+
+ clsName := clsInfo className.
+ cls := Smalltalk at:clsName asSymbol.
+ (cls isBehavior not) ifTrue:[
+ classesInProjectOnly add:clsName
+ ].
].
(classesInImageOnly isEmpty and:[classesInProjectOnly isEmpty]) ifTrue:[
- self information:'Set of classes in project and image are equal.'.
- ^ self.
+ self information:'Set of classes in project and image are equal.'.
+ ^ self.
].
classesInImageOnly := classesInImageOnly asOrderedCollection sort.
@@ -6304,8 +6304,8 @@
bindings at:#classesInProjectOnly put:classesInProjectOnly.
SimpleDialog
- openDialogInterfaceSpec:(self class classValidationDialogSpec)
- withBindings:bindings
+ openDialogInterfaceSpec:(self class classValidationDialogSpec)
+ withBindings:bindings
"Modified: / 26.9.1999 / 16:03:50 / cg"
!
@@ -6322,37 +6322,37 @@
methodsInProjectOnly := IdentitySet new.
Method allSubInstancesDo:[:aMethod |
- aMethod package = package ifTrue:[
- who := aMethod who.
- who notNil ifTrue:[
- (project classInfoFor:who methodClass) isNil ifTrue:[
- "/ is it in the projects methodList ?
- (project includesMethod:aMethod) ifFalse:[
- methodsInImageOnly add:(who methodClass name , ' ' , who methodSelector).
- ]
- ]
- ]
- ]
+ aMethod package = package ifTrue:[
+ who := aMethod who.
+ who notNil ifTrue:[
+ (project classInfoFor:who methodClass) isNil ifTrue:[
+ "/ is it in the projects methodList ?
+ (project includesMethod:aMethod) ifFalse:[
+ methodsInImageOnly add:(who methodClass name , ' ' , who methodSelector).
+ ]
+ ]
+ ]
+ ]
].
project methodInfo do:[:mthdInfo |
- |clsName sel cls m|
-
- clsName := mthdInfo className.
- sel := mthdInfo methodName.
- cls := Smalltalk at:clsName asSymbol.
- (project includesClass:clsName) ifFalse:[
- (cls isBehavior not
- or:[(m := cls compiledMethodAt:sel) isNil
- or:[m package ~= package]]) ifTrue:[
- methodsInProjectOnly add:(clsName , ' ' , sel)
- ].
- ].
+ |clsName sel cls m|
+
+ clsName := mthdInfo className.
+ sel := mthdInfo methodName.
+ cls := Smalltalk at:clsName asSymbol.
+ (project includesClass:clsName) ifFalse:[
+ (cls isBehavior not
+ or:[(m := cls compiledMethodAt:sel) isNil
+ or:[m package ~= package]]) ifTrue:[
+ methodsInProjectOnly add:(clsName , ' ' , sel)
+ ].
+ ].
].
(methodsInImageOnly isEmpty and:[methodsInProjectOnly isEmpty]) ifTrue:[
- self information:'Set of methods in project and image are equal.'.
- ^ self.
+ self information:'Set of methods in project and image are equal.'.
+ ^ self.
].
methodsInImageOnly := methodsInImageOnly asOrderedCollection sort:[:a :b | a printString < b printString].
@@ -6363,8 +6363,8 @@
bindings at:#methodsInProjectOnly put:methodsInProjectOnly.
SimpleDialog
- openDialogInterfaceSpec:(self class methodValidationDialogSpec)
- withBindings:bindings
+ openDialogInterfaceSpec:(self class methodValidationDialogSpec)
+ withBindings:bindings
"Modified: / 26.9.1999 / 16:03:50 / cg"
! !