hg/stx-libtool2: comparison Tools__ProjectDefinitionEditor.st

equal deleted inserted replaced

-:67cc88b7b310
+:43f28c0ce813
 "{ Package: 'stx:libtool2' }"
 "{ NameSpace: Tools }"
 ResourceSpecEditor subclass:#ProjectDefinitionEditor
-	instanceVariableNames:'definitionClass classList selectedClassIndexHolder
+	instanceVariableNames:'definitionClass classList extensionsList selectedClassIndexHolder
 		classesTableColumns revisionNrHolder companyNameHolder
 		fileMajorVersionNrHolder minorVersionNrHolder iconFileNameHolder
 		fileReleaseNrHolder productNameHolder majorVersionNrHolder
 		fileRevisionNrHolder fileDescriptionHolder releaseNrHolder
 		fileMinorVersionNrHolder descriptionHolder legalCopyrightHolder
 		isApplicationDefinitionHolder isNonGUIApplicationHolder
-		startSinglethreadedHolder startupClassHolder
+		startSinglethreadedHolder startupClassNameHolder
 		startupSelectorHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Tools'
 !
 Object subclass:#ClassListEntry
 	instanceVariableNames:'className autoloaded win32 unix'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ProjectDefinitionEditor
+!
+Object subclass:#ExtensionsListEntry
+	instanceVariableNames:'className selector'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:ProjectDefinitionEditor
 !
 adjust: right
 )
 (InputFieldSpec
 name: 'StartupClassEntryField'
 layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
-model: startupClassHolder
+model: startupClassNameHolder
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnLostFocus: true
 acceptOnPointerLeave: false
 )
 )
 )
 )
 )
+"Modified: / 06-09-2006 / 18:41:56 / cg"
 !
 windowSpec
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 "Modified: / 03-09-2006 / 10:57:33 / cg"
 ! !
 !ProjectDefinitionEditor class methodsFor:'list specs'!
+tabList
+^ self  tabListForApplication.
+"Created: / 06-09-2006 / 13:38:03 / cg"
+!
 tabListForApplication
 "This resource specification was automatically generated
 by the TabListEditor of ST/X."
 "Do not manually edit this!! If it is corrupted,
 "
 <resource: #tabList>
 ^     #(
+(TabItem
+label: 'Description'
+minorKey: descriptionSpec
+)
 (TabItem
 label: 'Classes'
 createNewBuilder: false
 translateLabel: true
 minorKey: classesSpec
 (TabItem
 label: 'Prerequisites'
 minorKey: prerequisitesSpec
 )
 (TabItem
-label: 'Description'
-minorKey: descriptionSpec
-)
-(TabItem
 label: 'Compilation'
 minorKey: compilationSpec
 )
 (TabItem
 label: 'Startup'
 )
 collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
 "Created: / 05-09-2006 / 16:24:48 / cg"
+"Modified: / 06-09-2006 / 18:44:34 / cg"
 !
 tabListForLibrary
 "This resource specification was automatically generated
 by the TabListEditor of ST/X."
 "
 <resource: #tabList>
 ^     #(
+(TabItem
+label: 'Description'
+minorKey: descriptionSpec
+)
 (TabItem
 label: 'Classes'
 createNewBuilder: false
 translateLabel: true
 minorKey: classesSpec
 (TabItem
 label: 'Prerequisites'
 minorKey: prerequisitesSpec
 )
 (TabItem
-label: 'Description'
-minorKey: descriptionSpec
-)
-(TabItem
 label: 'Compilation'
 minorKey: compilationSpec
-)
-(TabItem
-label: 'Startup'
-minorKey: startupSpec
 )
 )
 collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
 "Created: / 05-09-2006 / 16:24:52 / cg"
+"Modified: / 06-09-2006 / 18:44:38 / cg"
 ! !
 !ProjectDefinitionEditor class methodsFor:'menu specs'!
 classListMenu
 "Do not manually edit this!! If it is corrupted,
 the DataSetBuilder may not be able to read the specification."
 "
-DataSetBuilder new openOnClass:ApplicationDefinitionEditor andSelector:#classesTableColumns
+DataSetBuilder new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classesTableColumns
 "
 <resource: #tableColumns>
 ^#(
 (DataSetColumnSpec
 label: 'Auto'
 labelButtonType: Button
 rendererType: CheckToggle
 model: autoloaded
+canSelect: false
 )
 (DataSetColumnSpec
 label: 'Win32'
 labelButtonType: Button
 rendererType: CheckToggle
 model: win32
+canSelect: false
 )
 (DataSetColumnSpec
 label: 'Unix'
 labelButtonType: Button
 rendererType: CheckToggle
 model: unix
+canSelect: false
 )
 (DataSetColumnSpec
 label: 'Class'
 labelButtonType: Button
 model: className
+canSelect: false
 )
 )
 !
 "Do not manually edit this!! If it is corrupted,
 the DataSetBuilder may not be able to read the specification."
 "
-DataSetBuilder new openOnClass:ApplicationDefinitionEditor andSelector:#extensionsTableColumns
+DataSetBuilder new openOnClass:Tools::ProjectDefinitionEditor andSelector:#extensionsTableColumns
 "
 <resource: #tableColumns>
 ^#(
 (DataSetColumnSpec
 label: 'Class'
 labelButtonType: Button
 model: className
+canSelect: false
 )
 (DataSetColumnSpec
 label: 'Selector'
 labelButtonType: Button
 model: selector
+canSelect: false
 )
 )
 !
 ^ descriptionHolder.
 "Modified: / 04-09-2006 / 17:58:15 / cg"
 !
+extensionsList
+extensionsList isNil ifTrue:[
+extensionsList := #() asValue.
+].
+^ extensionsList.
+"Created: / 06-09-2006 / 18:47:54 / cg"
+!
 fileDescriptionHolder
 fileDescriptionHolder isNil ifTrue:[
 fileDescriptionHolder := ValueHolder new.
 ].
 ^ fileDescriptionHolder.
 ^ startSinglethreadedHolder.
 "Created: / 05-09-2006 / 13:34:54 / cg"
 !
-startupClassHolder
+startupClassNameHolder
-startupClassHolder isNil ifTrue:[
+startupClassNameHolder isNil ifTrue:[
-startupClassHolder := '' asValue.
+startupClassNameHolder := '' asValue.
 ].
-^ startupClassHolder.
+^ startupClassNameHolder.
-"Created: / 05-09-2006 / 13:34:08 / cg"
+"Created: / 06-09-2006 / 18:41:52 / cg"
 !
 startupSelectorHolder
 startupSelectorHolder isNil ifTrue:[
 startupSelectorHolder := '' asValue.
 (list := builder bindingAt:#tabList) isNil ifTrue:[
 builder aspectAt:#tabList put:(list := self class tabListForApplication asValue).
 ].
 ^ list
-"Modified: / 05-09-2006 / 16:28:09 / cg"
+"Modified: / 06-09-2006 / 17:58:08 / cg"
 ! !
 !ProjectDefinitionEditor methodsFor:'aspects-menu'!
 classesMenuVisibleHolder
 ^ entries.
 "Created: / 05-09-2006 / 12:31:26 / cg"
 !
+fetchExtensionsListEntries
+|entries|
+entries := OrderedCollection new.
+definitionClass
+extensionMethodNames pairWiseDo:[:className :selector |
+|entry|
+entry := ExtensionsListEntry new.
+entry className:className selector:selector.
+entries add:entry.
+].
+^ entries.
+"Created: / 06-09-2006 / 18:45:15 / cg"
+!
 fetchValues
 |definitionClass isApplicationDefinition|
 definitionClass := self definitionClass.
 definitionClass isNil ifTrue:[^ self ].
 isApplicationDefinition := definitionClass isApplicationDefinition.
 self isApplicationDefinitionHolder value:isApplicationDefinition.
 isApplicationDefinition ifTrue:[
-self startupClassHolder value:(definitionClass startupClass).
+self startupClassNameHolder value:(definitionClass startupClassName).
 self startupSelectorHolder value:(definitionClass startupSelector).
 self iconFileNameHolder value:(definitionClass iconFileName).
 self tabList value:(self class tabListForApplication).
 ] ifFalse:[
 self tabList value:(self class tabListForLibrary).
 self fileMinorVersionNrHolder value:(definitionClass fileMinorVersionNr asInteger).
 self fileRevisionNrHolder value:(definitionClass fileRevisionNr asInteger).
 self fileReleaseNrHolder value:(definitionClass fileReleaseNr asInteger).
 self classList value:(self fetchClassListEntries).
+self extensionsList value:(self fetchExtensionsListEntries).
 self window
 label:(isApplicationDefinition
 ifTrue:'Application'
 ifFalse:'Library' )
 , ' Definition: ',definitionClass name.
 "Created: / 04-09-2006 / 16:34:39 / cg"
-"Modified: / 05-09-2006 / 16:26:45 / cg"
+"Modified: / 06-09-2006 / 18:45:45 / cg"
 !
 update:something with:parameter from:changedObject
 changedObject == self selectedTabIndexHolder ifTrue:[
 self updateMenuVisibility.
 win32:something
 win32 := something.
 ! !
+!ProjectDefinitionEditor::ExtensionsListEntry methodsFor:'accessing'!
+className
+^ className
+!
+className:classNameArg selector:selectorArg
+className := classNameArg.
+selector := selectorArg.
+!
+selector
+^ selector
+! !
 !ProjectDefinitionEditor class methodsFor:'documentation'!
 version
 ^ '$Header$'
 ! !

changeset 2079	43f28c0ce813
parent 2078	67cc88b7b310
child 2080	b76931b8e953