Packages November 2015

packages@lists.squeakfoundation.org

1 participants
228 discussions

The Trunk: Tools-kfr.655.mcz
by commits＠source.squeak.org 23 Nov '15

23 Nov '15

Karl Ramberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-kfr.655.mcz ==================== Summary ==================== Name: Tools-kfr.655 Author: kfr Time: 23 November 2015, 11:28:19.779 pm UUID: 80343420-2d7b-43dc-aea0-11e528a51ed0 Ancestors: Tools-mt.654 Adds menu item for class pane to open a HeloBrowser for selected class. =============== Diff against Tools-mt.654 =============== Item was added: + ----- Method: Browser>>browseAllCommentsForClass (in category 'message functions') ----- + browseAllCommentsForClass + "Inspect all instances of the selected class. 1/26/96 sw" + + | myClass | + ((myClass := self selectedClassOrMetaClass) isNil or: [myClass isTrait]) + ifFalse: [HelpBrowser openOn: myClass theNonMetaClass] + ! Item was changed: ----- Method: Browser>>classListMenu: (in category 'class functions') ----- classListMenu: aMenu "Conveniently fit for backward compatibility with old browers stored in image segments" <classListMenuShifted: false> aMenu addList: #( - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' spawnHierarchy) ('browse protocol (p)' browseFullProtocol) - ('printOut' printOutClass) ('fileOut' fileOutClass) - ('show hierarchy' hierarchy) ('show definition' editClass) ('show comment' editComment) + ('show all comments' browseAllCommentsForClass) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('rename class ...' renameClass) ('copy class' copyClass) ('remove class (x)' removeClass) - ('find method...' findMethod)). ^ aMenu !

1 0

The Trunk: Tools-kfr.655.mcz
by commits＠source.squeak.org 23 Nov '15

23 Nov '15

1 0

The Trunk: Help-Squeak-Project-cmm.34.mcz
by commits＠source.squeak.org 23 Nov '15

23 Nov '15

Chris Muller uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-cmm.34.mcz ==================== Summary ==================== Name: Help-Squeak-Project-cmm.34 Author: cmm Time: 22 November 2015, 10:38:43.067 pm UUID: 0187686e-7a36-466f-8c00-aae97ddb6ce3 Ancestors: Help-Squeak-Project-mt.33 - Document recently added Redo function. - Clarify and correct the toggle enclosure function. =============== Diff against Help-Squeak-Project-mt.33 =============== Item was changed: ----- Method: SqueakTutorialsCommandKey class>>commandKeyMappings (in category 'as yet unclassified') ----- commandKeyMappings "This method was automatically generated. Edit it using:" "SqueakTutorialsCommandKey edit: #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 text with a dialog g Find the current selection again j Repeat the last selection replacement i Inspect it k Set font l Cancel text edit m Implementors of it n Senders of it o Spawn current method p Print it (selection is a valid expression) q Query symbol (toggle all possible completion for a given prefix) s Save (i.e. accept) t Finds a Transcript (when cursor is over the desktop) u Toggle alignment v Paste w Select/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 the selected text to the clipboard contents D Debug-It 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 Redo Other special keys Backspace Backward delete character Shift-Bksp Backward select or delete word Del Forward delete character Shift-Del Forward delete word Esc Pop up the context menu Shift+Esc Pop up the World Menu Cmd+Esc Close the active window Ctrl+Esc Present a list of open windows \ Send the active window to the 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-( Toggle enclosure within parentheses + Cmd-[ Toggle enclosure within brackets + Crtl-{ Toggle enclosure within curly braces - Ctrl-[ Toggle enclosure within brackets - Crtl-{ Toggle enclosre within curly braces - Ctrl-< Toggle enclosre within less-than / greater-than (HTML) Ctrl-'' Toggle enclosure within double-quotes + Cmd-'' Toggle enclosure within single-quotes - Ctrl-'' Toggle encllosure within single-quotes + 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. - 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 or Scratch Pad - 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 !!' readStream nextChunkText!

1 0

The Trunk: Help-Squeak-Project-cmm.34.mcz
by commits＠source.squeak.org 23 Nov '15

23 Nov '15

1 0

The Trunk: HelpSystem-Tests-kfr.17.mcz
by commits＠source.squeak.org 22 Nov '15

22 Nov '15

Karl Ramberg uploaded a new version of HelpSystem-Tests to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Tests-kfr.17.mcz ==================== Summary ==================== Name: HelpSystem-Tests-kfr.17 Author: kfr Time: 22 November 2015, 7:30:41.491 pm UUID: 682515b0-b94a-4681-9a8a-6269e7a9f09b Ancestors: HelpSystem-Tests-mt.16 Fixed a couple of broken tests =============== Diff against HelpSystem-Tests-mt.16 =============== Item was added: + ----- Method: AdvancedHelpBrowserDummy>>model (in category 'testing') ----- + model + ^self! Item was added: + ----- Method: AdvancedHelpBrowserDummy>>showFirstTopic (in category 'testing') ----- + showFirstTopic + ^rootTopic!

1 0

The Trunk: HelpSystem-Tests-kfr.17.mcz
by commits＠source.squeak.org 22 Nov '15

22 Nov '15

1 0

The Trunk: Morphic-mt.1053.mcz
by commits＠source.squeak.org 22 Nov '15

22 Nov '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1053.mcz ==================== Summary ==================== Name: Morphic-mt.1053 Author: mt Time: 22 November 2015, 2:45:14.467 pm UUID: a55f6a5e-b5c9-4e64-9ffa-9cac6cbc8e54 Ancestors: Morphic-cmm.1052 Fixes undo for autoEnclose again. =============== Diff against Morphic-cmm.1052 =============== Item was changed: ----- Method: TextEditor>>autoEncloseFor: (in category 'typing support') ----- autoEncloseFor: typedChar "Answer whether typeChar was handled by auto-enclosure. Caller should call normalCharacter if not." | openers closers | openers := '([{'. closers := ')]}'. (closers includes: typedChar) ifTrue: [ | pos | self blinkPrevParen: typedChar. ((pos := self indexOfNextNonwhitespaceCharacter) notNil and: [ (paragraph string at: pos) = typedChar ]) ifTrue: [ self moveCursor: [ : position | position + pos - pointBlock stringIndex + 1 ] forward: true select: false. ^ true ] ifFalse: [ ^ false ] ]. + (openers includes: typedChar) ifTrue: - (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: [ self + openTypeIn; + addString: typedChar asString; + addString: (closers at: (openers indexOf: typedChar)) asString; + insertAndCloseTypeIn; - addString: (closers at: (openers indexOf: typedChar)) asString ; - insertTypeAhead ; moveCursor: [ : position | position - 1 ] forward: false select: false. + ^ true ]. - ^ false ]. ^ false! Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." | honorCommandKeys typedChar | typedChar := aKeyboardEvent keyCharacter. "Create a new command for separating characters. Do not create separate commands for consecutive separators." ((Character separators includes: typedChar) and: [(Character separators includes: previousKeyCharacter) not]) ifTrue: [self closeTypeIn]. previousKeyCharacter := typedChar. "Handle one-line input fields." (typedChar == Character cr and: [morph acceptOnCR]) ifTrue: [^ true]. "Clear highlight for last opened parenthesis." self clearParens. "Handle line breaks and auto indent." typedChar == Character cr ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [^ self normalCharacter: aKeyboardEvent]. aKeyboardEvent shiftPressed ifTrue: [^ self lf: aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [^ self crlf: aKeyboardEvent]. ^ self crWithIndent: aKeyboardEvent]. "Handle indent/outdent with selected text block." typedChar == Character tab ifTrue: [ aKeyboardEvent shiftPressed ifTrue: [self outdent: aKeyboardEvent. ^ true] ifFalse: [self hasMultipleLinesSelected ifTrue: [self indent: aKeyboardEvent. ^ true]]]. honorCommandKeys := Preferences cmdKeysInText. (honorCommandKeys and: [typedChar == Character enter]) ifTrue: [^ self dispatchOnEnterWith: aKeyboardEvent]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [aKeyboardEvent keyValue < 27]) ifTrue: [^ aKeyboardEvent controlKeyPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [aKeyboardEvent commandKeyPressed]) or: [self class specialShiftCmdKeys includes: aKeyboardEvent keyValue]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]. + "Automatically enclose paired characters such as brackets." + (self class autoEnclose and: [self autoEncloseFor: typedChar]) + ifTrue: [^ true]. + + self normalCharacter: aKeyboardEvent. - self class autoEnclose - ifTrue: - [ (self autoEncloseFor: typedChar) ifFalse: [ self normalCharacter: aKeyboardEvent ] ] - ifFalse: [ self normalCharacter: aKeyboardEvent ]. - ^ false!

1 0

The Trunk: Morphic-mt.1053.mcz
by commits＠source.squeak.org 22 Nov '15

22 Nov '15

1 0

The Trunk: Compiler-eem.317.mcz
by commits＠source.squeak.org 22 Nov '15

22 Nov '15

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.317.mcz ==================== Summary ==================== Name: Compiler-eem.317 Author: eem Time: 21 November 2015, 3:20:26.817 pm UUID: 956bcba6-bf0a-463c-aaef-90903732fb85 Ancestors: Compiler-nice.316 Small improvement to compiler performance. There is no need to scan for an assignment to the limit in a to:[by:]do: when the to: argument is known to be an argument, because arguments are not written to. =============== Diff against Compiler-nice.316 =============== Item was changed: ----- Method: MessageNode>>transformToDo: (in category 'macro transformations') ----- transformToDo: encoder " var := rcvr. L1: [var <= arg1] Bfp(L2) [block body. var := var + inc] Jmp(L1) L2: " + | limit increment block initStmt test incStmt limitInit blockVar myRange blockRange | - | limit increment block initStmt test incStmt limitInit blockVar myRange blockRange limitIsAssignedTo | block := arguments last. "First check for valid arguments" (block notNil and: [block isBlockNode and: [block numberOfArguments = 1 and: [block firstArgument isVariableReference "As with debugger remote vars"]]]) ifFalse: [^false]. arguments size = 3 ifTrue: [increment := arguments at: 2. (increment isConstantNumber and: [increment literalValue ~= 0]) ifFalse: [^false]] ifFalse: [increment := encoder encodeLiteral: 1]. (limit := arguments at: 1) isVariableReference ifTrue: + [| shouldScanForAssignment | + shouldScanForAssignment := limit isArg not + or: [limit isBlockArg and: [Scanner allowBlockArgumentAssignment]]. + shouldScanForAssignment ifTrue: + [block nodesDo: + [:node| + (node isAssignmentNode and: [node variable = limit]) ifTrue: + [^false]]]]. - [limitIsAssignedTo := false. - block nodesDo: - [:node| - (node isAssignmentNode and: [node variable = limit]) ifTrue: - [limitIsAssignedTo := true]]. - limitIsAssignedTo ifTrue: - [^false]]. arguments size < 3 ifTrue: "transform to full form" [selector := SelectorNode new key: #to:by:do: code: #macro]. "Now generate auxiliary structures" myRange := encoder rawSourceRanges at: self ifAbsent: [1 to: 0]. blockRange := encoder rawSourceRanges at: block ifAbsent: [1 to: 0]. blockVar := block firstArgument. initStmt := AssignmentNode new variable: blockVar value: receiver. + (limit isVariableReference or: [limit isConstantNumber]) - limit isVariableReference | limit isConstantNumber ifTrue: [limitInit := nil] ifFalse: "Need to store limit in a var" [limit := encoder bindBlockArg: blockVar key, 'LimiT' within: block. limit scope: -2. "Already done parsing block; flag so it won't print" block addArgument: limit. limitInit := AssignmentNode new variable: limit value: arguments first]. test := MessageNode new receiver: blockVar selector: (increment key > 0 ifTrue: [#<=] ifFalse: [#>=]) arguments: {limit} precedence: precedence from: encoder sourceRange: (myRange first to: blockRange first). incStmt := AssignmentNode new variable: blockVar value: (MessageNode new receiver: blockVar selector: #+ arguments: {increment} precedence: precedence from: encoder sourceRange: (myRange last to: (myRange last max: blockRange last))) from: encoder sourceRange: (myRange last to: (myRange last max: blockRange last)). arguments := {limit. increment. block. initStmt. test. incStmt. limitInit}. block noteOptimizedIn: self. ^true!

1 0

The Trunk: Compiler-eem.317.mcz
by commits＠source.squeak.org 22 Nov '15

22 Nov '15

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2015