Squeak-dev November 2005

squeak-dev@lists.squeakfoundation.org

163 participants
269 discussions

What's with all these stale sokoban implementations?
by Alan Grimes 02 Nov '05

02 Nov '05

Dude, the fast way to update a sokoban morph is attached... -- Friends don't let friends use GCC 3.4.4 GCC 3.3.6 produces code that's twice as fast on x86! http://users.rcn.com/alangrimes/ 'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 2 November 2005 at 12:54:39 am'! Morph subclass: #SokobanMorph instanceVariableNames: 'sworld scoremorph player boxes' classVariableNames: 'Fields' poolDictionaries: '' category: 'Games-Sokoban'! !SokobanMorph commentStamp: '<historical>' prior: 0! This is a modified version of the Sokoban game. Modified by Stephan B Wessels! !SokobanMorph methodsFor: 'event handling' stamp: 'rhi 7/14/2003 20:05'! handlesKeyboard: aMorphicEvent ^ true! ! !SokobanMorph methodsFor: 'event handling' stamp: 'rhi 7/14/2003 18:08'! handlesMouseOver: aMorphicEvent ^ true! ! !SokobanMorph methodsFor: 'event handling' stamp: 'sbw 3/27/2004 21:16'! keyStroke: aKeyboardEvent | char accel | accel := aKeyboardEvent controlKeyPressed. char := aKeyboardEvent keyCharacter. char = Character arrowLeft ifTrue: [^ accel ifTrue: [self moveLeftFull] ifFalse: [self moveLeft]]. char = Character arrowRight ifTrue: [^ accel ifTrue: [self moveRightFull] ifFalse: [self moveRight]]. char = Character arrowUp ifTrue: [^ accel ifTrue: [self moveUpFull] ifFalse: [self moveUp]]. char = Character arrowDown ifTrue: [^ accel ifTrue: [self moveDownFull] ifFalse: [self moveDown]]. char asLowercase = $a ifTrue: [^ self again]. char asLowercase = $h ifTrue: [^ self help]. char asLowercase = $n ifTrue: [^ self next]. char asLowercase = $p ifTrue: [^ self previous]. char asLowercase = $q ifTrue: [^ self quit]. char asLowercase = $r ifTrue: [^ self random]. char asLowercase = $z ifTrue: [^ self undo]. char asLowercase = $g ifTrue: [^ self selectGame]. ^ super keyStroke: aKeyboardEvent! ! !SokobanMorph methodsFor: 'event handling' stamp: 'rhi 7/14/2003 18:08'! mouseEnter: aMorphicEvent aMorphicEvent hand newKeyboardFocus: self.! ! !SokobanMorph methodsFor: 'initialization' stamp: 'rhi 7/16/2003 12:33'! initialize self initializeForIndex: 1.! ! !SokobanMorph methodsFor: 'initialization' stamp: 'rhi 7/16/2003 10:07'! initializeForIndex: anInteger self initializeForWorld: (SokobanWorld fromIndex: anInteger).! ! !SokobanMorph methodsFor: 'initialization' stamp: 'none 9/4/2005 11:58'! initializeForWorld: aSokobanWorld super initialize. sworld _ aSokobanWorld. self extent: self fieldSize x * aSokobanWorld extent x @ (self fieldSize y * aSokobanWorld extent y + self controlsHeight); center: World center; initializeMoveStack; forceDestroyAndRedraw! ! !SokobanMorph methodsFor: 'initialization' stamp: 'none 9/4/2005 12:03'! initializeMoveStack sworld initializeMoveStack! ! !SokobanMorph methodsFor: 'initialization' stamp: 'rhi 7/16/2003 12:33'! initializeRandom self initializeForWorld: SokobanWorld random.! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/4/2005 11:55'! again | position | (self confirm: 'Really start over?') ifTrue: [ position := self position. self delete; initializeForIndex: sworld index; position: position; openInWorld]! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'sbw 3/27/2004 21:19'! help ((StringHolder new contents: 'The game was apparently invented in the early 1980s by Thinking Rabbit, a computer games company in the town of Takarazuka, Japan. The game design is said to have won first prize in a computer games contest. Because of the simplicity and elegance of the rules, and the intellectually challenging complexity of the composed problems, Sokoban quickly became a popular pastime. The object of Sokoban is to push all stones (or boxes) in a maze, such as the one to the right, to the designated goal areas. The player controls the man and the man can only push stones and only one at a time. The restriction of only being able to push the stones makes this game challenging: One can create unsolvable positions. Players will soon learn that this is the main obstacle in solving problems. Advanced players also try to find shorter and shorter solutions, measured in stone pushes and man moves. (http://www.cs.ualberta.ca/~games/Sokoban/) Key mappings: --- Cursor left -> move left (control key down moves as far left as possible) Cursor right -> move right (control key down moves as far right as possible) Cursor up -> move up (control key down moves as far up as possible) Cursor down -> move down (control key down moves as far down as possible) -- a -> again (same maze) h -> help n -> next (another maze, next in line) p -> previous (another maze, previous in line) r -> random (another maze, random selection) g - select a game number z -> undo last move -- q -> quit') embeddedInMorphicWindowLabeled: 'About Sokoban') setWindowColor: Color veryLightGray; openInWorld! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:19'! moveDown sworld moveDown. self redraw.! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:19'! moveDownFull sworld moveDownFull. self redraw! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:19'! moveLeft sworld moveLeft. self redraw.! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:19'! moveLeftFull sworld moveLeftFull. self redraw! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:19'! moveRight sworld moveRight. self redraw.! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:20'! moveRightFull sworld moveRightFull. self redraw! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:20'! moveUp sworld moveUp. self redraw.! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:20'! moveUpFull sworld moveUpFull. self redraw! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/4/2005 12:05'! next | position | position _ self position. self delete; initializeForIndex: ((sworld index + 1) min: sworld class mazes size); position: position; openInWorld.! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/4/2005 11:57'! previous | position | position _ self position. self delete; initializeForIndex: (( sworld index - 1) max: 1); position: position; openInWorld.! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'sbw 3/27/2004 20:24'! quit (self confirm: 'Really quit?') ifTrue: [self delete]! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'rhi 7/16/2003 12:34'! random | position | position _ self position. self delete; initializeRandom; position: position; openInWorld.! ! !SokobanMorph methodsFor: 'moving etc' stamp: 'none 9/16/2005 18:20'! undo sworld undo. self redraw! ! !SokobanMorph methodsFor: 'private' stamp: 'none 9/4/2005 18:52'! addControls: controls self addMorph: (controls position: self topLeft x @ (self bottomLeft y - self controlsHeight))! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/15/2003 20:08'! buildButtonForm: aForm action: aSymbol target: anObject | button | (button _ IconicButton new) labelGraphic: aForm; actionSelector: aSymbol; target: anObject; actWhen: #buttonDown; color: Color black; borderWidth: 0; height: self controlsHeight; layoutInset: 3; hResizing: #rigid; vResizing: #rigid; cornerStyle: #square; changeTableLayout. ^ button! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/16/2003 13:06'! buildButtonLabel: aString action: aSymbol target: anObject | button | (button _ SimpleButtonMorph new) label: aString asText allBold; actionSelector: aSymbol; target: anObject; actWhen: #buttonDown; color: Color black; borderWidth: 0; height: self controlsHeight; layoutInset: 3; hResizing: #rigid; vResizing: #rigid; cornerStyle: #square; changeTableLayout. (button findA: StringMorph) color: Color black. ^ button! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/16/2003 13:11'! buildButtonLabel: aString action: aSymbol target: anObject balloonText: anotherString ^ (self buildButtonLabel: aString action: aSymbol target: anObject) setBalloonText: anotherString! ! !SokobanMorph methodsFor: 'private' stamp: 'none 9/4/2005 11:55'! buildScores ^ TextMorph new contents: ' Maze ', sworld index printString, ' ¥ ', sworld moves printString, ' Moves', ' ¥ ', sworld pushes printString, ' Pushes'; color: Color white; backgroundColor: Color transparent; lock! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/15/2003 19:05'! controlsHeight ^ self class controlsHeight! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/15/2003 20:18'! cross ^ Form extent: 9@9 depth: 16 fromArray: #( 65537 0 0 1 65536 65537 65536 0 65537 65536 1 65537 1 65537 0 0 65537 65537 65536 0 0 1 65537 0 0 0 65537 65537 65536 0 1 65537 1 65537 0 65537 65536 0 65537 65536 65537 0 0 1 65536) offset: 0@0! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/15/2003 20:08'! downArrow ^ Form extent: 9@9 depth: 16 fromArray: #( 14253 862794605 862794605 862729101 934150144 14221 724182793 654911241 654913323 931987456 0 793519881 722086698 652880586 862781440 0 931998474 654977834 648621835 0 0 12107 654911209 717895565 0 0 13164 654976681 789250048 0 0 14254 722085546 929890304 0 0 0 860630796 934150144 0 0 0 934098861 0 0) offset: 0@0! ! !SokobanMorph methodsFor: 'private' stamp: 'none 9/4/2005 11:54'! fieldFor: aCharacter ^ (self class fields at: aCharacter) value! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/14/2003 20:37'! fieldSize ^ self class fieldSize! ! !SokobanMorph methodsFor: 'private' stamp: 'none 9/6/2005 12:24'! forceDestroyAndRedraw | x y topLeft | self flag: #rhi. "Apologies not only to Morphic fans..." self removeAllMorphs. self color: (sworld done ifTrue: [Color veryVeryLightGray] ifFalse: [Color lightGray]). topLeft := bounds topLeft. y := 0. boxes := Array new. sworld maze do: [:row | x := 0. row do: [:col | (sworld class allButFree includes: col) ifTrue: [| foo | (col ~= sworld class goal and: [(sworld wallsAt: x + 1 @ (y + 1)) = sworld class goal]) ifTrue: [self addMorph: ((self fieldFor: sworld class goal) position: topLeft + (x * self fieldSize x @ (y * self fieldSize y)))]. foo := (self fieldFor: col) position: topLeft + (x * self fieldSize x @ (y * self fieldSize y)). self addMorph: foo. (foo isKindOf: EllipseMorph) ifTrue: [boxes := boxes copyWith: foo] ifFalse: [(foo isKindOf: StarMorph) ifTrue: [player := foo]]]. x := x + 1]. y := y + 1]. "We need to ensure that our boxes and player are the frontmost things in the display, otherwise they tend to become obstructed by goal tiles. Because the comeToFront operation is fairly expensive, we do it here instead of in our incremental update method (draw)" boxes do: [:b | b comeToFront]. player comeToFront. self addControls: (self initControlsWidth: self width)! ! !SokobanMorph methodsFor: 'private' stamp: 'none 9/4/2005 18:53'! initControlsWidth: anInteger scoremorph := self buildScores. ^ Morph new color: Color darkGray; borderWidth: 0; height: self controlsHeight; width: anInteger; hResizing: #spaceFill; vResizing: #rigid; listDirection: #leftToRight; cellInset: 1; changeTableLayout; addMorph: scoremorph; addMorph: (self buildButtonForm: self downArrow action: #moveDown target: self); addMorph: (self buildButtonForm: self upArrow action: #moveUp target: self); addMorph: (self buildButtonForm: self rightArrow action: #moveRight target: self); addMorph: (self buildButtonForm: self leftArrow action: #moveLeft target: self); addMorph: ((self buildButtonLabel: 'z' action: #undo target: self balloonText: 'undo') color: Color lightGreen); addMorph: ((self buildButtonLabel: '?' action: #help target: self balloonText: 'Help') color: Color lightBlue); addMorph: ((self buildButtonLabel: 'X' action: #quit target: self balloonText: 'Quit') color: Color lightRed)! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/15/2003 20:08'! leftArrow ^ Form extent: 9@11 depth: 16 fromArray: #( 0 0 0 0 934084608 0 0 0 934162252 864813056 0 0 14221 724249354 862715904 0 0 793520938 722021130 864813056 0 864824106 654977802 722086666 864813056 13164 722085641 722086666 722086666 864878592 12043 646523626 722086698 722086666 864878592 14254 858532522 648685290 722086666 864878592 0 14221 789260970 650717962 864878592 0 0 13132 717892331 934084608 0 0 0 932000621 0) offset: 8@0! ! !SokobanMorph methodsFor: 'private' stamp: 'none 9/16/2005 18:19'! redraw "Once a game has started, no boxes are added or removed from the game. Therefore, the fastest way to update the screen is to assign the pieces new locations. We do this through our special array of boxes. The player is treated seperately. We also check for the winning state, and change the board's color as appropriate. Finally, the score string is updated and the screen is refreshed." | x y topLeft idx | idx := 1. sworld done ifTrue: [self color: Color veryVeryLightGray]. topLeft := bounds topLeft. y := 0. sworld maze do: [:row | x := 0. row do: [:col | col = sworld class box ifTrue: [(boxes at: idx) position: topLeft + (x * self fieldSize x @ (y * self fieldSize y)); color: Color red. idx := idx + 1] ifFalse: [col = sworld class boxAtGoal ifTrue: [(boxes at: idx) position: topLeft + (x * self fieldSize x @ (y * self fieldSize y)); color: Color green. idx := idx + 1] ifFalse: [col = sworld class player ifTrue: [player position: topLeft + (x * self fieldSize x @ (y * self fieldSize y))]]]. x := x + 1]. y := y + 1]. self updateScores; changed! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/15/2003 20:07'! rightArrow ^ Form extent: 9@11 depth: 16 fromArray: #( 934084608 0 0 0 0 864825164 934150144 0 0 0 862726922 724252557 0 0 0 864824074 722021162 793509888 0 0 864824074 722086666 654977834 864813056 0 864889610 722086666 722085641 722088812 0 864889610 722086698 722086634 646524683 0 864889610 722085610 648686250 858535854 0 864889610 650717866 789264269 0 0 934095595 717894476 0 0 0 13165 931987456 0 0 0) offset: 0@0! ! !SokobanMorph methodsFor: 'private' stamp: 'none 9/4/2005 11:57'! selectGame | upperLimit defaultNextIndex response selected position | upperLimit := sworld class mazes size. defaultNextIndex := sworld index + 1 min: upperLimit. response := FillInTheBlank request: 'Choose game # (1 to ', upperLimit printString, ')' initialAnswer: defaultNextIndex printString. response isEmptyOrNil ifTrue: [^self]. selected := response asNumber. (selected < 1 or: [selected > upperLimit]) ifTrue: [^self]. position := self position. self delete; initializeForIndex: selected; position: position; openInWorld ! ! !SokobanMorph methodsFor: 'private' stamp: 'rhi 7/15/2003 20:07'! upArrow ^ Form extent: 9@8 depth: 16 fromArray: #( 0 0 932001709 0 0 0 14254 793457484 0 0 0 13197 654912266 931987456 0 0 12107 654912266 862715904 0 0 931998474 722020105 724252557 0 0 793455401 724183850 724187021 0 14221 724182761 652879594 652816171 931987456 0 791422634 717892298 648686282 862781440) offset: 0@0! ! !SokobanMorph methodsFor: 'private' stamp: 'none 9/4/2005 16:41'! updateScores scoremorph contents: ' Maze ', sworld index printString, ' ¥ ', sworld moves printString, ' Moves', ' ¥ ', sworld pushes printString, ' Pushes'. ! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! SokobanMorph class instanceVariableNames: ''! !SokobanMorph class methodsFor: 'accessing' stamp: 'rhi 7/15/2003 17:18'! fields ^ Fields! ! !SokobanMorph class methodsFor: 'accessing' stamp: 'rhi 7/15/2003 17:18'! fields: anIdentityDictionary Fields _ anIdentityDictionary.! ! !SokobanMorph class methodsFor: 'class initialization' stamp: 'none 12/20/2004 22:02'! initFields self fields: (IdentityDictionary new at: SokobanWorld free put: [self freeField]; at: SokobanWorld wall put: [self wallField]; at: SokobanWorld box put: [self boxField]; at: SokobanWorld boxAtGoal put: [self boxAtGoalField]; at: SokobanWorld goal put: [self goalField]; at: SokobanWorld player put: [self playerField]; yourself).! ! !SokobanMorph class methodsFor: 'class initialization' stamp: 'rhi 7/16/2003 08:45'! initialize "doIt: [self initialize]" super initialize. self initFields.! ! !SokobanMorph class methodsFor: 'instance creation' stamp: 'rhi 7/16/2003 10:06'! forWorld: aSokobanWorld "doIt: [(self forWorld: (SokobanWorld fromFile: '.\Screens\screen.1')) openInWorld]" "doIt: [(self forWorld: (SokobanWorld fromIndex: 1)) openInWorld]" ^ self basicNew initializeForWorld: aSokobanWorld! ! !SokobanMorph class methodsFor: 'instance creation' stamp: 'rhi 7/16/2003 10:05'! random "doIt: [self random openInWorld]" ^ self new! ! !SokobanMorph class methodsFor: 'parts bin' stamp: 'rhi 7/16/2003 09:20'! descriptionForPartsBin ^ self partName: 'Sokoban' categories: #('Games') documentation: 'A tricky logic puzzle, created by Hiroyuki Imabayashi in 1982.'! ! !SokobanMorph class methodsFor: 'private' stamp: 'none 12/20/2004 22:04'! boxAtGoalField ^ EllipseMorph new extent: self fieldSize; color: Color green; borderWidth: 1; borderColor: Color gray.! ! !SokobanMorph class methodsFor: 'private' stamp: 'none 12/20/2004 22:03'! boxField ^ EllipseMorph new extent: self fieldSize; color: Color red; borderWidth: 1; borderColor: Color gray.! ! !SokobanMorph class methodsFor: 'private' stamp: 'sbw 4/14/2004 21:43'! controlsHeight ^ self fieldSize x min: 18! ! !SokobanMorph class methodsFor: 'private' stamp: 'sbw 4/14/2004 21:43'! fieldSize ^ 28@28! ! !SokobanMorph class methodsFor: 'private' stamp: 'rhi 7/15/2003 17:17'! freeField ^ Morph new extent: self fieldSize; color: Color white! ! !SokobanMorph class methodsFor: 'private' stamp: 'sbw 3/27/2004 19:21'! goalField | m | ^ (m := BorderedMorph new) extent: self fieldSize; color: Color paleYellow darker; borderWidth: 1; borderColor: m color darker! ! !SokobanMorph class methodsFor: 'private' stamp: 'sbw 4/14/2004 21:38'! playerField | m fill | m := StarMorph new extent: self fieldSize; color: Color lightBlue darker darker; borderWidth: 0; borderColor: Color darkGray. fill := GradientFillStyle ramp: {0.0->(Color r: 0.972 g: 0.878 b: 0.349). 1.0->(Color r: 0.972 g: 0.408 b: 0.317)}. fill origin: m topLeft. fill direction: 0 @ 21. fill radial: false. m fillStyle: fill. ^ m! ! !SokobanMorph class methodsFor: 'private' stamp: 'sbw 3/27/2004 19:22'! wallField | m | ^ (m := BorderedMorph new) extent: self fieldSize; color: Color paleGreen darker; borderWidth: 1; borderColor: m color darker; borderRaised! ! SokobanMorph initialize!

1 0

Mail of SeungBum Kim
by Alexandre Bergel 02 Nov '05

02 Nov '05

Hi! I am looking for the email of SeungBum. picxenk(a)xenbio.net does not work... cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.iam.unibe.ch/~bergel ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

2 2

Looking for Host that would support seaside
by Ron Teitelbaum 01 Nov '05

01 Nov '05

All, I'm looking to change my web host. Does anyone have suggestions on a good host that will also allow a seaside installation? Thanks, Ron Teitelbaum

4 3

Seeking Squeak Mentor
by j 01 Nov '05

01 Nov '05

I'm ready to get serious about programming with Squeak but I need a mentor. Recently, I have begun my assent into the world of Squeak with Stephane's great book "Squeak Learn Programming with Robots" and now feel it's time to take the next step. This book did a great job of introducing me to the Smalltalk language and message passing with objects but I now find myself wondering how to build a real application using OOD techniques and the base objects in Squeak. I have an electronics background and familiarity with UML. As well, I have acquired some basic programming knowledge over the years through a variety of intro courses. (Basic, C, Pascal , ASM [Z80] ). I know that the majority of those active on this list are quite busy with work/family/Squeak (I fall into those categories too!) and may wonder why they would want to add mentoring to their To Do list. Here is what I can offer the Squeak community in return for having a mentor: - Complete documentation of the construction of a project from start to finish from the perspective of a Squeak newbie - The completed project will be added to Squeak Source / Squeak Map for others to use - I will become a Squeak Community Mentor once my first project is complete - I will continue to write and document new projects for the Squeak Community Why would I ask for a mentor if I'm already on the dev-list? A mailing list works great when there is only a small amount of information to pass on at a time (say... less than one page). If I were to use the dev-list to learn everything I need to learn to make my project, I would literally flood the list and annoy everyone. What I am hoping for is a combination of dev-list emails, one-to-one iChat (I use OS X) discussions and guidance for suggested readings (incremental readings rather than 'read this 800 page book and call me in the morning'). I feel that a mentorship program would be an excellent way to grow a strong competent Squeak user community. I also see this as a way to empower more Squeak users to take command of the many projects in Squeak Source, improving them and bringing them up to current release standards. This could have the effect of off loading the core Squeak developers to do what they do best, develop Squeak. Thoughts? Offers? Jason Hogue

5 7

RE: Maui (was: [ANN] BobsUI for 3.8)
by Welch, Ronald P (US SSA) 01 Nov '05

01 Nov '05

Chris, Where can I get the latest version of Maui? Does it work with 3.9? Ron ----------=-=-=-=-=-=-=-=-========oOo========-=-=-=-=-=-=-=-=---------- mailto:Ronald.P.Welch@baesystems.com Phone:(607)770-3701 BAE SYSTEMS 600 Main St Johnson City, NY, USA 13790-1888 ----------=-=-=-=-=-=-=-=-===================-=-=-=-=-=-=-=-=---------- -----Original Message----- From: Chris Muller [mailto:chris@funkyobjects.org] Sent: Monday, October 31, 2005 3:26 PM To: Squeak List Subject: Maui (was: [ANN] BobsUI for 3.8) Javier Diaz-Reinoso wrote: > with the idea of be "the maintainer" of BobsUI, I use squeak > principally as an lenguaje to prototype projects not to deploy them, > so I really don't use "business widgets" in squeak very much. I don't mean to steal thunder from Bobs UI, but the similarities to Maui surprised me enough to post. Maui is another UI framework for very-quick prototyping. It's a naked-objects framework that lets you visually compose objects using only three "widgets": - Domain-instance widget (represents domain instances, they sit on the desktop or embedded in another domani-instance) - Message widget (for activating messages) - Parameter-holder widget (part of a keyword message-widget; for dropping domain-instance widgets). Configurations are saved by remembering prototypical instances that you've configured. Then any domain of that class (or subclass) can assume that named view. > BobsUI have interesting features: > 1.- have separate runtime and development modes So does Maui. In development mode, the messages that were dropped keep their Smalltalk-style selectors, in "user mode" a space is put between the parts automatically. Also, in development mode you are able to pick up the message-widgets themselves. > 2.- the repository, where the layouts of the windows (or "frames") > are stored as XML text, so is easy to transport to other images Doesn't got to XML, but the UI's are easily transportable to other images either through Magma, or any of the Squeak serialization frameworks. > 3.- the interactive creation of the layouts Nice, and this is for Maui too. > 4.- the "no halo" widgets, so the user can't show accidentally the > halos, that with disable and enable a few preferences and you have > an "application". Same for Maui while in "user mode". - Chris

2 1

SqueakMap not working?
by Michael van der Gulik 01 Nov '05

01 Nov '05

Hi. When I try to access SqueakMap, it..er.. doesn't work. I get a debugger with a MNU while trying to read from a SmartRefStream. I'm using 3.8#6665, a completely clean image. Does anybody else have this problem? Mikevdg. ----------- Dump that I found in Squeak follows: VM: unix - a SmalltalkImage Image: Squeak3.8 [latest update: #6665] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/mikevdg/squeak/maui Trusted Dir /home/mikevdg/squeak/maui/secure Untrusted Dir /home/mikevdg/squeak/maui/untrusted UndefinedObject(Object)>>doesNotUnderstand: #do: Receiver: nil Arguments and temporary variables: aMessage: do: [] in ImageSegment>>comeFullyUpOnReload: {[:importedObject | (im...etc... Receiver's instance variables: nil ImageSegment>>comeFullyUpOnReload: Receiver: an ImageSegment Arguments and temporary variables: smartRefStream: a SmartRefStream a ByteArray(33 13 13) mapFakeClassesToReal: an IdentityDictionary(Fake37SMSqueakMap->SMSqueakMap ) ccFixups: true receiverClasses: nil rootsToUnhiberhate: nil myProject: nil existing: nil importedObject: nil multiSymbol: nil aFake: nil Receiver's instance variables: arrayOfRoots: nil segment: a WordArrayForSegment(1929386342 358625803 3052688036 3050604417 31614...etc... outPointers: #(Fake37SMSqueakMap nil 'sm' true Dictionary SMFileCache Array UUI...etc... state: #imported segmentName: nil fileName: nil endMarker: SmartRefStream(ReferenceStream)>>next userRootCnt: 1 renamedClasses: nil SmartRefStream(DataStream)>>next Receiver: a SmartRefStream a ByteArray(33 13 13) Arguments and temporary variables: type: 16 selector: #readShortInst anObject: an ImageSegment isARefType: true pos: nil internalObject: nil Receiver's instance variables: byteStream: a MultiByteBinaryOrTextStream a ByteArray(33 13 13) topCall: #marked basePos: 152 references: an IdentityDictionary() objects: an IdentityDictionary(size 246) currentReference: 2778 fwdRefEnds: an IdentityDictionary() blockers: an IdentityDictionary() skipping: an IdentitySet() insideASegment: false structures: a Dictionary(#Array->#(0) #ArrayedCollection->#(0) #ByteArray->#(0)...etc... steady: a Set(Integer UUID SMDocument Symbol SMCategorizableObject ByteString S...etc... reshaped: nil renamed: a Dictionary(#FlasherMorph->#Flasher ) renamedConv: a Dictionary(1->#SMSqueakMap 5->#Dictionary 6->#SMFileCache 7->#Ar...etc... superclasses: a Dictionary(#Array->#ArrayedCollection #ArrayedCollection->#Sequ...etc... progressBar: nil objCount: nil classInstVars: nil SmartRefStream(ReferenceStream)>>next Receiver: a SmartRefStream a ByteArray(33 13 13) Arguments and temporary variables: curPosn: 2778 skipToPosn: nil haveIt: false theObject: false wasSkipping: nil Receiver's instance variables: byteStream: a MultiByteBinaryOrTextStream a ByteArray(33 13 13) topCall: #marked basePos: 152 references: an IdentityDictionary() objects: an IdentityDictionary(size 246) currentReference: 2778 fwdRefEnds: an IdentityDictionary() blockers: an IdentityDictionary() skipping: an IdentitySet() insideASegment: false structures: a Dictionary(#Array->#(0) #ArrayedCollection->#(0) #ByteArray->#(0)...etc... steady: a Set(Integer UUID SMDocument Symbol SMCategorizableObject ByteString S...etc... reshaped: nil renamed: a Dictionary(#FlasherMorph->#Flasher ) renamedConv: a Dictionary(1->#SMSqueakMap 5->#Dictionary 6->#SMFileCache 7->#Ar...etc... superclasses: a Dictionary(#Array->#ArrayedCollection #ArrayedCollection->#Sequ...etc... progressBar: nil objCount: nil classInstVars: nil --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #do: ImageSegment>>comeFullyUpOnReload: SmartRefStream(DataStream)>>next SmartRefStream(ReferenceStream)>>next - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SmartRefStream>>next SmartRefStream>>scanFrom: ObjectScanner>>scanFrom: [] in MultiByteBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: {[val := (self peekFor: $!) ifTrue: [(Compiler evaluate: self nextChunk l...]} BlockContext>>on:do: [] in MultiByteBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: {[:bar | [self atEnd] whileFalse: [bar value: self position. self skipS...]} [] in ProgressInitiationException>>defaultMorphicAction {[result := workBlock value: progress]} BlockContext>>ensure: ProgressInitiationException>>defaultMorphicAction ...etc...

3 2

[ANN] BobsUI for 3.8
by Javier Diaz-Reinoso 01 Nov '05

01 Nov '05

I make a pair of modifications and now BobsUI works for 3.8: > http://homepage.mac.com/javier_diaz_r/BobsUI.zip is a 108 KB file. Javier Diaz-Reinoso Web: http://homepage.mac.com/javier_diaz_r/

3 5

Re: Curiosity gets the better of me
by Bob.Cowdery＠CGI-Europe.com 01 Nov '05

01 Nov '05

David T. Lewis wrote: > If you want a Squeak server to talk to your 'C process' through OS > pipes, you can do this with class PipeableOSProcess. You need to load > the packages OSProcess and CommandShell from SqueakMap (PipeableOSProcess > is in the CommandShell package). If your 'C process' interacts with > the world through stdin and stdout streams, this would be a reasonable > thing to do. This only works on Unix/Linux, but it would be fine for > your Linux server. David. I'm not sure this does what I want. I think it only deals with unnamed OS pipes and not named pipes. However, I think I can treat names pipes just like they were files except I need to do an fcntl or equiv to ensure non-blocking reads. Have you, or anybody else done this before? Bob *** Confidentiality Notice *** Proprietary/Confidential Information belonging to CGI Group Inc. and its affiliates may be contained in this message. If you are not a recipient indicated or intended in this message (or responsible for delivery of this message to such person), or you think for any reason that this message may have been addressed to you in error, you may not use or copy or deliver this message to anyone else. In such case, you should destroy this message and are asked to notify the sender by reply email.

2 1

Apple script plugin recompiled under 10.4
by John M McIntosh 01 Nov '05

01 Nov '05

I recompiled the OS-X applescript plugin TestOSAPlugin.bundle (Version 1.0.1b1) There is no code change, rather a test of a change set to enable compiling under os-x 10.x I've posted the new bundle to ftp://ftp.smalltalkconsulting.com the changeset and Xcode project will be posted to the SVN server shortly. -- ======================================================================== === John M. McIntosh <johnmci(a)smalltalkconsulting.com> 1-800-477-2659 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ======================================================================== ===

1 0

Jump to page: