Squeak-dev January 2000

squeak-dev@lists.squeakfoundation.org

131 participants
468 discussions

[ENH] new String modifier: String>>asPlural
by Norton, Chris 24 May '04

24 May '04

Hi Folks. Here's the preamble from my changeset: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ "OK. You could say that this is a silly crusade, but I like my Squeak messages to be in proper English (at least when the language you're using is English). I was messing around with the HangMan file-in and I got a walkback that had the following title: 'Error: HangManPhrases classs are not indexable'. I just couldn't stand the extra 's' on 'class', so I created a nifty new String method called asPlural and I modified the sender of the odd string to use the new String modifier. Take it or leave it, but I think this makes auto-generated text just a little easier to read." ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I hope you find this new String modifier useful too. Cheers! ---==> Chris <<PluralStrings-ccn.cs>>

4 4

Polymorphism and language
by Adam Bridge 02 Aug '00

02 Aug '00

I wonder if we're not asking the wrong question here. Language, it seems to me, is for expression. If we design a language (as opposed to allowing it to evolve) then we should have a goal for that language. What's the goal here? Although polymorphism is certainly an interesting capability shouldn't we be looking at the kinds of tasks we wish to perform? Would we demand an artist work in tempra when water color is what expresses the mood best? Personally I like the idea of small languages that do some things very very well. They are easy to learn because their concepts are clear. If languages can agree on ways to intermingle so I can write my image manipulation in one language and my text in another and my GUI in yet another -- and have them work together intimately and EASILY -- then I think we have a software system which is about expression first and language second. I'd love to easily, trivially, combine Smalltalk, Perl, Fortran, Obj-C and be able to easily explore other languages in this same context: it becomes easy to grow. Adam Bridge

2 1

unsubscribe
by Alek 09 Jun '00

09 Jun '00

2 1

Re: Change the Squeak UI Look
by Dino 29 Feb '00

29 Feb '00

Where can I get a changeset for this "skins" thing? Dino "Stephan B. Wessels" wrote: > > I wrote some code to do this which is avaiable via the swiki at > http://minnow.cc.gatech.edu/squeak/683. Take a look at the bottom of the web > page. This code works with V2.8a. > > Maybe that will help. > > - Steve > > montgomery farrar tidwell wrote: > > > Howdy, > > > > Torsten.Bergmann(a)phaidros.com wrote: > > > > > > ... > > > - open a file list, select a JPEG or GIF and select 'open image as > > > background' > > > > when i do this, the image is tiled. is there anyway to get it to center > > and stretch? > > -- > > > > \\//_

3 2

(1 to: self) inject: 1 into: #*
by Mats Nygren 03 Feb '00

03 Feb '00

Hello, I find the following elegant: aCollection inject: 1 into: #* (and similarly for all binary messages and single-keyword messages) more so than the normal: aCollection inject: 1 into: [ :a :b | a * b] For example like this: factorial (1 to: self) inject: 1 into: #* The price for this seems to be simply: !Symbol methodsFor: 'converting' stamp: 'mn 1/19/2000 19:38'! value: i value: ii ^i perform: self with: ii! ! And similarly for unary messages aCollection collect: #negated What do you think? /Mats Nygren

5 5

Tutorial for newbie
by Raymond Asselin 03 Feb '00

03 Feb '00

For beginners with Smalltalk I found a FRENCH tutorial...si çà peut aider quelqu'un. http://zeus.enst-bretagne.fr/Tutoriaux/smalltalk/s80part1/s80part1.html

2 1

[ANN] distribution of Squeak programs
by Lex Spoon 02 Feb '00

02 Feb '00

People have talked about distributing stand-alone Squeak programs, and often the talk turns to self-extracting executables. I don't think that self-extracting executables are the core of the problem. Instead, there is simply a myriad of administrative work that must be done to create a standalone package for multiple platforms. Anyway, to try and focus the discussion in this direction, I have put a tiny distribution of a Towers of Hanoi solver at: http://chaos.resnet.gatech.edu:8000/~lex/hanoi/ Linux and Windows people, let me know what you think! I'll try and add more platforms over time. Eventually, most of this could be automated, but it seems useful to have one example of doing it the hard way. Lex

4 3

Re: Change the Squeak UI Look
by Andrew C. Greenberg 01 Feb '00

01 Feb '00

At 1:02 PM -0500 1/31/2000, Stephan B. Wessels wrote: >I wrote some code to do this which is avaiable via the swiki at >http://minnow.cc.gatech.edu/squeak/683. Take a look at the bottom of the web >page. This code works with V2.8a. Steve's stuff is pretty neat, and worth a careful look. I noted that his reworking of the "appearances" menu does not include all the elements of the 2.8a menu (particularly the system fonts), but otherwise it appears to run nicely.

2 1

Re: [GOODIE] Re: autoRise (was Re: woohoo! ...)
by Robert Withers 01 Feb '00

01 Feb '00

Chris, all, Here's a fix that chris pointed out to me. (Thanks Chris!). Everyone doesn't have print defined on object (which is a great little method - thanks to whoever posted that!), and there were a few situations where UndefinedObject was sent a message oooppps!. How's this? (I'm embarassed to have left the 'blah2' print. in there) My FileList works. Are you opening your FileList with a special size? If so, how can I do that!?! I fixed the boom! cheers, Rob "Norton, Chris" wrote: > > Hi Robert. > > Thanks for the goodie. I ran it on a fairly clean 2.7 and ran into a > problem filing it in (fix is attached). I also noticed that the File List > dialog wasn't rising, so I added your enhancement to > SystemWindow>>openInWorldExtent:. > > BTW: I found another bug, but I'm too tired tonight to look into it. Here > are the steps to reproduce it: > > 1. Using the morphic File List, load your change set into a clean image > (you will need to fix the file in problem before you do this). > 2. Load in my change set (this will add support for the File List dialog). > 3. Use the global flap tab (left side of your world) to launch the > preferences dialog. > 4. Click on the 'auto raise windows' 'false' (it will turn to 'true') > 5. Float your mouse over the File List dialog. > > Ka-boom... The WindowRaiser class>>installOnMorph: method will fail. The > problem seems to be returning self from inside a removeKey:ifAbsent:[] > block. Apparently, you can't do this. I tried removing the code that > returns self, but, of course, this causes a walk back too (nil doesn't > understand 'stop'). > > Thanks again! > > ---==> Chris > > <<WindowRaiserFixes.cs>> > > ------------------------------------------------------------------------ > Name: WindowRaiserFixes.cs > WindowRaiserFixes.cs Type: unspecified type (application/octet-stream) > Encoding: quoted-printable -- -------------------------------------------------- Smalltalking by choice. Isn't it nice to have one! 'From Squeak2.7 of 5 January 2000 [latest update: #1762] on 31 January 2000 at 1:37:20 am'! "Change Set: WindowRaiserTool Date: 30 January 2000 Author: Robert Withers Beta: Ok folks. We are into the Preferences now. On load the WindowRaiser installs a preference which defaults to disabled. You have to enable it in help...preferences... Special thanks goes to Stan Heckman, and Torge Husfeldt. Special Warning: This changeset modifies Morph>>#openInWorld: aWorld, which is a core Morphic method. It also modifies Preferences class>>noteThatFlag:justChangedTo:"! Object subclass: #WindowRaiser instanceVariableNames: 'view isRaising ' classVariableNames: 'EventRegister ' poolDictionaries: '' category: 'Morphic-Support'! !Morph methodsFor: 'event handling' stamp: 'rww 1/30/2000 02:14'! autoRiseOnMouseEntry WindowRaiser installOnMorph: self. ! ! !Morph methodsFor: 'event handling' stamp: 'rww 1/30/2000 02:18'! cancelAutoRiseOnMouseEntry WindowRaiser deinstallOnMorph: self. ! ! !Preferences class methodsFor: 'preferences dictionary' stamp: 'ccn 1/30/2000 22:08'! noteThatFlag: prefSymbol justChangedTo: aBoolean "Provides a hook so that a user's toggling of a preference might precipitate some immediate action" | keep | prefSymbol == #useGlobalFlaps ifTrue: [aBoolean ifFalse: "Turning off use of flaps" [keep _ self confirm: 'Do you want to preserve the existing global flaps for future use?'. Utilities globalFlapTabsIfAny do: [:aFlapTab | Utilities removeFlapTab: aFlapTab keepInList: keep. aFlapTab isInWorld ifTrue: [self error: 'Flap problem']]. keep ifFalse: [Utilities clobberFlapTabList]] ifTrue: "Turning on use of flaps" [Smalltalk isMorphic ifTrue: [self currentWorld addGlobalFlaps]]]. prefSymbol == #roundedWindowCorners ifTrue: [World ifNotNil: [World fullRepaintNeeded]]. prefSymbol == #optionalButtons ifTrue: [Utilities replacePartSatisfying: [:el | (el isKindOf: MorphThumbnail) and: [(el morphRepresented isKindOf: SystemWindow) and: [el morphRepresented model isKindOf: FileList]]] inGlobalFlapSatisfying: [:f1 | f1 wording = 'Tools'] with: FileList openAsMorph applyModelExtent]. (prefSymbol == #optionalButtons or: [prefSymbol == #useAnnotationPanes]) ifTrue: [Utilities replaceBrowserInToolsFlap]. (prefSymbol == #smartUpdating) ifTrue: [SystemWindow allSubInstancesDo: [:aWindow | aWindow amendSteppingStatus]]. (prefSymbol == #autoRaiseWindows) ifTrue: [aBoolean ifTrue: [WindowRaiser startAutoRise] ifFalse: [WindowRaiser stopAutoRise]]! ! !SystemWindow methodsFor: 'open/close' stamp: 'rww 1/30/2000 02:29'! openInWorld: aWorld "This msg and its callees result in the window being activeOnlyOnTop" self autoRiseOnMouseEntry. self bounds: (RealEstateAgent initialFrameFor: self). aWorld addMorph: self. self activate. aWorld startSteppingSubmorphsOf: self! ! !SystemWindow methodsFor: 'open/close' stamp: 'ccn 1/30/2000 22:10'! openInWorldExtent: extent "This msg and its callees result in the window being activeOnlyOnTop" Smalltalk isMorphic ifFalse: [^self openInMVCExtent: extent]. self autoRiseOnMouseEntry. self position: (RealEstateAgent initialFrameFor: self) topLeft; extent: extent. World addMorph: self. self activate. World startSteppingSubmorphsOf: self.! ! !WindowRaiser commentStamp: '<historical>' prior: 0! To turn on window raising: WindowRaiser startAutoRise. To turn window raising off again: WindowRaiser stopAutoRise.! !WindowRaiser methodsFor: 'accessing' stamp: 'rww 1/30/2000 02:41'! isRaising "Answer the receiver's instance variable isRaising." ^isRaising! ! !WindowRaiser methodsFor: 'accessing' stamp: 'rww 1/30/2000 02:41'! isRaising: aBoolean "Set the receiver's instance variable isRaising to aBoolean." isRaising := aBoolean! ! !WindowRaiser methodsFor: 'accessing' stamp: 'rww 1/28/2000 01:33'! view "Answer the receiver's instance variable view." ^view! ! !WindowRaiser methodsFor: 'accessing' stamp: 'rww 1/28/2000 01:33'! view: anObject "Set the receiver's instance variable view to anObject." view := anObject! ! !WindowRaiser methodsFor: 'action' stamp: 'rww 1/30/2000 02:39'! raiseInMilliseconds: millisecondTime self isRaising: true. [(Delay forMilliseconds: millisecondTime) wait. self isRaising ifTrue: [self raiseView]] fork.! ! !WindowRaiser methodsFor: 'action' stamp: 'rww 1/31/2000 01:35'! raiseView self view ifNotNil: [self view activate]. ! ! !WindowRaiser methodsFor: 'action' stamp: 'rww 1/30/2000 02:39'! stop self isRaising: false.! ! !WindowRaiser methodsFor: 'initialize' stamp: 'rww 1/30/2000 02:40'! initializeOn: aView self view: aView. self isRaising: false.! ! !WindowRaiser class methodsFor: 'as yet unclassified' stamp: 'rww 1/30/2000 02:24'! deinstallOnMorph: aMorph |raiser| raiser := self eventRegister removeKey: aMorph ifAbsent: [nil]. raiser ifNotNil: [raiser stop]. aMorph on: #mouseEnter send: nil to: nil. aMorph on: #mouseLeave send: nil to: nil. ! ! !WindowRaiser class methodsFor: 'as yet unclassified' stamp: 'rww 1/30/2000 02:10'! eventRegister ^EventRegister. ! ! !WindowRaiser class methodsFor: 'as yet unclassified' stamp: 'rww 1/30/2000 10:48'! initialize EventRegister := Dictionary new. Preferences disable: #autoRaiseWindows.! ! !WindowRaiser class methodsFor: 'as yet unclassified' stamp: 'rww 1/31/2000 01:34'! installOnMorph: aMorph (Preferences autoRaiseWindows) ifTrue: [ aMorph on: #mouseEnter send: #value to: [self eventRegister at: aMorph put: ((WindowRaiser newOn: aMorph) raiseInMilliseconds: 400)]. aMorph on: #mouseLeave send: #value to: [|raiser| raiser _ self eventRegister removeKey: aMorph ifAbsent: [nil]. raiser ifNotNil: [raiser stop]]].! ! !WindowRaiser class methodsFor: 'as yet unclassified' stamp: 'rww 1/28/2000 01:32'! newOn: aView ^super new initializeOn: aView ! ! !WindowRaiser class methodsFor: 'as yet unclassified' stamp: 'rww 1/30/2000 10:44'! startAutoRise SystemWindow allSubInstancesDo: [:aWindow | aWindow autoRiseOnMouseEntry]. ! ! !WindowRaiser class methodsFor: 'as yet unclassified' stamp: 'rww 1/30/2000 10:44'! stopAutoRise SystemWindow allSubInstancesDo: [:aWindow | aWindow cancelAutoRiseOnMouseEntry]. ! ! WindowRaiser initialize!

1 2

RE: VM improvement: speeding up failing calls of functions in missing modules
by Raab, Andreas 01 Feb '00

01 Feb '00

> I see a problem here: > > In Interpreter>>isInMissingModules: there I have removed the > string/symbol compare for a merely oop compare: So different in oops, > but equal in bytes strings would fill up the cache fast, if many > different functions from the same module - stored as strings with > different oops - are called. > This could lead to a bug: there is no caching anymore, if some (> > cachesize) different functions each stemming from another module are > called in sequence! Well, as I said there are only symbols used here. Since this is a cache it ought to be fast and I don't consider cache misses for degenerate cases to be bugs - not if it means much more expensive comparisons for the common case. > But in either case it has to be cleared during startup time. > What do you think of is a good time? > The cache has to be cleared early before _every_ possible module call. SystemDictionary>>clearExternalObjects (or its caller) seems to me the right place. A.

2 1

Jump to page: