Squeak-dev January 2000

squeak-dev@lists.squeakfoundation.org

131 participants
468 discussions

Re: TerseMan challenge
by Bob Arning 08 Jan '00

08 Jan '00

On Fri, 7 Jan 2000 18:02:54 -0800 Dan Ingalls <Dan.Ingalls(a)disney.com> wrote: >rewrite Tetris with a significantly lower number of linesOfCode. Possibly just as interesting will be the debate as to how good a metric lines of code actually is. Cheers, (and busily tossing out stuff) Bob

2 1

Re: Sorry to distribute with a bit of marketing for Smalltalk ;)
by Lawson English 08 Jan '00

08 Jan '00

Al Guerra <mclinux(a)gate.net> said: >> Why not some animal IN a balloon, for that matter? > >That's fine with me. We could even have an assortment of animals. The >question remains: what are your views regarding how we should pick which >one(s)? > Actually, I favor the kangaroo with a joey in the pouch (for inheritance, donchaknow?). ------------------------------------------------------------------------- Lawson English. Squeak, snore, etc. Check out <http://www.squeak.org> -------------------------------------------------------------------------

1 0

TerseMan challenge
by Dan Ingalls 08 Jan '00

08 Jan '00

Folks - Please don't take this for anything other than it is -- an invitation to some fun, and a possible chance for novices to learn from experts. You will find a method in ClassDescription called linesOfCode. Right now, Tetris linesOfCode + TetrisBoard linesOfCode = 524. The challenge is this: using Morphic and Squeak to best advantage, and leaving the appearance and feature set of Tetris essentially unchanged (and not just cramming everything into long lines with short variable names ;-), rewrite Tetris with a significantly lower number of linesOfCode. Enjoy - Dan

1 0

Squeak, E.Commerce, E.Community and dynabooks
by Vandendriessche, Frederik 07 Jan '00

07 Jan '00

Dear Squeakers, Okay, a bit late but here it is anyway: Happy new year and best wishes to all of you that care about object oriented programming (and your friends) !!! Sure, this is not the reason for my mail; here is the real question, maybe Mark G. is best placed to answer (?); I browsed through the presentation <http://coweb.cc.gatech.edu:8888/cs2340/uploads/gvubb-nov99.ppt and noticed at the end the "what squeak is not for" section. I was amazed when I saw "E.Commerce and other high-traffic sites" in that section. Can anyone document this statement ? Why is squeak not fit for those purposes ? I am asking because I had/still have the intention to do something like that with squeak, but now I am not sure anymore/a little confused. I work with EDS (Electronic Data Systems) E.Solutions (our E.Commerce business line) in Belgium, where I have to functions: - e.system engineer (I develop network applications. We use Java / MS / Oracle solutions, no Smalltalk :-( - solution manager for E.Community (E.Community stands for networked collaboration (very short description, I know)). Also, I consider myself an 'OO freak' (the rest <i>stinks</i>). I suppose I do not need to tell you that "collaborative dynabooks" are my cup of tea. I am very interested in any steps undertaken to achieve this goal. Are there any positions free ??? Where can I find the current status of this project ? That's it for now. Cheers, Fred ---------------------------------------------------------------------------- --------------- Please note that the statements above are mine, and to not reflect the vision of my employer. ---------------------------------------------------------------------------- --------------- Frederik Vandendriessche System Engineer @ E.Solutions EDS Belgium, Brussels e-mail Frederik.Vandendriessche(a)eds.com tel 32/0 2 711 37 83 fax 32/0 2 711 39 47 ---- Don't worry about what anybody else is going to do! The best way to predict the future is to invent it. Really smart people with reasonable funding can do just about anything that doesn't violate too many of Newton's Laws!" Alan Kay in 1971 ---- <<Frederik Vandendriessche.vcf>>

2 1

Re: Sorry to distribute with a bit of marketing for Smalltalk ;)
by Lawson English 07 Jan '00

07 Jan '00

Al Guerra <mclinux(a)gate.net> said: >Stephane Ducasse wrote: >> >> Hi all, >> >> The Smalltalk Community desperately needs a cute little animal to do the >> wonders that the Penguin did for Linux. > >While I agree that a logo would be nice to have for Smalltalk, it isn't >correct to ascribe the popularity of Linux to its logo. The reverse is >actually the case. > >In addition, why should the logo be an animal? Why couldn't we select a >toolbox, a balloon, a constellation, or the international space station >as the logo? Why not some animal IN a balloon, for that matter? ------------------------------------------------------------------------- Lawson English. Squeak, snore, etc. Check out <http://www.squeak.org> -------------------------------------------------------------------------

1 0

RE: Presentations in Squeak
by Torsten.Bergmann＠phaidros.com 07 Jan '00

07 Jan '00

>I've created a page at http://minnow.cc.gatech.edu/squeak/Presenting >on resources for presenting Squeak. I posted the PowerPoint slides >that I used at a recent on-campus presentation, and I took the >liberty of posting Torsten's note (below) on the page, too. The page mentions a video of Adele Goldberg Is it available online ? Torsten

2 1

Help with List, ListView...
by Stephane Ducasse 07 Jan '00

07 Jan '00

Hi, I need help. To start to understand Morphic UI I wanted to look at the PlayWithMe1 mechanism to learn how I can display a list of the Smalltalk classes. I browsed a lot of code and got lost. I found the PlayWithMe class saw that this is a MorphModel. But I could figure out where the lists where initialized with the Smalltalk class.Sender of instance creation did not help me. So is there a place where I can find a small piece of code that I can read to understand how to create a list in morphic. Stef PS: Apparently Morphic needs a good documentation or tutorial. I read the available tutorials (even browse the spanish one) to see if they could help but could not really find what I wanted. And this is frustating, in VisualWorks I can build this functionality in less than 10 min. Stephane DUCASSE (ducasse(a)iam.unibe.ch) http://www.iam.unibe.ch/~ducasse/ "if you knew today was your last day on earth, what would you do different? ... especially if, by doing something different, today might not be your last day on earth" Calvin&Hobbes University of Bern, Institut fuer informatik and Mathematik IAM-SCG, 10 neubruckstrasse, CH-3012 Bern, Switzerland.

1 0

Sorry to distribute with a bit of marketing for Smalltalk ;)
by Stephane Ducasse 07 Jan '00

07 Jan '00

Hi all, The Smalltalk Community desperately needs a cute little animal to do the wonders that the Penguin did for Linux. During Esug'99 we brainstormed to define which animals could be possible candidates. We elaborated a list of properties that a the mascot should have. We asked a professional designer to draw some sketches of the candidate animals. You are invited to check them out under http://www.iam.unibe.ch/~scg/cgi-bin/Smalltalk.cgi and propose your own ideas. We think that the Smalltalk community can afford (Stic?, Cincom?) to pay a real professional for designing such a mascot. For the moment we would like to gather all the candidate mascots, and let the community vote. We are also setting up a logos repository, feel free to contribute. Please, distribute this information as much as possible. Happy New Years and Go Smalltalk Stephane Ducasse and Matthias Rieger Stephane DUCASSE (ducasse(a)iam.unibe.ch) Matthias Rieger (rieger(a)iam.unibe.ch) http://www.iam.unibe.ch/~ducasse/ "if you knew today was your last day on earth, what would you do different? ... especially if, by doing something different, today might not be your last day on earth" Calvin&Hobbes

2 1

Alice fan (Teddy and Alice 99)
by Stephane Ducasse 07 Jan '00

07 Jan '00

Forward from the news Hi Smalltalkers, I'm programming Teddy in Jun. Teddy is a kind of 3D modeler for freeform models such as stuffed animals and other rotund objects. Shape creation part was completed. It can construct 3D shape from 2D freehand stroke. Next version of Jun may contain it. http://www.sra.co.jp/people/aoki/Jun/Topics/Teddy/index_e.html Please see also to understand Teddy and Jun. http://www.mtl.t.u-tokyo.ac.jp/~takeo/teddy/teddy.htm http://www.sra.co.jp/people/aoki/Jun/Main_e.htm Stephane DUCASSE (ducasse(a)iam.unibe.ch) http://www.iam.unibe.ch/~ducasse/ "if you knew today was your last day on earth, what would you do different? ... especially if, by doing something different, today might not be your last day on earth" Calvin&Hobbes University of Bern, Institut fuer informatik and Mathematik IAM-SCG, 10 neubruckstrasse, CH-3012 Bern, Switzerland.

1 0

[ENH] MVC selection colors
by Hans-Martin Mosner 07 Jan '00

07 Jan '00

The attached changeset modifies selection in MVC such that the value with which the reverse is computed depends on the active view's background color, giving better contrast. In addition, the text insertion caret is always displayed in red to stand out better. Hans-Martin 'From Squeak2.7alpha of 11 October 1999 [latest update: #1716] on 5 January 2000 at 5:41:40 pm'! "Change Set: ContrastMVC-hmm Date: 5 January 2000 Author: Hans-Martin Mosner Enhances readability in MVC by making all selections bgColor-on-black, and making the text insertion caret red when possible."! !Color class methodsFor: 'class initialization' stamp: 'hmm 1/5/2000 17:23'! updateHighLightForBackground: bgColor | xor | xor _ self xorBetween: Color black and: bgColor. HighLightBitmaps at: Display depth put: (Bitmap with: xor)! ! !Color class methodsFor: 'class initialization' stamp: 'hmm 1/5/2000 13:13'! updateHighLightForBackground: bgColor during: aBlock | old | old _ HighLightBitmaps at: Display depth. self updateHighLightForBackground: bgColor. aBlock value. HighLightBitmaps at: Display depth put: old! ! !Color class methodsFor: 'class initialization' stamp: 'hmm 1/5/2000 17:13'! xorBetween: fgColor and: bgColor | fore back xor | fore _ fgColor pixelValueForDepth: Display depth. back _ bgColor pixelValueForDepth: Display depth. xor _ fore bitXor: back. 32 / Display depth -1 timesRepeat: [ xor _ (xor bitShift: Display depth) bitOr: xor]. ^xor! ! !FillInTheBlank class methodsFor: 'instance creation' stamp: 'hmm 1/5/2000 13:17'! request: queryString initialAnswer: defaultAnswer centerAt: aPoint "Create an instance of me whose question is queryString with the given initial answer. Invoke it centered at the given point, and answer the string the user accepts. Answer the empty string if the user cancels." "FillInTheBlank request: 'Type something, then type CR.' initialAnswer: 'yo ho ho!!' centerAt: Display center" | model fillInView savedArea | World ifNotNil: [^ FillInTheBlankMorph request: queryString initialAnswer: defaultAnswer centerAt: aPoint]. model _ self new initialize. model contents: defaultAnswer. fillInView _ FillInTheBlankView on: model message: queryString centerAt: aPoint. savedArea _ Form fromDisplay: fillInView displayBox. Color updateHighLightForBackground: Color white during: [ fillInView display. defaultAnswer isEmpty ifFalse: [fillInView lastSubView controller selectFrom: 1 to: defaultAnswer size]. (fillInView lastSubView containsPoint: Sensor cursorPoint) ifFalse: [fillInView lastSubView controller centerCursorInView]. fillInView controller startUp. fillInView release. savedArea displayOn: Display at: fillInView viewport topLeft]. ^ model contents ! ! !Paragraph methodsFor: 'selecting' stamp: 'hmm 1/5/2000 17:23'! caretFormForDepth: depth "Return a caret form for the given depth." "(Paragraph new caretFormForDepth: Display depth) displayOn: Display at: 0@0 rule: Form reverse" | box f bb map | box _ CaretForm boundingBox. f _ Form extent: box extent depth: depth. map _ (Color cachedColormapFrom: CaretForm depth to: depth) copy. map at: 1 put: (Color transparent pixelValueForDepth: depth). map at: 2 put: ((Color xorBetween: Color red and: Color black) bitXor: (Color quickHighLight: depth) first). "pixel value for reversing" bb _ BitBlt toForm: f. bb sourceForm: CaretForm; sourceRect: box; destOrigin: 0@0; colorMap: map; combinationRule: Form over; copyBits. ^ f! ! !PopUpMenu methodsFor: 'displaying' stamp: 'hmm 1/5/2000 13:12'! displayAt: aPoint withCaption: captionOrNil during: aBlock "Display the receiver just to the right of aPoint while aBlock is evaluated. If the receiver is forced off screen, display it just to the right." | delta savedArea captionForm captionSave outerFrame captionText tFrame frameSaveLoc captionBox | marker ifNil: [self computeForm]. frame _ frame align: marker leftCenter with: aPoint + (2@0). outerFrame _ frame. captionOrNil notNil ifTrue: [captionText _ (DisplayText text: captionOrNil asText textStyle: MenuStyle copy centered) foregroundColor: Color black backgroundColor: Color white. tFrame _ captionText boundingBox insetBy: -2. outerFrame _ frame merge: (tFrame align: tFrame bottomCenter with: frame topCenter + (0@2))]. delta _ outerFrame amountToTranslateWithin: Display boundingBox. frame right > Display boundingBox right ifTrue: [delta _ 0 - frame width @ delta y]. frame _ frame translateBy: delta. captionOrNil notNil ifTrue: [captionForm _ captionText form. captionBox _ captionForm boundingBox expandBy: 4. captionBox _ captionBox align: captionBox bottomCenter with: frame topCenter + (0@2). captionSave _ Form fromDisplay: captionBox. Display border: captionBox width: 4 fillColor: Color white. Display border: captionBox width: 2 fillColor: Color black. captionForm displayAt: captionBox topLeft + 4]. marker _ marker align: marker leftCenter with: aPoint + delta + (2@0). savedArea _ Form fromDisplay: frame. self menuForm displayOn: Display at: (frameSaveLoc _ frame topLeft). Color updateHighLightForBackground: Color white during: [ selection ~= 0 ifTrue: [Display reverse: marker]. Cursor normal showWhile: [aBlock value]]. savedArea displayOn: Display at: frameSaveLoc. captionOrNil notNil ifTrue: [captionSave displayOn: Display at: captionBox topLeft]! ! !StandardSystemView methodsFor: 'displaying' stamp: 'hmm 1/5/2000 13:14'! emphasizeLabel "Highlight the label." insideColor = nil ifFalse: [Color updateHighLightForBackground: insideColor]. labelFrame height = 0 ifTrue: [^ self]. "no label" self displayLabelBackground: true. self displayLabelBoxes. self displayLabelText. ! !

1 1

← Newer
1
...
40
41
42
43
44
45
46
47
Older →

Jump to page: