Squeak-dev March 2015

squeak-dev@lists.squeakfoundation.org

40 participants
315 discussions

The Trunk: HelpSystem-Tests-mt.16.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

Marcel Taeumel uploaded a new version of HelpSystem-Tests to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Tests-mt.16.mcz ==================== Summary ==================== Name: HelpSystem-Tests-mt.16 Author: mt Time: 25 March 2015, 11:30:13.168 am UUID: 7a2dcc3a-6e0b-0d47-bccf-0b1bbd056a66 Ancestors: HelpSystem-Tests-fbs.15 Tests updated. =============== Diff against HelpSystem-Tests-fbs.15 =============== Item was changed: ----- Method: HelpBrowserTest>>testOpen (in category 'testing') ----- testOpen |browser| "This should not throw an exception." browser := self defaultTestClass open. World doOneCycleNow. + browser changed: #close.! - browser close.! Item was changed: ----- Method: HelpTopicTest>>testInitialization (in category 'testing') ----- testInitialization self assert: topic title = 'Unnamed Topic'. - self assert: topic key isEmpty. self assert: topic contents isEmpty !

1 0

The Trunk: HelpSystem-Core-mt.66.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.66.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.66 Author: mt Time: 25 March 2015, 11:29:26.547 am UUID: c1308541-7e10-544a-97a6-4f2887a2178d Ancestors: HelpSystem-Core-mt.65 Help browser uses now the tool builder. To increase performance, the help system creates help topics now lazily (that is, the use of topic builders is not suggested but still possible for backwards compatibility). For example, "HelpBrowser openOn: SystemReference" opens now faster. New kinds of help topics should be implemented by subclassing AbstractHelpTopic. =============== Diff against HelpSystem-Core-mt.65 =============== Item was added: + Object subclass: #AbstractHelpTopic + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'HelpSystem-Core-Model'! + + !AbstractHelpTopic commentStamp: 'mt 3/24/2015 16:26' prior: 0! + A HelpTopic provides content information that can be used as a help to the user. + It can be labeled with a title and marked with an (optional) icon. + + Help topics form a hierarchy since any topic is able to have zero or more + subtopics. ! Item was added: + ----- Method: AbstractHelpTopic>><= (in category 'comparing') ----- + <= anotherHelpTopic + + "Priority-based: ... -3 -2 -1 nil nil nil 1 2 3 4 ..." + (self priority notNil and: [anotherHelpTopic priority notNil]) + ifTrue: [^ self priority <= anotherHelpTopic priority]. + + (self priority notNil and: [anotherHelpTopic priority isNil]) + ifTrue: [^ self priority <= 0]. + + (self priority isNil and: [anotherHelpTopic priority notNil]) + ifTrue: [^ anotherHelpTopic priority >= 0]. + + "Fall-back." + ^ self title <= anotherHelpTopic title! Item was added: + ----- Method: AbstractHelpTopic>>asHelpTopic (in category 'conversion') ----- + asHelpTopic + + ^ self! Item was added: + ----- Method: AbstractHelpTopic>>contents (in category 'accessing') ----- + contents + "Return the text contents of this topic." + + self subclassResponsibility.! Item was added: + ----- Method: AbstractHelpTopic>>hasSubtopics (in category 'testing') ----- + hasSubtopics + + ^ self subtopics notEmpty! Item was added: + ----- Method: AbstractHelpTopic>>icon (in category 'accessing') ----- + icon + "Returns a descriptive form to support manual detection in a list of topics. Icons may encode the kind of topic." + + ^ nil! Item was added: + ----- Method: AbstractHelpTopic>>printOn: (in category 'printing') ----- + printOn: stream + + | title | + super printOn: stream. + (title := self title) notNil + ifTrue: [stream nextPutAll: '<' , title , '>'].! Item was added: + ----- Method: AbstractHelpTopic>>priority (in category 'accessing') ----- + priority + + ^ nil! Item was added: + ----- Method: AbstractHelpTopic>>subtopics (in category 'accessing') ----- + subtopics + "Topics can be nested in a tree structure." + + ^ #()! Item was added: + ----- Method: AbstractHelpTopic>>title (in category 'accessing') ----- + title + "A brief description of this topic's contents." + + ^ self contents truncateWithElipsisTo: 20! Item was added: + AbstractHelpTopic subclass: #ClassAPIHelpTopic + instanceVariableNames: 'theClass withSubclasses withMethods subclassesAsSeparateTopic' + classVariableNames: '' + poolDictionaries: '' + category: 'HelpSystem-Core-Model'! Item was added: + ----- Method: ClassAPIHelpTopic>>contents (in category 'accessing') ----- + contents + + ^ self theClass instanceSide organization classComment! Item was added: + ----- Method: ClassAPIHelpTopic>>icon (in category 'accessing') ----- + icon + + ^ ToolIcons iconNamed: (ToolIcons iconForClass: self theClass name)! Item was added: + ----- Method: ClassAPIHelpTopic>>subclassesAsSeparateTopic (in category 'accessing') ----- + subclassesAsSeparateTopic + + ^ subclassesAsSeparateTopic! Item was added: + ----- Method: ClassAPIHelpTopic>>subclassesAsSeparateTopic: (in category 'accessing') ----- + subclassesAsSeparateTopic: aBoolean + + subclassesAsSeparateTopic := aBoolean.! Item was added: + ----- Method: ClassAPIHelpTopic>>subtopics (in category 'accessing') ----- + subtopics + + ^ (self withMethods ifFalse: [#()] ifTrue: [ { + MethodListHelpTopic new theClass: self theClass theNonMetaClass. + MethodListHelpTopic new theClass: self theClass theMetaClass }]), + + (self withSubclasses ifFalse: [#()] ifTrue: [ + | topics | + topics := self theClass subclasses collect: [:cls | + self class new + theClass: cls; + subclassesAsSeparateTopic: self subclassesAsSeparateTopic; + withMethods: self withMethods; + withSubclasses: self withSubclasses]. + + self subclassesAsSeparateTopic + ifTrue: [{(HelpTopic named: 'Subclasses') + subtopics: topics; + yourself}] + ifFalse: [topics]])! Item was added: + ----- Method: ClassAPIHelpTopic>>theClass (in category 'accessing') ----- + theClass + + ^ theClass! Item was added: + ----- Method: ClassAPIHelpTopic>>theClass: (in category 'accessing') ----- + theClass: aClassDescription + + theClass := aClassDescription.! Item was added: + ----- Method: ClassAPIHelpTopic>>title (in category 'accessing') ----- + title + + ^ self theClass name! Item was added: + ----- Method: ClassAPIHelpTopic>>withMethods (in category 'accessing') ----- + withMethods + + ^ withMethods! Item was added: + ----- Method: ClassAPIHelpTopic>>withMethods: (in category 'accessing') ----- + withMethods: aBoolean + + withMethods := aBoolean.! Item was added: + ----- Method: ClassAPIHelpTopic>>withSubclasses (in category 'accessing') ----- + withSubclasses + + ^ withSubclasses! Item was added: + ----- Method: ClassAPIHelpTopic>>withSubclasses: (in category 'accessing') ----- + withSubclasses: aBoolean + + withSubclasses := aBoolean.! Item was added: + AbstractHelpTopic subclass: #ClassBasedHelpTopic + instanceVariableNames: 'helpClass' + classVariableNames: '' + poolDictionaries: '' + category: 'HelpSystem-Core-Model'! + + !ClassBasedHelpTopic commentStamp: 'mt 3/24/2015 16:28' prior: 0! + This kind of topic uses subclasses and methods to encode books and pages.! Item was added: + ----- Method: ClassBasedHelpTopic>>contents (in category 'accessing') ----- + contents + "A book has no contents. Only its pages do." + + ^ ''! Item was added: + ----- Method: ClassBasedHelpTopic>>hasSubtopics (in category 'testing') ----- + hasSubtopics + + ^ self helpClass pages notEmpty or: [self helpClass subclasses notEmpty]! Item was added: + ----- Method: ClassBasedHelpTopic>>helpClass (in category 'accessing') ----- + helpClass + + ^ helpClass! Item was added: + ----- Method: ClassBasedHelpTopic>>helpClass: (in category 'accessing') ----- + helpClass: aHelpClass + + helpClass := aHelpClass.! Item was added: + ----- Method: ClassBasedHelpTopic>>icon (in category 'accessing') ----- + icon + ^ self helpClass icon! Item was added: + ----- Method: ClassBasedHelpTopic>>priority (in category 'accessing') ----- + priority + + ^ self helpClass priority! Item was added: + ----- Method: ClassBasedHelpTopic>>subtopics (in category 'accessing') ----- + subtopics + + | pages | + pages := (self helpClass pages collect: [:pageSelectorOrClassName | + (Smalltalk hasClassNamed: pageSelectorOrClassName asString) + ifTrue: [Smalltalk classNamed: pageSelectorOrClassName asString] + ifFalse: [pageSelectorOrClassName]]) asOrderedCollection. + + self helpClass subclasses do: [:cls | + pages addIfNotPresent: cls]. + + ^ pages withIndexCollect: [:pageSelectorOrClass :priority | + pageSelectorOrClass isBehavior + ifFalse: [(self helpClass perform: pageSelectorOrClass) priority: priority - pages size; yourself] + ifTrue: [pageSelectorOrClass asHelpTopic]]! Item was added: + ----- Method: ClassBasedHelpTopic>>title (in category 'accessing') ----- + title + ^ self helpClass bookName! Item was changed: ----- Method: CustomHelp class>>asHelpTopic (in category 'converting') ----- asHelpTopic "Convert the receiver to a help topic" + ^ ClassBasedHelpTopic new helpClass: self! - ^self builder buildHelpTopicFrom: self! Item was removed: - ----- Method: CustomHelp class>>builder (in category 'defaults') ----- - builder - "Returns the builder that is used to build the given help book from the receiver. You can override this method - in a subclass to provide an own builder". - - ^CustomHelpHelpBuilder! Item was removed: - ----- Method: CustomHelp class>>key (in category 'accessing') ----- - key - "Returns a unique key identifying the receiver in the help system" - - ^''! Item was added: + ----- Method: CustomHelp class>>priority (in category 'accessing') ----- + priority + + ^ nil! Item was added: + ----- Method: HelpAPIDocumentation class>>asHelpTopic (in category 'defaults') ----- + asHelpTopic + + ^ (HelpTopic named: self bookName) + subtopics: (self packages collect: [:pkgName | PackageAPIHelpTopic new packageName: pkgName]); + yourself! Item was removed: - ----- Method: HelpAPIDocumentation class>>builder (in category 'defaults') ----- - builder - ^PackageAPIHelpBuilder! Item was changed: Object subclass: #HelpBrowser + instanceVariableNames: 'rootTopic topic result' - instanceVariableNames: 'rootTopic window treeMorph contentMorph topicClass topicMethod topic result' classVariableNames: 'DefaultHelpBrowser' poolDictionaries: '' category: 'HelpSystem-Core-UI'! !HelpBrowser commentStamp: 'tbn 3/8/2010 09:33' prior: 0! A HelpBrowser is used to display a hierarchy of help topics and their contents. Instance Variables rootTopic: <HelpTopic> window: <StandardWindow> treeMorph: <PluggableTreeMorph> contentMorph: <Morph> rootTopic - xxxxx window - xxxxx treeMorph - xxxxx contentMorph - xxxxx ! Item was changed: ----- Method: HelpBrowser class>>open (in category 'instance creation') ----- open + ^self openOn: CustomHelp! - ^self openOn: SystemHelp! Item was changed: ----- Method: HelpBrowser class>>openOn: (in category 'instance creation') ----- openOn: aHelpTopic "Open the receiver on the given help topic or any other object that can be transformed into a help topic by sending #asHelpTopic." ^(self defaultHelpBrowser new) + open; + rootTopic: aHelpTopic; + yourself! - rootTopic: aHelpTopic; - open; - yourself! Item was changed: ----- Method: HelpBrowser>>accept: (in category 'actions') ----- accept: text "Accept edited text. Compile it into a HelpTopic" + | code topicClass topicMethod | + (self find: self topic contents) asArray ifNotEmpty: [:refs | + topicClass := refs first actualClass theNonMetaClass. + topicMethod := refs first selector]. + - | code | code := String streamContents:[:s| s nextPutAll: topicMethod. s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'. s crtab; nextPutAll: '"', self name,' edit: ', topicMethod storeString,'"'. s crtab; nextPutAll: '^HelpTopic'. s crtab: 2; nextPutAll: 'title: ', topic title storeString. s crtab: 2; nextPutAll: 'contents: '. s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: text]) storeString. s nextPutAll:' readStream nextChunkText'. ]. topicClass class compile: code classified: ((topicClass class organization categoryOfElement: topicMethod) ifNil:['pages']). + + self flag: #fixme. "mt: Update will not work because the topic builder eagerly cached all the contents and lost track of its origins. We need to get rid of the topic builders and create topic contents lazily resp. live." + + self changed: #topics. + self changed: #topic. + self changed: #topicContents. - self refresh. ! Item was added: + ----- Method: HelpBrowser>>buildWith: (in category 'toolbuilder') ----- + buildWith: builder + + | windowSpec treeSpec textSpec | + windowSpec := builder pluggableWindowSpec new. + windowSpec + model: self; + children: OrderedCollection new; + label: #label. + + treeSpec := builder pluggableTreeSpec new. + treeSpec + model: self; + nodeClass: HelpTopicListItemWrapper; + roots: #topics; + getSelected: #topic; + setSelected: #topic:; + menu: #menu:; + autoDeselect: false; + frame: (0@0 corner: 0.3@1). + windowSpec children add: treeSpec. + + textSpec := builder pluggableTextSpec new. + textSpec + model: self; + getText: #topicContents; + setText: #accept:; + menu: #codePaneMenu:shifted:; + frame: (0.3@0 corner: 1@1). + windowSpec children add: textSpec. + + ^ builder build: windowSpec! Item was removed: - ----- Method: HelpBrowser>>close (in category 'ui') ----- - close - window notNil ifTrue: [window delete]! Item was removed: - ----- Method: HelpBrowser>>defaultRoot (in category 'defaults') ----- - defaultRoot - ^CustomHelp! Item was removed: - ----- Method: HelpBrowser>>defaultViewerClass (in category 'defaults') ----- - defaultViewerClass - ^PluggableTextMorph! Item was changed: ----- Method: HelpBrowser>>findStringInHelpTopic: (in category 'actions') ----- findStringInHelpTopic: aString + - | list | result := OrderedCollection new. + self inSubtopic: self rootTopic find: aString. + result ifNotEmpty: [self topic: result first]. - list := treeMorph scroller submorphs collect: [ :each | each complexContents]. - list do:[ : topic | self inSubtopic: topic find: aString ]. - self onItemClicked: result first. ! Item was changed: ----- Method: HelpBrowser>>inSubtopic:find: (in category 'actions') ----- inSubtopic: aTopic find: aString + ((aTopic title asString includesSubstring: aString caseSensitive: false) + or: [aTopic contents asString includesSubstring: aString caseSensitive: false]) + ifTrue: [result addIfNotPresent: aTopic]. + aTopic subtopics - ((aTopic asString includesSubString: aString) - or: [aTopic item contents asString includesSubString: aString]) - ifTrue: [result addIfNotPresent: aTopic item]. - aTopic contents do: [:sub | self inSubtopic: sub find: aString]! Item was removed: - ----- Method: HelpBrowser>>initWindow (in category 'initialize-release') ----- - initWindow - window := SystemWindow labelled: 'Help Browser'. - window model: self. - "Tree" - treeMorph := PluggableTreeMorph new. - treeMorph - model: self; - setSelectedSelector: #onItemClicked:; - getSelectedSelector: #topic; - getMenuSelector: #menu:. - window addMorph: treeMorph frame: (0@0 corner: 0.3@1). - - "Text" - contentMorph := self defaultViewerClass on: self - text: nil accept: #accept: - readSelection: nil menu: #codePaneMenu:shifted:. - window addMorph: contentMorph frame: (0.3@0 corner: 1@1). - ! Item was removed: - ----- Method: HelpBrowser>>initialize (in category 'initialize-release') ----- - initialize - super initialize. - self initWindow. - ! Item was added: + ----- Method: HelpBrowser>>label (in category 'accessing - ui') ----- + label + + ^ self rootTopic + ifNil: ['Help Browser'] + ifNotNil: [:topic | topic title]! Item was removed: - ----- Method: HelpBrowser>>onItemClicked: (in category 'events') ----- - onItemClicked: anItem - - anItem ifNil: [^contentMorph setText: rootTopic asHelpTopic contents]. - contentMorph setText: anItem contents. - self topic: anItem. ! Item was changed: ----- Method: HelpBrowser>>open (in category 'ui') ----- open - "Open the receivers window" + ToolBuilder open: self.! - self refresh. - window openInWorld. - ! Item was removed: - ----- Method: HelpBrowser>>refresh (in category 'actions') ----- - refresh - - |helpTopic items| - helpTopic := rootTopic asHelpTopic. - window setLabel: helpTopic title. - items := helpTopic subtopics collect: [:each | HelpTopicListItemWrapper with: each ]. - treeMorph list: items. - contentMorph setText: helpTopic contents - ! Item was changed: ----- Method: HelpBrowser>>rootTopic: (in category 'accessing') ----- rootTopic: aHelpTopic + rootTopic := aHelpTopic asHelpTopic. + + self changed: #label. + self changed: #topics.! - rootTopic := aHelpTopic. - self refresh ! Item was removed: - ----- Method: HelpBrowser>>step (in category 'stepping') ----- - step - "Do nothing when the window dispatches stepping back to the model"! Item was changed: ----- Method: HelpBrowser>>topic (in category 'accessing') ----- topic + ^ topic! Item was changed: ----- Method: HelpBrowser>>topic: (in category 'accessing') ----- + topic: aHelpTopic - topic: anItem + self topic == aHelpTopic ifTrue: [^ self]. + + topic := aHelpTopic. + + self changed: #topic. + self changed: #topicContents.! - | classList | - topic := anItem. - classList := (self find: anItem contents) asOrderedCollection. - classList ifNotEmpty:[ - topicClass := classList first actualClass theNonMetaClass. - topicMethod := classList first selector]. - self changed: #topic.! Item was added: + ----- Method: HelpBrowser>>topicContents (in category 'accessing - ui') ----- + topicContents + + ^ (self topic ifNil: [self rootTopic]) ifNil: '' ifNotNil: #contents! Item was added: + ----- Method: HelpBrowser>>topics (in category 'accessing - ui') ----- + topics + + ^ (self rootTopic ifNil: [#()] ifNotNil: #subtopics) sorted! Item was removed: - ----- Method: HelpOnHelp class>>key (in category 'accessing') ----- - key - ^'HelpOnHelp'! Item was added: + ----- Method: HelpOnHelp class>>priority (in category 'accessing') ----- + priority + + ^ 9999 "at the bottom"! Item was changed: + AbstractHelpTopic subclass: #HelpTopic + instanceVariableNames: 'title key icon contents subtopics priority' - Object subclass: #HelpTopic - instanceVariableNames: 'title key icon contents subtopics' classVariableNames: '' poolDictionaries: '' category: 'HelpSystem-Core-Model'! + !HelpTopic commentStamp: 'mt 3/25/2015 11:27' prior: 0! + This is a configurable version of a help topic. You can define its contents, title, icon, and subtopics manually. - !HelpTopic commentStamp: 'tbn 3/29/2010 14:53' prior: 0! - A HelpTopic provides content information that can be used as a help to the user. - It can be labeled with a title, identified using an (optional) unique key and marked - with an (optional) icon. + Help builders make use of this.! - Help topics form a hierarchy since any topic is able to have zero or more - subtopics. - - - Instance Variables - contents: <Object> The help topic contents - icon: <Form|nil> An optional icon for the topic - key: <String|nil> An optional unique key - subtopics: <Collection> A collection of subtopics - title: <String> The title - - contents - - The help topic contents - typically containing the help topics information - - icon - - An optional icon for the topic - - key - - An optional unique key which can be used to identify the topic. - - subtopics - - A collection of subtopics. - By default the subtopics are not sorted, so the insertion order is used. - If necessary it is possible to sort the subtopics by title. - - title - - A meaninful title for the help topic - ! Item was removed: - ----- Method: HelpTopic>><= (in category 'comparing') ----- - <= anotherHelpTopic - "Use sorting by title as the default sort order" - - ^self title <= anotherHelpTopic title ! Item was removed: - ----- Method: HelpTopic>>asHelpTopic (in category 'conversion') ----- - asHelpTopic - "Converts the receiver to a help topic" - - ^self! Item was removed: - ----- Method: HelpTopic>>hasSubtopics (in category 'testing') ----- - hasSubtopics - "Returns true if the receiver has subtopics, false otherwise" - - ^self subtopics notEmpty ! Item was changed: ----- Method: HelpTopic>>initialize (in category 'initialize-release') ----- initialize "Initializes the receiver" super initialize. self title: self defaultTitle. + self contents: ''.! - self contents: ''. - self key: '' ! Item was removed: - ----- Method: HelpTopic>>key (in category 'accessing') ----- - key - "Returns a unique key identifying the receiver in the help system" - - ^key! Item was removed: - ----- Method: HelpTopic>>key: (in category 'accessing') ----- - key: aUniqueKey - "Sets a unique key identifying the receiver in the help system" - - key := aUniqueKey ! Item was added: + ----- Method: HelpTopic>>priority (in category 'accessing') ----- + priority + "A hint for tools to influence sort order." + + ^ priority! Item was added: + ----- Method: HelpTopic>>priority: (in category 'accessing') ----- + priority: anInteger + + priority := anInteger.! Item was changed: ----- Method: HelpTopicListItemWrapper>>asString (in category 'accessing') ----- asString "Returns a string used as a label" + ^ self item title! - ^item title! Item was changed: ----- Method: HelpTopicListItemWrapper>>contents (in category 'accessing') ----- contents - "Returns subnodes (if any)" + ^self item subtopics sorted collect: [ :each | + HelpTopicListItemWrapper with: each model: self model] - item hasSubtopics ifFalse: [^#()]. - ^(item subtopics) collect: [ :each | - HelpTopicListItemWrapper with: each - ]. ! Item was added: + ----- Method: HelpTopicListItemWrapper>>hasContents (in category 'accessing') ----- + hasContents + + ^ self item hasSubtopics! Item was changed: ----- Method: HelpTopicListItemWrapper>>icon (in category 'accessing') ----- icon "Either return the icon for the given topic" | symbol | + self item icon ifNotNil: [:icon | ^ icon]. + symbol := self item hasSubtopics - item icon notNil ifTrue: [^item icon]. - symbol := item hasSubtopics ifTrue: [#bookIcon] ifFalse: [#pageIcon]. ^HelpIcons iconNamed: symbol! Item was added: + ----- Method: HelpTopicListItemWrapper>>item (in category 'accessing') ----- + item + + ^ super item ifNil: [HelpTopic new]! Item was added: + AbstractHelpTopic subclass: #MethodListHelpTopic + instanceVariableNames: 'theClass' + classVariableNames: '' + poolDictionaries: '' + category: 'HelpSystem-Core-Model'! Item was added: + ----- Method: MethodListHelpTopic>>contents (in category 'accessing') ----- + contents + + ^ (String streamContents: [ :stream | + self theClass selectors sort do: [ :selector | + stream + nextPutAll: self theClass name; + nextPutAll: '>>'; + nextPutAll: selector asString; + cr; + nextPutAll: ( + (self theClass commentsAt: selector) + at: 1 + ifAbsent: [ '-' ]); + cr; cr ] ])! Item was added: + ----- Method: MethodListHelpTopic>>icon (in category 'accessing') ----- + icon + + ^ HelpIcons iconNamed: #pageIcon! Item was added: + ----- Method: MethodListHelpTopic>>priority (in category 'accessing') ----- + priority + + ^ -999! Item was added: + ----- Method: MethodListHelpTopic>>theClass (in category 'accessing') ----- + theClass + + ^ theClass! Item was added: + ----- Method: MethodListHelpTopic>>theClass: (in category 'accessing') ----- + theClass: aClassOrMetaClass + + theClass := aClassOrMetaClass.! Item was added: + ----- Method: MethodListHelpTopic>>title (in category 'accessing') ----- + title + + ^ self theClass isMeta + ifTrue: ['Class side'] + ifFalse: ['Instance side']! Item was added: + AbstractHelpTopic subclass: #PackageAPIHelpTopic + instanceVariableNames: 'packageName' + classVariableNames: '' + poolDictionaries: '' + category: 'HelpSystem-Core-Model'! Item was added: + ----- Method: PackageAPIHelpTopic>>contents (in category 'accessing') ----- + contents + + ^ ''! Item was added: + ----- Method: PackageAPIHelpTopic>>hasSubtopics (in category 'testing') ----- + hasSubtopics + + ^ SystemOrganization categories anySatisfy: [:cat | + (cat beginsWith: self packageName) and: [(SystemOrganization listAtCategoryNamed: cat) notEmpty]]! Item was added: + ----- Method: PackageAPIHelpTopic>>packageName (in category 'accessing') ----- + packageName + + ^ packageName! Item was added: + ----- Method: PackageAPIHelpTopic>>packageName: (in category 'accessing') ----- + packageName: aString + + packageName := aString.! Item was added: + ----- Method: PackageAPIHelpTopic>>subtopics (in category 'accessing') ----- + subtopics + + ^ ((PackageInfo named: self packageName) classes + sorted: [:cl1 :cl2 | cl1 name < cl2 name]) + collect: [:class | ClassAPIHelpTopic new + theClass: class; + withSubclasses: false; + withMethods: true]! Item was added: + ----- Method: PackageAPIHelpTopic>>title (in category 'accessing') ----- + title + + ^ self packageName! Item was removed: - Object subclass: #SystemHelp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'HelpSystem-Core-Utilities'! - - !SystemHelp commentStamp: 'tbn 4/30/2010 15:33' prior: 0! - This class defines Help for the system in front of you. - It defines the default contents when you open a help browser. - - So "HelpBrowser open" is the same as "HelpBrowser openOn: SystemHelp". - - - ! Item was removed: - ----- Method: SystemHelp class>>asHelpTopic (in category 'conversion') ----- - asHelpTopic - |topic helpOnHelp sortedTopics | - topic := CustomHelp asHelpTopic. - topic sortSubtopicsByTitle. - helpOnHelp := topic subtopics detect: [:t | t key = 'HelpOnHelp'] ifNone: [self error: 'Help for the help system is removed']. - sortedTopics := topic subtopics. - sortedTopics remove: helpOnHelp. - sortedTopics addLast: helpOnHelp. - topic subtopics: sortedTopics. - ^topic. - ! Item was changed: ----- Method: SystemReference class>>all (in category 'help topic creation') ----- all "HelpBrowser openOn: self all " + ^(ClassAPIHelpTopic new) + theClass: ProtoObject; + withSubclasses: true; + withMethods: true; + subclassesAsSeparateTopic: false! - ^(ClassAPIHelpBuilder new) - rootToBuildFrom: ProtoObject; - addSubclasses: true; - addMethods: true; - subclassesAsSeparateTopic: false; - build; - topicToBuild - - ! Item was changed: ----- Method: SystemReference class>>forClass: (in category 'help topic creation') ----- forClass: aClass |root topic | root := HelpTopic named: 'System reference for ', aClass name. + topic := ClassAPIHelpTopic new theClass: aClass. - topic := ClassAPIHelpBuilder buildHelpTopicFrom: aClass. root addSubtopic: topic. ^root! Item was changed: ----- Method: SystemReference class>>hierarchyFor: (in category 'help topic creation') ----- hierarchyFor: aClass + | root topic | - |root topic | root := HelpTopic named: 'System reference for ', aClass name. + topic := (ClassAPIHelpTopic new) + theClass: aClass; + withSubclasses: true; + withMethods: false; + subclassesAsSeparateTopic: false. - topic := (ClassAPIHelpBuilder new) - rootToBuildFrom: aClass; - addSubclasses: true; - addMethods: false; - subclassesAsSeparateTopic: false; - build; - topicToBuild. root addSubtopic: topic. + ^ root! - ^root - - ! Item was changed: ----- Method: SystemReference class>>hierarchyWithMethodsFor: (in category 'help topic creation') ----- hierarchyWithMethodsFor: aClass + | root topic | - |root topic | root := HelpTopic named: 'System reference for ', aClass name. + topic := (ClassAPIHelpTopic new) + theClass: aClass; + withSubclasses: true; + withMethods: true; + subclassesAsSeparateTopic: true. - topic := (ClassAPIHelpBuilder new) - rootToBuildFrom: aClass; - addSubclasses: true; - addMethods: true; - subclassesAsSeparateTopic: true; - build; - topicToBuild. root addSubtopic: topic. + ^ root! - ^root - - !

1 0

The Trunk: Tools-topa.557.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.557.mcz ==================== Summary ==================== Name: Tools-topa.557 Author: topa Time: 25 March 2015, 9:41:06.71 am UUID: 154a18bc-667c-43e6-8971-fc65de2ea68a Ancestors: Tools-eem.556 Browser: Fix message list icons for metaclasses =============== Diff against Tools-eem.556 =============== Item was changed: ----- Method: Browser>>messageIconAt: (in category 'message list') ----- messageIconAt: anIndex self class showMessageIcons ifFalse: [^ nil]. ^ ToolIcons iconNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass - iconForClass: self selectedClass selector: (self messageList at: anIndex))!

1 0

Unique Mouse Wheel Events
by DeNigris Sean 25 Mar '15

25 Mar '15

Cross-posting to Pharo dev, Squeak dev, and Squeak VM lists... Recently, we discovered on the Pharo dev list that the key combination used to fake wheel events - ctrl + arrowKey - may be a bit too simple. Apparently ctrl+horizontalArrowKey is a standard in-use combo in Linux and Windows, so adding horizontal wheel events broke some users' workflows. So I propose "ctrl + alt + shift + cmd + arrowKey". The new combo is: very unlikely to be typed backward-compatible with existing Pharo and Squeak images, which only checks that either cmd or ctrl is pressed frees up ctrl + arrow for our Linux/Windows friends For Pharo, there is: https://github.com/pharo-project/pharo-vm/pull/72 Fogbugz Issue 15209: "Mouse Wheel Events Keyboard Clash", with a slice all ready on the image side once the VM patch is integrated. NB: I changed the combo in the VM for Mac OS and OSX. Are these the only two platforms that fake wheel events? I searched a bit but didn't see similar logic for other platforms...

6 12

The Trunk: ToolBuilder-Morphic-dtl.101.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-dtl.101.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-dtl.101 Author: dtl Time: 21 March 2015, 12:08:28.036 pm UUID: bd975efe-ecc6-4634-94cf-a74a251da227 Ancestors: ToolBuilder-Morphic-dtl.100 Remove the toolBuilder instance variable from UIManager, replacing it with builderClass. The builderClass for a UIManager is determined by ToolBuilder class>>findDefault, possibly influenced by local project preferences. This will normally be established at first use following creation of a new MVC or Morphic project. ToolBuilder instances are created as required, so that a UIManager does not reuse a single instance (which would accumulate garbage it its registries). =============== Diff against ToolBuilder-Morphic-dtl.100 =============== Item was removed: - ----- Method: MorphicUIManager>>toolBuilder (in category 'builder') ----- - toolBuilder - ^ MorphicToolBuilder new!

1 0

The Trunk: ToolBuilder-Morphic-dtl.100.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-dtl.100.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-dtl.100 Author: dtl Time: 20 March 2015, 4:01:04.899 pm UUID: 10696acd-74dc-4047-898e-77fed9121b6e Ancestors: ToolBuilder-Morphic-mt.99 Remove toolBuilder instance variable from UIManager. A UIManager knows what kind of ToolBuilder it should use, so it does not need to hold on to a single instance. Create ToolBuilder instances as required, and do not reuse a ToolBuilder instance after it has done its job. This prevents confusing accumulation of registered widgets in a single ToolBuilder instance =============== Diff against ToolBuilder-Morphic-mt.99 =============== Item was removed: - ----- Method: MorphicUIManager>>initialize (in category 'initialize-release') ----- - initialize - toolBuilder := MorphicToolBuilder new! Item was added: + ----- Method: MorphicUIManager>>toolBuilder (in category 'builder') ----- + toolBuilder + ^ MorphicToolBuilder new!

1 0

The Trunk: ToolBuilder-MVC-dtl.36.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-dtl.36.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-dtl.36 Author: dtl Time: 21 March 2015, 12:07:57.062 pm UUID: 8a01e8ca-80e4-4edd-b166-bea8b1ac01d5 Ancestors: ToolBuilder-MVC-dtl.35 Remove the toolBuilder instance variable from UIManager, replacing it with builderClass. The builderClass for a UIManager is determined by ToolBuilder class>>findDefault, possibly influenced by local project preferences. This will normally be established at first use following creation of a new MVC or Morphic project. ToolBuilder instances are created as required, so that a UIManager does not reuse a single instance (which would accumulate garbage it its registries). =============== Diff against ToolBuilder-MVC-dtl.35 =============== Item was removed: - ----- Method: MVCUIManager>>toolBuilder (in category 'builder') ----- - toolBuilder - ^ MVCToolBuilder new!

1 0

The Trunk: ToolBuilder-MVC-dtl.35.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-dtl.35.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-dtl.35 Author: dtl Time: 20 March 2015, 4:00:36.889 pm UUID: 97e7e8fa-358a-487e-a8ec-0c7c357b3d2f Ancestors: ToolBuilder-MVC-fbs.34 Remove toolBuilder instance variable from UIManager. A UIManager knows what kind of ToolBuilder it should use, so it does not need to hold on to a single instance. Create ToolBuilder instances as required, and do not reuse a ToolBuilder instance after it has done its job. This prevents confusing accumulation of registered widgets in a single ToolBuilder instance =============== Diff against ToolBuilder-MVC-fbs.34 =============== Item was removed: - ----- Method: MVCUIManager>>initialize (in category 'initialize-release') ----- - initialize - toolBuilder := MVCToolBuilder new! Item was added: + ----- Method: MVCUIManager>>toolBuilder (in category 'builder') ----- + toolBuilder + ^ MVCToolBuilder new!

1 0

The Trunk: ToolBuilder-Kernel-dtl.68.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-dtl.68.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-dtl.68 Author: dtl Time: 23 March 2015, 7:34:14.341 am UUID: 686389b8-aad6-4324-b077-19a7673bf4c8 Ancestors: ToolBuilder-Kernel-dtl.67 Add UIManager>> builderClass. Clean up unreferenced code. =============== Diff against ToolBuilder-Kernel-dtl.67 =============== Item was changed: ----- Method: ToolBuilder class>>default (in category 'accessing') ----- default "Answer the default tool builder" ^ Project current uiManager toolBuilder + ! - ifNil: [self findDefault]! Item was removed: - ----- Method: ToolBuilder class>>default: (in category 'accessing') ----- - default: aToolBuilder - "Set a new default tool builder" - self deprecated: 'The default ToolBuilder is an attribute of the UIManager' - ! Item was added: + ----- Method: UIManager>>builderClass: (in category 'accessing') ----- + builderClass: aClass + builderClass := aClass!

1 0

The Trunk: ToolBuilder-Kernel-dtl.67.mcz
by commits＠source.squeak.org 25 Mar '15

25 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-dtl.67.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-dtl.67 Author: dtl Time: 21 March 2015, 12:07:23.671 pm UUID: d0d0c324-e12d-4424-a1dd-7b4a1cf1f946 Ancestors: ToolBuilder-Kernel-dtl.66 Remove the toolBuilder instance variable from UIManager, replacing it with builderClass. The builderClass for a UIManager is determined by ToolBuilder class>>findDefault, possibly influenced by local project preferences. This will normally be established at first use following creation of a new MVC or Morphic project. ToolBuilder instances are created as required, so that a UIManager does not reuse a single instance (which would accumulate garbage it its registries). =============== Diff against ToolBuilder-Kernel-dtl.66 =============== Item was changed: ----- Method: ToolBuilder class>>findDefault (in category 'accessing') ----- findDefault "Answer a default tool builder" | builderClass | "Note: The way the following is phrased ensures that you can always make 'more specific' builders merely by subclassing a tool builder and implementing a more specific way of reacting to #isActiveBuilder. For example, a BobsUIToolBuilder can subclass MorphicToolBuilder and (if enabled, say Preferences useBobsUITools) will be considered before the parent (generic MorphicToolBuilder)." builderClass := self allSubclasses detect:[:any| any isActiveBuilder and:[ any subclasses noneSatisfy:[:sub| sub isActiveBuilder]]] ifNone:[nil]. + builderClass ifNotNil: [^builderClass ]. - builderClass ifNotNil: [^builderClass new]. ^self error: 'ToolBuilder not found'! Item was changed: Object subclass: #UIManager + instanceVariableNames: 'builderClass' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !UIManager commentStamp: 'dtl 5/2/2010 16:06' prior: 0! UIManager is a dispatcher for various user interface requests, such as menu and dialog interactions. An instance of UIManager is associated with each Project to implement the appropriate functions for Morphic, MVC or other user interfaces.! Item was added: + ----- Method: UIManager>>builderClass (in category 'builder') ----- + builderClass + "Answer the kind of tool builder to use, possibly influenced by project preferences" + ^ builderClass ifNil: [ builderClass := ToolBuilder findDefault ]! Item was changed: ----- Method: UIManager>>toolBuilder (in category 'builder') ----- toolBuilder + ^ self builderClass new! - "Answer a ToolBuilder for this kind of UIManager" - ^ self subclassResponsibility!

1 0

← Newer
1
...
9
10
11
12
13
14
15
...
32
Older →

Jump to page: