David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cwp.1055.mcz
==================== Summary ====================
Name: Morphic-cwp.1055
Author: cwp
Time: 27 November 2015, 9:46:27.986 pm
UUID: 75600228-b4f9-4739-b9c8-0318e1ef1d3a
Ancestors: Morphic-mt.1054
Implement PasteUpMorph>>referencePool
Loading a project seems to require it.
=============== Diff against Morphic-mt.1054 ===============
Item was added:
+ ----- Method: PasteUpMorph>>referencePool (in category 'objects from disk') -----
+ referencePool
+ | pool |
+ pool := OrderedCollection new.
+ self setProperty: #References toValue: pool.
+ ^ pool!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-jmg.1055.mcz
==================== Summary ====================
Name: Morphic-jmg.1055
Author: jmg
Time: 27 November 2015, 11:34:49.151 pm
UUID: 2866bfd1-711c-4f03-b944-b8d4adb0f6cb
Ancestors: Morphic-mt.1054
If you're like me and have the swapMouseButtons perference unselected because you are on windows, then right-clicking on a morph and picking the 'select' menu item raises an exception because popUpFor:at:hand: is expecting a position for the at: argument, and currently this sends in a MouseEvent transformed by the relevant amount. We need to take one additional step and extract the position from this newly translated event, which I do in this change.
=============== Diff against Morphic-mt.1054 ===============
Item was changed:
----- Method: SimpleHaloMorph>>popUpFor:hand: (in category 'pop up') -----
popUpFor: morph hand: hand
self
popUpFor: morph
+ at: (hand lastEvent transformedBy: (morph transformedFrom: nil)) position
- at: (hand lastEvent transformedBy: (morph transformedFrom: nil))
hand: hand!
Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours:
http://lists.squeakfoundation.org/pipermail/packages/2015-December/009203.h…
Name: Tools-eem.657
Ancestors: Tools-kfr.656
Provide local senders... in the system browser which will browse methods that reference a selector or a literal within the selected class's hierarchy.
Modify selection in MessageNames so that if one selects a different selector and an implementation exists in the same class as the current method, select that method.
Provide a canonical message name for CompiledMethod for creating methods from exceptions in the debugger.
=============================================
http://lists.squeakfoundation.org/pipermail/packages/2015-December/009204.h…
Name: Environments-kfr.61
Ancestors: Environments-cwp.60
Adds help interface so one can read all class and method comments in a HelpBrowser
=============================================
http://lists.squeakfoundation.org/pipermail/packages/2015-December/009205.h…
Name: WebClient-Help-kfr.11
Ancestors: WebClient-Help-ar.10
Fix for help referece so API documentation show in HelpBrowser
=============================================
Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.657.mcz
==================== Summary ====================
Name: Tools-eem.657
Author: eem
Time: 2 December 2015, 3:38:00.319 pm
UUID: 8ffda57b-575c-4398-8067-5e310d2fde82
Ancestors: Tools-kfr.656
Provide local senders... in the system browser which will browse methods that reference a selector or a literal within the selected class's hierarchy.
Modify selection in MessageNames so that if one selects a different selector and an implementation exists in the same class as the current method, select that method.
Provide a canonical message name for CompiledMethod for creating methods from exceptions in the debugger.
=============== Diff against Tools-kfr.656 ===============
Item was changed:
----- Method: Browser>>shiftedClassListMenu: (in category 'class functions') -----
shiftedClassListMenu: aMenu
<classListMenuShifted: true>
"Set up the menu to apply to the receiver's class list when the shift key is down"
+ ^ aMenu
+ addList: #(
-
- ^ aMenu addList: #(
-
+ ('local senders...' browseLocalSenders 'browse senders local to this class')
('unsent methods' browseUnusedMethods 'browse all methods defined by this class that have no senders')
('unreferenced inst vars' showUnreferencedInstVars 'show a list of all instance variables that are not referenced in methods')
('unreferenced class vars' showUnreferencedClassVars 'show a list of all class variables that are not referenced in methods')
('subclass template' makeNewSubclass 'put a template into the code pane for defining of a subclass of this class')
-
('sample instance' makeSampleInstance 'give me a sample instance of this class, if possible')
('inspect instances' inspectInstances 'open an inspector on all the extant instances of this class')
('inspect subinstances' inspectSubInstances 'open an inspector on all the extant instances of this class and of all of its subclasses')
-
('add all meths to current chgs' addAllMethodsToCurrentChangeSet
'place all the methods defined by this class into the current change set')
('create inst var accessors' createInstVarAccessors 'compile instance-variable access methods for any instance variables that do not yet have them'));
+ yourself!
- yourself!
Item was added:
+ ----- Method: CompiledMethod>>canonicalArgumentName (in category '*Tools-Debugger') -----
+ canonicalArgumentName
+ ^ 'CompiledMethod'!
Item was changed:
----- Method: MessageNames>>selectorListIndex: (in category 'selector list') -----
selectorListIndex: anInteger
"Set the selectorListIndex as specified, and propagate consequences"
+ | methodClass index |
+ methodClass := currentCompiledMethod ifNotNil: [currentCompiledMethod methodClass].
-
selectorListIndex := anInteger.
self changed: #selectorListIndex.
messageList := self computeMessageList.
self changed: #messageList.
+ methodClass ifNotNil: [index := messageList findFirst: [:methodRef| methodRef actualClass = methodClass]].
+
+ "If a method of the same class exists, select that, otherwise select the first message if any."
+ self messageListIndex: (index ifNil: [1 min: messageList size])!
-
- "Select the first message if any."
- self messageListIndex: (1 min: messageList size).!
Item was added:
+ ----- Method: StringHolder>>browseLocalSenders (in category '*Tools') -----
+ browseLocalSenders
+ self selectedClass ifNotNil:
+ [:cls| | token |
+ token := UIManager default request: 'browse for selector or literal'.
+ token isEmpty ifTrue: [^self].
+ Scanner new
+ typedScan: token
+ do: [:scannedToken :tokenType|
+ token := tokenType = #word
+ ifTrue:
+ [(Symbol findInterned: token)
+ ifNil: [^UIManager default inform: 'no such selector: ', token]
+ ifNotNil: [:symbol| symbol]]
+ ifFalse:
+ [scannedToken].
+ self systemNavigation browseAllCallsOn: token localTo: cls]]!
I don't think it is right to unload the package when you're about to load
it. I wonder what would happen if you were to load it into an image.
Levente
On Wed, 25 Nov 2015, commits(a)source.squeak.org wrote:
> Karl Ramberg uploaded a new version of Universes to project The Trunk:
> http://source.squeak.org/trunk/Universes-kfr.49.mcz
>
> ==================== Summary ====================
>
> Name: Universes-kfr.49
> Author: kfr
> Time: 25 November 2015, 4:41:51.099 pm
> UUID: 7fee292f-53fe-4b4d-822a-bf8798bd2cda
> Ancestors: Universes-mt.48
>
> Removal of Universes
>
> =============== Diff against Universes-mt.48 ===============
>
> Item was added:
> + (PackageInfo named: 'Universes') preamble: '"below, add code to be run before the loading of this package"
> + (MCPackage named: ''Universes'') workingCopy unload'!
>
>
>
I continued testing the VM, I find this problems:
- the allocation of memory using mmap works in a iPad2 but have problems in a iPad mini, I changed the allocation to malloc
- the VM loss the mouseUp events, I trace this to the use of TouchCmdMorph who was calling Sensor touchCmdPressed who eventually call flushEvents, I changed to a new ToggleModifiersMorph who works like in Pyonkee, touch and changes the modifier, the after a delay restore the modifier. Now is possible to shift, crtl, alt, cmd-click.
- also a button to show the keyboard, is less intrusive that the auto show call in TextMorphForEditView>>keyboardFocusChange:
But I find now a bug when dragging a morph, in the mouseDown the morph disappears, only when you release the finger (or the mouse in Simulator) the morph is visible again, I try using the preference debugShowDamage but that also is not working, at the end I find that PasteUpMorph>>flashRects:color: also don’t work, this is a method who call Display directly, so I think this is a bug (incomplete implementation?) in the VM, unfortunately I don’t have any knowledge of the CALayer who I think are used to display, or the time to continue this testing.
So to don’t waste the work already done I put a zip file in:
https://copy.com/7T9DPaUxDjQSc2Kf
this is a self contained directory, so if you have an Xcode 7 from Apple and create an account with your Apple ID, you can double click the alias to the xcodeproj, fix the account and then (hopefully) run the application in your iPad, only remember this is alpha quality.
Happy Ada Lovelace day!
osouıǝɹ-zɐıp ɹǝıʌɐɾ