Packages February 2016

packages@lists.squeakfoundation.org

2 participants
362 discussions

The Trunk: Collections-eem.678.mcz
by commits＠source.squeak.org 22 Feb '16

22 Feb '16

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.678.mcz ==================== Summary ==================== Name: Collections-eem.678 Author: eem Time: 22 February 2016, 9:39:42.620109 am UUID: 5f42102e-7dd0-4fc7-b437-5ba06a88240d Ancestors: Collections-ul.677 Make ByteArray>>unsignedLong[64]At:bigEndian: 64-bit aware. =============== Diff against Collections-ul.677 =============== Item was changed: ----- Method: ByteArray>>unsignedLong64At:bigEndian: (in category 'platform independent access') ----- unsignedLong64At: index bigEndian: bigEndian "Return a 64-bit unsigned integer quantity starting from the given byte index. Use #normalize where necessary to ensure compatibility with non-30-bit SmallIntegers." + | byte | + SmallInteger maxVal > 1073741823 ifTrue: + [bigEndian + ifTrue: "64-bit SmallIntegers have a 3 bit tag and a sign bit, so the most positive value has 16rF as its top byte." + [(byte := self at: index) <= 16rF ifTrue: + [^((((((((byte bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 3)) bitShift: 8) + + (self at: index + 4) bitShift: 8) + (self at: index + 5) bitShift: 8) + (self at: index + 6) bitShift: 8) + (self at: index + 7)]] + ifFalse: + [(byte := self at: index + 7) <= 16rF ifTrue: + [^((((((((byte bitShift: 8) + (self at: index + 6) bitShift: 8) + (self at: index + 5) bitShift: 8) + (self at: index + 4)) bitShift: 8) + + (self at: index + 3) bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index)]]]. - | v | bigEndian ifFalse: [ + (byte := self at: index + 7) = 0 ifFalse: [ - (v := self at: index + 7) = 0 ifFalse: [ ^(LargePositiveInteger new: 8) + replaceFrom: 1 to: 8 with: self startingAt: index; - replaceFrom: 1 - to: 8 - with: self - startingAt: index; normalize ]. + (byte := self at: index + 6) = 0 ifFalse: [ - (v := self at: index + 6) = 0 ifFalse: [ ^(LargePositiveInteger new: 7) + replaceFrom: 1 to: 7 with: self startingAt: index; - replaceFrom: 1 - to: 7 - with: self - startingAt: index; normalize ]. + (byte := self at: index + 5) = 0 ifFalse: [ - (v := self at: index + 5) = 0 ifFalse: [ ^(LargePositiveInteger new: 6) + replaceFrom: 1 to: 6 with: self startingAt: index; - replaceFrom: 1 - to: 6 - with: self - startingAt: index; normalize ]. + (byte := self at: index + 4) = 0 ifFalse: [ - (v := self at: index + 4) = 0 ifFalse: [ ^(LargePositiveInteger new: 5) + replaceFrom: 1 to: 5 with: self startingAt: index; - replaceFrom: 1 - to: 5 - with: self - startingAt: index; normalize ]. + (byte := self at: index + 3) <= 16r3F ifFalse: [ - (v := self at: index + 3) <= 16r3F ifFalse: [ ^(LargePositiveInteger new: 4) + replaceFrom: 1 to: 4 with: self startingAt: index; - replaceFrom: 1 - to: 4 - with: self - startingAt: index; normalize ]. + ^(((byte bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index) ]. + (byte := self at: index) = 0 ifFalse: [ - ^(((v bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index) ]. - (v := self at: index) = 0 ifFalse: [ ^(LargePositiveInteger new: 8) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); digitAt: 6 put: (self at: index + 2); digitAt: 7 put: (self at: index + 1); + digitAt: 8 put: byte; - digitAt: 8 put: v; normalize ]. + (byte := self at: index + 1) = 0 ifFalse: [ - (v := self at: index + 1) = 0 ifFalse: [ ^(LargePositiveInteger new: 7) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); digitAt: 6 put: (self at: index + 2); + digitAt: 7 put: byte; - digitAt: 7 put: v; normalize ]. + (byte := self at: index + 2) = 0 ifFalse: [ - (v := self at: index + 2) = 0 ifFalse: [ ^(LargePositiveInteger new: 6) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); + digitAt: 6 put: byte; - digitAt: 6 put: v; normalize ]. + (byte := self at: index + 3) = 0 ifFalse: [ - (v := self at: index + 3) = 0 ifFalse: [ ^(LargePositiveInteger new: 5) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); + digitAt: 5 put: byte; - digitAt: 5 put: v; normalize ]. + (byte := self at: index + 4) <= 16r3F ifFalse: [ - (v := self at: index + 4) <= 16r3F ifFalse: [ ^(LargePositiveInteger new: 4) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); + digitAt: 4 put: byte; - digitAt: 4 put: v; normalize ]. + ^(((byte bitShift: 8) + (self at: index + 5) bitShift: 8) + (self at: index + 6) bitShift: 8) + (self at: index + 7)! - ^(((v bitShift: 8) + (self at: index + 5) bitShift: 8) + (self at: index + 6) bitShift: 8) + (self at: index + 7)! Item was changed: ----- Method: ByteArray>>unsignedLongAt:bigEndian: (in category 'platform independent access') ----- unsignedLongAt: index bigEndian: bigEndian "Return a 32-bit unsigned integer quantity starting from the given byte index. Use #normalize where necessary to ensure compatibility with non-30-bit SmallIntegers." - | byte | + bigEndian ifTrue: + [((byte := self at: index) <= 16r3F + or: [SmallInteger maxVal > 1073741823]) ifTrue: + [^(((byte bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 3)]. - bigEndian ifTrue: [ - (byte := self at: index) <= 16r3F ifTrue: [ - ^(((byte bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 3) ]. ^(LargePositiveInteger new: 4) digitAt: 1 put: (self at: index + 3); digitAt: 2 put: (self at: index + 2); digitAt: 3 put: (self at: index + 1); digitAt: 4 put: byte; + normalize]. + ((byte := self at: index + 3) <= 16r3F + or: [SmallInteger maxVal > 1073741823]) ifTrue: + [^(((byte bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index)]. - normalize ]. - (byte := self at: index + 3) <= 16r3F ifTrue: [ - ^(((byte bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index) ]. ^(LargePositiveInteger new: 4) + replaceFrom: 1 to: 4 with: self startingAt: index; + normalize! - replaceFrom: 1 - to: 4 - with: self - startingAt: index; - normalize - !

1 0

The Trunk: Collections-eem.678.mcz
by commits＠source.squeak.org 22 Feb '16

22 Feb '16

1 0

The Trunk: System-eem.801.mcz
by commits＠source.squeak.org 21 Feb '16

21 Feb '16

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.801.mcz ==================== Summary ==================== Name: System-eem.801 Author: eem Time: 20 February 2016, 11:40:02.089874 pm UUID: cb00963a-1c90-40c0-9539-04c88c0afa5f Ancestors: System-mt.800 In Spur calcEndianness can be a lot simpler. =============== Diff against System-mt.800 =============== Item was changed: ----- Method: SmalltalkImage>>calcEndianness (in category 'system attributes') ----- calcEndianness - | bytes word blt | "What endian-ness is the current hardware? The String '1234' will be stored into a machine word. On BigEndian machines (the Mac), $1 will be the high byte if the word. On LittleEndian machines (the PC), $4 will be the high byte." "Smalltalk endianness" + | wordThenBytes | + wordThenBytes := WordArray with: 16r01020304. + ByteArray adoptInstance: wordThenBytes. + wordThenBytes first = 1 ifTrue: [^#big]. + wordThenBytes first = 4 ifTrue: [^#little]. + self error: 'The author is confused'! - - bytes := ByteArray withAll: #(0 0 0 0). "(1 2 3 4) or (4 3 2 1)" - word := WordArray with: 16r01020304. - blt := (BitBlt toForm: (Form new hackBits: bytes)) - sourceForm: (Form new hackBits: word). - blt combinationRule: Form over. "store" - blt sourceY: 0; destY: 0; height: 1; width: 4. - blt sourceX: 0; destX: 0. - blt copyBits. "paste the word into the bytes" - bytes first = 1 ifTrue: [^ #big]. - bytes first = 4 ifTrue: [^ #little]. - self error: 'Ted is confused'.!

1 0

The Trunk: System-eem.801.mcz
by commits＠source.squeak.org 21 Feb '16

21 Feb '16

1 0

The Trunk: Help-Squeak-Project-tpr.35.mcz
by commits＠source.squeak.org 21 Feb '16

21 Feb '16

tim Rowledge uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-tpr.35.mcz ==================== Summary ==================== Name: Help-Squeak-Project-tpr.35 Author: tpr Time: 21 February 2016, 5:09:48.473345 pm UUID: 589b8fff-3754-48e7-a759-4d9121abba0e Ancestors: Help-Squeak-Project-cmm.34 Some improvements to the commandkey help text; correct meaning of cmd-shift-l/r, add tab/shift-tav etc =============== Diff against Help-Squeak-Project-cmm.34 =============== 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 Move cursor to top/home of text - 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 Opens a FileList, bringing forward on that already exists if appropriate - 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 opens a Recent Submissions browser + S Pretty-print a method in the current browser - 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 + Cmd+\ Send the active window to the back + Tab Insert a tab char in a single-line selection or insert a tab at the beginning of each line in a multi-line selection + Shift-Tab Remove a tab from the beginning of each line in the selection - \ 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 double-quotes Cmd-'' Toggle enclosure 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. 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-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-tpr.35.mcz
by commits＠source.squeak.org 21 Feb '16

21 Feb '16

1 0

The Trunk: Installer-Core-cmm.404.mcz
by commits＠source.squeak.org 20 Feb '16

20 Feb '16

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.404.mcz ==================== Summary ==================== Name: Installer-Core-cmm.404 Author: cmm Time: 20 February 2016, 11:17:21.045856 am UUID: f5341e16-0e86-4193-82ed-a3a8d0da52b3 Ancestors: Installer-Core-cmm.403 Correct project for jsonParser. =============== Diff against Installer-Core-cmm.403 =============== Item was changed: ----- Method: Installer>>jsonParser (in category 'package-definitions') ----- jsonParser + ^ { #ss -> 'JSON'. - ^ { #ss -> 'VHRP'. 'JSON' }!

1 0

The Trunk: Installer-Core-cmm.404.mcz
by commits＠source.squeak.org 20 Feb '16

20 Feb '16

1 0

The Trunk: Morphic-mt.1089.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1089.mcz ==================== Summary ==================== Name: Morphic-mt.1089 Author: mt Time: 19 February 2016, 5:28:10.456676 pm UUID: 3c8747c7-e826-4c31-8cd4-53301756914e Ancestors: Morphic-mt.1088 Check for running UI process simplified due to latest updates in Process class. =============== Diff against Morphic-mt.1088 =============== Item was changed: ----- Method: MorphicProject>>spawnNewProcessIfThisIsUI: (in category 'active process') ----- spawnNewProcessIfThisIsUI: suspendedProcess "Initialize a UI process if needed. Answer true if suspendedProcess was interrupted from a UI process." self uiProcess == suspendedProcess ifTrue: [ self spawnNewProcess. ^true ]. + "Ensure that the UI process is running." + self uiProcess isSuspended ifTrue: [ + self restoreDisplay. + self uiProcess resume]. - "Ensure that the UI process is running. We need to check the suspended context because the Debugger tends to call this twice." - (self uiProcess isSuspended and: [self uiProcess suspendedContext notNil]) - ifTrue: [ - self restoreDisplay. - self uiProcess resume]. ^false "no new process was created" !

1 0

The Trunk: Morphic-mt.1089.mcz
by commits＠source.squeak.org 19 Feb '16

19 Feb '16

1 0

← Newer
1
2
3
4
5
6
7
...
37
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2016