Squeak-dev February 2001

squeak-dev@lists.squeakfoundation.org

144 participants
725 discussions

Re: Final call for 2.9 updates
by Stephen T. Pope 01 Feb '01

01 Feb '01

Here's the README from the STP-12.2.8 goodies. All this code is on-line at ftp://ftp.create.ucsb.edu/pub/Squeak/CD-ROM/Packages/Goodies/STP%20Goodies/ =============================================================================== STP Goodies Version 12 README File -- Updated 22 January 2001 The file STP12.2.8.bld files these in to Squeak 2.8. Source code directories: (System Graphics GUI Tools Packages Fixes =============================================================================== System Directory ==== CaseStatement.st ==== This adds a neat shorthand for immediate dictionaries and a case statement; example: ( (#a -> [Transcript cr; show: 'a'; cr]), (#b -> [Transcript cr; show: 'b'; cr]), (#c -> [Transcript cr; show: 'c'; cr]) ) case: #b Note that there is a similar structure already in Squeak, but that it uses curly-braces as special characters, and can only have blocks as keys/values. I prefer this method. ==== ClassOrganizer-fromString.st ==== This allows the reorganization of classes from strings. ==== CodeGen.st ==== Adds the 'publish' method for automatically generating instance variable accessors. You simply need to edit and accept the class definition of a class with instance variables, and then do 'ClassName publish.' ==== CollectionAdds.st ==== Several useful collection extensions--with:with:with:with:with:, prevIndexOfSubCollection: aSubCollection startingAt: anIndex, etc. ==== ColorForm-offsetColors.st ==== This makes it possible to declare color forms expliticly. ==== CompiledMethod-frameSize.st ==== Increases the frame size by changing > to >= LargeFrame. ==== Dictionary-associations.st ==== Adds explicit accessors for values and associations to Dictionary. ==== FileDirectory-extensionFor.st ==== Answers the extension of a file name. ==== FileStream-named.st ==== Handy terse file creation message ==== FlushChangesOnFileOut.st ==== Remove a class from the change set after filing it out, also ask whether to empty the change set after filing it out. ==== IgnoreFontsInCode.st ==== Sets the compiler to ignore all changes of emphasis in code. ==== MultiModel.st ==== MultiModels have symbol-keyed dictionaries as their dependents collections. The items in the dictionary are collections of dependents registered to receive updates to a particular aspect. This makes updating models with large numbers of dependents much faster. The category #all receives all updates. ==== Object-dependency.st ==== This extends the changed/update messages for passing along new values (changed:with:). ==== Object-safeHalt.st ==== This makes a left-shift hack out of halt (i.e., it is different than break:) ==== Object-testing.st ==== These are a few testing methods (e.g., isString isSymbol) plus value coercion (asValue). ==== Point-xy.st ==== Adds setter accessors to Point. ==== Printing.st ==== A few modified printing methods: Time without seconds, Dates with leading 0's (e.g., 1995.04.08). ==== PStream-skipSeparators.st ==== Adds the nil check for reading bad files. ==== RandomAdds.st ==== A few new messages for generating random numbers in limited ranges, or selecting from collections at random. ==== ScreenAdds.st ==== Adds a few utility methods to class DisplayScreen for determining the current screen size and getting default rectangles for view opening. This is very useful for applications that are supposed to be portable between desk- and lap-top machines. ==== StreamIO.st ==== Code to support external I/O in floats, longs, 96-bit doubles, etc. Some of this is from the Kyma system thanks to Kurt Hebel. ==== StringAdds.st ==== Adds many useful string crunching methods--stripTrailingSpaces, padTo:, breakIntoLinesOf:, stripCRs. cr. ==== TextEmphasis-storeOn.st ==== This code makes storing texts a bit more compact by storing the emphasis and font changes in a 'native' form. ==== TranscriptStream-limit.st ==== Makes the transcript really long (64 k). ==== Utilities-html.st ==== Various utilities for writing HTML "reference manuals" ==== ZPoint.st ==== 3-D points, i.e., one can say 3@4@7. =============================================================================== Graphics Directory ==== BitBlt-setDestForm.st ==== This handles a nil srcForm. ==== Color-depth.st ==== This is the 'depth' method for colors. ==== display-compatibility.st ==== These are for backward compatibility with ST80. ==== Graphics-3D.st ==== This is Hans-Martin Mosner's 3-D graphics example. It creates wire-frame models and can display and rotate them. It also serves as a cool screen saver. It requires the 3-D point class ZPoint and the two additional Zpoint methods in this directory. ==== Graphics-Containers.st ==== This is a minimal 'wrapper' framework. It is a pre-cursor to my new MVC implementation. ==== Graphics-DisplayLists.st ==== This is the new DisplayItem/List/View framework -- visual items and lists ==== Graphics-DisplayListViews.st ==== This is the new DisplayItem/List/View framework -- display list views and controllers ==== Rectangle-corners.st ==== This is what it looks like--answers an array of 4 points. ==== ZPoint-perspective.st ==== These are a few additional ZPoint methods that are needed by the 3D graphics or fractal surface code. =============================================================================== GUI Directory ==== DisplayScreen-splash.st ==== Splash screen with the Squeak logo rolling across the screen. This reads in two GIFs from the DesktopGIFs folder and makes them global ==== GrowBox.cs ==== This adds another button just to the left of the collapse button in window labels that grows/shrinks the view by 50%. ==== PluggableButton-action.st ==== This makes it possible to create buttons that have blocks as their actions. ==== Preferences-Color.st ==== Changes the method for resetting the desktop color. ==== Preferences-desktopGIFs.st ==== This adds support for using an arbitrary GIF file as the repeating desktop pattern. ==== SSView-modelLabelMinSize.st ==== This is a StandardSystemView creation method for ST80 compatibility ==== SSView-resizeInitially.st ==== This sets StandardSystemView to resize on open. ==== View-addSubView.st ==== This is for ST80 compatibility. =============================================================================== Tools Directory ==== Browser-additions.st ==== Check for empty class list. Misc. other browser extensions. Use the '?' button to cycle between def/comment/hierarchy. Support ANSI Smalltalk annotations when present. Always accept strings (not text) in the browser ==== Browser-browseInstance.st ==== Adds menu items to find/inspect/count instances to the browser. ==== Browser-selectAll.cs ==== Sets the browser to automatically select the message category "all" when a class is selected. ==== FileList-directory.st ==== Use a preference value to determine the default sorting order for file lists. ==== FileList-readContentsHex.st ==== When showing a file as hex, print any ASCII values found after the hex stuff on the line ==== RedComments.st ==== Simple changes to the Browser to make the selector of a method appear in bold blue and make comments red (or italics, your choice) so that they stick out more; edit to taste. ==== StringHolder-contentsText.st ==== Accepts text or strings as contents. ==== TemplateMorph.st ==== TemplateMorph is a simple generic object editor framework. =============================================================================== Packages Directory ==== Kernel-Values.st ==== This is a minimal dynamic value framework. It has useful items such as indirect values (AKA PluggableAdaptors), lazy-block values, range values, and index values. ==== LauncherView.st ==== Launcher View is a Transcript with text-labeled buttons along the top that open the standard applications: Browse Open a package browser Files Open a file list Editor Open a workspace Changes Pop up the change manager menu and select a tool Save Save a VI snapshot Help Display the help menu Test User-assignable test button; shift-select to redefine action ==== OutlineSupport.st ==== This is support changes for the outline and outline browser classes. ==== ScreenController-Transcript.st ==== Sets the menu methods that open Transcripts to open LauncherViews instead. ==== Tools-Outlines.st ==== An outline is a simple interface to a list of named workspaces. It can hold onto a keyed workspace list, parse it from/save it to files, and be used with an OutlineBrowser. An OutlineBrowser holds onto an Outline and creates a simple two-paned view on the one-level hierarchy using pluggable view components (list and text views). The Browser implements key-list menu items for adding new keys, removing or renaming existing ones, and inspecting or saving the outline. Text menu items are implemented for execution and the like. =============================================================================== Fixes Directory ==== menu-fixes.cs ==== Fixes the menu flap tab font and adds a preference parameter setting method (so you can set the menu background color). ==== PackageBrowser-Color.st ==== Makes the package browser light cream rather than bright yellow. ==== PackageBrowser-package.st ==== Added range check for package browser. ==== TPB.fix.st ==== Fix for selecting class methods in the TimeProfileBrowser. -- stp Stephen Travis Pope http://www.create.ucsb.edu/~stp

1 0

[ENH] Grow Box
by Stephen T. Pope 01 Feb '01

01 Feb '01

This is the grow box code again. 'This adds another button just to the left of the collapse button in window labels that grows/shrinks the view by 50%.'! SystemWindow addInstVarName: 'growBox ' ! !SystemWindow methodsFor: 'initialization' stamp: 'stp 08/28/1999 10:57'! initialize | aFont | super initialize. allowReframeHandles := true. labelString ifNil: [labelString _ 'Untitled Window']. isCollapsed _ false. activeOnlyOnTop _ true. paneMorphs _ Array new. paneRects _ Array new. borderColor _ #raised. borderWidth _ 1. color _ Color black. aFont _ Preferences standardButtonFont. stripes _ Array with: (RectangleMorph newBounds: bounds) "see extent:" with: (RectangleMorph newBounds: bounds). self addMorph: (stripes first borderWidth: 1). self addMorph: (stripes second borderWidth: 2). self addMorph: (label _ StringMorph new contents: labelString; font: Preferences windowTitleFont emphasis: 1). self setLabelWidgetAllowance. self addCloseBox. self addMenuControl. self addMorph: (collapseBox _ SimpleButtonMorph new borderWidth: 0; label: 'O' font: aFont; color: Color transparent; actionSelector: #collapseOrExpand; target: self; extent: 16@16). self addMorph: (growBox _ SimpleButtonMorph new borderWidth: 0; label: '^' font: aFont; color: Color transparent; actionSelector: #growOrShrink; target: self; extent: 16@16). Preferences noviceMode ifTrue: [closeBox ifNotNil: [closeBox setBalloonText: 'close window']. menuBox ifNotNil: [menuBox setBalloonText: 'window menu']. collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse/expand window']]. self on: #mouseEnter send: #spawnReframeHandle: to: self. self on: #mouseLeave send: #spawnReframeHandle: to: self. label on: #mouseDown send: #relabelEvent: to: self. self extent: 300@200. mustNotClose _ false. updatablePanes _ Array new.! ! !SystemWindow methodsFor: 'geometry' stamp: 'stp 09/02/1999 09:49'! extent: newExtent | inner labelRect | isCollapsed ifTrue: [super extent: newExtent x @ (self labelHeight + 2)] ifFalse: [super extent: newExtent]. inner _ self innerBounds. labelRect _ self labelRect. stripes first bounds: (labelRect insetBy: 1). stripes second bounds: (labelRect insetBy: 3). self setStripeColorsFrom: self paneColorToUse. closeBox ifNotNil: [closeBox align: closeBox topLeft with: inner topLeft + (4@0)]. menuBox ifNotNil: [menuBox align: menuBox topLeft with: (inner topLeft + (19@1))]. collapseBox align: collapseBox topRight with: inner topRight - (4@0). growBox ifNotNil: [growBox align: growBox topRight with: collapseBox topLeft]. label fitContents; setWidth: (label width min: bounds width - self labelWidgetAllowance). label align: label bounds topCenter with: inner topCenter. isCollapsed ifTrue: [collapsedFrame _ self bounds] ifFalse: [self setBoundsOfPaneMorphs. fullFrame _ self bounds]! ! !SystemWindow methodsFor: 'resize/collapse' stamp: 'stp 08/28/1999 11:34'! growOrShrink "Expand (or shrink if shiftDown) the view by 50% in the X and 100% in the Y, clipping to the screen size and centering it. The minimum size is 120@120." | oldSize newSize | oldSize := self bounds. newSize := Sensor leftShiftDown ifTrue: [(oldSize scaleBy: 0.66(a)0.5) truncated] ifFalse: [(oldSize scaleBy: 1.5(a)2.0) truncated]. newSize extent < (120@120) ifTrue: [^self]. newSize := newSize translateBy: (newSize center - oldSize center) negated. newSize := newSize intersect: Display boundingBox. super bounds: newSize. paneMorphs reverseDo: [:m | self addMorph: m]! ! -- stp Stephen Travis Pope http://www.create.ucsb.edu/~stp

1 0

Re: Final call for 2.9 updates
by Stephen T. Pope 01 Feb '01

01 Feb '01

Here's my collection of 2.8 updates (sent out in August and November, 2000). The README is below. Recent STP updates -- 2000.08.24 (remote from Berlin) Browser-recent.st Make the size of the recent menu in the browser a variable. I use long ones. BrowserSel.cs Make the browser remember the mode selection (def/hier/comment) between class selections. There is also partially-working code (commented out) to remember the message category selection. ChangeList-recent.cs Make a short cut for the change list view to remove doits, clear old versions, and select current methods. Class-makePublic.st This is a safer version of the accessor creation method used by the "publish" goodie Collection-ifEmpty.st Short cut for control structures. Collection-isEmpty.st Made it more conservative. DateAndTime.st DateAndTime as merged class (subclass of Date with seconds) (easier for use, e.g., in databases) FileList-recent.cs Make the size of the recent directory list a variable size. FileStr-creation.st A couple of new file stream creation methods. Adds global FileSep with the path name delimiter FindSelAssign.cs Makes 2 changes to ParEd: Cmd-G inserts " := " and Cmd-H searches for the selection. Float class-twopi.st Accessor for the class variable two * pi Float-printPlaces.st Limited-width floating point number printing FormattedStr.cs C-style string formatting. Takes this: Transcript cr; show: ''Analyze '', sound name, '' D: '', (duration printPlaces: 3), '' R: '', sound rate printString, '' F: '', framesize printString, '' P: '', npoles printString; cr. and reduces it to this: {sound name. duration. sound rate. framesize. npoles} showFmt: '' Analyze %s D: %f R: %d F: %d P: %d''. Or this Transcript show: ''TSR: '', tsr printString, '' e: '', e truncated printString; cr. reduces to: {tsr . ext} showFmt: ''TSR: %s e: %d" Try this: { 6.3326122 . 1024 } showFmt: ''Took %5.2f sec, sz: %d.'' Interval-extent.st Get the extent of an interval. LauncherOption.cs Add the LauncherView to the system open menu. MessageTally-toFileNamed.st Convenience method for tallying to a file OrderedColl-size.st Added a nil check. Point-polar.st Answer a point that represents the receiver as r@theta RealEstate.cs Extent-from-user for new windows; assumes Mark's layouts. Do [Preferences enable: #userPlacement] SeqColl-first.st Added check for emptitude. String-conversions.cs A number of new string coersions for file I/O, e.g., asLocalFilename, asFileStream and sansLastPeriodSuffix. WinSizes.cs Make the default window sizes a bit larger and dependent on the screen size. -- stp Stephen Travis Pope http://www.create.ucsb.edu/~stp

1 0

[BUG] PasteUpMorph>>findAChangeSorter: (2.9a-3278)
by Bolot Kerimbaev 01 Feb '01

01 Feb '01

If no change sorter is present, pressing cmd-C (or alt-shift-c) brings up a debugger, since DualChangeSorter class doesn't understand #open. To fix, the last line of PasteUpMorph>>findAChangeSorter: should be changed to DualChangeSorter new open. Bolot

1 0

Re: Convention regarding exceptions
by Joshua Channing Gargus 01 Feb '01

01 Feb '01

Hi Tim, I built my own; I can email it to you if you don't mind an 860k attachment. Joshua On Fri, Jan 26, 2001 at 11:08:03AM -0800, Tim Rowledge wrote: > So can anyone explain to me where I can get a linuxPPC jitter vm(etc) ? > > I have one dating from last October os so, as extracted from > j3-2.6.0-powerpc-linux-gnu.tar.bz2 but that only runs the included > j3.image (which is only update 155x level). > > I just tried to fetch new stuff from > http://www-sor.inria.fr/~piumarta/squeak/Jitter-3.1/ and can't get it to > work. Firstly, dear old mozilla wouldn't download the file properly so > I had to fetch it with my acorn and then copy it to the linuxPPC. After > finally extracting the file from j3.11c.gz and setting the executable > bit (which makes me wonder if something went wrong in the transfer) I > can't run the vm because of "error in loading shared libraries: > libiberty.so: cannot open shared object file". > > Is there a more recent, or more complete package I can fetch? It's a bit > hard to find out if my unwind code has any problems with something that > I can't run... > > Should the latest 'plain' 2.9 image (I have 3193 to test) run on some > version of the j3 vm? > > tim > > -- > Tim Rowledge, tim(a)sumeru.stanford.edu, http://sumeru.stanford.edu/tim > Manual Writer's Creed: Garbage in, gospel out.

2 2

Jump to page: