Squeak-dev April 2016

squeak-dev@lists.squeakfoundation.org

39 participants
244 discussions

seaside.gemstone.com seems to be down
by Fabio Niephaus 05 Apr '16

05 Apr '16

http://www.downforeveryoneorjustme.com/seaside.gemstone.com I've already informed Dale... -- Fabio Niephaus IT-Systems Engineering Student Hasso-Plattner-Institut für Softwaresystemtechnik GmbH, Potsdam Prof.-Dr.-Helmert-Str. 2-3 D-14482 Potsdam www.hpi.de Amtsgericht Potsdam, HRB 12184 Geschäftsführung: Prof. Dr. Christoph Meinel

4 8

[Bug] user interrupt does not stop sound anymore
by Bert Freudenberg 05 Apr '16

05 Apr '16

It used to be the case that cmd-dot would stop sounds playing in the background. It doesn’t anymore. Try AbstractSound stereoBachFugue play This appears to be due to the SoundService refactoring in userInterruptWatcher but I’m not familiar with that design. - Bert -

3 2

Is TranscriptStream thread-safe?
by marcel.taeumel 05 Apr '16

05 Apr '16

Hi, there! TranscriptStream >> #endEntry uses a semaphore and critical section. TranscriptStream >> #nextPutAll: does not. :-/ But TranscriptStream >> #nextPut: is a primitive. So, is Transcript thread-safe? Best, Marcel -- View this message in context: http://forum.world.st/Is-TranscriptStream-thread-safe-tp4888382.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

The Trunk: Tools-mt.684.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.684.mcz ==================== Summary ==================== Name: Tools-mt.684 Author: mt Time: 5 April 2016, 2:21:11.091036 pm UUID: 48760808-764d-f54e-a576-f58fcd06546c Ancestors: Tools-mt.683 Fixes item-specific help in Debugger stack list. =============== Diff against Tools-mt.683 =============== Item was changed: ----- Method: Debugger>>buildFullWith: (in category 'toolbuilder') ----- buildFullWith: builder | windowSpec listSpec textSpec | windowSpec := builder pluggableWindowSpec new model: self; label: 'Debugger'; children: OrderedCollection new. listSpec := builder pluggableListSpec new. listSpec model: self; list: #contextStackList; getIndex: #contextStackIndex; setIndex: #toggleContextStackIndex:; menu: #contextStackMenu:shifted:; icon: #messageIconAt:; + helpItem: #messageHelpAt:; - help: #messageHelpAt:; keyPress: #contextStackKey:from:; frame: (0@0 corner: 1(a)0.22). windowSpec children add: listSpec. textSpec := self buildCodePaneWith: builder. textSpec frame: (0(a)0.22corner: 1(a)0.8). windowSpec children add: textSpec. listSpec := builder pluggableListSpec new. listSpec model: self receiverInspector; list: #fieldList; getIndex: #selectionIndex; setIndex: #toggleIndex:; menu: #fieldListMenu:; keyPress: #inspectorKey:from:; + frame: (0(a)0.8 corner: 0.2@1); + help: 'Receiver''s\Instance\Variables' withCRs. - frame: (0(a)0.8 corner: 0.2@1). windowSpec children add: listSpec. textSpec := builder pluggableTextSpec new. textSpec model: self receiverInspector; getText: #contents; setText: #accept:; help: '<- Select receiver''s field' translated; selection: #contentsSelection; menu: #codePaneMenu:shifted:; frame: (0.2(a)0.8 corner: 0.5@1). windowSpec children add: textSpec. listSpec := builder pluggableListSpec new. listSpec model: self contextVariablesInspector; list: #fieldList; getIndex: #selectionIndex; setIndex: #toggleIndex:; menu: #fieldListMenu:; keyPress: #inspectorKey:from:; + frame: (0.5(a)0.8 corner: 0.7@1); + help: 'Other\Context\Bindings' withCRs. - frame: (0.5(a)0.8 corner: 0.7@1). windowSpec children add: listSpec. textSpec := builder pluggableTextSpec new. textSpec model: self contextVariablesInspector; getText: #contents; setText: #accept:; help: '<- Select context''s field' translated; selection: #contentsSelection; menu: #codePaneMenu:shifted:; frame: (0.7(a)0.8 corner: 1@1). windowSpec children add: textSpec. ^builder build: windowSpec!

1 0

The Trunk: Morphic-mt.1100.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1100.mcz ==================== Summary ==================== Name: Morphic-mt.1100 Author: mt Time: 5 April 2016, 11:26:47.171517 am UUID: f30b0a1b-b688-c949-af1a-ed437564ae72 Ancestors: Morphic-mt.1099 If adding multiple balloon helps, avoid spawning others if triggered already to not remove them. Keeps GUI more stable. =============== Diff against Morphic-mt.1099 =============== Item was changed: ----- Method: HandMorph>>addBalloonHelp: (in category 'balloon help') ----- addBalloonHelp: aBalloonMorph "Associate a new balloon morph with this hand." + self removeAlarm: #spawnBalloonFor:. aBalloonMorph ifNotNil: [:m | self balloonHelpList add: m].!

1 0

The Trunk: Morphic-mt.1099.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1099.mcz ==================== Summary ==================== Name: Morphic-mt.1099 Author: mt Time: 5 April 2016, 10:56:56.397517 am UUID: 2f7d9d39-6462-2042-aef7-a4377869e67d Ancestors: Morphic-mt.1098 Small fixes in text editor undo history. =============== Diff against Morphic-mt.1098 =============== Item was changed: ----- Method: TextEditor>>insertAndSelect:at: (in category 'new selection') ----- insertAndSelect: aString at: anInteger self closeTypeIn. self selectInvisiblyFrom: anInteger to: anInteger - 1. self openTypeIn. self replace: self selectionInterval with: (Text string: (' ', aString) attributes: emphasisHere) + and: []. - and: [self]. self closeTypeIn.! Item was changed: ----- Method: TextEditorCommandHistory>>do: (in category 'enumeration') ----- do: block + "Goes backward in history." + - ((currentIndex min: commands size) to: 1 by: -1) do: [:i | block value: (commands at: i)].!

1 0

The Trunk: Kernel-mt.1012.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1012.mcz ==================== Summary ==================== Name: Kernel-mt.1012 Author: mt Time: 5 April 2016, 10:42:29.505517 am UUID: 83d8a4a7-a80d-1848-90d0-d10abf9728f7 Ancestors: Kernel-ul.1011 Restore clean-up code, which got lost with the introduction of object events long time ago (around Squeak 3.7 or so). Break dependency to #releaseActionMap implemented in the System package. =============== Diff against Kernel-ul.1011 =============== Item was changed: ----- Method: Object>>release (in category 'dependents access') ----- release "Remove references to objects that may refer to the receiver. This message should be overridden by subclasses with any cycles, in which case the subclass should also include the expression super release." + self breakDependents. + (self respondsTo: #releaseActionMap) ifTrue: [self releaseActionMap].! - self releaseActionMap!

1 0

The Trunk: ToolBuilder-Morphic-mt.161.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.161.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.161 Author: mt Time: 5 April 2016, 10:37:14.038517 am UUID: 43803efe-1ca3-ad42-b319-88df297b1ae6 Ancestors: ToolBuilder-Morphic-mt.160 Use helpItem to get help per item. Use help to get help for the whole widget. =============== Diff against ToolBuilder-Morphic-mt.160 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'widgets optional') ----- buildPluggableAlternateMultiSelectionList: aSpec | listMorph listClass | aSpec getSelected ifNotNil: [ ^ self error: 'There is no PluggableAlternateListMorphOfManyByItem' ]. listClass := self alternateMultiSelectListClass. listMorph := listClass on: aSpec model list: aSpec list primarySelection: aSpec getIndex changePrimarySelection: aSpec setIndex listSelection: aSpec getSelectionList changeListSelection: aSpec setSelectionList menu: aSpec menu. listMorph setProperty: #highlightSelector toValue: #highlightMessageList:with: ; setProperty: #itemConversionMethod toValue: #asStringOrText ; setProperty: #balloonTextSelectorForSubMorphs toValue: #balloonTextForClassAndMethodString ; enableDragNDrop: SystemBrowser browseWithDragNDrop ; menuTitleSelector: #messageListSelectorTitle. self register: listMorph id: aSpec name. listMorph keystrokeActionSelector: aSpec keyPress ; getListElementSelector: aSpec listItem ; getListSizeSelector: aSpec listSize; getIconSelector: aSpec icon; + getHelpSelector: aSpec helpItem. + + self buildHelpFor: listMorph spec: aSpec. + - getHelpSelector: aSpec help. self setFrame: aSpec frame in: listMorph. self setLayoutHintsFor: listMorph spec: aSpec. parent ifNotNil: [ self add: listMorph to: parent ]. panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ]. ^ listMorph! Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'widgets required') ----- buildPluggableList: aSpec | widget listClass getIndex setIndex | aSpec getSelected ifNil:[ listClass := self listClass. getIndex := aSpec getIndex. setIndex := aSpec setIndex. ] ifNotNil:[ listClass := self listByItemClass. getIndex := aSpec getSelected. setIndex := aSpec setSelected. ]. widget := listClass on: aSpec model list: aSpec list selected: getIndex changeSelected: setIndex menu: aSpec menu keystroke: aSpec keyPress. self register: widget id: aSpec name. "Override default scroll bar policies if needed. Widget will use preference values otherwise." aSpec hScrollBarPolicy ifNotNil: [:policy | policy caseOf: { [#always] -> [widget alwaysShowHScrollBar]. [#never] -> [widget hideHScrollBarIndefinitely]. [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]. } ]. aSpec vScrollBarPolicy ifNotNil: [:policy | policy caseOf: { [#always] -> [widget alwaysShowVScrollBar]. [#never] -> [widget hideVScrollBarIndefinitely]. [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]. } ]. widget getListElementSelector: aSpec listItem. widget getListSizeSelector: aSpec listSize. widget getIconSelector: aSpec icon. + widget getHelpSelector: aSpec helpItem. - widget getHelpSelector: aSpec help. widget doubleClickSelector: aSpec doubleClick. widget dragItemSelector: aSpec dragItem. widget dropItemSelector: aSpec dropItem. widget wantsDropSelector: aSpec dropAccept. widget dragStartedSelector: aSpec dragStarted. widget autoDeselect: aSpec autoDeselect. widget keystrokePreviewSelector: aSpec keystrokePreview. widget borderWidth: 1; borderColor: Color lightGray; color: (aSpec color ifNil: [Color white] ifNotNil: [aSpec color]). + + self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. panes ifNotNil:[ aSpec list ifNotNil:[panes add: aSpec list]. ]. ^widget!

1 0

The Trunk: Tools-mt.683.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.683.mcz ==================== Summary ==================== Name: Tools-mt.683 Author: mt Time: 5 April 2016, 10:35:30.367517 am UUID: 933f05b4-6fdf-bc45-a831-18ea95e6bbb7 Ancestors: Tools-ul.682 Use item-specific help text. Do not overwrite widget help, which should be like 'Messages' or so. =============== Diff against Tools-ul.682 =============== Item was changed: ----- Method: Browser>>buildMessageListWith: (in category 'toolbuilder') ----- buildMessageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageList; getIndex: #messageListIndex; setIndex: #messageListIndex:; icon: #messageIconAt:; + helpItem: #messageHelpAt:; - help: #messageHelpAt:; menu: #messageListMenu:shifted:; keyPress: #messageListKey:from:. SystemBrowser browseWithDragNDrop ifTrue:[listSpec dragItem: #dragFromMessageList:]. ^listSpec !

1 0

The Trunk: ToolBuilder-Kernel-mt.95.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.95.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.95 Author: mt Time: 5 April 2016, 10:33:54.497517 am UUID: cfb10ebe-4bc5-1a4e-a829-1060547b5541 Ancestors: ToolBuilder-Kernel-mt.94 Adds way to specify help (selector) per item in a list. Use regular #help for the widgets overall help text also in lists. =============== Diff against ToolBuilder-Kernel-mt.94 =============== Item was changed: PluggableWidgetSpec subclass: #PluggableListSpec + instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted helpItem' - instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableListSpec commentStamp: 'ar 7/15/2005 11:54' prior: 0! A single selection list element. Instance variables: list <Symbol> The selector to retrieve the list elements. getIndex <Symbol> The selector to retrieve the list selection index. setIndex <Symbol> The selector to set the list selection index. getSelected <Symbol> The selector to retrieve the list selection. setSelected <Symbol> The selector to set the list selection. menu <Symbol> The selector to offer (to retrieve?) the context menu. keyPress <Symbol> The selector to invoke for handling keyboard shortcuts. autoDeselect <Boolean> Whether the list should allow automatic deselection or not. dragItem <Symbol> Selector to initiate a drag action on an item dropItem <Symbol> Selector to initiate a drop action of an item dropAccept <Symbol> Selector to determine whether a drop would be accepted! Item was added: + ----- Method: PluggableListSpec>>helpItem (in category 'accessing') ----- + helpItem + + ^ helpItem! Item was added: + ----- Method: PluggableListSpec>>helpItem: (in category 'accessing') ----- + helpItem: selector + + helpItem := selector.!

1 0

Jump to page: