Packages April 2012

packages@lists.squeakfoundation.org

1 participants
129 discussions

The Trunk: Kernel-eem.678.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.678.mcz ==================== Summary ==================== Name: Kernel-eem.678 Author: eem Time: 18 April 2012, 10:29:16.009 am UUID: a1560bd8-28a8-4167-a5ae-d3da0cd21c70 Ancestors: Kernel-eem.677 Provide a kbdTest for the EventSensor. =============== Diff against Kernel-eem.677 =============== Item was added: + ----- Method: EventSensor>>kbdTest (in category 'keyboard') ----- + kbdTest "Sensor kbdTest" + "This test routine will print the unmodified character, its keycode, + and the OR of all its modifier bits, until the character x is typed" + | char evt | + char := nil. + [char = $x] whileFalse: + [[(evt := self peekKeyboardEvent) isNil] whileTrue. + char := self characterForKeycode: evt third. + (String streamContents: + [:s | + s nextPut: char. + (3 to: 8) with: 'cpmurw' do: + [:i :c| + s space; nextPut: c; nextPut: $:; print: (evt at: i); nextPutAll: ' ']]) + displayAt: 10@10]!

1 0

The Trunk: MorphicExtras-bf.104.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

Bert Freudenberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-bf.104.mcz ==================== Summary ==================== Name: MorphicExtras-bf.104 Author: bf Time: 17 April 2012, 4:35:55.392 pm UUID: 9460be83-fb2f-4a82-9094-e7adedaefd0f Ancestors: MorphicExtras-ul.103 Fix DNU in event recorder playback =============== Diff against MorphicExtras-ul.103 =============== Item was changed: ----- Method: HandMorphForReplay>>showTemporaryCursor:hotSpotOffset: (in category 'cursor') ----- showTemporaryCursor: cursorOrNil hotSpotOffset: hotSpotOffset "When I show my cursor, it appears double size, unless it is a form such as a paint brush." cursorOrNil ifNil: ["Setting cursor to nil cannot revert to hardware cursor -- just show normal." ^ self showTemporaryCursor: Cursor normal hotSpotOffset: Cursor normal offset] ifNotNil: [(cursorOrNil isKindOf: Cursor) ifTrue: ["Show cursors magnified for visibility" + ^ super showTemporaryCursor: (cursorOrNil asCursorForm magnifyBy: 2) - ^ super showTemporaryCursor: - (CursorWithMask derivedFrom: (cursorOrNil magnifyBy: 2)) hotSpotOffset: (cursorOrNil offset negated*2) + hotSpotOffset] ifFalse: [^ super showTemporaryCursor: cursorOrNil hotSpotOffset: hotSpotOffset]]!

1 0

The Trunk: MorphicExtras-bf.104.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

1 0

The Trunk: MorphicExtras-bf.104.mcz
by commits＠source.squeak.org 18 Apr '12

18 Apr '12

1 0

The Trunk: Monticello-eem.503.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.503.mcz ==================== Summary ==================== Name: Monticello-eem.503 Author: eem Time: 16 April 2012, 1:53:54.751 pm UUID: 8687250d-8cb6-4d67-af24-28e7fd4f4d90 Ancestors: Monticello-eem.502 Provide a short-cut (cmd-shift-C) for copyReference. =============== Diff against Monticello-eem.502 =============== Item was changed: ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu "Build the menu for the selected method, if any." self selectedMessageName ifNil: [items notEmpty ifTrue: [aMenu addList:#(('fileOut (o)' fileOutMessage))]] ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - + ('fileOut (o)' fileOutMessage) - ('fileOut (o)' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector) + ('copy reference (C)' copyReference)). - ('copy reference' copyReference)). aMenu addList: #( - ('browse senders (n)' browseSendersOfMessages) ('browse implementors (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) ('change sets with this method' findMethodInChangeSets) " ('x revert to previous version' revertToPreviousVersion)" ('remove from current change set' removeFromCurrentChanges) " ('x revert & remove from changes' revertAndForget)" ('add to current change set' adoptMessageInCurrentChangeset) " ('x copy up or copy down...' copyUpOrCopyDown)" " ('x remove method (x)' removeMessage)" "-" ). ]. " aMenu addList: #( ('x inst var refs...' browseInstVarRefs) ('x inst var defs...' browseInstVarDefs) ('x class var refs...' browseClassVarRefs) ('x class variables' browseClassVariables) ('x class refs (N)' browseClassRefs) ). " ^ aMenu !

1 0

The Trunk: Monticello-eem.503.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

1 0

The Trunk: Monticello-eem.503.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

1 0

The Trunk: Tools-eem.402.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.402.mcz ==================== Summary ==================== Name: Tools-eem.402 Author: eem Time: 16 April 2012, 1:52:23.177 pm UUID: 60d5c35a-b436-4fb2-af42-9af40bfb4001 Ancestors: Tools-eem.401 Provide a short-cut (cmd-shift-C) for copyReference. Nuke null method in TimeProfileBrowser's menu processing. Make the same bounds check in the indirect temp ref side of privateDereference:in:. =============== Diff against Tools-eem.401 =============== Item was changed: ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" self menuHook: aMenu named: #messageListMenu shifted: shifted. Preferences useOnlyServicesInMenu ifTrue:[^aMenu]. shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. aMenu addList: #( ('what to show...' offerWhatToShowMenu) ('toggle break on entry' toggleBreakOnEntry) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - + ('fileOut' fileOutMessage) + ('printOut' printOutMessage) + ('copy selector (c)' copySelector) + ('copy reference (C)' copyReference) - ('fileOut' fileOutMessage) - ('printOut' printOutMessage) - ('copy selector (c)' copySelector) - ('copy reference' copyReference) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) ('explore method' exploreMethod) ('inspect method' inspectMethod) - ('more...' shiftedYellowButtonActivity)). ^ aMenu! Item was changed: ----- Method: DebuggerMethodMapForClosureCompiledMethods>>privateDereference:in: (in category 'private') ----- privateDereference: tempReference in: aContext "Fetch the temporary with reference tempReference in aContext. tempReference can be integer - direct temp reference #( indirectionVectorIndex tempIndex ) - remote temp in indirectionVector at index #( outer. temp reference ) - a temp reference in an outer context." ^tempReference isInteger ifTrue: [tempReference <= aContext stackPtr ifTrue: [aContext tempAt: tempReference]] ifFalse: [tempReference first == #outer ifTrue: [self privateDereference: tempReference last in: aContext outerContext] ifFalse: "If stopped before indirection vectors are created they will be nil. Simply answer nil" + [tempReference first <= aContext stackPtr ifTrue: + [(aContext tempAt: tempReference first) ifNotNil: + [:indirectionVector| + indirectionVector at: tempReference second]]]]! - [(aContext tempAt: tempReference first) ifNotNil: - [:indirectionVector| - indirectionVector at: tempReference second]]]! Item was changed: ----- Method: MessageSet>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" self menuHook: aMenu named: #messageListMenu shifted: shifted. Preferences useOnlyServicesInMenu ifTrue:[^aMenu]. shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. aMenu addList: #( ('what to show...' offerWhatToShowMenu) ('toggle break on entry' toggleBreakOnEntry) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - ('fileOut' fileOutMessage) ('printOut' printOutMessage) + ('copy selector (c)' copySelector) + ('copy reference (C)' copyReference) - ('copy selector (c)' copySelector) - ('copy reference' copyReference) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) ('explore method' exploreMethod) ('inspect method' inspectMethod) - ('more...' shiftedYellowButtonActivity)). ^ aMenu! Item was changed: ----- Method: RecentMessageSet>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. aMenu addList:#( ('what to show...' offerWhatToShowMenu) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - + ('fileOut (o)' fileOutMessage) - ('fileOut (o)' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector) + ('copy reference (C)' copyReference) - ('copy reference' copyReference) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) + ('inheritance (i)' methodHierarchy) - ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) ('remove from RecentSubmissions' removeFromRecentSubmissions) - ('more...' shiftedYellowButtonActivity)). ^ aMenu! Item was removed: - ----- Method: TimeProfileBrowser>>messageListMenu:shifted: (in category 'private') ----- - messageListMenu: aMenu shifted: shifted - "Add a menu to the inherited one." - - | menu | - menu := super messageListMenu: aMenu shifted: shifted. - " menu addItem: (0)." - ^menu!

1 0

The Trunk: Tools-eem.402.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

1 0

The Trunk: Tools-eem.402.mcz
by commits＠source.squeak.org 16 Apr '12

16 Apr '12

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
13
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2012