Squeak-dev March 2000

squeak-dev@lists.squeakfoundation.org

131 participants
580 discussions

[ENH] Time-since
by Michael Rueger 02 Mar '00

02 Mar '00

Change Set: Time-since-mir Date: 1 March 2000 Author: Michael Rueger Utility methods to find the delta time without the need to check for a rollover every time. -- "To improve is to change, to be perfect is to change often." Winston Churchill +------------------------------------------------------------+ | Michael Rueger | | Phone: ++1 (818) 623 3283 Fax: ++1 (818) 623 3559 | +---------- Michael.Rueger.-ND(a)corp.go.com ------------------+ "Change Set: Time-since-mir Date: 1 March 2000 Author: Michael Rueger Utility methods to find the delta time without the need to check for a rollover every time. "! !Time class methodsFor: 'general inquiries' stamp: 'mir 10/29/1999 18:27'! milliseconds: currentTime since: lastTime | delta | "Answer the elapsed time since last recorded in milliseconds. Compensate for rollover." delta _ currentTime - lastTime. ^delta < 0 ifTrue: [SmallInteger maxVal + delta] ifFalse: [delta] ! ! !Time class methodsFor: 'general inquiries' stamp: 'mir 10/29/1999 18:24'! millisecondsSince: lastTime "Answer the elapsed time since last recorded in milliseconds. Compensate for rollover." ^self milliseconds: self millisecondClockValue since: lastTime! !

1 0

[ENH][FIX] TextMorph
by Michael Rueger 02 Mar '00

02 Mar '00

Change Set: TextMorph-mir Date: 3 August 1999 Author: Michael Rueger Changes to the textstyle are not always propagated to the internal paragraph. Changing the alignment after setting the textstyle resets the paragraph to its original textstyle. This fix also introduces methods to specify wrapping with the initialization method and to set explicitly set font and size. -- "To improve is to change, to be perfect is to change often." Winston Churchill +------------------------------------------------------------+ | Michael Rueger | | Phone: ++1 (818) 623 3283 Fax: ++1 (818) 623 3559 | +---------- Michael.Rueger.-ND(a)corp.go.com ------------------+ "Change Set: TextMorph-mir Date: 3 August 1999 Author: Michael Rueger Changes to the textstyle are not always propagated to the internal paragraph. Changing the alignment after setting the textstyle resets the paragraph to its original textstyle. This fix also introduces methods to specify wrapping with the initialization method and to set explicitly set font and size. "! !TextMorph methodsFor: 'accessing' stamp: 'mir 8/2/1999 10:33'! fontName: fontName size: fontSize | newTextStyle | newTextStyle _ (TextStyle named: fontName asSymbol) copy. newTextStyle ifNil: [self halt: 'Error: font ', fontName, ' not found.']. textStyle _ newTextStyle. text addAttribute: (TextFontChange fontNumber: (newTextStyle fontIndexOfSize: fontSize)). paragraph ifNotNil: [paragraph textStyle: newTextStyle]! ! !TextMorph methodsFor: 'initialization' stamp: 'mir 8/2/1999 10:35'! string: aString fontName: aName size: aSize wrap: shouldWrap shouldWrap ifTrue: [self contentsWrapped: aString] ifFalse: [self contents: aString]. self fontName: aName size: aSize! ! !TextMorph methodsFor: 'initialization' stamp: 'mir 8/2/1999 10:34'! string: aString fontName: aName size: aSize self string: aString fontName: aName size: aSize wrap: true! !

1 0

[ENH][FIX] HTTP-Proxies
by Michael Rueger 02 Mar '00

02 Mar '00

Change Set: ProxyFix-mir Date: 3 August 1999 Author: Michael Rueger Setting a proxy in Squeak usually keeps you from connecting to local hosts within your domain. This fix adds a list of exempt host or domain names to HTTPSocket, which should not be contacted through the proxy. -- "To improve is to change, to be perfect is to change often." Winston Churchill +------------------------------------------------------------+ | Michael Rueger | | Phone: ++1 (818) 623 3283 Fax: ++1 (818) 623 3559 | +---------- Michael.Rueger.-ND(a)corp.go.com ------------------+ "Change Set: ProxyFix-mir Date: 3 August 1999 Author: Michael Rueger Setting a proxy in Squeak usually keeps you from connecting to local hosts within your domain. This fix adds a list of exempt host or domain names to HTTPSocket, which should not be contacted through the proxy. "! SimpleClientSocket subclass: #HTTPSocket instanceVariableNames: 'headerTokens headers responseCode ' classVariableNames: 'HTTPBlabEmail HTTPPort HTTPProxyExceptions HTTPProxyPort HTTPProxyServer ParamDelimiters ' poolDictionaries: '' category: 'Network-Protocols'! Url subclass: #HierarchicalUrl instanceVariableNames: 'schemeName authority port path query ' classVariableNames: '' poolDictionaries: '' category: 'Network-Url'! !HTTPSocket class methodsFor: 'get the page' stamp: 'mir 7/30/1999 14:55'! httpGetDocument: url args: args accept: mimeType request: requestString "Return the exact contents of a web object. Asks for the given MIME type. If mimeType is nil, use 'text/html'. An extra requestString may be submitted and must end with crlf. The parsed header is saved. Use a proxy server if one has been registered. tk 7/23/97 17:12" "Note: To fetch raw data, you can use the MIME type 'application/octet-stream'." | httpUrl page sock list header firstData aStream length type newUrl | Socket initializeNetwork. httpUrl _ Url absoluteFromText: url. page _ httpUrl toText. "add arguments" args ifNotNil: [page _ page, (self argString: args) ]. 3 timesRepeat: [ sock _ self initHTTPSocket: httpUrl ifError: [:errorString | ^errorString]. "Transcript cr; cr; show: url." sock sendCommand: 'GET ', page, ' HTTP/1.0', CrLf, (mimeType ifNotNil: ['ACCEPT: ', mimeType, CrLf] ifNil: ['']), 'ACCEPT: text/html', CrLf, "Always accept plain text" HTTPBlabEmail, "may be empty" requestString, "extra user request. Authorization" 'User-Agent: Squeak 1.31', CrLf, 'Host: ', httpUrl authority, ':', httpUrl port printString, CrLf. "blank line automatically added" list _ sock getResponseUpTo: CrLf, CrLf. "list = header, CrLf, CrLf, beginningOfData" header _ list at: 1. "Transcript show: page; cr; show: header; cr." firstData _ list at: 3. header isEmpty ifTrue: [aStream _ 'server aborted early'] ifFalse: [ "dig out some headers" sock header: header. length _ sock getHeader: 'content-length'. length ifNotNil: [ length _ length asNumber ]. type _ sock getHeader: 'content-type'. sock responseCode first = $3 ifTrue: [ newUrl _ sock getHeader: 'location'. newUrl ifNotNil: [ Transcript show: 'redirecting to ', newUrl; cr. sock destroy. ^self httpGetDocument: newUrl args: args accept: mimeType ] ]. aStream _ sock getRestOfBuffer: firstData totalLength: length. sock responseCode = '401' ifTrue: [^ header, aStream contents]. ]. sock destroy. "Always OK to destroy!!" aStream class ~~ String ifTrue: [ ^ MIMEDocument contentType: type content: aStream contents url: url]. aStream = 'server aborted early' ifFalse: [ ] ].! ! !HTTPSocket class methodsFor: 'get the page' stamp: 'mir 7/30/1999 15:44'! httpPostDocument: url args: argsDict accept: mimeType request: requestString "like httpGET, except it does a POST instead of a GET. POST allows data to be uploaded" | s header length page list firstData aStream argsStream first type newUrl httpUrl | Socket initializeNetwork. httpUrl _ Url absoluteFromText: url. page _ httpUrl toText. "add arguments" argsDict ifNotNil: [page _ page, (self argString: argsDict) ]. "encode the arguments dictionary" argsStream _ WriteStream on: String new. first _ true. argsDict associationsDo: [ :assoc | assoc value do: [ :value | first ifTrue: [ first _ false ] ifFalse: [ argsStream nextPut: $& ]. argsStream nextPutAll: assoc key encodeForHTTP. argsStream nextPut: $=. argsStream nextPutAll: value encodeForHTTP. ] ]. s _ HTTPSocket new. s _ self initHTTPSocket: httpUrl wait: (self deadlineSecs: 30) ifError: [:errorString | ^errorString]. Transcript cr; show: url; cr. s sendCommand: 'POST ', page, ' HTTP/1.0', CrLf, (mimeType ifNotNil: ['ACCEPT: ', mimeType, CrLf] ifNil: ['']), 'ACCEPT: text/html', CrLf, "Always accept plain text" HTTPBlabEmail, "may be empty" requestString, "extra user request. Authorization" 'User-Agent: Squeak 1.31', CrLf, 'Content-type: application/x-www-form-urlencoded', CrLf, 'Content-length: ', argsStream contents size printString, CrLf, 'Host: ', httpUrl authority, CrLf. "blank line automatically added" s sendCommand: argsStream contents. "get the header of the reply" list _ s getResponseUpTo: CrLf, CrLf. "list = header, CrLf, CrLf, beginningOfData" header _ list at: 1. "Transcript show: page; cr; show: argsStream contents; cr; show: header; cr." firstData _ list at: 3. "dig out some headers" s header: header. length _ s getHeader: 'content-length'. length ifNotNil: [ length _ length asNumber ]. type _ s getHeader: 'content-type'. s responseCode first = $3 ifTrue: [ newUrl _ s getHeader: 'location'. newUrl ifNotNil: [ Transcript show: 'redirecting to: ', newUrl; cr. s destroy. ^self httpPostDocument: newUrl args: argsDict accept: mimeType ] ]. aStream _ s getRestOfBuffer: firstData totalLength: length. s responseCode = '401' ifTrue: [^ header, aStream contents]. s destroy. "Always OK to destroy!!" ^ MIMEDocument contentType: type content: aStream contents url: url! ! !HTTPSocket class methodsFor: 'proxy settings' stamp: 'mir 7/30/1999 16:08'! addProxyException: domainName "Add a (partial, wildcard) domain name to the list of proxy exceptions" "HTTPSocket addProxyException: '*.online.disney.com'" self httpProxyExceptions add: domainName! ! !HTTPSocket class methodsFor: 'proxy settings' stamp: 'mir 7/30/1999 15:03'! httpProxyExceptions HTTPProxyExceptions ifNil: [HTTPProxyExceptions _ OrderedCollection new]. ^HTTPProxyExceptions! ! !HTTPSocket class methodsFor: 'proxy settings' stamp: 'mir 7/30/1999 15:03'! removeProxyException: domainName "Remove a (partial, wildcard) domain name from the list of proxy exceptions" self httpProxyExceptions remove: domainName ifAbsent: []! ! !HTTPSocket class methodsFor: 'utilities' stamp: 'mir 7/30/1999 15:46'! initHTTPSocket: httpUrl ifError: aBlock "Retrieve the server and port information from the URL, match it to the proxy settings and open a http socket for the request." ^self initHTTPSocket: httpUrl wait: self standardDeadline ifError: aBlock! ! !HTTPSocket class methodsFor: 'utilities' stamp: 'mir 7/30/1999 15:43'! initHTTPSocket: httpUrl wait: timeout ifError: aBlock "Retrieve the server and port information from the URL, match it to the proxy settings and open a http socket for the request." | serverName port serverAddr s | Socket initializeNetwork. serverName _ httpUrl authority. port _ httpUrl port ifNil: [self defaultPort]. (self shouldUseProxy: serverName) ifTrue: [ serverName _ HTTPProxyServer. port _ HTTPProxyPort]. "make the request" self retry: [serverAddr _ NetNameResolver addressForName: serverName timeout: 20. serverAddr ~~ nil] asking: 'Trouble resolving server name. Keep trying?' ifGiveUp: [aBlock value: 'Error: Could not resolve the server named: ', serverName]. s _ HTTPSocket new. s connectTo: serverAddr port: port. (s waitForConnectionUntil: timeout) ifFalse: [ Socket deadServer: httpUrl authority. s destroy. ^aBlock value: 'Error: Server ',httpUrl authority,' is not responding']. ^s ! ! !HTTPSocket class methodsFor: 'utilities' stamp: 'mir 7/30/1999 13:33'! shouldUseProxy: serverName "Retrieve the server and port information from the URL, match it to the proxy settings and open a http socket for the request." HTTPProxyServer ifNotNil: [ self httpProxyExceptions detect: [:domainName | domainName match: serverName] ifNone: [^true]]. ^false ! ! !HierarchicalUrl methodsFor: 'parsing' stamp: 'mir 7/30/1999 13:05'! privateInitializeFromText: aString | remainder ind nextTok s specifiedSchemeName | remainder _ aString. schemeName ifNil: [ specifiedSchemeName _ Url schemeNameForString: remainder. specifiedSchemeName ifNotNil: [ schemeName _ specifiedSchemeName. remainder _ remainder copyFrom: (schemeName size+2) to: remainder size ]. schemeName ifNil: [ "assume HTTP" schemeName _ 'http' ] ]. "remove leading // if it's there" (remainder beginsWith: '//') ifTrue: [ remainder _ remainder copyFrom: 3 to: remainder size ]. "get the query" ind _ remainder indexOf: $?. ind > 0 ifTrue: [ query _ (remainder copyFrom: ind+1 to: remainder size). remainder _ remainder copyFrom: 1 to: ind-1 ]. "get the authority" ind _ remainder indexOf: $/. ind > 0 ifTrue: [ ind = 1 ifTrue: [ authority _ '' ] ifFalse: [ authority _ remainder copyFrom: 1 to: ind-1. remainder _ remainder copyFrom: ind+1 to: remainder size. ] ] ifFalse: [ authority _ remainder. remainder _ ''. ]. "Extract the port" (authority includes: $:) ifTrue: [ port _ (authority copyFrom: (authority indexOf: $:) + 1 to: authority size) asNumber. authority _ authority copyUpTo: $:]. "get the path" path _ OrderedCollection new. s _ ReadStream on: remainder. [ s peek = $/ ifTrue: [ s next ]. nextTok _ WriteStream on: String new. [ s atEnd or: [ s peek = $/ ] ] whileFalse: [ nextTok nextPut: s next ]. nextTok _ nextTok contents unescapePercents. nextTok = '..' ifTrue: [ path size > 0 ifTrue: [ path removeLast ] ] ifFalse: [ nextTok ~= '.' ifTrue: [ path add: nextTok ] ]. s atEnd ] whileFalse. path isEmpty ifTrue: [ path add: '' ].! ! !HierarchicalUrl methodsFor: 'access' stamp: 'mir 7/30/1999 13:05'! port ^port! !

1 0

[ENH] ProgressMorph
by Michael Rueger 02 Mar '00

02 Mar '00

Change Set: ProgressMorph Date: 1 March 2000 Author: Michael Rueger A progress indicator. You can provide a top and a sub label indicating the progress. The progress value can either be set using absolute values between 0.0 - 1.0, or by specifying the incremental progress with incrDone. -- "To improve is to change, to be perfect is to change often." Winston Churchill +------------------------------------------------------------+ | Michael Rueger | | Phone: ++1 (818) 623 3283 Fax: ++1 (818) 623 3559 | +---------- Michael.Rueger.-ND(a)corp.go.com ------------------+ "Change Set: ProgressMorph Date: 1 March 2000 Author: Michael Rueger A progress indicator. You can provide a top and a sub label indicating the progress. The progress value can either be set using absolute values between 0.0 - 1.0, or by specifying the incremental progress with incrDone. "! RectangleMorph subclass: #ProgressMorph instanceVariableNames: 'labelMorph subLabelMorph progress ' classVariableNames: 'Current ' poolDictionaries: '' category: 'Morphic-Widgets'! !ProgressMorph methodsFor: 'accessing' stamp: 'mir 2/14/2000 17:55'! done ^self progress value contents! ! !ProgressMorph methodsFor: 'accessing' stamp: 'mir 1/19/2000 13:10'! done: amountDone self progress value contents: (amountDone abs min: 1.0)! ! !ProgressMorph methodsFor: 'accessing' stamp: 'mir 1/19/2000 13:47'! incrDone: incrDone self progress value contents: self progress value contents + incrDone! ! !ProgressMorph methodsFor: 'accessing' stamp: 'mir 1/19/2000 13:28'! label ^self labelMorph contents! ! !ProgressMorph methodsFor: 'accessing' stamp: 'mir 1/19/2000 13:26'! label: aString self labelMorph contents: aString! ! !ProgressMorph methodsFor: 'accessing' stamp: 'mir 1/19/2000 13:25'! progress ^progress ifNil: [self initProgressMorph]! ! !ProgressMorph methodsFor: 'accessing' stamp: 'mir 1/19/2000 13:27'! subLabel ^self subLabelMorph contents! ! !ProgressMorph methodsFor: 'accessing' stamp: 'mir 1/19/2000 13:27'! subLabel: aString self subLabelMorph contents: aString! ! !ProgressMorph methodsFor: 'private' stamp: 'mir 1/19/2000 13:25'! labelMorph ^labelMorph ifNil: [self initLabelMorph]! ! !ProgressMorph methodsFor: 'private' stamp: 'mir 1/19/2000 13:05'! largeFont "Answer a small font to use for things like the label on the special weapons switch." | fontSize font | fontSize _ 19. font _ (TextConstants includesKey: #ComicBold) ifTrue: [ (TextConstants at: #ComicBold) fontOfSize: fontSize] ifFalse: [ TextStyle default fontOfSize: fontSize]. ^ font ! ! !ProgressMorph methodsFor: 'private' stamp: 'mir 1/19/2000 13:25'! subLabelMorph ^subLabelMorph ifNil: [self initSubLabelMorph]! ! !ProgressMorph methodsFor: 'initialization' stamp: 'mir 1/19/2000 13:30'! initLabelMorph ^labelMorph _ StringMorph contents: '' font: self largeFont. ! ! !ProgressMorph methodsFor: 'initialization' stamp: 'mir 1/19/2000 13:16'! initProgressMorph progress _ FlashProgressMorph new. progress borderWidth: 1. progress color: Color transparent. progress progressColor: Color gray. progress extent: (200 @ 15). ! ! !ProgressMorph methodsFor: 'initialization' stamp: 'mir 1/19/2000 13:30'! initSubLabelMorph ^subLabelMorph _ StringMorph contents: '' font: self largeFont. ! ! !ProgressMorph methodsFor: 'initialization' stamp: 'mir 1/19/2000 13:28'! initialize super initialize. self setupMorphs! ! !ProgressMorph methodsFor: 'initialization' stamp: 'mir 1/19/2000 13:33'! setupMorphs | container | self initProgressMorph. container _ AlignmentMorph newColumn. container centering: #center; hResizing: #shrinkWrap; vResizing: #shrinkWrap; color: Color transparent. container addMorphBack: self labelMorph. container addMorphBack: self subLabelMorph. container addMorphBack: self progress. self addMorph: container. self borderWidth: 2. self borderColor: Color black. self extent: container extent. self color: Color veryLightGray. self align: self fullBounds center with: Display boundingBox center ! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! ProgressMorph class instanceVariableNames: ''! !ProgressMorph class methodsFor: 'instance creation' stamp: 'mir 1/19/2000 13:07'! label: aString ^self new label: aString! ! !ProgressMorph class methodsFor: 'accessing' stamp: 'mir 2/29/2000 12:30'! current ^Current ifNil: [self current: 'Progress'] ifNotNil: [Current]! ! !ProgressMorph class methodsFor: 'accessing' stamp: 'mir 2/14/2000 17:43'! current: aLabel Current ifNil: [ Current _ ProgressMorph label: aLabel. Current beSticky. Current openInWorld] ifNotNil: [Current label: aLabel]. ^Current! ! !ProgressMorph class methodsFor: 'accessing' stamp: 'mir 2/13/2000 22:30'! deleteCurrent Current ifNotNil: [ Current delete. Current _ nil]! ! !ProgressMorph class methodsFor: 'example' stamp: 'mir 2/29/2000 12:31'! example "ProgressMorph example" ProgressMorph current: 'Test progress'. [10 timesRepeat: [ (Delay forMilliseconds: 200) wait. ProgressMorph current incrDone: 0.1]. ProgressMorph deleteCurrent] fork! !

1 0

[ENH] WebBrowser Plugin API
by Michael Rueger 02 Mar '00

02 Mar '00

Change Set: Plugin-requests Date: 1 March 2000 Author: Michael Rueger, Andreas Raab Provides access to a set of primitives to download data through the borwser plugin api. This only work when Squeak is run as a plugin in a web browser. The primitive make use of the plugin api, thus going through the browser's cache and proxy mechanism. You should also be able to go through safe connections (https), but that's not tested. The public protocol: -requestURLStream: url -requestURLStream: url ifError: errorBlock These calls return a stream which contains the contents of the url. The stream should be a StandardFileStream pointing to a file in the browser's cache. Example: FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab' FileStream requestURLStream:'http://www.disney.com' -requestURL: url target: target -requestURL: url target: target ifError: errorBlock These calls request the browser to go to the specified url and the target within the url's content. This can be used to jump to a different web page from within squeak. This may terminate the plugin in case you are actually leaving the page with the embedded plugin. -- "To improve is to change, to be perfect is to change often." Winston Churchill +------------------------------------------------------------+ | Michael Rueger | | Phone: ++1 (818) 623 3283 Fax: ++1 (818) 623 3559 | +---------- Michael.Rueger.-ND(a)corp.go.com ------------------+ "Change Set: Plugin-requests Date: 1 March 2000 Author: Michael Rueger, Andreas Raab Provides access to a set of primitives to download data through the borwser plugin api. This only work when Squeak is run as a plugin in a web browser. The primitive make use of the plugin api, thus going through the browser's cache and proxy mechanism. You should also be able to go through safe connections (https), but that's not tested. The public protocol: -requestURLStream: url -requestURLStream: url ifError: errorBlock These calls return a stream which contains the contents of the url. The stream should be a StandardFileStream pointing to a file in the browser's cache. Example: FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab' FileStream requestURLStream:'http://www.disney.com' -requestURL: url target: target -requestURL: url target: target ifError: errorBlock These calls request the browser to go to the specified url and the target within the url's content. This can be used to jump to a different web page from within squeak. This may terminate the plugin in case you are actually leaving the page with the embedded plugin. "! !StandardFileStream methodsFor: 'browser requests' stamp: 'mir 1/11/2000 10:44'! defaultBrowserReadyWait ^5000! ! !StandardFileStream methodsFor: 'browser requests' stamp: 'mir 1/11/2000 10:38'! primBrowserReady <primitive:'primitivePluginBrowserReady'> self primitiveFailed! ! !StandardFileStream methodsFor: 'browser requests'! primURLRequest: url semaIndex: index <primitive:'primitivePluginRequestURLStream'> ^nil! ! !StandardFileStream methodsFor: 'browser requests' stamp: 'mir 2/29/2000 11:22'! primURLRequest: url target: target semaIndex: index "target - String (frame, also '_top', '_parent' etc)" <primitive:'primitivePluginRequestURL'> ^nil ! ! !StandardFileStream methodsFor: 'browser requests'! primURLRequestDestroy: request <primitive:'primitivePluginDestroyRequest'> ^nil! ! !StandardFileStream methodsFor: 'browser requests'! primURLRequestFileHandle: request <primitive: 'primitivePluginRequestFileHandle'> ^nil! ! !StandardFileStream methodsFor: 'browser requests'! primURLRequestState: request <primitive:'primitivePluginRequestState'> ^false! ! !StandardFileStream methodsFor: 'browser requests' stamp: 'mir 2/29/2000 11:22'! requestURL: url target: target ^self requestURL: url target: target ifError: [nil]! ! !StandardFileStream methodsFor: 'browser requests' stamp: 'mir 2/29/2000 11:24'! requestURL: url target: target ifError: errorBlock "Request to go to the target for the given URL. If Squeak is not running in a browser evaluate errorBlock" | sema index request result | self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value]. sema _ Semaphore new. index _ Smalltalk registerExternalObject: sema. request _ self primURLRequest: url target: target semaIndex: index. request == nil ifTrue:[ Smalltalk unregisterExternalObject: sema. ^errorBlock value. ] ifFalse:[ [sema wait. "until something happens" result _ self primURLRequestState: request. result == nil] whileTrue. self primURLRequestDestroy: request. ]. Smalltalk unregisterExternalObject: sema. fileID == nil ifTrue:[^nil]. self register. name _ url. rwmode _ false. buffer1 _ String new: 1.! ! !StandardFileStream methodsFor: 'browser requests'! requestURLStream: url "FileStream requestURLStream:'http://www.squeak.org'" ^self requestURLStream: url ifError:[nil]! ! !StandardFileStream methodsFor: 'browser requests' stamp: 'mir 1/11/2000 10:43'! requestURLStream: url ifError: errorBlock "Request a FileStream for the given URL. If Squeak is not running in a browser evaluate errorBlock" "FileStream requestURLStream:'http://www.squeak.org'" | sema index request result | self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value]. sema _ Semaphore new. index _ Smalltalk registerExternalObject: sema. request _ self primURLRequest: url semaIndex: index. request == nil ifTrue:[ Smalltalk unregisterExternalObject: sema. ^errorBlock value. ] ifFalse:[ [sema wait. "until something happens" result _ self primURLRequestState: request. result == nil] whileTrue. result ifTrue:[fileID _ self primURLRequestFileHandle: request]. self primURLRequestDestroy: request. ]. Smalltalk unregisterExternalObject: sema. fileID == nil ifTrue:[^nil]. self register. name _ url. rwmode _ false. buffer1 _ String new: 1.! ! !StandardFileStream methodsFor: 'browser requests' stamp: 'mir 1/11/2000 10:55'! waitBrowserReadyFor: timeout ifFail: errorBlock | startTime delay | self primBrowserReady ifTrue: [^true]. startTime _ Time millisecondClockValue. delay _ Delay forMilliseconds: 100. [(Time millisecondsSince: startTime) < timeout] whileTrue: [ delay wait. self primBrowserReady ifTrue: [^true]]. ^errorBlock value! ! !FileStream class methodsFor: 'browser requests'! requestURLStream: url "FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab'" ^self concreteStream new requestURLStream: url! ! !FileStream class methodsFor: 'browser requests'! requestURLStream: url ifError: errorBlock "FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab'" ^self concreteStream new requestURLStream: url ifError: errorBlock! !

1 0

[ENH] Dialogs
by Michael Rueger 01 Mar '00

01 Mar '00

Change Set: Morphic-Dialogs Date: 1 March 2000 Author: Michael Rueger A small framework for building dialog windows. The dialogs are not modal yet (which they should be). There is also the potential to extend this package to support platform specific dialogs via SystemDialog concreteClass. See also the examples in MorphicDialog. Change Set: Morphic-Dialogs-mir Date: 1 March 2000 Author: Michael Rueger Based on the morphic dialog package this change set replaces most of the user interface calls (inform:, confirm:) with calls to the morphic dialog package. -- "To improve is to change, to be perfect is to change often." Winston Churchill +------------------------------------------------------------+ | Michael Rueger | | Phone: ++1 (818) 623 3283 Fax: ++1 (818) 623 3559 | +---------- Michael.Rueger.-ND(a)corp.go.com ------------------+ "Change Set: Morphic-Dialogs Date: 1 March 2000 Author: Michael Rueger A small framework for building dialog windows. The dialogs are not modal yet (which they should be). There is also the potential to extend this package to support platform specific dialogs via SystemDialog concreteClass. See also the examples in MorphicDialog. "! SimpleButtonMorph subclass: #SimpleDialogButtonMorph instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Dialogs'! !SimpleDialogButtonMorph methodsFor: 'accessing' stamp: 'mir 2/17/2000 13:38'! label: aString extraSpace: aPoint | oldLabel m | (oldLabel _ self findA: StringMorph) ifNotNil: [oldLabel delete]. m _ StringMorph contents: aString font: TextStyle defaultFont. self extent: m extent + (borderWidth + 6) + aPoint. m position: self center - (m extent // 2). self addMorph: m. m lock! ! !SimpleDialogButtonMorph methodsFor: 'accessing' stamp: 'mir 2/17/2000 13:46'! label: aString extraSpace: aPoint minimumExtent: minExtent | oldLabel m | (oldLabel _ self findA: StringMorph) ifNotNil: [oldLabel delete]. m _ StringMorph contents: aString font: TextStyle defaultFont. self extent: ((m extent + (borderWidth + 6) + aPoint) max: minExtent). m position: self center - (m extent // 2). self addMorph: m. m lock! ! !SimpleDialogButtonMorph methodsFor: 'drawing' stamp: 'mir 2/17/2000 13:37'! drawOn: aCanvas borderColor == #raised ifTrue: [ "Use a hack for now" aCanvas fillRectangle: self bounds fillStyle: self fillStyle. ^ aCanvas frameAndFillRectangle: bounds fillColor: Color transparent borderWidth: borderWidth topLeftColor: Color white bottomRightColor: Color veryDarkGray]. borderColor == #defaultRaised ifTrue: [ "Use a hack for now" aCanvas fillRectangle: self bounds fillStyle: self fillStyle. aCanvas frameRectangle: self bounds color: Color black. ^ aCanvas frameAndFillRectangle: (bounds insetBy: 1@1) fillColor: Color transparent borderWidth: (borderWidth - 1 max: 1) topLeftColor: Color white bottomRightColor: Color veryDarkGray]. super drawOn: aCanvas! ! RectangleMorph subclass: #SystemDialog instanceVariableNames: 'done ' classVariableNames: 'StandardOptions ' poolDictionaries: '' category: 'Morphic-Dialogs'! !SystemDialog methodsFor: 'open/close' stamp: 'mir 2/23/2000 19:44'! getUserResponse "Wait for the user to accept or cancel, and answer the result string. Answers the empty string if the user cancels." "Details: This is invoked synchronously from the caller. In order to keep processing inputs and updating the screen while waiting for the user to respond, this method has its own version of the World's event loop." | w | w _ self world. w ifNil: [^ self response]. done _ false. [done] whileFalse: [w doOneSubCycle]. self delete. w doOneSubCycle. ^ self response ! ! !SystemDialog methodsFor: 'open/close' stamp: 'mir 7/20/1999 18:52'! getUserResponseSync "Wait for the user to accept or cancel, and answer the result string. Answers the empty string if the user cancels." "Details: This is invoked synchronously from the caller. In order to keep processing inputs and updating the screen while waiting for the user to respond, this method has its own version of the World's event loop." | w hand | " w _ self world. w ifNil: [^ self response]." hand _ World primaryHand. w _ hand world . w addMorphFront: self; startSteppingSubmorphsOf: self. self changed. done _ false. [done] whileFalse: [w doOneSubCycle]. self delete. ^ self response ! ! !SystemDialog methodsFor: 'accessing' stamp: 'mir 7/19/1999 18:24'! response self subclassResponsibility! ! !SystemDialog methodsFor: 'accessing' stamp: 'mir 7/20/1999 12:50'! roundedWindowCorners ^true! ! !SystemDialog methodsFor: 'private construction' stamp: 'mir 2/17/2000 13:50'! makeButtonRow: morphList | row | row _ AlignmentMorph newRow fillStyle: Color transparent; borderWidth: 0; inset: 3; minCellSize: 60. row hResizing: #shrinkWrap; vResizing: #spaceFill; centering: #center; extent: 5@5. morphList do: [:morph | row addMorph: (self wrapButton: morph)]. ^ row! ! !SystemDialog methodsFor: 'private construction' stamp: 'mir 7/22/1999 12:06'! wrapButton: aMorph "wrap a button or other morph in an alignmentMorph to allow to fill space." | wrapper | wrapper _ AlignmentMorph newColumn fillStyle: Color transparent; "color: self defaultColor;" centering: #center; hResizing: #spaceFill; vResizing: #spaceFill. wrapper addMorph: aMorph. ^wrapper ! ! !SystemDialog methodsFor: 'initialization' stamp: 'mir 2/28/2000 16:13'! initialize super initialize. done _ false. self fillStyle: Color veryLightGray; "fillStyle: self defaultFillStyle;" borderWidth: 2; borderColor: #raised! ! !SystemDialog methodsFor: 'private accessing' stamp: 'mir 7/20/1999 12:36'! defaultColor ^Color black! ! !SystemDialog methodsFor: 'private accessing' stamp: 'mir 7/20/1999 12:36'! defaultFillStyle ^Color veryLightGray! ! !SystemDialog methodsFor: 'private accessing' stamp: 'mir 2/23/2000 19:48'! standardOption: option ^StandardOptions at: option ifAbsent: [nil]! ! !SystemDialog methodsFor: 'drawing' stamp: 'mir 7/20/1999 12:50'! fullDrawOn: aCanvas self roundedWindowCorners ifTrue: [CornerRounder roundCornersOf: self on: aCanvas displayBlock: [super fullDrawOn: aCanvas] borderWidth: 2] ifFalse: [super fullDrawOn: aCanvas]! ! !SystemDialog methodsFor: 'private' stamp: 'mir 2/28/2000 14:07'! positionInWorld: aWorld | vOffset | vOffset _ self bounds amountToTranslateWithin: aWorld viewBox. self position: self position + vOffset! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! SystemDialog class instanceVariableNames: ''! !SystemDialog class methodsFor: 'accessing' stamp: 'mir 2/23/2000 19:56'! concreteClass ^World ifNil: [MVCDialog] ifNotNil: [MorphicDialog]! ! !SystemDialog class methodsFor: 'class initialization' stamp: 'mir 2/23/2000 19:48'! initialize "SystemDialog initialize" StandardOptions _ Dictionary new. StandardOptions at: #ok put: (Array with: 'OK' with: true with: nil); at: #yes put: (Array with: 'Yes' with: true with: nil); at: #no put: (Array with: 'No' with: false with: nil); at: #accept put: (Array with: 'Accept' with: true with: nil); at: #cancel put: (Array with: 'Cancel' with: nil with: nil); at: #retry put: (Array with: 'Retry' with: true with: nil); at: #abort put: (Array with: 'Give Up' with: false with: nil) ! ! SystemDialog subclass: #MVCDialog instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Dialogs'! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! MVCDialog class instanceVariableNames: ''! !MVCDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:57'! confirm: queryString "Put up a yes/no menu with caption aString. Answer true if the response is yes, false if no. This is a modal question--the user must respond yes or no." "nil confirm: 'Are you hungry?'" ^ SelectionMenu confirm: queryString! ! !MVCDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:57'! confirm: aString orCancel: cancelBlock "Put up a yes/no/cancel menu with caption aString. Answer true if the response is yes, false if no. If cancel is chosen, evaluate cancelBlock." | choice | [true] whileTrue: [choice _ (PopUpMenu labels: 'yes no cancel') startUpWithCaption: aString. choice = 1 ifTrue: [^ true]. choice = 2 ifTrue: [^ false]. choice = 3 ifTrue: [^ cancelBlock value]]! ! !MVCDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:57'! inform: aString "Display a message for the user to read and then dismiss. 6/9/96 sw" aString size > 0 ifTrue: [(PopUpMenu labels: ' OK ') startUpWithCaption: aString]! ! !MVCDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 20:00'! retry: messageText onAbort: abortActionBlock | response | response _ (PopUpMenu labels: 'Retry\Give Up' withCRs) startUpWithCaption: messageText. ^response = 2 ifTrue: [ abortActionBlock value. false] ifFalse: [true]! ! SystemDialog subclass: #MorphicDialog instanceVariableNames: 'resultOption ' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Dialogs'! !MorphicDialog methodsFor: 'event handling' stamp: 'mir 7/20/1999 15:47'! handlesMouseOver: evt ^ true ! ! !MorphicDialog methodsFor: 'event handling' stamp: 'mir 7/20/1999 16:19'! keyStroke: evt "Process the given keyboard event." | k | k _ evt keyValue. k = 13 ifTrue: [ "return key" self defaultSelected]. ! ! !MorphicDialog methodsFor: 'event handling' stamp: 'mir 7/20/1999 15:46'! mouseEnter: evt evt hand newKeyboardFocus: self. ! ! !MorphicDialog methodsFor: 'private' stamp: 'mir 7/20/1999 18:31'! defaultBackgroundMorph | backgroundMorph | backgroundMorph _ Morph new. backgroundMorph color: self defaultColor; fillStyle: self defaultFillStyle. ^backgroundMorph! ! !MorphicDialog methodsFor: 'private' stamp: 'mir 7/20/1999 16:18'! defaultSelected done _ true. ! ! !MorphicDialog methodsFor: 'private' stamp: 'mir 7/22/1999 10:23'! minimumExtent ^200@80! ! !MorphicDialog methodsFor: 'private' stamp: 'mir 7/19/1999 18:40'! optionSelected: optionValue resultOption _ optionValue. done _ true. ! ! !MorphicDialog methodsFor: 'accessing' stamp: 'mir 7/20/1999 16:27'! defaultResponse: aValue resultOption _ aValue! ! !MorphicDialog methodsFor: 'accessing' stamp: 'mir 7/19/1999 18:25'! response ^resultOption! ! !MorphicDialog methodsFor: 'private construction' stamp: 'mir 2/17/2000 13:51'! constructInnerMorph: optionMorphs descriptionMorph: descriptionMorph | innerMorph optionMorph buttonRow optionDescriptionMorph | innerMorph _ AlignmentMorph newColumn. innerMorph centering: #center; fillStyle: Color transparent; "width: self innerBounds width;" hResizing: #spaceFill; vResizing: #spaceFill; borderWidth: 0; extent: self minimumExtent. optionMorph _ AlignmentMorph new. optionMorph hResizing: #shrinkWrap; color: Color transparent; borderWidth: 0. buttonRow _ self makeButtonRow: optionMorphs. optionMorph addMorph: buttonRow. innerMorph addMorph: optionMorph. optionDescriptionMorph _ self constructOptionDescriptionMorph: descriptionMorph. innerMorph addMorph: optionDescriptionMorph. ^innerMorph ! ! !MorphicDialog methodsFor: 'private construction' stamp: 'mir 7/20/1999 16:40'! constructOption: optionDescriptor ^self constructSimpleOptionMorph: (optionDescriptor at: 1) optionValue: (optionDescriptor at: 2) optionImage: (optionDescriptor at: 3) default: false ! ! !MorphicDialog methodsFor: 'private construction' stamp: 'mir 2/17/2000 13:52'! constructOptionDescriptionMorph: optionDescriptionMorph | container | container _ AlignmentMorph newRow centering: #center; hResizing: #shrinkWrap; vResizing: #spaceFill; fillStyle: Color transparent; "color: Color black;" borderWidth: 0. container addMorph: optionDescriptionMorph. ^container. ! ! !MorphicDialog methodsFor: 'private construction' stamp: 'mir 7/20/1999 17:43'! constructOptionText: optionText ^TextMorph new contents: optionText! ! !MorphicDialog methodsFor: 'private construction' stamp: 'mir 2/17/2000 13:47'! constructSimpleOptionMorph: optionLabel optionValue: optionValue optionImage: optionImage default: isDefaultOption | optionMorph | optionImage isNil ifTrue: [ optionMorph _ SimpleDialogButtonMorph new. optionMorph label: optionLabel extraSpace: 10@4 minimumExtent: 45@23; borderWidth: 1; useSquareCorners; borderColor: #raised] ifFalse: [ optionMorph _ ThreePhaseButtonMorph new. optionMorph offImage: optionImage; extent: optionImage extent]. optionMorph "fillStyle: Color transparent;" color: self defaultFillStyle; actionSelector: #optionSelected: ; target: self; arguments: (Array with: optionValue). isDefaultOption ifTrue: [ optionMorph borderColor: #defaultRaised]. ^optionMorph ! ! !MorphicDialog methodsFor: 'private construction' stamp: 'mir 7/20/1999 16:24'! constructStandardOption: option default: default | optionDescriptor | optionDescriptor _ self standardOption: option. optionDescriptor ifNil: [^self]. ^self constructSimpleOptionMorph: (optionDescriptor at: 1) optionValue: (optionDescriptor at: 2) optionImage: (optionDescriptor at: 3) default: option == default ! ! !MorphicDialog methodsFor: 'private options' stamp: 'mir 2/28/2000 15:37'! optionMorphs: optionMorphs descriptionMorph: descriptionMorph backgroundMorph: backgroundMorph | innerMorph | innerMorph _ self constructInnerMorph: optionMorphs descriptionMorph: descriptionMorph. self extent: (innerMorph fullBounds extent + (self borderWidth*2)) truncated. innerMorph position: self innerBounds topLeft. backgroundMorph ifNotNil: [ backgroundMorph extent: self innerBounds extent. backgroundMorph position: self innerBounds topLeft. self addMorph: backgroundMorph]. self addMorph: innerMorph! ! !MorphicDialog methodsFor: 'private options' stamp: 'mir 7/20/1999 18:14'! options: options defaultResponse: defaultResponse label: aLabelString optionText: optionText backgroundMorph: backgroundMorph | optionList optionDescriptionMorph | self defaultResponse: defaultResponse. optionList _ options collect: [:option | self constructOption: option]. optionDescriptionMorph _ self constructOptionText: optionText. self optionMorphs: optionList descriptionMorph: optionDescriptionMorph backgroundMorph: backgroundMorph ! ! !MorphicDialog methodsFor: 'private options' stamp: 'mir 2/28/2000 13:59'! standardOptions: options default: default optionText: optionText | optionList optionDescriptionMorph | self defaultResponse: ((self standardOption: default) at: 2). optionList _ options collect: [:option | self constructStandardOption: option default: default]. optionDescriptionMorph _ self constructOptionText: optionText. self optionMorphs: optionList descriptionMorph: optionDescriptionMorph backgroundMorph: nil ! ! !MorphicDialog methodsFor: 'initialization' stamp: 'mir 7/19/1999 17:42'! initialize super initialize. ! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! MorphicDialog class instanceVariableNames: ''! !MorphicDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:50'! confirm: messageText ^ self standardOptions: #(#no #yes ) default: #yes optionText: messageText ! ! !MorphicDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:50'! confirm: messageText orCancel: cancelBlock | result | result _ self standardOptions: #(#cancel #no #yes ) default: #yes optionText: messageText. ^result ifNil: [cancelBlock value] ifNotNil: [result]! ! !MorphicDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:50'! fatalError: messageText ^ self standardOptions: #(#ok ) default: #ok optionText: messageText ! ! !MorphicDialog class methodsFor: 'standard dialogs' stamp: 'mir 7/21/1999 11:04'! fatalError: message quit: quitIfTrue! ! !MorphicDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:50'! inform: messageText ^ self standardOptions: #(#ok ) default: #ok optionText: messageText ! ! !MorphicDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:50'! okCancel: messageText ^ self standardOptions: #(#cancel #ok ) default: #cancel optionText: messageText ! ! !MorphicDialog class methodsFor: 'standard dialogs' stamp: 'mir 2/23/2000 19:50'! retryAbort: messageText ^ self standardOptions: #(#retry #abort ) default: #retry optionText: messageText ! ! !MorphicDialog class methodsFor: 'private examples' stamp: 'mir 2/17/2000 12:41'! checkForm ^(Form extent: 40@20) fillGray! ! !MorphicDialog class methodsFor: 'private examples' stamp: 'mir 2/17/2000 12:41'! stopForm ^(Form extent: 40@20) fillBlack! ! !MorphicDialog class methodsFor: 'examples' stamp: 'mir 2/17/2000 12:50'! exampleConfirm "OptionDialog exampleConfirm" (self confirm: 'Can you confirm this?') ifFalse: [Transcript show: 'Not ']. Transcript show: 'Confirmed'; cr ! ! !MorphicDialog class methodsFor: 'examples' stamp: 'mir 2/23/2000 19:55'! exampleFunny "OptionDialog exampleFunny" | optionList | optionList _ Array with: (Array with: 'Funny' with: true with: nil) with: (Array with: 'Not so' with: false with: nil). (self options: optionList defaultResponse: true optionText: 'Is this funny?' ) ifFalse: [Transcript show: 'Not ']. Transcript show: 'Funny'; cr ! ! !MorphicDialog class methodsFor: 'examples' stamp: 'mir 2/23/2000 19:55'! exampleFunnyLooking "OptionDialog exampleFunnyLooking" | optionList | optionList _ Array with: (Array with: 'Not so' with: false with: self stopForm) with: (Array with: 'Funny' with: true with: self checkForm). (self options: optionList defaultResponse: true optionText: 'Is this a form example?' ) ifFalse: [Transcript show: 'Not ']. Transcript show: 'Funny'; cr ! ! !MorphicDialog class methodsFor: 'examples' stamp: 'mir 2/17/2000 13:55'! exampleInform "OptionDialog exampleInform" self inform: 'This is not an information.'! ! !MorphicDialog class methodsFor: 'examples' stamp: 'mir 2/17/2000 12:50'! exampleLongConfirm "OptionDialog exampleLongConfirm" (self confirm: 'Can you confirm this very long message text?') ifFalse: [Transcript show: 'Not ']. Transcript show: 'Confirmed'; cr ! ! !MorphicDialog class methodsFor: 'examples' stamp: 'mir 2/17/2000 13:56'! exampleOKCancel "OptionDialog exampleOKCancel" (self okCancel: 'Cancel this?') ~= true ifTrue: [Transcript show: 'Not ']. Transcript show: 'Confirmed'; cr ! ! !MorphicDialog class methodsFor: 'instance creation' stamp: 'mir 7/19/1999 16:14'! new ^super new initialize! ! !MorphicDialog class methodsFor: 'instance creation' stamp: 'mir 2/28/2000 13:57'! options: optionList defaultResponse: defaultResponse optionText: anOptionText ^self options: optionList defaultResponse: defaultResponse optionText: anOptionText backgroundMorph: nil! ! !MorphicDialog class methodsFor: 'instance creation' stamp: 'mir 2/28/2000 14:09'! options: optionList defaultResponse: defaultResponse optionText: anOptionText backgroundMorph: backgroundMorph | optionDialog | optionDialog _ self new. optionDialog options: optionList defaultResponse: defaultResponse optionText: anOptionText backgroundMorph: backgroundMorph. optionDialog center: (World activeHand ifNil: [Display boundingBox center] ifNotNil: [World activeHand position]). optionDialog positionInWorld: World. World addMorph: optionDialog. backgroundMorph startStepping. ^optionDialog getUserResponse! ! !MorphicDialog class methodsFor: 'instance creation' stamp: 'mir 2/28/2000 14:09'! standardOptions: optionList default: defaultOption optionText: anOptionText | optionDialog | optionDialog _ self new. "optionDialog extent: 300@150." optionDialog standardOptions: optionList default: defaultOption optionText: anOptionText. optionDialog center: (World activeHand ifNil: [Display boundingBox center] ifNotNil: [World activeHand position]). optionDialog positionInWorld: World. World currentWorld addMorph: optionDialog. ^optionDialog getUserResponse! ! !MorphicDialog class methodsFor: 'instance creation' stamp: 'mir 2/23/2000 19:54'! standardOptions: optionList optionText: anOptionText ^self standardOptions: optionList default: nil optionText: anOptionText ! ! SystemDialog initialize! "Change Set: Morphic-Dialogs-mir Date: 1 March 2000 Author: Michael Rueger Based on the morphic dialog package this change set replaces most of the user interface calls (inform:, confirm:) with calls to the morphic dialog package. "! !Object methodsFor: 'user dialogs' stamp: 'mir 2/23/2000 19:46'! confirm: queryString "Put up a yes/no menu with caption aString. Answer true if the response is yes, false if no. This is a modal question--the user must respond yes or no." "nil confirm: 'Are you hungry?'" ^SystemDialog concreteClass confirm: queryString! ! !Object methodsFor: 'user dialogs' stamp: 'mir 2/23/2000 19:57'! confirm: aString orCancel: cancelBlock "Put up a yes/no/cancel menu with caption aString. Answer true if the response is yes, false if no. If cancel is chosen, evaluate cancelBlock." ^SystemDialog concreteClass confirm: aString orCancel: cancelBlock! ! !Object methodsFor: 'user dialogs' stamp: 'mir 2/23/2000 19:46'! inform: aString "Display a message for the user to read and then dismiss. 6/9/96 sw" aString size > 0 ifTrue: [SystemDialog concreteClass inform: aString] " ifTrue: [(PopUpMenu labels: ' OK ') startUpWithCaption: aString]"! ! !Object methodsFor: 'user dialogs' stamp: 'mir 2/23/2000 19:44'! retry: messageText onAbort: aBlock | result | result _ self retryAbort: messageText. ^result ifTrue: [result] ifFalse: [aBlock value]! ! !Object methodsFor: 'user dialogs' stamp: 'mir 2/23/2000 19:46'! retryAbort: messageText ^SystemDialog concreteClass retryAbort: messageText! !

1 0

[ENH] Array2D
by Michael Rueger 01 Mar '00

01 Mar '00

Change Set: Array2D-mir Date: 1 March 2000 Author: Michael Rueger Adds some convenience methods to Array2D. -- "To improve is to change, to be perfect is to change often." Winston Churchill +------------------------------------------------------------+ | Michael Rueger | | Phone: ++1 (818) 623 3283 Fax: ++1 (818) 623 3559 | +---------- Michael.Rueger.-ND(a)corp.go.com ------------------+ "Change Set: Array2D-mir Date: 1 March 2000 Author: Michael Rueger Adds some convenience methods to Array2D. "! !Array2D methodsFor: 'enumerating' stamp: 'mir 2/14/2000 12:42'! rowAndColumnValuesDo: aBlock 1 to: self width do: [:col | 1 to: self height do: [:row | aBlock value: row value: col value: (self at: row at: col)]]! ! !Array2D methodsFor: 'enumerating' stamp: 'mir 2/14/2000 12:41'! rowsAndColumnsDo: aBlock 1 to: self width do: [:col | 1 to: self height do: [:row | aBlock value: row value: col]]! ! !Array2D class reorganize! ('instance creation' extent: new new:) ! !Array2D class methodsFor: 'instance creation' stamp: 'mir 2/14/2000 12:34'! extent: aPoint ^self new width: aPoint x height: aPoint y type: Array! !

1 0

Re: Short Term Consulting Opportunity
by Karl Ramberg 01 Mar '00

01 Mar '00

> (i) a FreeBSD guy; and (ii) a UI guy. A Darwin hack ? :-) Karl

1 0

RE: [ENH] Case independent numbers
by R. A. Harmon 01 Mar '00

01 Mar '00

At 11:44 AM 3/1/00, Lex Spoon wrote: [snip] >By the way, the standard seems to suggest that uppercase letters are to >be used, and that the base should only go up to 36. (section 3.5.6) >Lowercase 'e' is used to designate the exponent of a floating point >number (as are 'd' and 'q'). It is illegal to specify an exponent for >what is otherwise an integer--eg, 10e10 is illegal, while 10.0e10 is >legal. > >Anyway, if anyone is planning to go through cleaning this stuff up, >maybe they should make it fit the standard. I've just completed some additional parts of my implementation of all the ANSI messages from the Fundamental Protocols through the Numeric Protocols <number> protocol plus <ScaledDecimal>, and Date And Time Protocols. I have also finished SUnit unit tests for these. Both are tested For Squeak 2.7. I am in the process of updating my web page and will post when they are available. The Numeric Protocols unit tests have a literal test for each global Float, Integer, etc. to test that Squeak conforms. -- Richard A. Harmon "The only good zombie is a dead zombie" harmonra(a)webname.com E. G. McCarthy Spencer, Iowa

2 1

Swiki: no-cache and <pre>
by John Clonts 01 Mar '00

01 Mar '00

I have a couple of questions/enhancements to SwikiAction and friends, but what is the forum for that? I recall mention of an mailing list, but is there a 'swiki swiki'?( I tried searching on the swiki but "everything" matches!) Thanks, John 1) Getting rid of "Pragma no-cache". 2) How to honor <pre>, so that text is not double-spaced.

3 2

Jump to page: