'From Squeak3.6gamma of ''11 September 2003'' [latest update: #5420] on 29 October 2003 at 9:09:51 pm'! !FileList methodsFor: 'volume list and pattern' stamp: 'nk 6/28/2003 11:59'! pattern: textOrStringOrNil (textOrStringOrNil isNil or: [ textOrStringOrNil isEmpty ]) ifTrue: [pattern _ '*'] ifFalse: [pattern _ textOrStringOrNil asString]. self changed: #pattern. self updateFileList. ^ true ! ! !FileList2 class methodsFor: '*bfav' stamp: 'bkv 5/30/2003 18:10'! morphicViewOn: aDirectory withLabel: aString | aFileList window fileListBottom midLine fileListTopOffset buttonPane | aFileList _ self new directory: aDirectory. window _ (SystemWindow labelled: aString) model: aFileList. fileListTopOffset _ (TextStyle defaultFont pointSize * 2) + 14. fileListBottom _ 0.4. midLine _ 0.4. buttonPane _ aFileList optionalButtonRow addMorph: (aFileList morphicPatternPane vResizing: #spaceFill; yourself). self addFullPanesTo: window from: { {buttonPane. 0@0 corner: 1@0. 0@0 corner: 0@fileListTopOffset}. {aFileList morphicDirectoryTreePane. 0@0 corner: midLine@fileListBottom. 0@fileListTopOffset corner: 0@0}. {aFileList morphicFileListPane. midLine @ 0 corner: 1@fileListBottom. 0@fileListTopOffset corner: 0@0}. {aFileList morphicFileContentsPane. 0@fileListBottom corner: 1@1. nil}. }. aFileList postOpen. ^ window ! ! !MailComposition class methodsFor: 'instance creation' stamp: 'bkv 6/23/2003 13:04'! sendMailMessage: aMailMessage | newComposition | newComposition _ self new. newComposition messageText: aMailMessage text; open. ^ newComposition! ! !HttpUrl reorganize! ('downloading' askNamePassword checkAuthorization:retry: loadRemoteObjects normalizeContents: postFormArgs: postMultipartFormArgs: privateInitializeFromText:relativeTo: realm retrieveContents retrieveContentsAccept: retrieveContentsArgs: retrieveContentsArgs:accept:) ('testing' hasRemoteContents) ('*bfav' httpErrorIndicator) !