Squeak-dev March 2015

squeak-dev@lists.squeakfoundation.org

40 participants
315 discussions

Old menu items in TextEditors that currently don't work
by Chris Cunningham 29 Mar '15

29 Mar '15

but, with cut/paste from Paragraph, will. There are two menu from TextEditor that current raise errors: [image: Inline image 1] because their messages aren't defined there, but they are in Paragraph. If you just cut/paste from Paragraph into TextEditor (like the attached change set does), then they work. Would this be suitable to make it into 4.6/5.0 release? The printer setup option is really, really cryptic. It opens up an inspector on the TextPrinter instance, which you can manually edit the parameters (like landscape or a handful of other options - maybe page size - but there is no documentation about what to do). Not a nice interface - but then it hasn't been touched since Andreas added it back in '98, either. It does work, though. -cbc

7 10

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

29 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-dtl.37.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-dtl.37 Author: dtl Time: 29 March 2015, 2:19:13.638 pm UUID: 06a0a625-135c-4d86-a6d7-b21895f441f7 Ancestors: ToolBuilder-MVC-dtl.36 Add missing implementation of #confirm:trueChoice:falseChoice: for MVC =============== Diff against ToolBuilder-MVC-dtl.36 =============== Item was added: + ----- Method: MVCUIManager>>confirm:trueChoice:falseChoice: (in category 'ui requests') ----- + confirm: queryString trueChoice: trueChoice falseChoice: falseChoice + "Put up a yes/no menu with caption queryString. The actual wording for the two choices will be as provided in the trueChoice and falseChoice parameters. Answer true if the response is the true-choice, false if it's the false-choice. + This is a modal question -- the user must respond one way or the other." + ^PopUpMenu confirm: queryString trueChoice: trueChoice falseChoice: falseChoice!

1 0

Re: [squeak-dev] The Trunk: ToolBuilder-Kernel-mt.70.mcz
by Tobias Pape 29 Mar '15

29 Mar '15

On 29.03.2015, at 12:39, commits(a)source.squeak.org wrote: > Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: > http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.70.mcz > > ==================== Summary ==================== > > Name: ToolBuilder-Kernel-mt.70 > Author: mt > Time: 29 March 2015, 2:39:08.547 pm > UUID: 294b0f5a-5be8-a84b-9ba8-dde998bebf97 > Ancestors: ToolBuilder-Kernel-dtl.69 > > Added support for a help text to input field spec to give users a cue which kind of input is expected. What about #help that already is in ToolBuilderSpec? Best -Tobias > > =============== Diff against ToolBuilder-Kernel-dtl.69 =============== > > Item was changed: > PluggableTextSpec subclass: #PluggableInputFieldSpec > + instanceVariableNames: 'helpText' > - instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: 'ToolBuilder-Kernel'! > > !PluggableInputFieldSpec commentStamp: 'ar 2/12/2005 23:13' prior: 0! > PluggableInputField is intended as a HINT for the builder that this widget will be used as a single line input field. Unless explicitly supported it will be automatically substituted by PluggableText.! > > Item was added:

2 1

The Trunk: Tools-mt.566.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.566.mcz ==================== Summary ==================== Name: Tools-mt.566 Author: mt Time: 29 March 2015, 2:47:21.94 pm UUID: ff526900-5073-ea40-8f56-f5ee42b8cde9 Ancestors: Tools-mt.565 Established a dependents-replationship between list item wrappers and list item morphs to support partial model updates. Added support for the #contents model update in list item wrappers. That is, tree models may now update their children and notify about this. The whole tree view/morph does not have to be refreshed but only parts of it. =============== Diff against Tools-mt.565 =============== Item was changed: ----- Method: IndentingListItemMorph>>initWithContents:prior:forList:indentLevel: (in category 'initialization') ----- initWithContents: anObject prior: priorMorph forList: hostList indentLevel: newLevel container := hostList. + complexContents := anObject. + anObject addDependent: self. + self initWithContents: self getLabel font: Preferences standardListFont emphasis: nil. indentLevel := 0. isExpanded := false. nextSibling := firstChild := nil. priorMorph ifNotNil: [ priorMorph nextSibling: self. ]. indentLevel := newLevel. icon := self getIcon. self extent: self minWidth @ self minHeight! Item was added: + ----- Method: IndentingListItemMorph>>update: (in category 'updating') ----- + update: aspect + "See ListItemWrapper and subclasses for possible change aspects." + + aspect = #contents ifTrue: [ + self isExpanded ifTrue: [ + self toggleExpandedState]. + self canExpand ifTrue: [self toggleExpandedState]]. + + super update: aspect.!

1 0

The Trunk: Tools-mt.565.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.565.mcz ==================== Summary ==================== Name: Tools-mt.565 Author: mt Time: 29 March 2015, 2:44:29.709 pm UUID: f8216267-8713-0449-bef6-35fecc620960 Ancestors: Tools-topa.564 Refactored toggle/expand code in IndentingListItemMorph. =============== Diff against Tools-topa.564 =============== Item was changed: + ----- Method: IndentingListItemMorph>>addChildrenForList:addingTo:withExpandedItems: (in category 'container protocol - private') ----- - ----- Method: IndentingListItemMorph>>addChildrenForList:addingTo:withExpandedItems: (in category 'private-container protocol') ----- addChildrenForList: hostList addingTo: morphList withExpandedItems: expandedItems firstChild ifNotNil: [ firstChild withSiblingsDo: [ :aNode | aNode delete]. ]. firstChild := nil. complexContents hasContents ifFalse: [^self]. firstChild := hostList addMorphsTo: morphList from: complexContents contents allowSorting: true withExpandedItems: expandedItems atLevel: indentLevel + 1. ! Item was changed: + ----- Method: IndentingListItemMorph>>canExpand (in category 'testing') ----- - ----- Method: IndentingListItemMorph>>canExpand (in category 'accessing') ----- canExpand ^complexContents hasContents! Item was added: + ----- Method: IndentingListItemMorph>>collapse (in category 'container protocol') ----- + collapse + + self isExpanded ifFalse: [^ self]. + + self isExpanded: false. + + firstChild ifNotNil: [:collapsingNode | + | toDelete | + toDelete := OrderedCollection new. + collapsingNode withSiblingsDo: [:aNode | aNode recursiveAddTo: toDelete]. + container noteRemovalOfAll: toDelete]. + + self changed.! Item was changed: + ----- Method: IndentingListItemMorph>>complexContents (in category 'accessing') ----- - ----- Method: IndentingListItemMorph>>complexContents (in category 'private-container protocol') ----- complexContents ^complexContents! Item was added: + ----- Method: IndentingListItemMorph>>expand (in category 'container protocol') ----- + expand + + | newChildren c | + + (self isExpanded or: [self canExpand not]) + ifTrue: [^ self]. + + (c := self getChildren) ifEmpty: [ + "Due to the guessing in #canExpand, it may still fail here." + ^ self]. + + self isExpanded: true. + + newChildren := container + addSubmorphsAfter: self + fromCollection: c + allowSorting: true. + + firstChild := newChildren first.! Item was changed: + ----- Method: IndentingListItemMorph>>hasIcon (in category 'testing') ----- - ----- Method: IndentingListItemMorph>>hasIcon (in category 'accessing') ----- hasIcon "Answer whether the receiver has an icon." ^ icon notNil! Item was changed: + ----- Method: IndentingListItemMorph>>highlight (in category 'container protocol - private') ----- - ----- Method: IndentingListItemMorph>>highlight (in category 'private-container protocol') ----- highlight (self valueOfProperty: #wasRefreshed ifAbsent: [false]) ifFalse: [self color: complexContents highlightingColor] ifTrue: [self color: self color negated]. self changed. ! Item was changed: + ----- Method: IndentingListItemMorph>>isFirstItem (in category 'testing') ----- - ----- Method: IndentingListItemMorph>>isFirstItem (in category 'accessing') ----- isFirstItem ^owner submorphs first == self! Item was changed: + ----- Method: IndentingListItemMorph>>isSoleItem (in category 'testing') ----- - ----- Method: IndentingListItemMorph>>isSoleItem (in category 'accessing') ----- isSoleItem ^self isFirstItem and: [ owner submorphs size = 1 ]! Item was changed: + ----- Method: IndentingListItemMorph>>openPath: (in category 'container protocol - private') ----- - ----- Method: IndentingListItemMorph>>openPath: (in category 'private-container protocol') ----- openPath: anArray | found | anArray isEmpty ifTrue: [^ container setSelectedMorph: nil]. found := nil. self withSiblingsDo: [:each | found ifNil: [(each complexContents asString = anArray first or: [anArray first isNil]) ifTrue: [found := each]]]. found ifNil: ["try again with no case sensitivity" self withSiblingsDo: [:each | found ifNil: [(each complexContents asString sameAs: anArray first) ifTrue: [found := each]]]]. found ifNotNil: [found isExpanded ifFalse: [found toggleExpandedState. container adjustSubmorphPositions]. found changed. anArray size = 1 ifTrue: [^ container setSelectedMorph: found]. ^ found firstChild ifNil: [container setSelectedMorph: nil] ifNotNil: [found firstChild openPath: anArray allButFirst]]. ^ container setSelectedMorph: nil! Item was changed: + ----- Method: IndentingListItemMorph>>recursiveAddTo: (in category 'container protocol - private') ----- - ----- Method: IndentingListItemMorph>>recursiveAddTo: (in category 'private-container protocol') ----- recursiveAddTo: aCollection firstChild ifNotNil: [ firstChild withSiblingsDo: [ :aNode | aNode recursiveAddTo: aCollection]. ]. aCollection add: self ! Item was changed: + ----- Method: IndentingListItemMorph>>recursiveDelete (in category 'container protocol - private') ----- - ----- Method: IndentingListItemMorph>>recursiveDelete (in category 'private-container protocol') ----- recursiveDelete firstChild ifNotNil: [ firstChild withSiblingsDo: [ :aNode | aNode recursiveDelete]. ]. self delete ! Item was changed: + ----- Method: IndentingListItemMorph>>toggleExpandedState (in category 'container protocol') ----- - ----- Method: IndentingListItemMorph>>toggleExpandedState (in category 'private-container protocol') ----- toggleExpandedState + self isExpanded + ifTrue: [self collapse] + ifFalse: [self expand].! - | newChildren toDelete c | - - isExpanded := isExpanded not. - toDelete := OrderedCollection new. - firstChild ifNotNil: [ - firstChild withSiblingsDo: [ :aNode | aNode recursiveAddTo: toDelete]. - ]. - container noteRemovalOfAll: toDelete. - (isExpanded and: [complexContents hasContents]) ifFalse: [ - ^self changed - ]. - (c := self getChildren) isEmpty ifTrue: [^self changed]. - newChildren := container - addSubmorphsAfter: self - fromCollection: c - allowSorting: true. - firstChild := newChildren first. - !

1 0

The Trunk: ToolBuilder-Morphic-mt.103.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.103.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.103 Author: mt Time: 29 March 2015, 2:42:29.875 pm UUID: 256ddc14-bdbe-8d40-93f2-6fcb546f87de Ancestors: ToolBuilder-Morphic-mt.102 Fix path selection to match against item identity instead of equality, which would fail, for example, in the case of string listings having duplicates. =============== Diff against ToolBuilder-Morphic-mt.102 =============== Item was changed: ----- Method: PluggableTreeMorph>>selectPath:in: (in category 'selection') ----- selectPath: path in: listItem path isEmpty ifTrue: [^self setSelectedMorph: nil]. listItem withSiblingsDo: [:each | + (each complexContents item == path first) ifTrue: [ - (each complexContents item = path first) ifTrue: [ each isExpanded ifFalse: [ each toggleExpandedState. self adjustSubmorphPositions. ]. each changed. path size = 1 ifTrue: [ ^self setSelectedMorph: each ]. each firstChild ifNil: [^self setSelectedMorph: nil]. ^self selectPath: path allButFirst in: each firstChild ]. ]. + ^self setSelectedMorph: nil! - ^self setSelectedMorph: nil - - !

1 0

The Trunk: ToolBuilder-Morphic-mt.102.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.102.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.102 Author: mt Time: 29 March 2015, 2:40:44.398 pm UUID: fbd5d4b4-6646-6841-b171-233db3ff0f19 Ancestors: ToolBuilder-Morphic-dtl.101 Added support for a help text to input fields to give users a cue which kind of input is expected. =============== Diff against ToolBuilder-Morphic-dtl.101 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableInputField: (in category 'pluggable widgets') ----- buildPluggableInputField: aSpec | widget | widget := self buildPluggableText: aSpec. widget acceptOnCR: true. widget hideScrollBarsIndefinitely. + widget getHelpTextSelector: aSpec helpText. ^widget! Item was changed: PluggableTextMorph subclass: #PluggableTextMorphPlus + instanceVariableNames: 'getColorSelector acceptAction unstyledAcceptText styler getHelpTextSelector' - instanceVariableNames: 'getColorSelector acceptAction unstyledAcceptText styler' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableTextMorphPlus commentStamp: 'ar 2/11/2005 21:53' prior: 0! A pluggable text morph with support for color.! Item was added: + ----- Method: PluggableTextMorphPlus>>drawHelpTextOn: (in category 'drawing') ----- + drawHelpTextOn: aCanvas + + | helpText | + + (self getHelpTextSelector notNil and: [textMorph contents isEmpty]) + ifFalse: [^ self]. + + helpText := self getHelpTextSelector isSymbol + ifTrue: [self model perform: self getHelpTextSelector] + ifFalse: [self getHelpTextSelector]. + helpText ifNil: [^ self]. + + aCanvas + drawString: helpText + at: self innerBounds topLeft + (5@2) + font: textMorph textStyle defaultFont + color: (Color gray: 0.7).! Item was added: + ----- Method: PluggableTextMorphPlus>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + + super drawOn: aCanvas. + self drawHelpTextOn: aCanvas.! Item was added: + ----- Method: PluggableTextMorphPlus>>getHelpTextSelector (in category 'accessing') ----- + getHelpTextSelector + + ^ getHelpTextSelector! Item was added: + ----- Method: PluggableTextMorphPlus>>getHelpTextSelector: (in category 'accessing') ----- + getHelpTextSelector: aSymbol + + getHelpTextSelector := aSymbol.!

1 0

The Trunk: ToolBuilder-Kernel-mt.70.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.70.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.70 Author: mt Time: 29 March 2015, 2:39:08.547 pm UUID: 294b0f5a-5be8-a84b-9ba8-dde998bebf97 Ancestors: ToolBuilder-Kernel-dtl.69 Added support for a help text to input field spec to give users a cue which kind of input is expected. =============== Diff against ToolBuilder-Kernel-dtl.69 =============== Item was changed: PluggableTextSpec subclass: #PluggableInputFieldSpec + instanceVariableNames: 'helpText' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableInputFieldSpec commentStamp: 'ar 2/12/2005 23:13' prior: 0! PluggableInputField is intended as a HINT for the builder that this widget will be used as a single line input field. Unless explicitly supported it will be automatically substituted by PluggableText.! Item was added: + ----- Method: PluggableInputFieldSpec>>helpText (in category 'accessing') ----- + helpText + + ^ helpText! Item was added: + ----- Method: PluggableInputFieldSpec>>helpText: (in category 'accessing') ----- + helpText: aSelectorOrString + + helpText := aSelectorOrString.!

1 0

The Trunk: Morphic-mt.787.mcz
by commits＠source.squeak.org 29 Mar '15

29 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.787.mcz ==================== Summary ==================== Name: Morphic-mt.787 Author: mt Time: 29 March 2015, 2:37:16.164 pm UUID: f95fc2f0-dfc3-8e47-a3c4-9c833a454ac9 Ancestors: Morphic-topa.786 Establish a dependents-relationship between complex contents and the wrapper. Having this, views may perform partial updates on model changes. =============== Diff against Morphic-topa.786 =============== Item was changed: ----- Method: ListItemWrapper>>setItem: (in category 'initialization') ----- setItem: anObject + item ifNotNil: [:obj | obj removeDependent: self]. + item := anObject. + item ifNotNil: [:obj | obj addDependent: self].! - item := anObject! Item was changed: ----- Method: ListItemWrapper>>setItem:model: (in category 'initialization') ----- setItem: anObject model: aModel + model := aModel. + self setItem: anObject.! - item := anObject. - model := aModel.! Item was removed: - ----- Method: PluggableListItemWrapper>>item (in category 'accessing') ----- - item - ^item! Item was removed: - ----- Method: PluggableListItemWrapper>>item: (in category 'accessing') ----- - item: newItem - item := newItem!

1 0

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

29 Mar '15

David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-dtl.69.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-dtl.69 Author: dtl Time: 28 March 2015, 8:42:26.128 pm UUID: 37be26fe-92e2-4f05-9298-ad1b771b3b8b Ancestors: ToolBuilder-Kernel-dtl.68 UIManager>>confirm:label: is unimplemented and unreferenced since 2009. Remove it. =============== Diff against ToolBuilder-Kernel-dtl.68 =============== Item was removed: - ----- Method: UIManager>>confirm:label: (in category 'ui requests') ----- - confirm: queryString label: titleString - - ^self subclassResponsibility!

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
32
Older →

Jump to page: