Squeak-dev September 1999

squeak-dev@lists.squeakfoundation.org

133 participants
357 discussions

Re: reformatted FAQ
by Bob Arning 06 Sep '99

06 Sep '99

On Mon, 30 Aug 1999 10:16:56 -0400 (EDT) lex(a)cc.gatech.edu (Lex Spoon) wrote: >A couple of weeks ago, I redid the FAQ in a format I think works better >on Swikis. It's named "New FAQ". What do ya'll think? Is this >a good format to switch to? > > http://minnow.cc.gatech.edu/squeak.759 > I like it. One thing that might be helpful would be some simple instructions at the top explaining how to create a new entry: i.e. what does the question writer do? and what does the answer writer do? If there were a template or something, then regular maintenance might not be needed. Cheers, Bob

6 7

Re: Syntax Morph menu troubles
by Ian Trudel 06 Sep '99

06 Sep '99

This also happened in Lex Spoon's Telnet Machine. There was some code like: ------------- aMenu labels: 'set host name set port connect disconnect' lines: #() selections: #(setHostName setPort connect disconnect). ^aMenu ------------- But I had some CRs problems (from the file I filed in). So, I had to reformat the code with proper CRs. However, I fixed it using an array, which doesn't care of CRs. It appears to be a better way to avoid the problem. ------------- ^aMenu labels: #( 'set host name' 'set port' 'connect' 'disconnect' ) lines: #() selections: #(setHostName setPort connect disconnect). ------------- Ian ---------- > De : Dwight Hughes <dwighth(a)ipa.net> > A : squeak(a)cs.uiuc.edu > Objet : Re: Syntax Morph menu troubles > Date : lundi 6 septembre 1999 15:09 > > Sounds like the line endings in the changeset got changed in the file > you downloaded (the items in a menu are supposed to be separated by > CRs). > > -- Dwight > > "Ken G. Brown" wrote: > > > > Hi, > > I'm having trouble getting the menu for Bob's Syntax Morph change set > > to display vertically, the menu items arrange horizontally side by > > side running together across the screen. After opening a morphic > > project, I've filed the Syntax Morph change set > > (SyntaxMorph.17Aug933am.cs) into a pristine 2.5 image, updated to > > change set 1419. This is on MacOS 8.6. Has anyone else experienced > > this? Any tips as to what to try? > > Thx. > > Ken G. Brown

1 0

Re: [BUG][FIX][ENH] ObjectExplorer & SimpleHierarchicalListMorphmiscellania
by Bijan Parsia 06 Sep '99

06 Sep '99

At 1:32 PM -0400 9/6/99, Scott Wallace wrote: >At 12:40 PM -0400 9/6/99, Bob Arning wrote: >>The enclosed filein provides a number of fixes and enhancements to >>ObjectExplorer & SimpleHierarchicalListMorph. One question is: Is the >>ObjectExplorer sufficiently popular that we might consider using it >>instead of #inspect for cmd-i? >> >>Cheers, >>Bob > >The upper-case key combination "cmd-shift-I" is not currently spoken for, >so might use it for invoking #explore. > > -- Scott I *really* like this idea. I'd prefer to keep inspect consistent between MVC and Morphic. Cheers, Bijan Parsia.

1 0

[BUG][FIX][ENH] ObjectExplorer & SimpleHierarchicalListMorph miscellania
by Bob Arning 06 Sep '99

06 Sep '99

The enclosed filein provides a number of fixes and enhancements to ObjectExplorer & SimpleHierarchicalListMorph. One question is: Is the ObjectExplorer sufficiently popular that we might consider using it instead of #inspect for cmd-i? Cheers, Bob ====================== 'From Squeak 2.5 of August 6, 1999 on 6 September 1999 at 11:49:06 am'! "Change Set: HListUpdates Date: 6 September 1999 Author: Bob Arning Some fixes/enhancements to the hierarchical list gizmos 1. When collapsing an item removes the selected item, remove the selection and so notify the model. 2. Handle yellow button presses (as opposed to using the menu button) in the list pane correctly. 3. Allow individual list items to specify a highlighting color (including none) so that color-coding schemes do not get trampled. 4. Allow program controlled expansion and selection of hierarchical items to an arbitrary depth. 5. Modify the triangle forms to Display depth so that weak colors will work. 6. Add an 'explore' item to the menu used by Inspector and Debugger. 7. Fix problem with items representing <nil> being erroneously selected."! !Object methodsFor: 'converting' stamp: 'RAA 8/2/1999 12:41'! complexContents ^self! ! !IndentingListItemMorph methodsFor: 'mouse events' stamp: 'RAA 8/5/1999 19:28'! handlesMouseDown: evt "if user wants a menu, let the pane handle it" ^evt yellowButtonPressed not! ! !IndentingListItemMorph methodsFor: 'drawing' stamp: 'RAA 8/3/1999 09:47'! highlight complexContents highlightingColor ifNotNil: [self color: complexContents highlightingColor]. self changed. ! ! !IndentingListItemMorph methodsFor: 'drawing' stamp: 'RAA 8/3/1999 09:46'! unhighlight complexContents highlightingColor ifNotNil: [self color: Color black]. self changed. ! ! !IndentingListItemMorph methodsFor: 'as yet unclassified' stamp: 'RAA 8/2/1999 16:48'! firstChild ^firstChild! ! !IndentingListItemMorph methodsFor: 'as yet unclassified' stamp: 'RAA 8/4/1999 17:40'! openPath: anArray anArray isEmpty ifTrue: [^container setSelectedMorph: nil]. self withSiblingsDo: [:each | (each complexContents asString = anArray first or: [anArray first isNil]) ifTrue: [ each isExpanded ifFalse: [ each toggleExpandedState. container adjustSubmorphPositions. ]. each changed. anArray size = 1 ifTrue: [ ^container setSelectedMorph: each ]. each firstChild ifNil: [^container setSelectedMorph: nil]. ^each firstChild openPath: anArray allButFirst. ]. ]. ^container setSelectedMorph: nil ! ! !IndentingListItemMorph methodsFor: 'as yet unclassified' stamp: 'RAA 8/2/1999 12:38'! toggleExpandedState | newChildren toDelete | isExpanded _ isExpanded not. toDelete _ OrderedCollection new. firstChild ifNotNil: [ firstChild withSiblingsDo: [ :aNode | aNode recursiveAddTo: toDelete]. ]. container noteRemovalOfAll: toDelete. (isExpanded and: [complexContents hasContents]) ifFalse: [ ^self changed ]. newChildren _ container addSubmorphsAfter: self fromCollection: complexContents contents allowSorting: true. firstChild _ newChildren first. firstChild withSiblingsDo: [ :aNode | aNode indentLevel: indentLevel + 1. ]. ! ! !Inspector methodsFor: 'menu commands' stamp: 'RAA 9/6/1999 11:36'! exploreSelection "Open an ObjectExplorer on the receiver's model's currently selected object." self selectionIndex = 0 ifTrue: [^ self changed: #flash]. ^ self selection explore! ! !Inspector methodsFor: 'menu commands' stamp: 'RAA 9/6/1999 11:36'! fieldListMenu: aMenu ^ aMenu labels: 'inspect explore method refs to this inst var objects pointing to this value copy name browse full browse class inst var refs... inst var defs... class var refs... class variables class refs basic inspect' lines: #(2 4 5 7 9 12 ) selections: #(inspectSelection exploreSelection referencesToSelection objectReferencesToSelection copyName browseMethodFull browseClass browseInstVarRefs browseInstVarDefs classVarRefs browseClassVariables browseClassRefs inspectBasic). ! ! !ListItemWrapper methodsFor: 'as yet unclassified' stamp: 'RAA 8/3/1999 09:40'! highlightingColor ^Color red! ! !SimpleHierarchicalListMorph methodsFor: 'drawing' stamp: 'RAA 8/3/1999 09:44'! highlightSelection selectedMorph ifNotNil: [selectedMorph highlight]! ! !SimpleHierarchicalListMorph methodsFor: 'drawing' stamp: 'RAA 8/3/1999 09:44'! unhighlightSelection selectedMorph ifNotNil: [selectedMorph unhighlight]! ! !SimpleHierarchicalListMorph methodsFor: 'selection' stamp: 'RAA 8/31/1999 08:36'! selection: item "Called from outside to request setting a new selection. Assumes scroller submorphs is exactly our list. Note: MAY NOT work right if list includes repeated items" | i | item ifNil: [^self selectionIndex: 0]. i _ scroller submorphs findFirst: [:m | m complexContents == item]. i > 0 ifTrue: [^self selectionIndex: i]. i _ scroller submorphs findFirst: [:m | m withoutListWrapper = item withoutListWrapper]. self selectionIndex: i! ! !SimpleHierarchicalListMorph methodsFor: 'updating' stamp: 'RAA 8/4/1999 17:39'! update: aSymbol aSymbol == getSelectionSelector ifTrue: [self selection: self getCurrentSelectionItem. ^ self]. aSymbol == getListSelector ifTrue: [self list: self getList. ^ self]. ((aSymbol isKindOf: Array) and: [aSymbol size > 0 and: [aSymbol first == #openPath]]) ifTrue: [ ^(scroller submorphs at: 1 ifAbsent: [^self]) openPath: aSymbol allButFirst ]. ! ! !SimpleHierarchicalListMorph methodsFor: 'as yet unclassified' stamp: 'RAA 8/30/1999 10:19'! expandedForm ^expandedForm ifNil: [expandedForm _ (Form extent: 10@10 depth: 8 fromArray: #( 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 4278255873 16843009 16842752 4294902089 1229539657 33488896 4294967041 1229539585 4294901760 4294967295 21561855 4294901760 4294967295 4278321151 4294901760 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760) offset: 0@0) asFormOfDepth: Display depth. expandedForm replaceColor: Color white withColor: color. expandedForm ]. ! ! !SimpleHierarchicalListMorph methodsFor: 'as yet unclassified' stamp: 'RAA 8/30/1999 10:19'! notExpandedForm ^notExpandedForm ifNil: [notExpandedForm _ (Form extent: 10@10 depth: 8 fromArray: #( 4294967295 4294967295 4294901760 4294967041 4294967295 4294901760 4294967041 33554431 4294901760 4294967041 1224867839 4294901760 4294967041 1229521407 4294901760 4294967041 1229539585 4294901760 4294967041 1229521407 4294901760 4294967041 1224867839 4294901760 4294967041 33554431 4294901760 4294967041 4294967295 4294901760) offset: 0@0) asFormOfDepth: Display depth. notExpandedForm replaceColor: Color white withColor: color. notExpandedForm ]! ! !SimpleHierarchicalListMorph methodsFor: 'as yet unclassified' stamp: 'RAA 8/2/1999 12:42'! noteRemovalOfAll: aCollection scroller removeAllMorphsIn: aCollection. (aCollection includes: selectedMorph) ifTrue: [self setSelectedMorph: nil].! !

3 2

Swiki with 2.5: Saving a page takes very long on Netscape
by Pieber Bernhard 06 Sep '99

06 Sep '99

I am trying out a Swiki under Squeak 2.5 for NT. I serve to myself on port 8089 so I use http://localhost:8089/myswiki.1 to access the front page. It works well except that when I change the front page and press the Save button it takes about 30 seconds until the page is saved. This only happens when I use Netscape 4.5. Under IE 5.0 this does not happen although I use identical proxy settings. So I assume that I am suffering from some browser configuration problem? I use a proxy server but have disabled it for localhost. I think that I have to do that for a Swiki because otherwise it happens that I see old versions when I edit a page more than once. (I would prefer if this would not be necessary. Aren't there ways to tell the proxy server never to cache a Swiki page? I remember vaguely having read somewhere about such a feature.) When I enable the proxy server for localhost the delay is gone even under Netscape. Does anyone know why this delay is happening? Can I do anything about it besides moving to IE? I use the new Windows VM (Squeak 2.5 VM (release build 1) from Aug 30 1999) and I have fetched the latest updates (up to update number 1419). The proxy server is registered in Squeak also. Bernhard Pieber

1 0

[BUG] Smalltalk majorShrink in 2.5
by Bert Freudenberg 06 Sep '99

06 Sep '99

Smalltalk majorShrink produces a "key not found" error in Smalltalk allClassesDo: [:c | c zapOrganization]. The problem seems to be that a lot of obsolete classes like 'AnObsoleteAnObsoleteADPCMCodec' are not removed from Smalltalk. /bert

1 0

[BUG][FIX] Morphic window resizing
by Bert Freudenberg 06 Sep '99

06 Sep '99

If fastWindowDrag is off and you resize a window to its minimal extent it freezes and cannot be enlarged again. Also, if height or width is minimal you cannot resize it with the corner handles. A fix is attached. /bert Content-Type: TEXT/PLAIN; charset=US-ASCII; name="reframe-bf.6Sept1154am.cs" Content-ID: <Pine.LNX.3.96.990906135429.13702B(a)balloon.cs.uni-magdeburg.de> Content-Description: 'From Squeak 2.5 of August 6, 1999 on 6 September 1999 at 11:54:33 am'! "Change Set: reframe-bf Date: 6 September 1999 Author: Bert Freudenberg Fixes getting stuck in minimal extent frame when resizing system windows and fastDragWindows is on. Also enhances reframing with corner handles when fastDrag is off"! !Rectangle methodsFor: 'rectangle functions' stamp: 'bf 9/6/1999 10:49'! withSideOrCorner: side setToPoint: newPoint minExtent: minExtent "Return a copy with side set to newPoint" side = #top ifTrue: [^ self withTop: (newPoint y min: corner y - minExtent y)]. side = #bottom ifTrue: [^ self withBottom: (newPoint y max: origin y + minExtent y)]. side = #left ifTrue: [^ self withLeft: (newPoint x min: corner x - minExtent x)]. side = #right ifTrue: [^ self withRight: (newPoint x max: origin x + minExtent x)]. side = #topLeft ifTrue: [^ (newPoint min: corner - minExtent) corner: self bottomRight]. side = #bottomRight ifTrue: [^ self topLeft corner: (newPoint max: origin + minExtent)]. side = #bottomLeft ifTrue: [^ self topRight rect: ((newPoint x min: corner x - minExtent x) @ (newPoint y max: origin y + minExtent y))]. side = #topRight ifTrue: [^ self bottomLeft rect: ((newPoint x max: origin x + minExtent x) @ (newPoint y min: corner y - minExtent y))].! ! !SystemWindow methodsFor: 'resize/collapse' stamp: 'bf 9/6/1999 10:37'! spawnReframeHandle: event "The mouse has crossed a pane border. Spawn a reframe handle." | resizer localPt pt ptName newBounds | owner ifNil: [^ self "Spurious mouseLeave due to delete"]. (self isActive not or: [self isCollapsed]) ifTrue: [^ self]. ((self world ifNil: [^ self]) firstSubmorph isKindOf: NewHandleMorph) ifTrue: [^ self "Prevent multiple handles"]. paneMorphs do: [:p | ((p fullBounds insetBy: 1) containsPoint: event cursorPoint) ifTrue: [^ self "Don't activate resizer if in a scrollbar"]]. pt _ event cursorPoint. self bounds forPoint: pt closestSideDistLen: [:side :dist :len | "Check for window side adjust" dist <= 2 ifTrue: [ptName _ side]]. ptName ifNil: ["Check for pane border adjust" ^ self spawnPaneFrameHandle: event]. #(topLeft bottomRight bottomLeft topRight) do: [:corner | "Check for window corner adjust" (pt dist: (self bounds perform: corner)) < 20 ifTrue: [ptName _ corner]]. resizer _ NewHandleMorph new followHand: event hand forEachPointDo: [:p | localPt _ self pointFromWorld: p. newBounds _ self bounds withSideOrCorner: ptName setToPoint: localPt minExtent: 100@80. Preferences fastDragWindowForMorphic ifTrue: ["For fast display, only higlight the rectangle during loop" newBounds _ self bounds newRectFrom: [:f | f withSideOrCorner: ptName setToPoint: (self pointFromWorld: Sensor cursorPoint) minExtent: 100@80]. self bounds: newBounds] ifFalse: [self bounds: newBounds. (Preferences roundedWindowCorners and: [#(bottom right bottomRight) includes: ptName]) ifTrue: ["Complete kluge: causes rounded corners to get painted correctly, in spite of not working with top-down displayWorld." ptName = #bottom ifFalse: [self invalidRect: (self bounds topRight - (6@0) extent: 7@7)]. ptName = #right ifFalse: [self invalidRect: (self bounds bottomLeft - (0@6) extent: 7@7)]. self invalidRect: (self bounds bottomRight - (6@6) extent: 7@7)]]] lastPointDo: [:p | ]. event hand world addMorph: resizer. resizer startStepping! !

1 0

Re: Telnet
by Ian Trudel 05 Sep '99

05 Sep '99

Hi, I tried a Telnet client for Squeak some times ago. I think this one is made by Lex Spoon (correct me if I'm wrong). I've put it on my FTP server, your can get it at ftp://monk.cgocable.ca/squeak/TelnetMachine.cs Regards, Ian ---------- > De : montgomery farrar tidwell <mtidwell(a)mail.com> > A : squeak(a)cs.uiuc.edu > Objet : Telnet > Date : mercredi 1 septembre 1999 17:22 > > Howdy, > > is it possible to make a telnet connection/session from within Squeak? > > > (sorry if this is a repeat, mail problems) > > > \\//_

3 2

[ENH]Text Selection Colour picker
by John Dougan 05 Sep '99

05 Sep '99

After squinting a little too long at the hard to see green selection and insertion point colour, I decided to do something about it. Enclosed are changes to add a text selection colour picker similar to the window colour picker already in place. Unfortunately it's only for Morphic, not MVC, but I was uncertain about how MVC handled the highlight colours. Also, the changes are immediate and global, the colours are not sticky to a window as the window colors are. --john dougan Content-Type: application/octet-stream; name="TextColours.5Sept1240am.cs" Content-Disposition: attachment; filename="TextColours.5Sept1240am.cs" Attachment converted: Anon:TextColours.5Sept1240am.cs (????/----) (00013032) -- John Dougan jdougan(a)acm.org

1 0

Re: Telnet
by Ian Trudel 05 Sep '99

05 Sep '99

Hi Richard, indeed, I haven't use it for a while. I just filed it in with Squeak 2.4c and 2.5, there was just about the menu problems and hostname was not even initialized (which lead wallback window open on FillInTheBlank:initialAnswer: with nil parameter on initialAnswer). I fixed everything and put it back on my FTP server. Just download it again, it should be fine. Ian ---------- > De : Richard Smol <rsmol(a)bart.nl> > A : squeak(a)cs.uiuc.edu > Objet : Re: Telnet > Date : samedi 4 septembre 1999 05:39 > > > > Ian Trudel wrote: > > > > Hi, > > > > I tried a Telnet client for Squeak some times ago. I think this one is > > made by Lex Spoon (correct me if I'm wrong). I've put it on my FTP server, > > your can get it at > > > > ftp://monk.cgocable.ca/squeak/TelnetMachine.cs > > How does it work? I try: TelnetMachine open and get a screen in Morphic. > Then what? > Chosing a command from the pop up just results in error messages. > > Greetz, > > RS

2 1

← Newer
1
...
28
29
30
31
32
33
34
35
36
Older →

Jump to page: