Squeak-dev June 2011

squeak-dev@lists.squeakfoundation.org

77 participants
236 discussions

The Inbox: Tools-fbs.360.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-fbs.360.mcz ==================== Summary ==================== Name: Tools-fbs.360 Author: fbs Time: 8 June 2011, 12:48:19.403 pm UUID: c15abbe6-2529-4471-9c0d-d854df1cddfb Ancestors: Tools-ul.359 Make MessageSet subclass CodeHolder, not Browser. Rationale: MessageSet uses nothing but a tiny subset of Browser. All existing tests pass, but we have poor code coverage. I've banged on it a fair bit, but this needs extra checking (ideally in the form of more tests!) =============== Diff against Tools-ul.359 =============== Item was added: + ----- Method: MessageNames>>topConstantHeightFrame:fromLeft:width: (in category 'as yet unclassified') ----- + topConstantHeightFrame: height fromLeft: leftFraction width: rightFraction + ^LayoutFrame new + topFraction: 0 offset: 0; + leftFraction: leftFraction offset: 0; + rightFraction: (leftFraction + rightFraction) offset: 0; + bottomFraction: 0 offset: height; + yourself.! Item was changed: + CodeHolder subclass: #MessageSet + instanceVariableNames: 'growable messageList autoSelectString messageListIndex editSelection' - Browser subclass: #MessageSet - instanceVariableNames: 'growable messageList autoSelectString messageListIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! !MessageSet commentStamp: '<historical>' prior: 0! I represent a query path of the retrieval result of making a query about methods in the system. The result is a set of methods, denoted by a message selector and the class in which the method was found. As a StringHolder, the string I represent is the source code of the currently selected method. I am typically viewed in a Message Set Browser consisting of a MessageListView and a BrowserCodeView.! Item was added: + ----- Method: MessageSet>>buildMessageListWith: (in category 'toolbuilder') ----- + buildMessageListWith: builder + | listSpec | + listSpec := builder pluggableListSpec new. + listSpec + model: self; + list: #messageList; + getIndex: #messageListIndex; + setIndex: #messageListIndex:; + menu: #messageListMenu:shifted:; + keyPress: #messageListKey:from:. + Preferences browseWithDragNDrop + ifTrue:[listSpec dragItem: #dragFromMessageList:]. + ^listSpec + ! Item was removed: - ----- Method: MessageSet>>compileMessage:notifying: (in category 'as yet unclassified') ----- - compileMessage: aText notifying: aController - "Compile the code that was accepted by the user, placing the compiled method into an appropriate message category. Return true if the compilation succeeded, else false." - "Copied from Browser's version of sd 11/20/2005 21:26 because later versions remove messageListIndex." - - | fallBackCategoryName fallBackMethodIndex originalSelectorName result | - - self selectedMessageCategoryName ifNil: - [ self selectOriginalCategoryForCurrentMethod - ifFalse:["Select the '--all--' category" - self messageCategoryListIndex: 1]]. - - - self selectedMessageCategoryName asSymbol = ClassOrganizer allCategory - ifTrue: - [ "User tried to save a method while the ALL category was selected" - fallBackCategoryName := selectedMessageCategoryName. - fallBackMethodIndex := messageListIndex. - editSelection == #newMessage - ifTrue: - [ "Select the 'as yet unclassified' category" - selectedMessageCategoryName := nil. - (result := self defineMessageFrom: aText notifying: aController) - ifNil: - ["Compilation failure: reselect the original category & method" - selectedMessageCategoryName := fallBackCategoryName. - messageListIndex := fallBackMethodIndex] - ifNotNil: - [self setSelector: result]] - ifFalse: - [originalSelectorName := self selectedMessageName. - self setOriginalCategoryIndexForCurrentMethod. - messageListIndex := fallBackMethodIndex := self messageList indexOf: originalSelectorName. - (result := self defineMessageFrom: aText notifying: aController) - ifNotNil: - [self setSelector: result] - ifNil: - [ "Compilation failure: reselect the original category & method" - selectedMessageCategoryName := fallBackCategoryName. - messageListIndex := fallBackMethodIndex. - ^ result notNil]]. - self changed: #messageCategoryList. - ^ result notNil] - ifFalse: - [ "User tried to save a method while the ALL category was NOT selected" - ^ (self defineMessageFrom: aText notifying: aController) notNil]! Item was added: + ----- Method: MessageSet>>dragFromMessageList: (in category 'drag and drop') ----- + dragFromMessageList: index + "Drag a method from the browser" + ^self selectedClassOrMetaClass compiledMethodAt: (self messageList at: index) ifAbsent:[nil]! Item was added: + ----- Method: MessageSet>>editSelection: (in category 'accessing') ----- + editSelection: aSelection + "Set the editSelection as requested." + + editSelection := aSelection. + self changed: #editSelection.! Item was changed: ----- Method: MessageSet>>fileOutMessage (in category 'message functions') ----- fileOutMessage "Put a description of the selected method on a file, or all methods if none selected." | fileName | self selectedMessageName ifNotNil: [^super fileOutMessage]. + fileName := self request: 'File out on which file?' initialAnswer: 'methods'. - fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. Cursor write showWhile: [| internalStream | internalStream := WriteStream on: (String new: 1000). internalStream header; timeStamp. messageList do: [:methodRef| methodRef actualClass printMethodChunk: methodRef methodSymbol withPreamble: true on: internalStream moveSource: false toFile: nil]. FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]! Item was changed: ----- Method: MessageSet>>filterToImplementorsOf (in category 'filtering') ----- filterToImplementorsOf "Filter the receiver's list down to only those items with a given selector" | aFragment inputWithBlanksTrimmed | + aFragment := self request: 'type selector:' initialAnswer: ''. - aFragment := UIManager default request: 'type selector:' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | aSelector == aSymbol]]! Item was changed: ----- Method: MessageSet>>filterToNotImplementorsOf (in category 'filtering') ----- filterToNotImplementorsOf "Filter the receiver's list down to only those items whose selector is NOT one solicited from the user." | aFragment inputWithBlanksTrimmed | + aFragment := self request: 'type selector: ' initialAnswer: ''. - aFragment := UIManager default request: 'type selector: ' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | aSelector ~~ aSymbol]]! Item was changed: ----- Method: MessageSet>>filterToNotSendersOf (in category 'filtering') ----- filterToNotSendersOf "Filter the receiver's list down to only those items which do not send a given selector" | aFragment inputWithBlanksTrimmed | + aFragment := self request: 'type selector:' initialAnswer: ''. - aFragment := UIManager default request: 'type selector:' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | | aMethod | (aMethod := aClass compiledMethodAt: aSelector) isNil or: [(aMethod hasLiteralThorough: aSymbol) not]]]! Item was changed: ----- Method: MessageSet>>filterToSendersOf (in category 'filtering') ----- filterToSendersOf "Filter the receiver's list down to only those items which send a given selector" | aFragment inputWithBlanksTrimmed | + aFragment := self request: 'type selector:' initialAnswer: ''. - aFragment := UIManager default request: 'type selector:' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | | aMethod | (aMethod := aClass compiledMethodAt: aSelector) notNil and: [aMethod hasLiteralThorough: aSymbol]]] ! Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses." messageList := OrderedCollection new. anArray do: [ :each | MessageSet parse: each toClassAndSelector: [ :class :sel | | s | class ifNotNil: [class isUniClass ifTrue: [s := class typicalInstanceName, ' ', sel] ifFalse: [s := class name , ' ' , sel , ' {' , ((class organization categoryOfElement: sel) ifNil: ['']) , '}']. messageList add: ( MethodReference new setClass: class methodSymbol: sel stringVersion: s)]]]. messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. - selectedMessageName := messageList isEmpty ifTrue: [nil] ifFalse: [messageList first selector]. contents := ''! Item was added: + ----- 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' 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 added: + ----- Method: MessageSet>>request:initialAnswer: (in category 'as yet unclassified') ----- + request: prompt initialAnswer: initialAnswer + + ^ UIManager default + request: prompt + initialAnswer: initialAnswer! Item was removed: - ----- Method: MessageSet>>selectMessageNamed: (in category 'message list') ----- - selectMessageNamed: aSymbolOrString - super selectMessageNamed: aSymbolOrString. - - contents := - selectedMessageName notNil - ifTrue: [self selectedMessage] - ifFalse: ['']. - self changed: #messageListIndex. "update my selection" - self editSelection: #editMessage. - self contentsChanged. - (selectedMessageName notNil and: [ autoSelectString notNil and: [ self contents notEmpty ] ]) ifTrue: [ self changed: #autoSelect ]. - self decorateButtons! Item was added: + ----- Method: MessageSet>>shiftedMessageListMenu: (in category 'message functions') ----- + shiftedMessageListMenu: aMenu + "Fill aMenu with the items appropriate when the shift key is held down" + + aMenu addStayUpItem. + aMenu addList: #( + ('toggle diffing (D)' toggleDiffing) + ('implementors of sent messages' browseAllMessages) + - + ('local senders of...' browseLocalSendersOfMessages) + ('local implementors of...' browseLocalImplementors) + - + ('spawn sub-protocol' spawnProtocol) + ('spawn full protocol' spawnFullProtocol) + - + ('sample instance' makeSampleInstance) + ('inspect instances' inspectInstances) + ('inspect subinstances' inspectSubInstances)). + + self addExtraShiftedItemsTo: aMenu. + aMenu addList: #( + - + ('change category...' changeCategory)). + + self canShowMultipleMessageCategories ifTrue: [aMenu addList: + #(('show category (C)' showHomeCategory))]. + aMenu addList: #( + - + ('change sets with this method' findMethodInChangeSets) + ('revert to previous version' revertToPreviousVersion) + ('remove from current change set' removeFromCurrentChanges) + ('revert & remove from changes' revertAndForget) + ('add to current change set' adoptMessageInCurrentChangeset) + ('copy up or copy down...' copyUpOrCopyDown) + - + ('more...' unshiftedYellowButtonActivity)). + ^ aMenu + ! Item was changed: + ----- Method: MessageSet>>systemOrganizer: (in category 'initialize-release') ----- - ----- Method: MessageSet>>systemOrganizer: (in category 'as yet unclassified') ----- systemOrganizer: aSystemOrganizer messageListIndex := 0. ^ super systemOrganizer: aSystemOrganizer.! Item was changed: + ----- Method: MessageSet>>veryDeepInner: (in category 'copying') ----- - ----- Method: MessageSet>>veryDeepInner: (in category 'as yet unclassified') ----- veryDeepInner: deepCopier "Copy all of my instance variables. Some need to be not copied at all, but shared. See DeepCopier class comment." super veryDeepInner: deepCopier. + messageListIndex := messageListIndex veryDeepCopyWith: deepCopier. + editSelection := editSelection veryDeepCopyWith: deepCopier.! - messageListIndex := messageListIndex veryDeepCopyWith: deepCopier.! Item was changed: ----- Method: TimeProfileBrowser>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray messageList := anArray. messageListIndex := 0. - selectedMessageName := nil. contents := ''!

1 0

The Inbox: Kernel-cbc.593.mcz
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-cbc.593.mcz ==================== Summary ==================== Name: Kernel-cbc.593 Author: cbc Time: 7 June 2011, 10:25:11.435 pm UUID: 6ea87b7a-6755-1446-b2fd-54350609142c Ancestors: Kernel-wiz.592 Added examples to the comments in Number #roundDownTo:, #roundUpTo:, and #truncateTo: to clarify how to use the methods. =============== Diff against Kernel-wiz.592 =============== Item was changed: ----- Method: Number>>roundDownTo: (in category 'truncation and round off') ----- roundDownTo: aNumber "Answer the next multiple of aNumber toward negative infinity that is nearest the receiver." + "Examples: + 3.1479 roundDownTo: 0.01 -> 3.14 + 3.1479 roundDownTo: 0.1 -> 3.1 + 1923 roundDownTo: 10 -> 1920 + 3.1479 roundDownTo: 0.005 -> 3.145 + -3.1479 roundDownTo: 0.01 -> -3.15" + - ^(self/aNumber) floor * aNumber! Item was changed: ----- Method: Number>>roundUpTo: (in category 'truncation and round off') ----- roundUpTo: aNumber "Answer the next multiple of aNumber toward infinity that is nearest the receiver." + "Examples: + 3.1479 roundUpTo: 0.01 -> 3.15 + 3.1479 roundUpTo: 0.1 -> 3.2 + 1923 roundUpTo: 10 -> 1930 + 3.1479 roundUpTo: 0.005 -> 3.15 + -3.1479 roundUpTo: 0.01 -> -3.14" ^(self/aNumber) ceiling * aNumber! Item was changed: ----- Method: Number>>truncateTo: (in category 'truncation and round off') ----- truncateTo: aNumber "Answer the next multiple of aNumber toward zero that is nearest the receiver." + "Examples: + 3.1479 truncateTo: 0.01 -> 3.14 + 3.1479 truncateTo: 0.1 -> 3.1 + 1923 truncateTo: 10 -> 1920 + 3.1479 truncateTo: 0.005 -> 3.145 + -3.1479 truncateTo: 0.01 -> -3.14" ^(self quo: aNumber) * aNumber!

1 0

Re: Building an dial with an arrow indicator
by Rodney Polkinghorne 08 Jun '11

08 Jun '11

Jerome wrote: > ... code ... > Basically you update the indicator by calculating a vector and adding it to where you want the tail. My first draft was similar to that. Then I thought, hang on, I'm using Smalltalk, not BASIC. I shouldn't update the indicator. Rather, I should ask it to indicate something, and it should know how to update itself. Things went downhill from there. Suppose this is the answer - the dial should understand a #indicate: message, and adjust its arrow. Now suppose I want to embed a dial in an instrument panel. This looks like the same problem as embeding an indicator in a dial, so let's solve it the same way, with Panel>>indicateAirspeed:. You can see where this is heading. Is there a solution other than Airline>>indicateAirspeedToNavigator:ofFlight:using747withSerialNumber:?

1 0

Daily Commit Log
by commits＠source.squeak.org 08 Jun '11

08 Jun '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-June/004745.html Name: Tools-ul.359 Ancestors: Tools-cmm.358, Tools-ul.357 Merged. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004746.html Name: Tools-ul.357 Ancestors: Tools-ul.356 Don't install doits into MethodDictionaries. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004747.html Name: Morphic-ul.545 Ancestors: Morphic-cmm.544, Morphic-ul.544 Merged. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004748.html Name: Morphic-ul.544 Ancestors: Morphic-bf.543 Don't install doits into MethodDictionaries. =============================================

1 0

The Inbox: Kernel-ul.593.mcz
by commits＠source.squeak.org 07 Jun '11

07 Jun '11

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ul.593.mcz ==================== Summary ==================== Name: Kernel-ul.593 Author: ul Time: 7 June 2011, 10:04:12.998 pm UUID: 531bf643-4166-a040-82f2-47ecd9fef43b Ancestors: Kernel-wiz.592 - CompiledMethod >> #valueWithReceiver:arguments: evaluates the method without sending any messages to the receiver. This is done by CompiledMethod class >> #receiver:withArguments:executeMethod: which uses primitive 188 with three arguments (already implemented by CogVMs). If the primitive fails the fallback mechanism tries to use primitive 188 with two arguments (supported by all VMs) - updated ContextPart >> #doPrimitive:method:receiver:args: to support both two and three arguments variants of primitive 188 and added support for primitive 189, so it won't "escape from the debugger" anymore. =============== Diff against Kernel-wiz.592 =============== Item was added: + ----- Method: CompiledMethod class>>receiver:withArguments:executeMethod: (in category 'evaluating') ----- + receiver: receiver withArguments: argArray executeMethod: compiledMethod + "Execute compiledMethod against the receiver and the arguments in argArray" + + <primitive: 188> + ^receiver withArgs: argArray executeMethod: compiledMethod! Item was changed: ----- Method: CompiledMethod>>valueWithReceiver:arguments: (in category 'evaluating') ----- valueWithReceiver: aReceiver arguments: anArray + ^self class receiver: aReceiver withArguments: anArray executeMethod: self! - ^ aReceiver withArgs: anArray executeMethod: self! Item was changed: ----- Method: ContextPart>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. Any primitive which provikes execution needs to be intercepted and simulated to avoid execution running away." | value | <primitive: 19> "Simulation guard" "If successful, push result and return resuming context, else ^ PrimitiveFailToken" (primitiveIndex = 19) ifTrue: [ToolSet debugContext: self label:'Code simulation error' contents: nil]. "ContextPart>>blockCopy:; simulated to get startpc right" (primitiveIndex = 80 and: [receiver isKindOf: ContextPart]) ifTrue: [^self push: ((BlockContext newForMethod: receiver method) home: receiver home startpc: pc + 2 nargs: (arguments at: 1))]. (primitiveIndex = 81 and: [receiver isMemberOf: BlockContext]) "BlockContext>>value[:value:...]" ifTrue: [^receiver pushArgs: arguments from: self]. (primitiveIndex = 82 and: [receiver isMemberOf: BlockContext]) "BlockContext>>valueWithArguments:" ifTrue: [^receiver pushArgs: arguments first from: self]. primitiveIndex = 83 "afr 9/11/1998 19:50" "Object>>perform:[with:...]" ifTrue: [^self send: arguments first to: receiver with: arguments allButFirst super: false]. primitiveIndex = 84 "afr 9/11/1998 19:50" "Object>>perform:withArguments:" ifTrue: [^self send: arguments first to: receiver with: (arguments at: 2) super: false]. + primitiveIndex = 188 ifTrue: [ + arguments size = 2 ifTrue: [ "eem 5/27/2008 11:10 Object>>withArgs:executeMethod:" + ^MethodContext + sender: self + receiver: receiver + method: (arguments at: 2) + arguments: (arguments at: 1) ]. + arguments size = 3 ifTrue: [ "CompiledMethod class >> #receiver:withArguments:executeMethod:" + ^MethodContext + sender: self + receiver: (arguments at: 1) + method: (arguments at: 3) + arguments: (arguments at: 2) ] ]. + primitiveIndex = 189 ifTrue: [ "Object >> (#with:)*executeMethod" + ^MethodContext - primitiveIndex = 188 ifTrue: "eem 5/27/2008 11:10 Object>>withArgs:executeMethod:" - [^MethodContext sender: self receiver: receiver + method: arguments last + arguments: arguments allButLast ]. - method: (arguments at: 2) - arguments: (arguments at: 1)]. "Closure primitives" (primitiveIndex = 200 and: [receiver == self]) ifTrue: "ContextPart>>closureCopy:copiedValues:; simulated to get startpc right" [^self push: (BlockClosure outerContext: receiver startpc: pc + 2 numArgs: arguments first copiedValues: arguments last)]. ((primitiveIndex between: 201 and: 205) "BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]. primitiveIndex = 206 ifTrue: "BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. primitiveIndex = 120 ifTrue:[ "FFI method" value := meth literals first tryInvokeWithArguments: arguments. ] ifFalse:[ arguments size > 6 ifTrue: [^PrimitiveFailToken]. value := primitiveIndex = 117 "named primitives" ifTrue:[self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse:[receiver tryPrimitive: primitiveIndex withArgs: arguments]. ]. ^value == PrimitiveFailToken ifTrue: [PrimitiveFailToken] ifFalse: [self push: value]!

1 0

The Trunk: Morphic-ul.544.mcz
by commits＠source.squeak.org 07 Jun '11

07 Jun '11

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.544.mcz ==================== Summary ==================== Name: Morphic-ul.544 Author: ul Time: 29 May 2011, 7:50:51.766 pm UUID: 3380e546-7615-5844-8c23-5098e78b2f92 Ancestors: Morphic-bf.543 Don't install doits into MethodDictionaries. =============== Diff against Morphic-bf.543 =============== Item was changed: ----- Method: TextEditor>>debug:receiver:in: (in category 'do-its') ----- debug: aCompiledMethod receiver: anObject in: evalContext + | guineaPig debugger context | + guineaPig := [ + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) + executeMethod: aCompiledMethod ] newProcess. - | selector guineaPig debugger context | - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. - guineaPig := evalContext isNil - ifTrue: [[anObject DoIt] newProcess] - ifFalse: [[anObject DoItIn: evalContext] newProcess]. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: nil context: context. debugger openFullNoSuspendLabel: 'Debug it'. + [ debugger interruptedContext method == aCompiledMethod ] + whileFalse: [ debugger send ]! - [debugger interruptedContext method == aCompiledMethod] - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector!

1 0

The Trunk: Morphic-ul.545.mcz
by commits＠source.squeak.org 07 Jun '11

07 Jun '11

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.545.mcz ==================== Summary ==================== Name: Morphic-ul.545 Author: ul Time: 7 June 2011, 12:05:51.591 pm UUID: b5a49a7b-1b29-4b42-b2cb-108045265af2 Ancestors: Morphic-cmm.544, Morphic-ul.544 Merged. =============== Diff against Morphic-cmm.544 =============== Item was changed: ----- Method: TextEditor>>debug:receiver:in: (in category 'do-its') ----- debug: aCompiledMethod receiver: anObject in: evalContext + | guineaPig debugger context | + guineaPig := [ + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) + executeMethod: aCompiledMethod ] newProcess. - | selector guineaPig debugger context | - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. - guineaPig := evalContext isNil - ifTrue: [[anObject DoIt] newProcess] - ifFalse: [[anObject DoItIn: evalContext] newProcess]. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: nil context: context. debugger openFullNoSuspendLabel: 'Debug it'. + [ debugger interruptedContext method == aCompiledMethod ] + whileFalse: [ debugger send ]! - [debugger interruptedContext method == aCompiledMethod] - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector!

1 0

The Trunk: Tools-ul.357.mcz
by commits＠source.squeak.org 07 Jun '11

07 Jun '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.357.mcz ==================== Summary ==================== Name: Tools-ul.357 Author: ul Time: 29 May 2011, 7:51:18.372 pm UUID: 9b7529a4-621a-0440-b9aa-3d99daefe41e Ancestors: Tools-ul.356 Don't install doits into MethodDictionaries. =============== Diff against Tools-ul.356 =============== Item was changed: ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') ----- debug: aCompiledMethod receiver: anObject in: evalContext + | guineaPig debugger context | + guineaPig := [ + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) + executeMethod: aCompiledMethod ] newProcess. - | selector guineaPig debugger context | - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. - guineaPig := evalContext isNil - ifTrue: [[anObject DoIt] newProcess] - ifFalse: [[anObject DoItIn: evalContext] newProcess]. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) ifTrue: [ScheduledControllers activeController] ifFalse: [nil]) context: context. debugger openFullNoSuspendLabel: 'Debug it'. [debugger interruptedContext method == aCompiledMethod] + whileFalse: [debugger send]! - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector!

1 0

The Trunk: Tools-ul.359.mcz
by commits＠source.squeak.org 07 Jun '11

07 Jun '11

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.359.mcz ==================== Summary ==================== Name: Tools-ul.359 Author: ul Time: 7 June 2011, 12:06:38.868 pm UUID: cd2ef60b-0f56-224f-80d9-ec6db504af26 Ancestors: Tools-cmm.358, Tools-ul.357 Merged. =============== Diff against Tools-cmm.358 =============== Item was changed: ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') ----- debug: aCompiledMethod receiver: anObject in: evalContext + | guineaPig debugger context | + guineaPig := [ + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) + executeMethod: aCompiledMethod ] newProcess. - | selector guineaPig debugger context | - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. - guineaPig := evalContext isNil - ifTrue: [[anObject DoIt] newProcess] - ifFalse: [[anObject DoItIn: evalContext] newProcess]. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) ifTrue: [ScheduledControllers activeController] ifFalse: [nil]) context: context. debugger openFullNoSuspendLabel: 'Debug it'. [debugger interruptedContext method == aCompiledMethod] + whileFalse: [debugger send]! - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector!

1 0

Re: Building an dial with an arrow indicator.
by Jerome Peace 07 Jun '11

07 Jun '11

Hi Rodney, You wrote: > In that case, how should IndicatorMorph work? I can duplicate PolygonMorph>>arrowPrototype and call it IndicatorMorph>>new, but that seems wrong for all kinds of reasons. dial := CurvierMorph daimondOval openCenteredInWorld. tail := dial bounds center . arrowLen := constant. indicator := Polygon arrowPrototype setVertices: { tail . tail + (Point r: arrowLen degrees: angleInDegrees) } . dial addSubMorph: indicator. to update indicator dial updateIndicator: angleInDegrees tail := self bounds center . indicator setVertices: { tail . tail + (Point r: arrowLen degrees: angleInDegrees) } . Basically you update the indicator by calculating a vector and adding it to where you want the tail. As it is a line it will have only two vertices. You can compose a dial by embedding the indicator arrow as a submorph. The code I have written is unchecked and somewhat sloppy. You will have to play with it. This should give you the general idea. StarMorphs are an easy way to get a circle adjust one to have enough points then adjust the fatness until you have a circle. Any morph you wish can serve as the dial. An image or sketch morph allows you to use a picture as the dial background. To get the updates to happen regularly you will have to figure out how "stepping" works.

1 0

← Newer
1
...
17
18
19
20
21
22
23
24
Older →

Jump to page: