Squeak-dev May 2011

squeak-dev@lists.squeakfoundation.org

84 participants
303 discussions

Book morphs bookmarks missing from saved project
by Gary Dunn 27 May '11

27 May '11

I have a book morph with bookmarks for navigating to specific pages. Worked perfectly until I saved the project and loaded on a different computer. All bookmarks read "a SimpleButtonMorph(nnn) that was not counted" Is this by design? Was the intent that bookmarks are created by the reader and not really part of the book? Is there an alternate, equally simple way to link pages? I know how to do it with a little code, I just don't want authors to have to get into coding. Gary Dunn Open Slate Project http://openslate.org

2 3

morph layout
by Chris Muller 26 May '11

26 May '11

I seem to be going crazy because I've done lots of Morphic programming in the past. But, for the life of me, I cannot seem to get layout to work the way I remember it always working. I want rightCenter but can't get anything but topLeft. | container item | container := Morph new color: Color yellow; extent: 150@150; cellPositioning: #rightCenter. item := Morph new. item cellPositioning: #rightCenter. container addMorph: item. container openInHand I always thought cellPositioning was set on the _container_, but the comment says on the "receiver", so even when I set it on both it is still placed at the top left. What am I missing here?

4 4

Tracing proxies
by Chris Muller 26 May '11

26 May '11

I just committed a change to Kernel to the Inbox which simply moves messages in the 'tracing' category from Object to ProtoObject. I know we want to keep ProtoObject to an absolute minimum, but I also think it is useful to be able to trace connectivity to proxies. I would also like to move Object>>#isLiteral up to ProtoObject to support tracing, but refrained for now until I can gauge whether there is support or opposition to this idea. Thanks. - Chris

3 5

Impressed with stability
by Gary Dunn 26 May '11

26 May '11

I want to acknowledge the development team for making the current release so stable. I have been developing a morphic book on how to make a morphic book (for Open Slate Project) and have been able to use lots of features and create a lot of content without crashing. Much better than the 3.x series. Only issues are the ones I reported on Mantis, setting fonts and the appearance of morph names. No crashes, no lost work. Fantastic. Gary Dunn Open Slate Project http://openslate.org

4 4

Re: [squeak-dev] The Inbox: Graphics-wiz.183.mcz
by Rodney Polkinghorne 25 May '11

25 May '11

Thanks to the maintainers for all their work on this. Rodney

1 0

Daily Commit Log
by commits＠source.squeak.org 25 May '11

25 May '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-May/004730.html Name: KernelTests-eem.192 Ancestors: KernelTests-dtl.191 Use cm literalAt: cm numLiterals instead of cm literals last. Arguambly should use cm methodClassAssociation ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004731.html Name: Kernel-eem.590 Ancestors: Kernel-nice.589 Fix whichSelectorsReferTo:special:byte:thorough: for Float bindingOf: #NaN, so that one can browse references to the NaN class var. Use literaslsDo: instead of literals do: in spaceUsed. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004732.html Name: ToolsTests-eem.47 Ancestors: ToolsTests-ul.46 Add test for allCallsOn: et al discovering references to Float bindingOf: #NaN. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-May/004733.html Name: System-eem.438 Ancestors: System-ul.437 Use literalsDo: in place of literals do: in some SystemNavigation trawling code. =============================================

1 0

Re: [squeak-dev] The Inbox: Graphics-wiz.183.mcz
by Bert Freudenberg 24 May '11

24 May '11

Hi Jerome, since BitBlt only works on integer coordinates anyway, and even accepts nil instead ints, why should you want to spend all that effort of converting Fractions to Floats? E.g., in loadBitBltFrom:warping: you will find destX := self fetchIntOrFloat: BBDestXIndex ofObject: bitBltOop ifNil: 0. And looking at that method: fetchIntOrFloat: fieldIndex ofObject: objectPointer ifNil: defaultValue "Return the integer value of the given field of the given object. If the field contains a Float, truncate it and return its integral part. Fail if the given field does not contain a small integer or Float, or if the truncated Float is out of the range of small integers." So it only uses an Integer, but accepts a Float which will be truncated. The only reason BitBlt accepts Floats in addition to Integers is to avoid having to sprinkle "rounded" sends everywhere. Sorry for not mentioning this earlier, but I thought this was obvious. There are no half pixels. - Bert - On 24.05.2011, at 00:47, commits(a)source.squeak.org wrote: > A new version of Graphics was added to project The Inbox: > http://source.squeak.org/inbox/Graphics-wiz.183.mcz > > ==================== Summary ==================== > > Name: Graphics-wiz.183 > Author: wiz > Time: 23 May 2011, 8:55:06.627 pm > UUID: de71490d-a20e-4413-b8b0-8bc9ae3bfdb9 > Ancestors: Graphics-nice.182 > > The last of three pieces fixing M7635. > > adjustOrigins and adjustExtent assure parameters are defined and not in class Fraction form. > clipRange has had lazy initialization factored out by useing the adjust methods. > copyBits now tries the two adjust methods before trying cliprange. It also now tries clipRange without the horrible roundVariables method. As a last resort it sends and error method before proceeding to try the roundVariables method. > > That should do it. > > Oh yeah be sure to load the other two parts first. Everything will depend on the presense of asNonFraction. > > =============== Diff against Graphics-nice.182 =============== > > Item was added: > + ----- Method: BitBlt>>adjustExtents (in category 'accessing') ----- > + adjustExtents > + "Answer if any of the extent numbers were class fraction or undefined. > + Assure all extent numbers are defined and non-fractional." > + > + | answer | > + (answer := width isFraction | height isFraction | clipWidth isFraction | clipHeight isFraction > + | width isNil | height isNil | clipWidth isNil | clipHeight isNil) ifFalse: [ ^answer ] . > + width := ( width ifNil: [ destForm width ] ) asNonFraction . > + height := ( height ifNil: [ destForm height ] ) asNonFraction . > + clipWidth := (clipWidth ifNil:[clipWidth := destForm width]) asNonFraction . > + clipHeight := (clipHeight ifNil:[clipHeight := destForm height]) asNonFraction . > + ^answer ! > > Item was added: > + ----- Method: BitBlt>>adjustOrigins (in category 'accessing') ----- > + adjustOrigins > + "Answer if any of the origin numbers were class Fraction or undefined. Assure all origin numbers are non-fractional and defined." > + > + | answer | > + (answer := destX isFraction | destY isFraction > + | sourceX isFraction | sourceY isFraction > + | clipX isFraction | clipY isFraction > + | destX isNil | destY isNil > + | sourceX isNil | sourceY isNil > + | clipX isNil | clipY isNil ) > + ifFalse: [ ^answer ] . > + > + destX :=( destX ifNil:[ 0]) asNonFraction . > + destY := (destY ifNil:[ 0]) asNonFraction . > + sourceX := (sourceX ifNil:[ 0]) asNonFraction . > + sourceY := (sourceY ifNil:[ 0]) asNonFraction . > + clipX := (clipX ifNil:[0]) asNonFraction . > + clipY := (clipY ifNil:[0]) asNonFraction . > + ^ answer! > > Item was changed: > ----- Method: BitBlt>>clipRange (in category 'private') ----- > clipRange > + "Fill in the lazy state if needed and insure no numbers are class Fraction. > + Clip and adjust source origin and extent appropriately" > + > - "clip and adjust source origin and extent appropriately" > - "first in x" > | sx sy dx dy bbW bbH | > + self adjustExtents | self adjustOrigins . "True when something changed." > - "fill in the lazy state if needed" > - destX ifNil:[destX := 0]. > - destY ifNil:[destY := 0]. > - width ifNil:[width := destForm width]. > - height ifNil:[height := destForm height]. > - sourceX ifNil:[sourceX := 0]. > - sourceY ifNil:[sourceY := 0]. > - clipX ifNil:[clipX := 0]. > - clipY ifNil:[clipY := 0]. > - clipWidth ifNil:[clipWidth := destForm width]. > - clipHeight ifNil:[clipHeight := destForm height]. > > + "first in x" > destX >= clipX > ifTrue: [sx := sourceX. > dx := destX. > bbW := width] > ifFalse: [sx := sourceX + (clipX - destX). > bbW := width - (clipX - destX). > dx := clipX]. > (dx + bbW) > (clipX + clipWidth) > ifTrue: [bbW := bbW - ((dx + bbW) - (clipX + clipWidth))]. > "then in y" > destY >= clipY > ifTrue: [sy := sourceY. > dy := destY. > bbH := height] > ifFalse: [sy := sourceY + clipY - destY. > bbH := height - (clipY - destY). > dy := clipY]. > (dy + bbH) > (clipY + clipHeight) > ifTrue: [bbH := bbH - ((dy + bbH) - (clipY + clipHeight))]. > sourceForm ifNotNil:[ > sx < 0 > ifTrue: [dx := dx - sx. > bbW := bbW + sx. > sx := 0]. > sx + bbW > sourceForm width > ifTrue: [bbW := bbW - (sx + bbW - sourceForm width)]. > sy < 0 > ifTrue: [dy := dy - sy. > bbH := bbH + sy. > sy := 0]. > sy + bbH > sourceForm height > ifTrue: [bbH := bbH - (sy + bbH - sourceForm height)]. > ]. > (bbW <= 0 or:[bbH <= 0]) ifTrue:[ > sourceX := sourceY := destX := destY := clipX := clipY := width := height := 0. > ^true]. > (sx = sourceX > and:[sy = sourceY > and:[dx = destX > and:[dy = destY > and:[bbW = width > and:[bbH = height]]]]]) ifTrue:[^false]. > sourceX := sx. > sourceY := sy. > destX := dx. > destY := dy. > width := bbW. > height := bbH. > ^true! > > Item was changed: > ----- Method: BitBlt>>copyBits (in category 'copying') ----- > copyBits > "Primitive. Perform the movement of bits from the source form to the > destination form. Fail if any variables are not of the right type (Integer, > Float, or Form) or if the combination rule is not implemented. > In addition to the original 16 combination rules, this BitBlt supports > 16 fail (to simulate paint) > 17 fail (to simulate mask) > 18 sourceWord + destinationWord > 19 sourceWord - destinationWord > 20 rgbAdd: sourceWord with: destinationWord > 21 rgbSub: sourceWord with: destinationWord > 22 rgbDiff: sourceWord with: destinationWord > 23 tallyIntoMap: destinationWord > 24 alphaBlend: sourceWord with: destinationWord > 25 pixPaint: sourceWord with: destinationWord > 26 pixMask: sourceWord with: destinationWord > 27 rgbMax: sourceWord with: destinationWord > 28 rgbMin: sourceWord with: destinationWord > 29 rgbMin: sourceWord bitInvert32 with: destinationWord > " > <primitive: 'primitiveCopyBits' module: 'BitBltPlugin'> > > "Check for compressed source, destination or halftone forms" > (combinationRule >= 30 and: [combinationRule <= 31]) ifTrue: > ["No alpha specified -- re-run with alpha = 1.0" > ^ self copyBitsTranslucent: 255]. > ((sourceForm isForm) and: [sourceForm unhibernate]) > ifTrue: [^ self copyBits]. > ((destForm isForm) and: [destForm unhibernate]) > ifTrue: [^ self copyBits]. > ((halftoneForm isForm) and: [halftoneForm unhibernate]) > ifTrue: [^ self copyBits]. > > "Check for unimplmented rules" > combinationRule = Form oldPaint ifTrue: [^ self paintBits]. > combinationRule = Form oldErase1bitShape ifTrue: [^ self eraseBits]. > > "Check if BitBlt doesn't support full color maps" > (colorMap notNil and:[colorMap isColormap]) ifTrue:[ > colorMap := colorMap colors. > ^self copyBits]. > + "Check for class Fraction numbers and undefined paramenters." > + self adjustExtents ifTrue: [ ^self copyBits ]. > + self adjustOrigins ifTrue: [ ^self copyBits ]. > + > "Check if clipping gots us way out of range" > + self clipRange ifTrue:[ ^self copyBits]. > - self clipRange ifTrue:[self roundVariables. ^self copyBitsAgain]. > > + self error: 'Bad BitBlt arg; proceed to round args..'. > - self error: 'Bad BitBlt arg (Fraction?); proceed to convert.'. > "Convert all numeric parameters to integers and try again." > self roundVariables. > ^ self copyBitsAgain! > >

2 2

[SmallANN] I could do some web with reduced (2Mb) Cuis at last
by Edgar J. De Cleene 24 May '11

24 May '11

With getPublicIP "Report the public IP of this computer World getPublicIP." | stream | stream := HTTPSocket httpGet: 'http://checkip.dyndns.com'. stream upToAll: 'IP Address: '. stream := stream upTo: $<. ^ stream Take me only 47 fileOut .cs from normal Cuis and normal Trunk

1 0

Howto avoid: CTRL + RED => CTRL + BLUE
by Marcel Taeumel 24 May '11

24 May '11

Hi. If it has to do something with the VM: I am on Windows with VM 4.1.1. I have a morph that adds some text links (text actions, text attributes) on CTRL which I want to left-click (= red-click) and activate. Unfortunately, Squeak turns a CTRL+RED into a CTRL+BLUE which invokes the halos. Additionally text actions do not work on blue-clicks. How can I turn this mapping off? Marcel -- View this message in context: http://forum.world.st/Howto-avoid-CTRL-RED-CTRL-BLUE-tp3546853p3546853.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

3 4

The Trunk: System-eem.438.mcz
by commits＠source.squeak.org 24 May '11

24 May '11

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.438.mcz ==================== Summary ==================== Name: System-eem.438 Author: eem Time: 23 May 2011, 6:14:14.008 pm UUID: c038f616-9da6-4abd-94be-1b5d43c9ed03 Ancestors: System-ul.437 Use literalsDo: in place of literals do: in some SystemNavigation trawling code. =============== Diff against System-ul.437 =============== Item was changed: ----- Method: SystemNavigation>>allGlobalRefsWithout: (in category 'query') ----- allGlobalRefsWithout: classesAndMessagesPair "Answer a set of symbols that may be refs to Global names. In some sense we should only need the associations, but this will also catch, eg, HTML tag types. This method computes its result in the absence of specified classes and messages." "may be a problem if namespaces are introduced as for the moment only Smalltalk is queried. sd 29/4/03" | globalRefs absentClasses absentSelectors | globalRefs := IdentitySet new: CompiledMethod instanceCount. absentClasses := classesAndMessagesPair first. absentSelectors := classesAndMessagesPair second. self flag: #shouldBeRewrittenUsingSmalltalkAllClassesDo:. "sd 29/04/03" Cursor execute showWhile: [Smalltalk classNames do: [:cName | ((absentClasses includes: cName) ifTrue: [{}] ifFalse: [{Smalltalk at: cName. (Smalltalk at: cName) class}]) do: [:cl | (absentSelectors isEmpty ifTrue: [cl selectors] ifFalse: [cl selectors copyWithoutAll: absentSelectors]) do: [:sel | "Include all capitalized symbols for good measure" + (cl compiledMethodAt: sel) literalsDo: [:m | + ((m isSymbol) + and: [m size > 0 + and: [m first canBeGlobalVarInitial]]) + ifTrue: [globalRefs add: m]. + (m isMemberOf: Array) + ifTrue: [m + do: [:x | ((x isSymbol) + and: [x size > 0 + and: [x first canBeGlobalVarInitial]]) + ifTrue: [globalRefs add: x]]]. + m isVariableBinding + ifTrue: [m key + ifNotNil: [globalRefs add: m key]]]]]]]. - (cl compiledMethodAt: sel) literals - do: [:m | - ((m isSymbol) - and: [m size > 0 - and: [m first canBeGlobalVarInitial]]) - ifTrue: [globalRefs add: m]. - (m isMemberOf: Array) - ifTrue: [m - do: [:x | ((x isSymbol) - and: [x size > 0 - and: [x first canBeGlobalVarInitial]]) - ifTrue: [globalRefs add: x]]]. - m isVariableBinding - ifTrue: [m key - ifNotNil: [globalRefs add: m key]]]]]]]. ^ globalRefs! Item was changed: ----- Method: SystemNavigation>>allReferencesToPool:from: (in category 'query') ----- allReferencesToPool: aPool from: aClass "Answer all the references to variables from aPool" | list | list := OrderedCollection new. aClass withAllSubclassesDo:[:cls| + cls selectorsAndMethodsDo:[:sel :meth| + (meth hasLiteralSuchThat: [:lit| lit isVariableBinding and:[(aPool bindingOf: lit key) notNil]]) ifTrue: + [list add:(MethodReference new setStandardClass: cls methodSymbol: sel)]]]. - cls selectorsAndMethodsDo:[:sel :meth| | ref | - ref := meth literals detect:[:lit| - lit isVariableBinding and:[(aPool bindingOf: lit key) notNil] - ] ifNone:[nil]. - ref ifNotNil:[ - list add:(MethodReference new setStandardClass: cls methodSymbol: sel) - ]. - ]. - ]. ^list! Item was changed: ----- Method: SystemNavigation>>allSentMessagesWithout: (in category 'query') ----- allSentMessagesWithout: classesAndMessagesPair "Answer the set of selectors which are sent somewhere in the system, computed in the absence of the supplied classes and messages." | sent absentClasses absentSelectors | sent := IdentitySet new: CompiledMethod instanceCount. absentClasses := classesAndMessagesPair first. absentSelectors := classesAndMessagesPair second. self flag: #shouldBeRewrittenUsingSmalltalkAllClassesDo:. "sd 29/04/03" Cursor execute showWhile: [ Smalltalk classNames , Smalltalk traitNames do: [:name | ((absentClasses includes: name) ifTrue: [{}] ifFalse: [{Smalltalk at: name. (Smalltalk at: name) classSide}]) do: [:each | (absentSelectors isEmpty ifTrue: [each selectors] ifFalse: [each selectors copyWithoutAll: absentSelectors]) do: [:sel | "Include all sels, but not if sent by self" + (each compiledMethodAt: sel) literalsDo: [:m | - (each compiledMethodAt: sel) literals - do: [:m | (m isSymbol) ifTrue: ["might be sent" m == sel ifFalse: [sent add: m]]. (m isMemberOf: Array) ifTrue: ["might be performed" m do: [:x | (x isSymbol) ifTrue: [x == sel ifFalse: [sent add: x]]]]]]]]. "The following may be sent without being in any literal frame" 1 to: Smalltalk specialSelectorSize do: [:index | sent add: (Smalltalk specialSelectorAt: index)]]. Smalltalk presumedSentMessages do: [:sel | sent add: sel]. ^ sent!

1 0

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

Jump to page: