--- a/ProjectBrowser.st Tue Mar 23 12:09:45 1999 +0100
+++ b/ProjectBrowser.st Tue Mar 23 14:20:40 1999 +0100
@@ -113,6 +113,27 @@
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]
+!
+
+prerequisitesIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self prerequisitesIcon inspect
+ ImageEditor openOnClass:self andSelector:#prerequisitesIcon
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'ProjectBrowser prerequisitesIcon'
+ ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A8@D(@RPA80@C@^@=HRT/)^D$@C7#@RLAI@G(@@@@b') ; yourself); yourself]
+
+ "Modified: / 23.3.1999 / 14:28:11 / cg"
! !
!ProjectBrowser class methodsFor:'interface specs'!
@@ -366,12 +387,12 @@
#window:
#(#WindowSpec
#name: 'NewApplication'
- #layout: #(#LayoutFrame 170 0 122 0 469 0 421 0)
+ #layout: #(#LayoutFrame 134 0 100 0 433 0 399 0)
#level: 0
#label: 'NewApplication'
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 170 122 470 422)
+ #bounds: #(#Rectangle 134 100 434 400)
#usePreferredExtent: false
#returnIsOKInDialog: true
#escapeIsCancelInDialog: true
@@ -422,7 +443,6 @@
#translateLabel: true
#model: #projectType
#isTriggerOnDown: true
- #lampColor: #(#Color 100.0 100.0 0.0)
#select: #application
)
#(#RadioButtonSpec
@@ -432,8 +452,7 @@
#translateLabel: true
#model: #projectType
#isTriggerOnDown: true
- #lampColor: #(#Color 100.0 100.0 0.0)
- #select: #classLibrary
+ #select: #library
)
)
)
@@ -451,8 +470,8 @@
#(#InputFieldSpec
#name: 'EntryField1'
#layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
+ #enableChannel: #currentProjectWasNotLoadedFromFile
#model: #projectDirectory
- #isReadOnly: true
)
)
)
@@ -463,6 +482,8 @@
)
)
)
+
+ "Modified: / 23.3.1999 / 14:20:32 / cg"
!
rightCanvasSpecForReadOnlyText
@@ -1003,6 +1024,23 @@
^ holder.
!
+currentProjectWasNotLoadedFromFile
+ "automatically generated by UIPainter ..."
+
+ "*** the code below creates a default model when invoked."
+ "*** (which may not be the one you wanted)"
+ "*** Please change as required and accept in the browser."
+
+ |holder|
+
+ (holder := builder bindingAt:#currentProjectWasNotLoadedFromFile) isNil ifTrue:[
+ builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder := ValueHolder new).
+ ].
+ ^ holder.
+
+ "Created: / 23.3.1999 / 14:01:09 / cg"
+!
+
hasProjectSelectedHolder
^ [
self hasProjectNodeSelected
@@ -1061,6 +1099,23 @@
^ holder.
!
+projectType
+ "automatically generated by UIPainter ..."
+
+ "*** the code below creates a default model when invoked."
+ "*** (which may not be the one you wanted)"
+ "*** Please change as required and accept in the browser."
+
+ |holder|
+
+ (holder := builder bindingAt:#projectType) isNil ifTrue:[
+ builder aspectAt:#projectType put:(holder := ValueHolder new).
+ ].
+ ^ holder.
+
+ "Created: / 23.3.1999 / 14:18:05 / cg"
+!
+
rightCanvasTextHolder
"automatically generated by UIPainter ..."
@@ -1212,6 +1267,7 @@
].
prerequisitesNode contents:#prerequisites.
+ prerequisitesNode icon:(self class prerequisitesIcon).
classesNode contents:#classes.
classesNode icon:(self class classesIcon).
@@ -1236,6 +1292,7 @@
^ pNode
+ "Modified: / 23.3.1999 / 14:27:30 / cg"
!
projectTree
@@ -1254,6 +1311,22 @@
^ projectTree
!
+readAspectsForProject
+ |p selectedNode|
+
+ self hasProjectNodeSelected ifTrue:[
+ selectedNode := self selectedTreeNode value.
+
+ p := selectedNode contents.
+
+ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
+ self projectType value:(p type).
+ ].
+
+ "Created: / 23.3.1999 / 14:16:12 / cg"
+ "Modified: / 23.3.1999 / 14:18:38 / cg"
+!
+
updateRightCanvas
|selectedNode nodeContents spec|
@@ -1269,6 +1342,7 @@
].
selectedNode isProjectNode ifTrue:[
+ self readAspectsForProject.
self showCommentOf:selectedNode.
^ self.
].
@@ -1285,6 +1359,7 @@
self currentCanvasHolder value:(self class emptyRightCanvasSpec).
self rightCanvasTextHolder value:''.
+ "Modified: / 23.3.1999 / 14:16:02 / cg"
! !
!ProjectBrowser methodsFor:'private - table col access'!