hg/stx-libtool2: comparison HierarchicalListEditor.st

equal deleted inserted replaced

-:29c8681ce68d
+:6db5efc5df90
 "
-COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+COPYRIGHT (c) 1997 by eXept Software AG
 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
-inclusion of the above copyright notice.   This software may not
+inclusion of the above copyright notice. This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
-ListSpecEditor subclass:#HierarchicalListEditor
+ResourceSpecEditor subclass:#HierarchicalListEditor
 	instanceVariableNames:'treeView'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
 !HierarchicalListEditor class methodsFor:'documentation'!
 copyright
 "
-COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
+COPYRIGHT (c) 1997 by eXept Software AG
 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
-inclusion of the above copyright notice.   This software may not
+inclusion of the above copyright notice. This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 ! !
 !HierarchicalListEditor class methodsFor:'help specs'!
 helpSpec
-"return a dictionary filled with helpKey -> helptext associations.
+"This resource specification was automatically generated
-These are used by the activeHelp tool."
+by the UIHelpTool of ST/X."
-"
+"Do not manually edit this!! If it is corrupted,
-UIHelpTool openOnClass:HierarchicalListEditor
+the UIHelpTool may not be able to read the specification."
-"
+"
-^ super helpSpec addPairsFrom:#(
+UIHelpTool openOnClass:HierarchicalListEditor
+"
+<resource: #help>
+^super helpSpec addPairsFrom:#(
 #addChild
 'Adds a new child item.'
 #addSister
 #fileLoad
 'Opens a dialog for selecting and loading a hierarchical list spec from a class.'
 #fileNew
-'Creates a new hierarchical list.'
+'Creates a new hierarchical list. '
 #fileSave
 'Saves current hierarchical list spec.'
 #fileSaveAs
 ! !
 !HierarchicalListEditor class methodsFor:'image specs'!
 createChildIcon
-"Generated by the Image Editor"
+"This resource specification was automatically generated
-"
+by the ImageEditor of ST/X."
-ImageEditor openOnClass:self andSelector:#createChildIcon
+"Do not manually edit this!! If it is corrupted,
+the ImageEditor may not be able to read the specification."
+"
+ImageEditor openOnClass:self andSelector:#createChildIcon
 "
 <resource: #image>
 ^Icon
 constantNamed:#'HierarchicalListEditor createChildIcon'
 ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A<3L308@A33L33H@A30L33H@A33L33H@A<3L008@A?????8@C*****(@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself]!
 createSisterIcon
-"Generated by the Image Editor"
+"This resource specification was automatically generated
-"
+by the ImageEditor of ST/X."
-ImageEditor openOnClass:self andSelector:#createSisterIcon
+"Do not manually edit this!! If it is corrupted,
+the ImageEditor may not be able to read the specification."
+"
+ImageEditor openOnClass:self andSelector:#createSisterIcon
 "
 <resource: #image>
 ^Icon
 ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A<L<O?8@A3<3??8@A<<<<C8@A?L?O?8@A0<0??8@A?????8@A0LCC?8@A<<?L?8@A<<CC?8@A<<?L?8@A<<CL?8@A?????8@C*****(@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself]! !
 !HierarchicalListEditor class methodsFor:'interface specs'!
 windowSpec
-"this window spec was automatically generated by the ST/X UIPainter"
+"This resource specification was automatically generated
+by the UIPainter of ST/X."
-"do not manually edit this - the painter/builder may not be able to
-handle the specification if its corrupted."
+"Do not manually edit this!! If it is corrupted,
+the UIPainter may not be able to read the specification."
 "
 UIPainter new openOnClass:HierarchicalListEditor andSelector:#windowSpec
 HierarchicalListEditor new openInterface:#windowSpec
-"
+HierarchicalListEditor open
-"HierarchicalListEditor open"
+"
 <resource: #canvas>
 ^
 #(#FullSpec
 #window:
 #(#WindowSpec
 #name: 'Hierarchical List Editor'
-#layout: #(#LayoutFrame 140 0 249 0 614 0 561 0)
+#layout: #(#LayoutFrame 229 0 389 0 703 0 701 0)
 #label: 'Hierarchical List Editor'
 #min: #(#Point 10 10)
 #max: #(#Point 1160 870)
-#bounds: #(#Rectangle 140 249 615 562)
+#bounds: #(#Rectangle 229 389 704 702)
 #menu: #menu
 #usePreferredExtent: false
 )
 #component:
 #(#SpecCollection
 #(#SpecCollection
 #collection:
 #(
 #(#LabelSpec
 #name: 'nameLabel'
-#layout: #(#AlignmentOrigin 108 0 26 0 1 0.5)
+#layout: #(#AlignmentOrigin 98 0 26 0 1 0.5)
 #label: 'Label:'
 #resizeForLabel: true
 )
 #(#InputFieldSpec
 #name: 'labelInputField'
-#layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+#layout: #(#LayoutFrame 100 0 15 0 -5 1.0 37 0)
 #activeHelpKey: #label
 #tabable: true
 #model: #itemName
 )
 #(#LabelSpec
 #name: 'valueLabel'
-#layout: #(#AlignmentOrigin 108 0 52 0 1 0.5)
+#layout: #(#AlignmentOrigin 98 0 52 0 1 0.5)
 #activeHelpKey: #contents
 #label: 'Contents:'
 #resizeForLabel: true
 )
 #(#InputFieldSpec
 #name: 'valueInputField'
-#layout: #(#LayoutFrame 110 0 41 0 -5 1.0 63 0)
+#layout: #(#LayoutFrame 100 0 41 0 -5 1.0 63 0)
 #activeHelpKey: #contents
 #tabable: true
 #model: #itemValue
 #type: #symbolOrNil
 )
 ! !
 !HierarchicalListEditor class methodsFor:'menu specs'!
 menu
-"this window spec was automatically generated by the ST/X MenuEditor"
+"This resource specification was automatically generated
+by the MenuEditor of ST/X."
-"do not manually edit this - the builder may not be able to
-handle the specification if its corrupted."
+"Do not manually edit this!! If it is corrupted,
+the MenuEditor may not be able to read the specification."
 "
 MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menu
 (Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menu)) startUp
 "
 #(#MenuItem
 #label: 'History'
 #submenuChannel: #menuHistory
 )
 #(#MenuItem
+#label: 'Settings'
+#submenu:
+#(#Menu
+#(
+#(#MenuItem
+#label: 'Fonts'
+#submenuChannel: #menuFont
+)
+) nil
+nil
+)
+)
+#(#MenuItem
 #label: 'Help'
 #startGroup: #right
 #submenuChannel: #menuHelp
 )
 ) nil
 nil
 )
 !
 menuEdit
-"this window spec was automatically generated by the ST/X MenuEditor"
+"This resource specification was automatically generated
+by the MenuEditor of ST/X."
-"do not manually edit this - the builder may not be able to
-handle the specification if its corrupted."
+"Do not manually edit this!! If it is corrupted,
+the MenuEditor may not be able to read the specification."
 "
 MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuEdit
 (Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuEdit)) startUp
 "
 nil
 )
 !
 menuToolbar
-"this window spec was automatically generated by the ST/X MenuEditor"
+"This resource specification was automatically generated
+by the MenuEditor of ST/X."
-"do not manually edit this - the builder may not be able to
-handle the specification if its corrupted."
+"Do not manually edit this!! If it is corrupted,
+the MenuEditor may not be able to read the specification."
 "
 MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuToolbar
 (Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuToolbar)) startUp
 "
 !
-buildFromListSpec: aListSpec
+buildFromResourceSpec: aListSpec
 treeView root: aListSpec
 !
 ifTrue:[(treeView isInSelection:1) not]
 ifFalse: [false]).
 self valueOfCanCopy value: self valueOfCanCut value.
-self valueOfCanPaste value: (self class clipboard notNil and:[treeView selectedNode notNil]).
+self valueOfCanPaste value: treeView selectedNode notNil & self valueOfCanPaste value.
 !
 updateInputFields
 "reload item value into input fields"
 !
 openModalOnTreeItem: aTreeItem
 "build a tree from aTreeItem and open it modal"
-super openModalOnListSpec: aTreeItem
+super openModalOnResourceSpec: aTreeItem
 ! !
 !HierarchicalListEditor methodsFor:'user actions'!
 accept
 doCopy
 "copy current selected nodes into copy buffer"
 self class clipboard: OrderedCollection new.
-treeView selectedNodesDo:[:aNode| self class clipboard add: aNode copy]
+treeView selectedNodesDo:[:aNode| self class clipboard add: aNode copy].
+self updateChannels
 !
 doCreateChild
 "create a child within selected parent"
 modified := true
 ]
 !
 doNew
-"remove all items; restart"
+"first do super new; then make a build
+of a resource spec containing a root"
-self askForModification
-ifTrue:
+super doNew ifTrue: [self buildRoot]
-[
-self isStandAlone ifTrue: [specClass := specSelector := nil].
-self buildRoot
-]
 !
 doPaste
 "paste after current selected item"
-self askForItemModification
+(self askForItemModification and: [self class clipboard notNil])
 ifTrue:
 [
 |copiedNode|
 self class clipboard do:
 [:node|
 code := Character excla asString
 , cls name , ' class methodsFor:' , category storeString
 , Character excla asString , '\\'
 , specSelector , '\'
-, '    "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
+, (self class codeGenerationComment replChar:$!! withString:'!!!!')
-, '    "do not manually edit this - the builder may not be able to\'
+, '\\    "\'
-, '     handle the specification if its corrupted."\\'
-, '    "\'
 , '     HierarchicalListEditor openOnClass:' , cls name , ' andSelector:#' , specSelector , '\'
 , '    "\'.
 code := code
 , '\'

changeset 736	6db5efc5df90
parent 731	cd36a0c9ba62
child 747	c76003b74d7b