Squeak-dev September 2009

squeak-dev@lists.squeakfoundation.org

119 participants
370 discussions

Alien in trunk, for real
by Michael Haupt 04 Sep '09

04 Sep '09

Hi, did it. :-) Here's the recipe that works for me to get Alien up and running (Mac, 4.2.1 VM, recent trunk image): 1. install my Compiler patch from Inbox 2. install Alien-Core-First (most recent from SqueakSource - this holds for all Alien packages below) 3. install Alien-Core 4. install Alien-Examples 5. install Alien-LibC 6. install Alien-CoreTest 7. install Alien-Last-Class-Initialize 8. do Smalltalk allClasses select: [ :class | class category beginsWith: 'Alien-' ] thenDo: [ :class | class methodDictionary do: [ :method | class recompile: method selector ]. class class methodDictionary do: [ :method | class class recompile: method selector ] ] Next, fire up TestRunner, select the Alien tests, run them, watch the bar go green. :-) I'd like someone to help me in packaging this as a complete update that can be installed from the trunk repositories, including the last recompilation step. Best, Michael

5 14

Title bar bug on trunk
by Ian Trudel 03 Sep '09

03 Sep '09

Hello all, I have attached a screenshot on Squeak 3.11.3 (beta) VM with 3.10.2 trunk image and latest updates as of today. The font in the title bar is too big causing the window to overflow and having the resize border controls inside the title bar (see red arrows pointing the problem). While it should probably be fixed, I would also like to suggest font size in the title bar being one pt size less than what's actually available. A supplementary note in the "About this image" window in regard to MIT license would be a good idea. Better to repeat this as often as necessary, as long as we have not agreed on something specific to make sure contributions are under this license. Regards, Ian. -- http://mecenia.blogspot.com/

14 39

Marking some mantis issues as resolved
by Nicolas Cellier 03 Sep '09

03 Sep '09

Hi, A batch of mantis issues changed 08-24-09 and 08-25-09 have a fix uploaded in trunk as announced in last comment and thus should be marked as resolved.

1 0

Alien in trunk, for real
by Torsten Bergmann 03 Sep '09

03 Sep '09

Is Alien already usable on Win32? If so is there a place where one can get the plugins dll? Thx T. -- GRATIS für alle GMX-Mitglieder: Die maxdome Movie-FLAT! Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

1 0

Re: [squeak-dev] The Inbox: AlienInstaller-mha.1.mcz
by Casimiro de Almeida Barreto 03 Sep '09

03 Sep '09

Basic doubt: If I have FFI and applications that use FFI, would Alien interfere with FFI/applications? Best regards Casimiro Em 03-09-2009 16:22, commits(a)source.squeak.org escreveu: > A new version of AlienInstaller was added to project The Inbox: > http://source.squeak.org/inbox/AlienInstaller-mha.1.mcz > > ==================== Summary ==================== > > Name: AlienInstaller-mha.1 > Author: mha > Time: 3 September 2009, 6:22:29 am > UUID: 7bf1bf82-a874-46e5-98a3-5684e0120ab2 > Ancestors: > > use "AlienInstaller install" to install Alien in the trunk image > > ==================== Snapshot ==================== > > SystemOrganization addCategory: #AlienInstaller! > > Object subclass: #AlienInstaller > instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: 'AlienInstaller'! > > ----- Method: AlienInstaller class>>install (in category 'installation') ----- > install > | repository | > repository := (Installer repository: 'http://www.squeaksource.com/') project: 'Alien'. > #( 'Alien-Core-First' 'Alien-Core' 'Alien-Examples' 'Alien-LibC' 'Alien-CoreTest' 'Alien-Last-Class-Initialize' ) > do: [ :p | repository install: p ] > displayingProgress: 'Installing Alien packages ...'. > (PackageInfo named: 'Alien') methods > do: [:ea | ea actualClass recompile: ea methodSymbol] > displayingProgress: 'Recompiling...'! > > > >

2 1

The Inbox: AlienInstaller-mha.1.mcz
by commits＠source.squeak.org 03 Sep '09

03 Sep '09

A new version of AlienInstaller was added to project The Inbox: http://source.squeak.org/inbox/AlienInstaller-mha.1.mcz ==================== Summary ==================== Name: AlienInstaller-mha.1 Author: mha Time: 3 September 2009, 6:22:29 am UUID: 7bf1bf82-a874-46e5-98a3-5684e0120ab2 Ancestors: use "AlienInstaller install" to install Alien in the trunk image ==================== Snapshot ==================== SystemOrganization addCategory: #AlienInstaller! Object subclass: #AlienInstaller instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'AlienInstaller'! ----- Method: AlienInstaller class>>install (in category 'installation') ----- install | repository | repository := (Installer repository: 'http://www.squeaksource.com/') project: 'Alien'. #( 'Alien-Core-First' 'Alien-Core' 'Alien-Examples' 'Alien-LibC' 'Alien-CoreTest' 'Alien-Last-Class-Initialize' ) do: [ :p | repository install: p ] displayingProgress: 'Installing Alien packages ...'. (PackageInfo named: 'Alien') methods do: [:ea | ea actualClass recompile: ea methodSymbol] displayingProgress: 'Recompiling...'!

1 0

The Trunk: Graphics-ar.73.mcz
by commits＠source.squeak.org 03 Sep '09

03 Sep '09

Andreas Raab uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ar.73.mcz ==================== Summary ==================== Name: Graphics-ar.73 Author: ar Time: 3 September 2009, 8:18:38 am UUID: e416bc79-fd00-7a41-be00-c62fc858d0bf Ancestors: Graphics-ar.72 Fixes a typo in m17n string display which would measure the width of the entire string instead of just the character. =============== Diff against Graphics-ar.72 =============== Item was changed: ----- Method: StrikeFont>>displayMultiString:on:from:to:at:kern:baselineY: (in category 'displaying') ----- displayMultiString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY | leftX rightX glyphInfo char destY form gfont destX destPt | destX := aPoint x. charIndex := startIndex. glyphInfo := Array new: 5. startIndex to: stopIndex do:[:charIndex| char := aString at: charIndex. (self hasGlyphOf: char) ifTrue: [ self glyphInfoOf: char into: glyphInfo. form := glyphInfo at: 1. leftX := glyphInfo at: 2. rightX := glyphInfo at: 3. destY := glyphInfo at: 4. gfont := glyphInfo at: 5. (gfont == aBitBlt lastFont) ifFalse: [gfont installOn: aBitBlt]. destY := baselineY - destY. aBitBlt displayGlyph: form at: destX @ destY left: leftX right: rightX font: self. destX := destX + (rightX - leftX + kernDelta). ] ifFalse:[ destPt := self fallbackFont displayString: aString on: aBitBlt from: charIndex to: charIndex at: destX @ aPoint y kern: kernDelta from: self baselineY: baselineY. destPt x = destX ifTrue:[ "In some situations BitBlt doesn't return the advance width from the primitive. Work around the situation" + destX := destX + (self widthOfString: aString from: charIndex to: charIndex) + kernDelta. - destX := destX + (self widthOfString: aString from: startIndex to: stopIndex) + kernDelta. ] ifFalse:[destX := destPt x]. ]. ]. ^destX @ aPoint y !

1 0

The Trunk: Compiler-mha.77.mcz
by commits＠source.squeak.org 03 Sep '09

03 Sep '09

Michael Haupt uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mha.77.mcz ==================== Summary ==================== Name: Compiler-mha.77 Author: mha Time: 3 September 2009, 2:49:48 am UUID: 111b37ed-654c-45a3-a38a-46022d8618e0 Ancestors: Compiler-mha.76 removed obsolete method Parser >> #pragmaLiteral (replaced by #pragmaLiteral: in Compiler-mha.76) =============== Diff against Compiler-mha.76 =============== Item was removed: - ----- Method: Parser>>pragmaLiteral (in category 'pragmas') ----- - pragmaLiteral - "Read a pragma literal." - - (hereType == #string or: [ hereType == #literal or: [ hereType == #number ] ]) - ifTrue: [ ^ self advance ]. - (here == $# and: [ tokenType == #word ]) - ifTrue: [ ^ self advance ]. - (here == #- and: [ tokenType == #number ]) - ifTrue: [ ^ (self advance; advance) negated ]. - (here = 'true' or: [ here = 'false' or: [ here = 'nil' ] ]) - ifTrue: [ ^ Compiler evaluate: self advance ]. - ^ self expected: 'Literal constant'!

1 0

The Trunk: Compiler-mha.76.mcz
by commits＠source.squeak.org 03 Sep '09

03 Sep '09

Michael Haupt uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mha.76.mcz ==================== Summary ==================== Name: Compiler-mha.76 Author: mha Time: 1 September 2009, 4:35:49 am UUID: 1218194f-4a88-44df-9d79-e80638a53aa7 Ancestors: Compiler-tfel.75 inserted an extension originally contributed by Eliot Miranda (to make Alien support possible in the trunk) =============== Diff against Compiler-tfel.75 =============== Item was changed: ----- Method: Parser>>pragmaStatement (in category 'pragmas') ----- pragmaStatement "Read a single pragma statement. Parse all generic pragmas in the form of: <key1: val1 key2: val2 ...> and remember them, including primitives." | selector arguments words index keyword | (hereType = #keyword or: [ hereType = #word or: [ hereType = #binary ] ]) ifFalse: [ ^ self expected: 'pragma declaration' ]. " This is a ugly hack into the compiler of the FFI package. FFI should be changed to use propre pragmas that can be parsed with the code here. " (here = #apicall: or: [ here = #cdecl: ]) ifTrue: [ ^ self externalFunctionDeclaration ]. selector := String new. arguments := OrderedCollection new. words := OrderedCollection new. [ hereType = #keyword or: [ (hereType = #word or: [ hereType = #binary ]) and: [ selector isEmpty ] ] ] whileTrue: [ index := self startOfNextToken + requestorOffset. selector := selector , self advance. words add: (index to: self endOfLastToken + requestorOffset). (selector last = $: or: [ selector first isLetter not ]) + ifTrue: [ arguments add: (self pragmaLiteral: selector) ] ]. - ifTrue: [ arguments add: self pragmaLiteral ] ]. selector numArgs ~= arguments size ifTrue: [ ^ self expected: 'pragma argument' ]. (Symbol hasInterned: selector ifTrue: [ :value | keyword := value]) ifFalse: [ keyword := self correctSelector: selector wordIntervals: words exprInterval: (words first first to: words last last) ifAbort: [ ^ self fail ] ]. self addPragma: (Pragma keyword: keyword arguments: arguments asArray). ^ true! Item was added: + ----- Method: Parser>>pragmaLiteral: (in category 'pragmas') ----- + pragmaLiteral: selectorSoFar + "Read a pragma literal." + + (hereType == #string or: [ hereType == #literal or: [ hereType == #number ] ]) + ifTrue: [ ^ self advance ]. + (here == $# and: [ tokenType == #word ]) + ifTrue: [ ^ self advance ]. + (here == #- and: [ tokenType == #number ]) + ifTrue: [ ^ (self advance; advance) negated ]. + (here = 'true' or: [ here = 'false' or: [ here = 'nil' ] ]) + ifTrue: [ ^ Compiler evaluate: self advance ]. + "This nicety allows one to supply a primitive error temp as a + variable name, rather than a string." + ((selectorSoFar beginsWith: 'primitive:') + and: [ (selectorSoFar endsWith: 'error:') + and: [ hereType == #word ] ]) ifTrue: [ ^ self advance ]. + ^ self expected: 'Literal constant'!

1 0

The Trunk: Morphic-bf.166.mcz
by commits＠source.squeak.org 03 Sep '09

03 Sep '09

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.166.mcz ==================== Summary ==================== Name: Morphic-bf.166 Author: bf Time: 3 September 2009, 12:33 pm UUID: 69b11373-12d3-4d77-8056-7a465e0b681e Ancestors: Morphic-ar.165 Fix typo from UIManager refactoring =============== Diff against Morphic-ar.165 =============== Item was changed: ----- Method: FileList>>selectEncoding (in category 'private') ----- selectEncoding | encodingItems | encodingItems := OrderedCollection new. TextConverter allSubclasses do: [:each | | names | names := each encodingNames. names notEmpty ifTrue: [ | label | label := '' writeStream. names do: [:eachName | label nextPutAll: eachName ] separatedBy: [ label nextPutAll: ', ']. encodingItems add: {label contents. names first asSymbol}. ]. ]. brevityState := UIManager default + chooseFrom: (encodingItems collect: [:spec| spec first]) + values: (encodingItems collect: [:spec| spec last]). - chooseFrom: (encodingItems select:[:spec| spec first]) - values: (encodingItems select:[:spec| spec last]). brevityState ifNil: [brevityState := #needToGetBrief]. !

1 0

← Newer
1
...
30
31
32
33
34
35
36
37
Older →

Jump to page: