Squeak-dev February 2011

squeak-dev@lists.squeakfoundation.org

87 participants
295 discussions

Squeak 4.2 Installer for Windows
by Ian Trudel 05 Feb '11

05 Feb '11

Dear Squeakers, Squeak Installer is now open source and available at http://code.google.com/p/squeak-installer/. I have rewritten the code for the Squeak installer and made it simpler to update. It's possibly compatible with other Squeak variants (Pharo, Cuis, etc). The source is available for your consideration and contributions. A generated installer is available in the download page. I'd be grateful that some people in the community would try it and report if any problem arise. Enjoy, Ian.

4 4

Re: [squeak-dev] Squeak 4.2 Installer for Windows
by Chris Muller 05 Feb '11

05 Feb '11

Those other installers are pretty far out from a potential-Squeak-newbie venturing to squeak.org to get started. By the time they're looking at SqueakSource, they'll be figuring out that's a place for installing packages within Squeak. "Installer" seems appropriate nomenclature in all cases.. On Sat, Feb 5, 2011 at 11:33 AM, Ken G. Brown <kbrown(a)mac.com> wrote: > I'm wondering whether there might be some way of naming it so that there would be less confusion with Installer from <http://www.squeaksource.com/Installer.html?> > <http://installer.pbworks.com/w/page/19997680/FrontPage> > <http://installer.pbworks.com/w/page/19997682/Installer> > > Ken > > At 11:24 AM -0500 2/5/11, Ian Trudel apparently wrote: >>Dear Squeakers, >> >>Squeak Installer is now open source and available at >>http://code.google.com/p/squeak-installer/. I have rewritten the code >>for the Squeak installer and made it simpler to update. It's possibly >>compatible with other Squeak variants (Pharo, Cuis, etc). The source >>is available for your consideration and contributions. A generated >>installer is available in the download page. I'd be grateful that some >>people in the community would try it and report if any problem arise. >> >>Enjoy, >>Ian. > > >

1 0

Morphic GUI Builder does not install
by Rob Vens 05 Feb '11

05 Feb '11

Using a virgin Squeak image, I am attempting to load the repository from Hasso Platner but it fails to load in 4.1 and 4.2 with a walkback: Version #stable is not defined in ConfigurationOfDesigner Anybody working with this framework who can help me out?

3 2

The Trunk: Graphics-ul.177.mcz
by commits＠source.squeak.org 05 Feb '11

05 Feb '11

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.177.mcz ==================== Summary ==================== Name: Graphics-ul.177 Author: ul Time: 5 February 2011, 4:53:19.27 am UUID: dfac9cf3-85a4-3c4b-9256-1c8214f36fe6 Ancestors: Graphics-nice.176 - fixed the calculation of base in PNGReadWriter>>copyPixelsGray: (floor vs ceil) =============== Diff against Graphics-nice.176 =============== Item was changed: ----- Method: PNGReadWriter>>copyPixelsGray: (in category 'pixel copies') ----- copyPixelsGray: y "Handle non-interlaced grayscale color mode (colorType = 0)" | base bits bytesLeft word | bitsPerChannel = 16 ifTrue: [ "Warning: This is extremely slow. Besides we are downsampling to 8 bits!!" | blitter | blitter := BitBlt current bitPokerToForm: form. 0 to: width - 1 do: [ :x | blitter pixelAt: x @ y put: 255 - (thisScanline at: x * 2 + 1) ]. ^self ]. "Just copy the bits" "This Smalltalk version might be easier to understand than the others below." + base := y * (form width * bitsPerChannel + 31 // 32) + 1. - base := y * form width * bitsPerChannel // 32 + 1. bits := form bits. 0 to: thisScanline size // 4 - 1 do: [ :i | | ii | ii := i * 4. "This somewhat weird mixture of (#* and #+) with (#bitShift: and #bitOr:) is to make use of faster arithmetic bytecodes, but not of slow largeintegers." word := (((thisScanline at: ii + 1) * 256 + (thisScanline at: ii + 2) * 256 + (thisScanline at: ii + 3)) bitShift: 8) bitOr: (thisScanline at: ii + 4). bits at: base + i put: word ]. (bytesLeft := thisScanline size bitAnd: 3) = 0 ifFalse: [ word := 0. thisScanline size - bytesLeft + 1 to: thisScanline size do: [ :ii | word := word * 256 + (thisScanline at: ii) ]. word := word bitShift: 8 * (4 - bytesLeft). bits at: base + (thisScanline size // 4) put: word ]. "This interesting technique (By Andreas Raab) is faster for very large images, but might be slower for small ones" "^self copyPixelsGrayWeirdBitBltHack: y ". "It uses the following method: PNGReadWriter >> copyPixelsGrayWeirdBitBltHack: y ""Handle non-interlaced black and white color mode (colorType = 0) By Andreas Raab"" | source dest cmap | source := Form extent: 1 @ (thisScanline size // 4) depth: 32 bits: thisScanline. dest := Form extent: 1 @ (form bits size) depth: 32 bits: form bits. cmap := Smalltalk isLittleEndian ifTrue:[ColorMap shifts: #(-24 -8 8 24) masks: #(16rFF000000 16r00FF0000 16r0000FF00 16r000000FF)]. (BitBlt toForm: dest) sourceForm: source; destX: 0 destY: (y * form width*bitsPerChannel//32) width: 1 height: (form width+31*bitsPerChannel//32); colorMap: cmap; combinationRule: 3; copyBits." "This interesting technique (By Yoshiki Ohshima) is faster for very large images, but might be slower for small ones" "form bits copyFromByteArray2: thisScanline to: y * (form width* bitsPerChannel // 32)". "It uses the following method: BitMap >> copyFromByteArray2: byteArray to: i ""This method should work with either byte orderings"" | myHack byteHack | myHack := Form new hackBits: self. byteHack := Form new hackBits: byteArray. Smalltalk isLittleEndian ifTrue: [byteHack swapEndianness]. byteHack displayOn: myHack at: 0@i"!

1 0

Bug in PNGReadWriter>>copyPixelsGray: remains in 4.2
by Javier Díaz Reinoso 05 Feb '11

05 Feb '11

The bug don't crash now, "only" show a shifted picture:

3 3

Daily Commit Log
by commits＠source.squeak.org 05 Feb '11

05 Feb '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-February/004218.h… Name: Morphic-mtf.518 Ancestors: Morphic-ul.517 added install script for Open Cobalt ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004219.h… Name: Kernel-nice.542 Ancestors: Kernel-ul.541 thu shalt not invoke super in vain ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004220.h… Name: Tests-ul.114 Ancestors: Tests-ul.113 Fixed LocaleTest >> #testIsFontAvailable. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004221.h… Name: ReleaseBuilder-cmm.60 Ancestors: ReleaseBuilder-cmm.59 fix ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004222.h… Name: ReleaseBuilder-cmm.61 Ancestors: ReleaseBuilder-cmm.60 another fix ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004223.h… Name: ReleaseBuilder-cmm.62 Ancestors: ReleaseBuilder-cmm.61 grrrrr.... ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004224.h… Name: ToolBuilder-Morphic-mtf.70 Ancestors: ToolBuilder-Morphic-ul.69 made toolbuilder respect the isDialog preference of window specs. Needed by Cobalt =============================================

1 0

Re: [squeak-dev] The Inbox: Compiler-nice.187.mcz
by Nicolas Cellier 04 Feb '11

04 Feb '11

2011/2/4 <commits(a)source.squeak.org>: > A new version of Compiler was added to project The Inbox: > http://source.squeak.org/inbox/Compiler-nice.187.mcz > > ==================== Summary ==================== > > Name: Compiler-nice.187 > Author: nice > Time: 4 February 2011, 10:17:14.337 pm > UUID: 71dd94ed-3fc7-49e0-b180-fb04be82bc29 > Ancestors: Compiler-nice.184 > > In case nil is the doItReceiver of an interactive evaluation, avoid proposing a menu that would add an inst var to UndefinedObject. > > =============== Diff against Compiler-nice.184 =============== > > Item was added: > + ----- Method: Parser>>canDeclareInstanceVariable (in category 'error correction') ----- > + canDeclareInstanceVariable > + ^encoder classEncoding ~~ UndefinedObject! > > Item was changed: > ----- Method: UndeclaredVariable>>openMenuIn: (in category 'as yet unclassified') ----- > openMenuIn: aBlock > | alternatives labels actions lines caption choice | > alternatives := parser possibleVariablesFor: name. > labels := OrderedCollection new. > actions := OrderedCollection new. > lines := OrderedCollection new. > name first isLowercase > ifTrue: > [labels add: 'declare method temp'. > actions add: [parser declareTemp: name at: #method]. > labels add: 'declare block-local temp'. > actions add: [parser declareTemp: name at: #block]. > + parser canDeclareClassVariable > + ifTrue: > + [labels add: 'declare instance'. > + actions add: [parser declareInstVar: name]]] Oops, it passed my tests, but it's wrong, my intention was canDeclareInstanceVariable. These diffs are great ! Nicolas > - labels add: 'declare instance'. > - actions add: [parser declareInstVar: name]] > ifFalse: > [labels add: 'define new class'. > actions add: [parser defineClass: name]. > labels add: 'declare global'. > actions add: [parser declareGlobal: name]. > parser canDeclareClassVariable > ifTrue: > [labels add: 'declare class variable'. > actions add: [parser declareClassVar: name]]]. > lines add: labels size. > alternatives do: > [:each | > labels add: each. > actions add: [parser substituteVariable: each atInterval: interval]]. > lines add: labels size. > labels add: 'cancel'. > caption := 'Unknown variable: ' , name , ' please correct, or cancel:'. > choice := aBlock value: labels value: lines value: caption. > self resume: (actions at: choice ifAbsent: [nil])! > > >

1 0

The Inbox: Compiler-nice.187.mcz
by commits＠source.squeak.org 04 Feb '11

04 Feb '11

A new version of Compiler was added to project The Inbox: http://source.squeak.org/inbox/Compiler-nice.187.mcz ==================== Summary ==================== Name: Compiler-nice.187 Author: nice Time: 4 February 2011, 10:17:14.337 pm UUID: 71dd94ed-3fc7-49e0-b180-fb04be82bc29 Ancestors: Compiler-nice.184 In case nil is the doItReceiver of an interactive evaluation, avoid proposing a menu that would add an inst var to UndefinedObject. =============== Diff against Compiler-nice.184 =============== Item was added: + ----- Method: Parser>>canDeclareInstanceVariable (in category 'error correction') ----- + canDeclareInstanceVariable + ^encoder classEncoding ~~ UndefinedObject! Item was changed: ----- Method: UndeclaredVariable>>openMenuIn: (in category 'as yet unclassified') ----- openMenuIn: aBlock | alternatives labels actions lines caption choice | alternatives := parser possibleVariablesFor: name. labels := OrderedCollection new. actions := OrderedCollection new. lines := OrderedCollection new. name first isLowercase ifTrue: [labels add: 'declare method temp'. actions add: [parser declareTemp: name at: #method]. labels add: 'declare block-local temp'. actions add: [parser declareTemp: name at: #block]. + parser canDeclareClassVariable + ifTrue: + [labels add: 'declare instance'. + actions add: [parser declareInstVar: name]]] - labels add: 'declare instance'. - actions add: [parser declareInstVar: name]] ifFalse: [labels add: 'define new class'. actions add: [parser defineClass: name]. labels add: 'declare global'. actions add: [parser declareGlobal: name]. parser canDeclareClassVariable ifTrue: [labels add: 'declare class variable'. actions add: [parser declareClassVar: name]]]. lines add: labels size. alternatives do: [:each | labels add: each. actions add: [parser substituteVariable: each atInterval: interval]]. lines add: labels size. labels add: 'cancel'. caption := 'Unknown variable: ' , name , ' please correct, or cancel:'. choice := aBlock value: labels value: lines value: caption. self resume: (actions at: choice ifAbsent: [nil])!

1 0

Error: Instances of StrikeFont are not indexable
by Bernhard Pieber 04 Feb '11

04 Feb '11

Dear Squeakers, I did the following: 1. I opened the latest trunk image Squeak4.2-10779-alpha.image with the Mac OS X VM Squeak 5.8b12. 2. Update Squeak. 3. Run all tests. After all the tests I get a debugger with "Error: Instances of StrikeFont are not indexable" --- The full stack --- StrikeFont(Object)>>error: StrikeFont(Object)>>errorNotIndexable StrikeFont(Object)>>size StrikeFont(Object)>>basicAt:put: StrikeFont(Object)>>instVarAt:put: StrikeFont(Object)>>readDataFrom:size: ReferenceStream(DataStream)>>readInstance ReferenceStream(DataStream)>>next ReferenceStream>>next ReferenceStream(DataStream)>>readArray ReferenceStream(DataStream)>>next ReferenceStream>>next [] in StrikeFontSet class>>installExternalFontOn:encoding:encodingName:textStyleName: [] in [] in MultiByteBinaryOrTextStream(PositionableStream)>>untilEndWithFork:displayingProgress: BlockClosure>>ensure: [] in MultiByteBinaryOrTextStream(PositionableStream)>>untilEndWithFork:displayingProgress: [] in BlockClosure>>newProcess Is there a way find out where this process is created? Tracing senders of StrikeFontSet class>>installExternalFontOn:encoding:encodingName:textStyleName: leads ultimately to no senders. In a Process Browser I do not see anything unusual. Cheers, Bernhard

8 20

The Trunk: ToolBuilder-Morphic-mtf.70.mcz
by commits＠source.squeak.org 04 Feb '11

04 Feb '11

Matthew Fulmer uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mtf.70.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mtf.70 Author: mtf Time: 4 February 2011, 2:41:28.599 pm UUID: 3c7f73d0-3004-43a7-bf47-58d2e998fef3 Ancestors: ToolBuilder-Morphic-ul.69 made toolbuilder respect the isDialog preference of window specs. Needed by Cobalt =============== Diff against ToolBuilder-Morphic-ul.69 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableWindow: (in category 'pluggable widgets') ----- buildPluggableWindow: aSpec | widget children | aSpec layout == #proportional ifFalse:[ "This needs to be implemented - probably by adding a single pane and then the rest" ^self error: 'Not implemented'. ]. + widget := (self windowClassFor: aSpec) new. - widget := (self windowClassFor: aSpec multiWindowStyle) new. self register: widget id: aSpec name. widget model: aSpec model. aSpec label ifNotNil: [:label| label isSymbol ifTrue:[widget getLabelSelector: label] ifFalse:[widget setLabel: label]]. aSpec multiWindowStyle notNil ifTrue: [widget savedMultiWindowState: (SavedMultiWindowState on: aSpec model)]. children := aSpec children. children isSymbol ifTrue:[ widget getChildrenSelector: children. widget update: children. children := #(). ]. widget closeWindowSelector: aSpec closeAction. panes := OrderedCollection new. self buildAll: children in: widget. self buildHelpFor: widget spec: aSpec. widget bounds: (RealEstateAgent initialFrameFor: widget initialExtent: (aSpec extent ifNil:[widget initialExtent]) world: self currentWorld). widget setUpdatablePanesFrom: panes. ^widget! Item was changed: ----- Method: MorphicToolBuilder>>windowClassFor: (in category 'widget classes') ----- + windowClassFor: aSpec + aSpec isDialog ifTrue: [^ PluggableDialogWindow]. + ^aSpec multiWindowStyle - windowClassFor: multiWindowStyle - ^multiWindowStyle caseOf: { [nil] -> [PluggableSystemWindow]. [#labelButton] -> [PluggableSystemWindowWithLabelButton] } otherwise: [PluggableSystemWindowWithLabelButton]!

1 0

← Newer
1
...
22
23
24
25
26
27
28
29
30
Older →

Jump to page: