Squeak-dev June 2014

squeak-dev@lists.squeakfoundation.org

41 participants
191 discussions

The Inbox: Morphic-cmm.729.mcz
by commits＠source.squeak.org 30 Jun '14

30 Jun '14

Chris Muller uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.729.mcz ==================== Summary ==================== Name: Morphic-cmm.729 Author: cmm Time: 30 June 2014, 12:37:52.654 pm UUID: fd72f09d-5019-41d5-93bd-95cdfc9ac9c9 Ancestors: Morphic-cmm.728 - The other window opening code. =============== Diff against Morphic-cmm.728 =============== Item was changed: ----- Method: SystemWindow>>openInWorld: (in category 'open/close') ----- openInWorld: aWorld "This msg and its callees result in the window being activeOnlyOnTop" self anyOpenWindowLikeMe ifEmpty: [ self bounds: (RealEstateAgent initialFrameFor: self world: aWorld) ; openAsIsIn: aWorld ] ifNotEmptyDo: [ : windows | windows anyOne expand ; activate ; + postAcceptBrowseFor: self ; + flash ]. - postAcceptBrowseFor: self ]. self activeHand releaseAllFoci!

1 0

The Inbox: Morphic-cmm.728.mcz
by commits＠source.squeak.org 30 Jun '14

30 Jun '14

Chris Muller uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.728.mcz ==================== Summary ==================== Name: Morphic-cmm.728 Author: cmm Time: 30 June 2014, 12:23:11.962 pm UUID: 09c9997d-d2e2-4e71-9077-c768f21a0071 Ancestors: Morphic-dtl.727 - If the Reuse Windows preference is set, and an existing window on the desktop qualifies as reusable for a request, #flash it after activating it to ensure the user's attention will be guided to its on-screen location. =============== Diff against Morphic-dtl.727 =============== Item was changed: ----- Method: SystemWindow>>openInWorld:extent: (in category 'open/close') ----- openInWorld: aWorld extent: extent "This msg and its callees result in the window being activeOnlyOnTop" ^ self anyOpenWindowLikeMe ifEmpty: [ self position: (RealEstateAgent initialFrameFor: self initialExtent: extent world: aWorld) topLeft ; extent: extent. self openAsIsIn: aWorld ] ifNotEmptyDo: [ : windows | windows anyOne expand ; activate ; + postAcceptBrowseFor: self ; + flash ]! - postAcceptBrowseFor: self ]!

1 0

The Inbox: Morphic-kfr.721.mcz
by commits＠source.squeak.org 30 Jun '14

30 Jun '14

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-kfr.721.mcz ==================== Summary ==================== Name: Morphic-kfr.721 Author: kfr Time: 30 June 2014, 2:00:53.343 pm UUID: d711ff01-8351-494b-9dfc-1368733d779d Ancestors: Morphic-cmm.720 Make hilight color in list panes more consistent =============== Diff against Morphic-cmm.720 =============== Item was changed: ----- Method: LazyListMorph>>drawBackgroundForMulti:on: (in category 'drawing') ----- drawBackgroundForMulti: row on: aCanvas "shade the background paler, if this row is selected, but not the current selected row" | selectionDrawBounds thisColor | thisColor := selectedRow = row + ifTrue: [ self class listSelectionColor ] + ifFalse: [ self class listSelectionColor muchLighter]. - ifTrue: [ self class listSelectionColor twiceDarker ] - ifFalse: [ self class listSelectionColor ]. selectionDrawBounds := self drawBoundsForRow: row. selectionDrawBounds := selectionDrawBounds intersect: self bounds. aCanvas fillRectangle: selectionDrawBounds color: thisColor! Item was changed: ----- Method: ListItemWrapper>>highlightingColor (in category 'accessing') ----- highlightingColor + ^LazyListMorph listSelectionTextColor + ! - - ^Preferences menuSelectionColor makeForegroundColor! Item was changed: ----- Method: SimpleHierarchicalListMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas super drawOn: aCanvas. selectedMorph ifNotNil: [aCanvas fillRectangle: (((scroller transformFrom: self) invertBoundsRect: selectedMorph bounds) intersect: scroller bounds) + color: LazyListMorph listSelectionColor]. - color: Preferences menuSelectionColor]. self drawLinesOn: aCanvas! Item was changed: ----- Method: SystemWindow class>>updatePreferences (in category 'initializing') ----- updatePreferences "Temporary method to update system-wide preferences" Preferences setPreference: #defaultWindowColor toValue: (Color veryVeryLightGray muchLighter). (Preferences preferenceAt: #defaultWindowColor) defaultValue: (Color veryVeryLightGray muchLighter). Preferences setPreference: #menuAppearance3d toValue: true. (Preferences preferenceAt: #menuAppearance3d) defaultValue: true. Preferences setPreference: #menuColorFromWorld toValue: false. (Preferences preferenceAt: #menuColorFromWorld) defaultValue: false. Preferences setPreference: #roundedMenuCorners toValue: false. (Preferences preferenceAt: #roundedMenuCorners) defaultValue: false. Preferences setParameter: #menuColor to: (Color gray: 0.9). Preferences setParameter: #menuTitleColor to: (Color transparent). Preferences setParameter: #menuTitleBorderWidth to: 0. Preferences setParameter: #defaultWorldColor to: (Color gray: 0.25). Preferences setPreference: #showSplitterHandles toValue: false. (Preferences preferenceAt: #showSplitterHandles) defaultValue: true. Preferences setPreference: #showSharedFlaps toValue: false. (Preferences preferenceAt: #showSharedFlaps) defaultValue: false. Preferences installBrightWindowColors. CornerGripMorph drawCornerResizeHandles: false. FillInTheBlankMorph roundedDialogCorners: true. LazyListMorph listSelectionColor: LazyListMorph listSelectionColor; + listSelectionTextColor: LazyListMorph listSelectionTextColor. - listSelectionTextColor: Color black. PluggableButtonMorph roundedButtonCorners: true. SystemWindow clickOnLabelToEdit: false; doubleClickOnLabelToExpand: true; moveMenuButtonRight: true; hideExpandButton: false. !

1 0

Daily Commit Log
by commits＠source.squeak.org 29 Jun '14

29 Jun '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-June/007124.html Name: HelpSystem-Core-kfr.57 Ancestors: HelpSystem-Core-ul.56 Enable menu action in HelpBrowser ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007125.html Name: Help-Squeak-Project-kfr.18 Ancestors: Help-Squeak-Project-dtl.17 Command Key Mappings ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007126.html Name: HelpSystem-Core-kfr.58 Ancestors: HelpSystem-Core-kfr.57 Add basic editing to help text pane. Select 'edit' in menu and off you go. Well, a new Workspace opens and you edit the text and accept it. Not ideal, but it is a start. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007127.html Name: Help-Squeak-Project-kfr.19 Ancestors: Help-Squeak-Project-kfr.18 Small correction ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007128.html Name: Help-Squeak-Project-dtl.20 Ancestors: Help-Squeak-Project-kfr.19 merge Help-Squeak-Project-dtl.18 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007129.html Name: Morphic-dtl.727 Ancestors: Morphic-eem.726 Merge Morphic-kfr.723 (see treated inbox) Name: Morphic-kfr.723 Ancestors: Morphic-kfr.722 Handling of mouse enter/leave action. Respect the Preferences mouseOverForKeyboardFocus =============================================

1 0

The Inbox: Morphic-kfr.725.mcz
by commits＠source.squeak.org 29 Jun '14

29 Jun '14

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-kfr.725.mcz ==================== Summary ==================== Name: Morphic-kfr.725 Author: kfr Time: 30 June 2014, 1:29:08.312 am UUID: 359dc2ea-3594-6842-9729-18c790f163a7 Ancestors: Morphic-kfr.724 Add two missed changes for mouse sensitive keyboard focus preference control. =============== Diff against Morphic-kfr.724 =============== Item was changed: ----- Method: ScrollPane>>mouseEnter: (in category 'event handling') ----- mouseEnter: event + Preferences mouseOverForKeyboardFocus ifTrue:[hasFocus := true]. - hasFocus := true. (owner isSystemWindow) ifTrue: [owner paneTransition: event]. retractableScrollBar ifTrue:[ self hideOrShowScrollBars ]. ! Item was changed: ----- Method: ScrollPane>>mouseLeave: (in category 'event handling') ----- mouseLeave: event + Preferences mouseOverForKeyboardFocus ifTrue:[hasFocus := false]. - hasFocus := false. retractableScrollBar ifTrue: [self hideScrollBars]. (owner isSystemWindow) ifTrue: [owner paneTransition: event] !

1 0

The Trunk: Morphic-dtl.727.mcz
by commits＠source.squeak.org 29 Jun '14

29 Jun '14

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.727.mcz ==================== Summary ==================== Name: Morphic-dtl.727 Author: dtl Time: 29 June 2014, 5:45:16.039 pm UUID: 0c60a49f-4fee-44f4-b384-4712b9680000 Ancestors: Morphic-eem.726 Merge Morphic-kfr.723 (see treated inbox) Name: Morphic-kfr.723 Author: kfr Time: 25 June 2014, 10:32:51.443 pm UUID: 773d8298-086f-ce47-b8f2-de2b4ced346b Ancestors: Morphic-kfr.722 Handling of mouse enter/leave action. Respect the Preferences mouseOverForKeyboardFocus =============== Diff against Morphic-eem.726 =============== Item was changed: + ----- Method: PluggableListMorph>>mouseEnter: (in category 'events') ----- - ----- Method: PluggableListMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: event super mouseEnter: event. self flag: #arNote. "remove this - keyboard input automatically goes right" + Preferences mouseOverForKeyboardFocus ifTrue:[ + event hand newKeyboardFocus: self. ]! - event hand newKeyboardFocus: self. ! Item was changed: ----- Method: PluggableListMorph>>mouseLeave: (in category 'events') ----- mouseLeave: event "The mouse has left the area of the receiver" super mouseLeave: event. + Preferences mouseOverForKeyboardFocus ifTrue:[ + event hand releaseKeyboardFocus: self]! - event hand releaseKeyboardFocus: self! Item was changed: ----- Method: PluggableListMorph>>mouseUp: (in category 'events') ----- mouseUp: event "The mouse came up within the list; take appropriate action" | row | row := self rowAtLocation: event position. "aMorph ifNotNil: [aMorph highlightForMouseDown: false]." model okToChange ifFalse: [^ self]. "No change if model is locked" row = self selectionIndex ifTrue: [(autoDeselect ifNil: [true]) ifTrue:[row = 0 ifFalse: [self changeModelSelection: 0] ]] ifFalse: [self changeModelSelection: (self modelIndexFor: row)]. + event hand newKeyboardFocus: self. + hasFocus := true. Cursor normal show! Item was changed: ----- Method: PluggableTextMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: event super mouseEnter: event. selectionInterval ifNotNil: [textMorph editor selectInterval: selectionInterval; setEmphasisHere]. textMorph selectionChanged. + Preferences mouseOverForKeyboardFocus ifTrue:[ + event hand newKeyboardFocus: textMorph]! - event hand newKeyboardFocus: textMorph!

1 0

New Cog VMs available
by Eliot Miranda 29 Jun '14

29 Jun '14

...in http://www.mirandabanda.org/files/Cog/VM/VM.r3021/. In particular, these fix VM crashes when running the AllocationTest in Spur. CogVM source as per VMMaker.oscog-eem.787/r3021 Fix mixup of old & young spaces in primitiveVMParameter, and comment some new parameters. Fix return types for positive[64/32]BitValueOf:. positive32BitValueOf: must answer a usqInt, positive64BitValueOf: must answer a usqLong. Use positiveMachineIntegerValueOf: to decode arg in primitiveNewWithArg and ensure positiveMachineIntegerValueOf: is inlined there-in. win32: Set the IMAGE_FILE_LARGE_ADDRESS_AWARE flag in the image header of the Windows executables to allow e.g. Spur to allocate more than 2Gb. Spur: Fix sign and overflow issues in instantiating larger objects and determining the size of large instances. Fix some freeChunk accesses that used fetchPointer:ofObject:. Cog ARM: Fix prim return for compileInterpreterPrimitive: on RISCs. On return from interpreter prim, ret pc is in instructionPointer and must return to whence it came, which is the stack on CISC and the LinkReg on RISC. Hence restoring the receiver reg requires different offsets in the two cases. Rework the rotatable quick constant logic a little and clean up users. Fix concretizeMoveRXbrR to do byte not word loads. Fix concretizeConditionalJumpLong: to actually be conditional. Oops. Correct mistaken callersaved reg stuff for ARM Fix concretizedRetN to not over-bump the SP The method abort trampolines shouldn't pop anything, especially now we have the pushLinkreg: arg to manage the LinkReg more easily. Slang: Rip out the UseRightShiftForDivide optimization. It gets unsigned division wrong, and C compilers can and will optimize this correctly themselves. -- best, Eliot

3 2

The Inbox: HelpSystem-Core-kfr.59.mcz
by commits＠source.squeak.org 29 Jun '14

29 Jun '14

A new version of HelpSystem-Core was added to project The Inbox: http://source.squeak.org/inbox/HelpSystem-Core-kfr.59.mcz ==================== Summary ==================== Name: HelpSystem-Core-kfr.59 Author: kfr Time: 29 June 2014, 9:53:04.669 pm UUID: cb93ef4f-12d3-ea46-b92f-eaa54938646d Ancestors: HelpSystem-Core-kfr.58 Edit and accecept in help browser pane. Browser is refreshed/reset on accept and current location is lost! I'll se if I can find a work around. =============== Diff against HelpSystem-Core-kfr.58 =============== Item was changed: Object subclass: #HelpBrowser + instanceVariableNames: 'rootTopic window treeMorph contentMorph topicClass topicMethod topic' - instanceVariableNames: 'rootTopic window treeMorph contentMorph' 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 added: + ----- Method: HelpBrowser>>accept: (in category 'actions') ----- + accept: text + "Accept edited text. Compile it into a HelpTopic" + + | 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 refresh. + ! Item was changed: ----- Method: HelpBrowser>>codePaneMenu:shifted: (in category 'events') ----- codePaneMenu: aMenu shifted: shifted - aMenu - add: 'edit' target: self selector: #editContents argument: self. ^StringHolder codePaneMenu: aMenu shifted: shifted. ! Item was removed: - ----- Method: HelpBrowser>>editContents (in category 'actions') ----- - editContents - | classList | - classList := self find: contentMorph textMorph contents string. - classList first actualClass theNonMetaClass edit: classList first selector. - self refresh! Item was changed: ----- 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:. window addMorph: treeMorph frame: (0@0 corner: 0.3@1). "Text" contentMorph := self defaultViewerClass on: self + text: nil accept: #accept: - text: nil accept: nil readSelection: nil menu: #codePaneMenu:shifted:. window addMorph: contentMorph frame: (0.3@0 corner: 1@1). ! Item was changed: ----- Method: HelpBrowser>>onItemClicked: (in category 'events') ----- onItemClicked: anItem + | classList | anItem isNil ifTrue: [^contentMorph setText: rootTopic asHelpTopic contents]. + contentMorph setText: anItem contents. + topic := anItem. + classList := self find: anItem contents. + classList ifNotEmpty:[ + topicClass := classList first actualClass theNonMetaClass. + topicMethod := classList first selector]! - contentMorph setText: anItem contents!

1 0

Re: [squeak-dev] The Inbox: Help-Squeak-Project-kfr.18.mcz
by Chris Muller 29 Jun '14

29 Jun '14

Is this the same string that's at Utilities class>>#commandKeyMappings? Is there any way to have just one command-key mapping? On Sat, Jun 28, 2014 at 11:39 AM, <commits(a)source.squeak.org> wrote: > A new version of Help-Squeak-Project was added to project The Inbox: > http://source.squeak.org/inbox/Help-Squeak-Project-kfr.18.mcz > > ==================== Summary ==================== > > Name: Help-Squeak-Project-kfr.18 > Author: kfr > Time: 28 June 2014, 6:38:58.326 pm > UUID: bacf064f-b862-6f44-8763-875ebbe2e95a > Ancestors: Help-Squeak-Project-dtl.17 > > Command Key Mappings > > =============== Diff against Help-Squeak-Project-dtl.17 =============== > > Item was added: > + SqueakTutorials subclass: #SqueakTutorialsCommandKey > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Help-Squeak-Project'! > > Item was added: > + ----- Method: SqueakTutorialsCommandKey class>>bookName (in category 'as > yet unclassified') ----- > + bookName > + ^'Command Key Mappings'! > > Item was added: > + ----- Method: SqueakTutorialsCommandKey class>>commandKeyMappings (in > category 'as yet unclassified') ----- > + commandKeyMappings > + ^HelpTopic > + title: 'Command Key Mappings' > + contents: > + > + 'Lower-case command keys > + (use with Cmd key on Mac and Alt key on other platforms) > + a Select all > + b Browse it (selection is a class name or cursor is over a > class-list or message-list) > + c Copy selection > + d Do it (selection is a valid expression) > + e Exchange selection with prior selection > + f Find > + g Find again > + h Set selection as search string for find again > + i Inspect it (selection is a valid expression, or selection is over > an inspect-ilst) > + j Again once (do the last text-related operation again) > + k Set font > + l Cancel > + m Implementors of it (selection is a message selector or cursor is > over a class-list or message-list) > + n Senders of it (selection is a message selector or cursor is over a > class-list or message-list) > + o Spawn current method > + p Print it (selection is a valid expression) > + q Query symbol (toggle all possible completion for a given prefix) > + r Recognizer > + s Save (i.e. accept) > + t Finds a Transcript (when cursor is over the desktop) > + u Toggle alignment > + v Paste > + w Delete preceding word (over text); Close-window (over morphic > desktop) > + x Cut selection > + y Swap characters > + z Undo > + > + Note: for Do it, Senders of it, etc., a null selection will be expanded > to a word or to the current line in an attempt to do what you want. Also > note that Senders/Implementors of it will find the outermost keyword > selector in a large selection, as when you have selected a bracketed > expression or an entire line. Finally note that the same cmd-m and cmd-n > (and cmd-v for versions) work in the message pane of most browsers. > + > + Upper-case command keys > + (use with Shift-Cmd, or Ctrl on Mac > + or Shift-Alt on other platforms; sometimes Ctrl works too) > + A Advance argument > + B Browse it in this same browser (in System browsers only) > + C Compare argument to clipboard > + D Duplicate > + E Method strings containing it > + F Insert ''ifFalse:'' > + G fileIn from it (a file name) > + H cursor TopHome: > + I Inspect via Object Explorer > + J Again many (apply the previous text command repeatedly until the > end of the text) > + K Set style > + L Outdent (move selection one tab-stop left) > + M Select current type-in > + N References to it (selection is a class name, or cursor is over a > class-list or message-list) > + O Open single-message browser (in message lists) > + P Make project link > + R Indent (move selection one tab-stap right) > + S Search > + T Insert ''ifTrue:'' > + U Convert linefeeds to carriage returns in selection > + V Paste author''s initials > + W Selectors containing it (in text); show-world-menu (when issued > with cursor over desktop) > + X Force selection to lowercase > + Y Force selection to uppercase > + Z Capitalize all words in selection > + > + Other special keys > + Backspace Backward delete character > + Del Forward delete character > + Shift-Bksp Backward delete word > + Shift-Del Forward delete word > + Esc Pop up the Desktop Menu > + \ Send top window to back > + > + Cursor keys > + left, right, > + up, down Move cursor left, right, up or down > + Ctrl-left Move cursor left one word > + Ctrl-right Move cursor right one word > + Home Move cursor to begin of line or begin of text > + End Move cursor to end of line or end of text > + PgUp, Ctrl-up Move cursor up one page > + PgDown, Ctrl-Dn Move cursor down one page > + > + Note all these keys can be used together with Shift to define or enlarge > the selection. You cannot however shrink that selection again, as in some > other systems. > + > + Other Cmd-key combinations (not available on all platforms) > + Return Insert return followed by as many tabs as the > previous line > + (with a further adjustment for additional brackets > in that line) > + Space Select the current word as with double clicking > + > + Enclose the selection in a kind of bracket. Each is a toggle. > + (not available on all platforms) > + Ctrl-( Enclose within ( and ), or remove enclosing ( and ) > + Ctrl-[ Enclose within [ and ], or remove enclosing [ and ] > + Crtl-{ Enclose within { and }, or remove enclosing { and } > + Ctrl-< Enclose within < and >, or remove enclosing < and > > + Ctrl-'' Enclose within '' and '', or remove enclosing '' and '' > + Ctrl-"" Enclose within "" and "", or remove enclosing "" and "" > + Note also that you can double-click just inside any of the above > delimiters, > + or at the beginning or end of a line, to select the text enclosed. > + > + Text Emphasis > + (not available on all platforms) > + Cmd-1 type the first method argument > + Cmd-2 type the second method argument > + Cmd-3 type the third method argument > + Cmd-4 type the fourth method argument > + Cmd-5 for future use > + Cmd-6 color, action-on-click, link to class comment, link to method, url > + Brings up a menu. To remove these properties, select > + more than the active part and then use command-0. > + Cmd-7 bold > + Cmd-8 italic > + Cmd-9 narrow (same as negative kern) > + Cmd-0 plain text (resets all emphasis) > + Cmd-- underlined (toggles it) > + Cmd-= struck out (toggles it) > + > + Shift-Cmd-- (aka :=) negative kern (letters 1 pixel closer) > + Shift-Cmd-+ positive kern (letters 1 pixel larger spread) > + > + Docking Bar > + Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such > exists, otherwise it moves the keyboard focus to the Search Bar. Currently > this means: > + Ctrl-0 Activates Search Bar > + Ctrl-1 Squeak menu > + Ctrl-2 Projects menu > + Ctrl-3 Tools menu > + Ctrl-4 Apps menu > + Ctrl-5 Extras menu > + Ctrl-6 Windows menu > + Ctrl-7 Help menu > + '! > > Item was added: > + ----- Method: SqueakTutorialsCommandKey class>>pages (in category 'as > yet unclassified') ----- > + pages > + ^# (commandKeyMappings)! > > >

2 1

Re: [squeak-dev] The Inbox: Morphic-kfr.724.mcz
by Chris Muller 29 Jun '14

29 Jun '14

Why a workspace instead of compiling straight to a method with a specified selector? On Sat, Jun 28, 2014 at 6:47 AM, <commits(a)source.squeak.org> wrote: > A new version of Morphic was added to project The Inbox: > http://source.squeak.org/inbox/Morphic-kfr.724.mcz > > ==================== Summary ==================== > > Name: Morphic-kfr.724 > Author: kfr > Time: 28 June 2014, 1:46:47.335 pm > UUID: ff507c56-3511-b446-abab-3e0c573e43c7 > Ancestors: Morphic-kfr.723 > > Add convenience menu options for SketchMorph: encode graphics to a > Workspace so graphics can be added in methods and a option to add graphics > to Standard Graphics Library > > =============== Diff against Morphic-kfr.723 =============== > > Item was changed: > ----- Method: SketchMorph>>addCustomMenuItems:hand: (in category 'menu') > ----- > addCustomMenuItems: aCustomMenu hand: aHandMorph > "Add custom menu items" > > super addCustomMenuItems: aCustomMenu hand: aHandMorph. > aCustomMenu add: 'restore base graphic' translated target: self > action: #restoreBaseGraphicFromMenu. > aCustomMenu add: 'call this my base graphic' translated target: > self action: #callThisBaseGraphic. > aCustomMenu add: 'choose new graphic...' translated target: self > action: #chooseNewGraphic. > aCustomMenu addLine. > aCustomMenu add: 'set as background' translated target: > rotatedForm action: #setAsBackground. > + aCustomMenu add: 'add to StandardGraphicsLibrary' translated > action: #addToStandardGraphicsLibrary. > + aCustomMenu add: 'encode To Workspace' translated action: > #encodeToWorkspace. > self addPaintingItemsTo: aCustomMenu hand: aHandMorph! > > Item was added: > + ----- Method: SketchMorph>>addToStandardGraphicsLibrary (in category > 'menu') ----- > + addToStandardGraphicsLibrary > + | aName | > + aName := FillInTheBlankMorph > + request: 'Picture name ?' > + initialAnswer: self name. > + ScriptingSystem saveForm: rotatedForm atKey: aName > + ! > > Item was added: > + ----- Method: SketchMorph>>encodeToWorkspace (in category 'menu') ----- > + encodeToWorkspace > + | stream encodedStream text | > + stream := RWBinaryOrTextStream on: String new. > + PNGReadWriter putForm: rotatedForm onStream: stream. > + encodedStream := stream contents asByteArray base64Encoded. > + text := Workspace open model. > + text contents: 'Form fromBinaryStream: (Base64MimeConverter > mimeDecodeToBytes: ''' , encodedStream , ''' readStream)'! > > >

2 1

Jump to page: