Packages December 2020

packages@lists.squeakfoundation.org

1 participants
62 discussions

The Trunk: HelpSystem-Core-ct.123.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.123.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.123 Author: ct Time: 13 October 2019, 9:04:08.373932 pm UUID: dec7ceca-320f-d945-8d2a-c2f6a5e49a52 Ancestors: HelpSystem-Core-ct.120 Refactors HelpBrowser menu: Move menu stuff from HelpBrowser into HelpTopic hierarchy in favor of a better object design Thanks again, Marcel :-) =============== Diff against HelpSystem-Core-mt.116 =============== Item was added: + ----- Method: AbstractHelpTopic>>browseTopicFromParent: (in category 'tools') ----- + browseTopicFromParent: parentTopic + + self canBrowseTopic + ifTrue: [^ self browseTopic]. + parentTopic canBrowseSubtopic + ifTrue: [^ parentTopic browseSubtopic: self]. + ! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseSubtopic (in category 'testing') ----- + canBrowseSubtopic + + ^ false! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ false! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseTopicFromParent: (in category 'testing') ----- + canBrowseTopicFromParent: parentTopic + + ^ self canBrowseTopic or: [ + parentTopic ifNotNil: #canBrowseSubtopic ifNil: [false]]! Item was added: + ----- Method: AbstractHelpTopic>>topicMenu:parentTopic: (in category 'menus') ----- + topicMenu: aMenu parentTopic: parentTopic + + aMenu + add: 'Inspect (i)' translated target: self action: #inspect; + add: 'Explore (I)' translated target: self action: #explore. + (self canBrowseTopicFromParent: parentTopic) + ifTrue: [ + aMenu add: 'Browse (b)' translated + target: self + selector: #browseTopicFromParent: + argumentList: {parentTopic} ]. + + ^ aMenu! Item was added: + ----- Method: AbstractHelpTopic>>topicMenuKey:fromParent: (in category 'menus') ----- + topicMenuKey: aChar fromParent: parentTopic + + aChar + caseOf: { + [$b] -> [(self canBrowseTopicFromParent: parentTopic) + ifTrue: [ self browseTopicFromParent: parentTopic ]]. + [$i] -> [self inspect]. + [$I] -> [self explore] } + otherwise: [^ false]. + ^ true! Item was added: + ----- Method: ClassAPIHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self theClass theMetaClass browse! Item was added: + ----- Method: ClassAPIHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: ClassBasedHelpTopic>>browseSubtopic: (in category 'tools') ----- + browseSubtopic: aTopic + + ^ ToolSet browse: self helpClass theMetaClass selector: aTopic key! Item was added: + ----- Method: ClassBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self helpClass theMetaClass browse! Item was added: + ----- Method: ClassBasedHelpTopic>>canBrowseSubtopic (in category 'testing') ----- + canBrowseSubtopic + + ^ true! Item was added: + ----- Method: ClassBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: DirectoryBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ FileList openOn: self directoryEntry asFileDirectory! Item was added: + ----- Method: DirectoryBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: FileBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ FileList openOn: self fileEntry containingDirectory! Item was added: + ----- Method: FileBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was changed: ----- Method: HelpBrowser>>buildTreeWith: (in category 'toolbuilder') ----- buildTreeWith: builder ^ builder pluggableTreeSpec new model: self; nodeClass: HelpTopicListItemWrapper; roots: #toplevelTopics; + menu: #treeMenu:; + keyPress: #treeKey:from:event:; getSelected: #currentTopic; setSelected: #currentTopic:; getSelectedPath: #currentTopicPath; setSelectedParent: #currentParentTopic:; autoDeselect: false; frame: (LayoutFrame fractions: (0@0 corner: 0.3@1) offsets: (0@ (Preferences standardDefaultTextFont height * 2) corner: 0@0)); yourself! Item was added: + ----- Method: HelpBrowser>>treeKey:from:event: (in category 'menus') ----- + treeKey: aChar from: aView event: anEvent + + anEvent anyModifierKeyPressed ifFalse: [^ false]. + ^ (self currentTopic topicMenuKey: aChar fromParent: self currentParentTopic)! Item was added: + ----- Method: HelpBrowser>>treeListMenu: (in category 'menus') ----- + treeListMenu: aMenu + <treeListMenu> + + ^ self currentTopic + ifNil: [aMenu] + ifNotNil: [:topic | topic + topicMenu: aMenu + parentTopic: self currentParentTopic]! Item was added: + ----- Method: HelpBrowser>>treeMenu: (in category 'menus') ----- + treeMenu: aMenu + + ^ self menu: aMenu for: #(treeListMenu)! Item was added: + ----- Method: MethodListHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self theClass browse! Item was added: + ----- Method: MethodListHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: PackageAPIHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ (PackageInfo named: packageName) browse! Item was added: + ----- Method: PackageAPIHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true!

1 0

The Trunk: HelpSystem-Core-ct.125.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.125.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.125 Author: ct Time: 14 October 2019, 12:33:57.997932 am UUID: bdc17b48-7f21-844e-ad05-f3ba9876fd3f Ancestors: HelpSystem-Core-mt.116 Adds CustomHelp>>#defaultPageKey to show the contents of a specified subtopic if a ClassBasedHelpTopic is selected =============== Diff against HelpSystem-Core-mt.116 =============== Item was changed: ----- Method: ClassBasedHelpTopic>>contents (in category 'accessing') ----- contents "A book has no contents. Only its pages do." + ^ self defaultSubtopic ifNil: [''] ifNotNil: #contents! - ^ ''! Item was added: + ----- Method: ClassBasedHelpTopic>>defaultSubtopic (in category 'accessing') ----- + defaultSubtopic + + ^ self helpClass defaultPageKey + ifNotNil: [:key | + self subtopics + detect: [:topic | topic key = key] + ifNone: [nil]] + ifNil: [nil]! Item was added: + ----- Method: ClassBasedHelpTopic>>key (in category 'accessing') ----- + key + + ^ self helpClass! Item was added: + ----- Method: CustomHelp class>>defaultPageKey (in category 'accessing') ----- + defaultPageKey + "Key of the page to show if no subtopic is selected, or nil" + ^ nil!

1 0

The Trunk: HelpSystem-Core-ct.126.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.126.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.126 Author: ct Time: 14 October 2019, 12:37:56.074932 am UUID: a74dcf56-b7cb-4440-b558-8237b0c0723f Ancestors: HelpSystem-Core-mt.116 Implement #key on further help topic classes =============== Diff against HelpSystem-Core-mt.116 =============== Item was added: + ----- Method: ClassAPIHelpTopic>>key (in category 'accessing') ----- + key + + ^ self theClass name! Item was added: + ----- Method: ClassBasedHelpTopic>>key (in category 'accessing') ----- + key + + ^ self helpClass name! Item was added: + ----- Method: DirectoryBasedHelpTopic>>key (in category 'accessing') ----- + key + + ^ self directoryEntry fullName! Item was added: + ----- Method: MethodListHelpTopic>>key (in category 'accessing') ----- + key + + ^ self theClass name! Item was added: + ----- Method: PackageAPIHelpTopic>>key (in category 'accessing') ----- + key + + ^ self packageName!

1 0

The Trunk: HelpSystem-Core-ct.127.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.127.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.127 Author: ct Time: 14 December 2019, 12:40:38.430841 am UUID: b862e17a-aac7-434c-a028-0e4c364feeb5 Ancestors: HelpSystem-Core-mt.118 Fix a small syntax error in the Help on Help cpde examples =============== Diff against HelpSystem-Core-mt.118 =============== Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step7 (in category 'pages') ----- step7 + <generated> "This method was automatically generated. Edit it using:" "HelpHowToHelpTopicsFromCode edit: #step7" + ^(HelpTopic - ^HelpTopic title: 'Step 7 - Tips and Tricks' + contents: + 'STEP 7 - TIPS AND TRICKS - contents: - 'STEP 7 - TIPS AND TRICKS Tip1: If you implement the #pages method you can also use the name of a custom help class that should be integrated between the specific pages: + pages + ^#(firstPage MyAppTutorial secondPage) - #pages - ^(firstPage MyAppTutorial secondPage) Tip2: You can easily edit the help contents of a page by using the #edit: message. For our example just evaluate: MyAppHelp edit: #firstPage This will open a workspace with the help contents and when you accept it it will be saved back to the help method defining the topic. + !!' readStream nextChunkText) + key: #step7; + shouldStyle: false; + yourself! - ' - !

1 0

The Trunk: HelpSystem-Core-ct.132.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.132.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.132 Author: ct Time: 20 March 2020, 6:38:30.916237 pm UUID: 4ced0d2a-f4ef-7444-8a05-bdfbb1142b2b Ancestors: HelpSystem-Core-ct.123 Refactors "ifNil: [false]" construct. Depends indeed on HelpSystem-Core-ct.123. But I would still like to talk about #notNilAnd: :) =============== Diff against HelpSystem-Core-mt.116 =============== Item was added: + ----- Method: AbstractHelpTopic>>browseTopicFromParent: (in category 'tools') ----- + browseTopicFromParent: parentTopic + + self canBrowseTopic + ifTrue: [^ self browseTopic]. + parentTopic canBrowseSubtopic + ifTrue: [^ parentTopic browseSubtopic: self]. + ! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseSubtopic (in category 'testing') ----- + canBrowseSubtopic + + ^ false! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ false! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseTopicFromParent: (in category 'testing') ----- + canBrowseTopicFromParent: parentTopic + + ^ self canBrowseTopic or: [ + parentTopic notNil and: [parentTopic canBrowseSubtopic]]! Item was added: + ----- Method: AbstractHelpTopic>>topicMenu:parentTopic: (in category 'menus') ----- + topicMenu: aMenu parentTopic: parentTopic + + aMenu + add: 'Inspect (i)' translated target: self action: #inspect; + add: 'Explore (I)' translated target: self action: #explore. + (self canBrowseTopicFromParent: parentTopic) + ifTrue: [ + aMenu add: 'Browse (b)' translated + target: self + selector: #browseTopicFromParent: + argumentList: {parentTopic} ]. + + ^ aMenu! Item was added: + ----- Method: AbstractHelpTopic>>topicMenuKey:fromParent: (in category 'menus') ----- + topicMenuKey: aChar fromParent: parentTopic + + aChar + caseOf: { + [$b] -> [(self canBrowseTopicFromParent: parentTopic) + ifTrue: [ self browseTopicFromParent: parentTopic ]]. + [$i] -> [self inspect]. + [$I] -> [self explore] } + otherwise: [^ false]. + ^ true! Item was added: + ----- Method: ClassAPIHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self theClass theMetaClass browse! Item was added: + ----- Method: ClassAPIHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: ClassBasedHelpTopic>>browseSubtopic: (in category 'tools') ----- + browseSubtopic: aTopic + + ^ ToolSet browse: self helpClass theMetaClass selector: aTopic key! Item was added: + ----- Method: ClassBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self helpClass theMetaClass browse! Item was added: + ----- Method: ClassBasedHelpTopic>>canBrowseSubtopic (in category 'testing') ----- + canBrowseSubtopic + + ^ true! Item was added: + ----- Method: ClassBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: DirectoryBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ FileList openOn: self directoryEntry asFileDirectory! Item was added: + ----- Method: DirectoryBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: FileBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ FileList openOn: self fileEntry containingDirectory! Item was added: + ----- Method: FileBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was changed: ----- Method: HelpBrowser>>buildTreeWith: (in category 'toolbuilder') ----- buildTreeWith: builder ^ builder pluggableTreeSpec new model: self; nodeClass: HelpTopicListItemWrapper; roots: #toplevelTopics; + menu: #treeMenu:; + keyPress: #treeKey:from:event:; getSelected: #currentTopic; setSelected: #currentTopic:; getSelectedPath: #currentTopicPath; setSelectedParent: #currentParentTopic:; autoDeselect: false; frame: (LayoutFrame fractions: (0@0 corner: 0.3@1) offsets: (0@ (Preferences standardDefaultTextFont height * 2) corner: 0@0)); yourself! Item was added: + ----- Method: HelpBrowser>>treeKey:from:event: (in category 'menus') ----- + treeKey: aChar from: aView event: anEvent + + anEvent anyModifierKeyPressed ifFalse: [^ false]. + ^ (self currentTopic topicMenuKey: aChar fromParent: self currentParentTopic)! Item was added: + ----- Method: HelpBrowser>>treeListMenu: (in category 'menus') ----- + treeListMenu: aMenu + <treeListMenu> + + ^ self currentTopic + ifNil: [aMenu] + ifNotNil: [:topic | topic + topicMenu: aMenu + parentTopic: self currentParentTopic]! Item was added: + ----- Method: HelpBrowser>>treeMenu: (in category 'menus') ----- + treeMenu: aMenu + + ^ self menu: aMenu for: #(treeListMenu)! Item was added: + ----- Method: MethodListHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self theClass browse! Item was added: + ----- Method: MethodListHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: PackageAPIHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ (PackageInfo named: packageName) browse! Item was added: + ----- Method: PackageAPIHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true!

1 0

The Trunk: HelpSystem-Core-mt.133.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.133.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.133 Author: mt Time: 18 December 2020, 4:45:20.673078 pm UUID: d4ffb843-a333-1e46-a58f-4aeed3e95f49 Ancestors: HelpSystem-Core-mt.121, HelpSystem-Core-ct.117, HelpSystem-Core-ct.118, HelpSystem-Core-ct.122, HelpSystem-Core-ct.132, HelpSystem-Core-ct.125, HelpSystem-Core-ct.126, HelpSystem-Core-ct.127 Merges various contributions from Christoph (ct) for Squeak's Help Browser: - menu for tree to inspect/explore/browse help topics - more robust help-topic authoring - adds #bookBlurbKey to use an existing page as blurb - adds <generated> pragma to denote generated pages for ClassBasedHelpTopic, which is important to not mess up formatting, which is stand off (i.e. that ]style[) Also fixes the bug where the window title (path) gets lost after editing a topic. Thanks Christoph! :-) =============== Diff against HelpSystem-Core-mt.121 =============== Item was changed: ----- Method: AbstractHelpTopic>>accept:for: (in category 'editing') ----- accept: newContents for: subtopic + "If this topic is editable, this will be the callback to update its contents." + ^ false! - "If this topic is editable, this will be the callback to update its contents."! Item was added: + ----- Method: AbstractHelpTopic>>browseTopicFromParent: (in category 'tools') ----- + browseTopicFromParent: parentTopic + + self canBrowseTopic + ifTrue: [^ self browseTopic]. + parentTopic canBrowseSubtopic + ifTrue: [^ parentTopic browseSubtopic: self]. + ! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseSubtopic (in category 'testing') ----- + canBrowseSubtopic + + ^ false! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ false! Item was added: + ----- Method: AbstractHelpTopic>>canBrowseTopicFromParent: (in category 'testing') ----- + canBrowseTopicFromParent: parentTopic + + ^ self canBrowseTopic or: [ + parentTopic notNil and: [parentTopic canBrowseSubtopic]]! Item was added: + ----- Method: AbstractHelpTopic>>subtopicAt: (in category 'accessing') ----- + subtopicAt: key + "Answer the subtopic that has the given key or nil if no such topic can be found. Always answer nil for the 'nil' key because a topic's key 'nil' means 'unspecified'." + + ^ key ifNotNil: [self subtopics detect: [:topic | topic key = key] ifNone: []]! Item was added: + ----- Method: AbstractHelpTopic>>topicMenu:parentTopic: (in category 'menus') ----- + topicMenu: aMenu parentTopic: parentTopic + + (self canBrowseTopicFromParent: parentTopic) + ifTrue: [ + aMenu + add: 'browse (b)' translated + target: self + selector: #browseTopicFromParent: + argumentList: {parentTopic}; + addLine ]. + aMenu + add: 'inspect (i)' translated target: self action: #inspect; + add: 'explore (I)' translated target: self action: #explore. + + ^ aMenu! Item was added: + ----- Method: AbstractHelpTopic>>topicMenuKey:fromParent: (in category 'menus') ----- + topicMenuKey: aChar fromParent: parentTopic + + aChar + caseOf: { + [$b] -> [(self canBrowseTopicFromParent: parentTopic) + ifTrue: [ self browseTopicFromParent: parentTopic ]]. + [$i] -> [self inspect]. + [$I] -> [self explore] } + otherwise: [^ false]. + ^ true! Item was added: + ----- Method: ClassAPIHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self theClass theMetaClass browse! Item was added: + ----- Method: ClassAPIHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: ClassAPIHelpTopic>>key (in category 'accessing') ----- + key + + ^ self theClass name! Item was changed: ----- Method: ClassBasedHelpTopic>>accept:for: (in category 'editing') ----- accept: newContents for: subtopic "Supports indirect content storage in classes other than helpClass." | topicClass topicMethodSelector code indirect | + (subtopic respondsTo: #contentsAsIs) + ifFalse: [^ self inform: 'Cannot store into this topic' translated]. + (indirect := subtopic contentsAsIs isMessageSend) ifFalse: [ topicClass := self helpClass. topicMethodSelector := subtopic key asLegalSelector asSymbol] ifTrue: [ topicClass := subtopic contentsAsIs receiver. topicMethodSelector := subtopic contentsAsIs selector]. + (topicClass class includesSelector: topicMethodSelector) ==> [self okToWriteSelector: topicMethodSelector] + ifFalse: [^ false]. + code := String streamContents:[:s| s nextPutAll: topicMethodSelector. s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'. s crtab; nextPutAll: '"', self helpClass name,' edit: ', subtopic key storeString,'"'. indirect ifTrue: [s crtab; nextPutAll: '^ ('] ifFalse: [ + s crtab; nextPutAll: '<generated>'. s crtab; nextPutAll: '^(HelpTopic'. s crtab: 2; nextPutAll: 'title: ', subtopic title storeString. s crtab: 2; nextPutAll: 'contents: ']. s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: newContents]) storeString. s nextPutAll:' readStream nextChunkText)'. indirect ifFalse: [ subtopic key ifNotNil: [s crtab: 3; nextPutAll: 'key: ', subtopic key storeString; nextPutAll: ';']. subtopic shouldStyle ifNotNil: [s crtab: 3; nextPutAll: 'shouldStyle: ', subtopic shouldStyle storeString; nextPutAll: ';']. s crtab: 3; nextPutAll: 'yourself'] ]. topicClass class compile: code + classified: ((topicClass class organization categoryOfElement: topicMethodSelector) ifNil:['pages']). + ^ true! - classified: ((topicClass class organization categoryOfElement: topicMethodSelector) ifNil:['pages']).! Item was added: + ----- Method: ClassBasedHelpTopic>>browseSubtopic: (in category 'tools') ----- + browseSubtopic: aTopic + + ^ ToolSet browse: self helpClass theMetaClass selector: aTopic key! Item was added: + ----- Method: ClassBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self helpClass theMetaClass browse! Item was added: + ----- Method: ClassBasedHelpTopic>>canBrowseSubtopic (in category 'testing') ----- + canBrowseSubtopic + + ^ true! Item was added: + ----- Method: ClassBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was changed: ----- Method: ClassBasedHelpTopic>>contents (in category 'accessing') ----- contents + ^ self helpClass bookBlurb ifEmpty: [ + (self subtopicAt: self helpClass bookBlurbKey) + ifNil: [''] ifNotNil: [:topic | topic contents]]! - ^ helpClass bookBlurb! Item was added: + ----- Method: ClassBasedHelpTopic>>key (in category 'accessing') ----- + key + + ^ self helpClass name! Item was added: + ----- Method: ClassBasedHelpTopic>>okToWriteSelector: (in category 'editing') ----- + okToWriteSelector: aSelector + + | method | + method := self helpClass theMetaClass compiledMethodAt: aSelector ifAbsent: [^ true]. + (method hasPragma: #generated) ifTrue: [^ true]. + ^ (Project uiManager + chooseFrom: (#('Override it' 'Don''t override, but browse it' 'Cancel') collect: #translated) + values: { [true]. [method browse. false]. [false] } + title: ('This will override the existing method\{1}!!\Proceed anyway?' withCRs translated asText + format: {method reference asText + addAttribute: (TextLink new classAndMethod: method reference); + yourself })) value == true! Item was changed: ----- Method: CustomHelp class>>bookBlurb (in category 'accessing') ----- bookBlurb + "Returns a short summary of the custom help book. Overrides #bookBlurbKey" - "Returns a short summary of the custom help book" ^ self organization classComment! Item was added: + ----- Method: CustomHelp class>>bookBlurbKey (in category 'accessing') ----- + bookBlurbKey + "Key of the page to show as contents if (1) #bookBlurb is empty and (2) no subtopic is selected in the help browser." + ^ nil! Item was changed: ----- Method: DirectoryBasedHelpTopic>>accept:for: (in category 'editing') ----- accept: newContents for: subtopic FileStream forceNewFileNamed: subtopic fileEntry fullName do: [:strm | strm nextChunkPutWithStyle: newContents]. + ^ true ! Item was added: + ----- Method: DirectoryBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ FileList openOn: self directoryEntry asFileDirectory! Item was added: + ----- Method: DirectoryBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: DirectoryBasedHelpTopic>>key (in category 'accessing') ----- + key + + ^ self directoryEntry fullName! Item was changed: ----- Method: FileBasedHelpTopic>>accept:for: (in category 'editing') ----- accept: newContents for: subtopic FileStream forceNewFileNamed: self fileEntry fullName do: [:strm | strm nextChunkPutWithStyle: newContents]. + ^ true - ! Item was added: + ----- Method: FileBasedHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ FileList openOn: self fileEntry containingDirectory! Item was added: + ----- Method: FileBasedHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: HelpBrowser class>>on: (in category 'instance creation') ----- + on: aHelpTopic + + ^ self defaultHelpBrowser new + rootTopic: aHelpTopic; + yourself! Item was changed: ----- Method: HelpBrowser class>>openOn: (in category 'instance creation') ----- openOn: aHelpTopic + "Open the receiver on the given help topic or any other object that can be transformed into + a help topic by sending #asHelpTopic." + + ^ (self on: aHelpTopic) open! - "Open the receiver on the given help topic or any other object that can be transformed into - a help topic by sending #asHelpTopic." - - ^(self defaultHelpBrowser new) - rootTopic: aHelpTopic; - open! Item was changed: ----- Method: HelpBrowser>>accept: (in category 'actions') ----- accept: text "Accept edited text. Compile it into a HelpTopic" | parent currentKey normalizedText colorsToRemove | ((self currentParentTopic isNil or: [self currentParentTopic isEditable not]) or: [self currentTopic isEditable not]) + ifTrue: [^ self inform: 'This help topic cannot be edited.' translated]. - ifTrue: [^ self inform: 'This help topic cannot be edited.']. - self changed: #clearUserEdits. - "Remove default colors for the sake of UI themes." normalizedText := text. colorsToRemove := {Color black. Color white}. normalizedText runs: (normalizedText runs collect: [:attributes | attributes reject: [:attribute | (((attribute respondsTo: #color) and: [colorsToRemove includes: attribute color]) or: [attribute respondsTo: #font])]]). parent := self currentParentTopic. currentKey := self currentTopic key. + [isUpdating := true. + (parent accept: normalizedText for: self currentTopic) == true + ifFalse: [^ false]. + self changed: #clearUserEdits. - isUpdating := true. - - parent accept: normalizedText for: self currentTopic. parent refresh. + parent == self rootTopic ifTrue: [self rootTopic: parent]] + ensure: [isUpdating := false]. - parent == self rootTopic ifTrue: [self rootTopic: parent]. + self showTopicNamed: currentKey. + ^ true! - isUpdating := false. - - self currentTopic: (parent subtopics detect: [:t | t key = currentKey]).! Item was changed: ----- Method: HelpBrowser>>buildTreeWith: (in category 'toolbuilder') ----- buildTreeWith: builder ^ builder pluggableTreeSpec new model: self; nodeClass: HelpTopicListItemWrapper; roots: #toplevelTopics; + menu: #treeMenu:; + keyPress: #treeKey:from:event:; getSelected: #currentTopic; setSelected: #currentTopic:; getSelectedPath: #currentTopicPath; setSelectedPath: #noteTopicPath:; setSelectedParent: #currentParentTopic:; autoDeselect: false; frame: (LayoutFrame fractions: (0@0 corner: 0.3@1) offsets: (0@ (Preferences standardDefaultTextFont height * 2) corner: 0@0)); yourself! Item was added: + ----- Method: HelpBrowser>>treeKey:from:event: (in category 'menus') ----- + treeKey: aChar from: aView event: anEvent + + anEvent anyModifierKeyPressed ifFalse: [^ false]. + ^ (self currentTopic topicMenuKey: aChar fromParent: self currentParentTopic)! Item was added: + ----- Method: HelpBrowser>>treeListMenu: (in category 'menus') ----- + treeListMenu: aMenu + <treeListMenu> + + ^ self currentTopic + ifNil: [aMenu] + ifNotNil: [:topic | topic + topicMenu: aMenu + parentTopic: self currentParentTopic]! Item was added: + ----- Method: HelpBrowser>>treeMenu: (in category 'menus') ----- + treeMenu: aMenu + + ^ self menu: aMenu for: #(treeListMenu)! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step7 (in category 'pages') ----- step7 + <generated> "This method was automatically generated. Edit it using:" "HelpHowToHelpTopicsFromCode edit: #step7" + ^(HelpTopic - ^HelpTopic title: 'Step 7 - Tips and Tricks' + contents: + 'STEP 7 - TIPS AND TRICKS - contents: - 'STEP 7 - TIPS AND TRICKS Tip1: If you implement the #pages method you can also use the name of a custom help class that should be integrated between the specific pages: + pages + ^#(firstPage MyAppTutorial secondPage) - #pages - ^(firstPage MyAppTutorial secondPage) Tip2: You can easily edit the help contents of a page by using the #edit: message. For our example just evaluate: MyAppHelp edit: #firstPage This will open a workspace with the help contents and when you accept it it will be saved back to the help method defining the topic. + !!' readStream nextChunkText) + key: #step7; + shouldStyle: false; + yourself! - ' - ! Item was added: + ----- Method: MethodListHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ self theClass browse! Item was added: + ----- Method: MethodListHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: MethodListHelpTopic>>key (in category 'accessing') ----- + key + + ^ self theClass name! Item was added: + ----- Method: PackageAPIHelpTopic>>browseTopic (in category 'tools') ----- + browseTopic + + ^ (PackageInfo named: packageName) browse! Item was added: + ----- Method: PackageAPIHelpTopic>>canBrowseTopic (in category 'testing') ----- + canBrowseTopic + + ^ true! Item was added: + ----- Method: PackageAPIHelpTopic>>key (in category 'accessing') ----- + key + + ^ self packageName!

1 0

The Trunk: System-dtl.1204.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1204.mcz ==================== Summary ==================== Name: System-dtl.1204 Author: dtl Time: 18 December 2020, 9:57:54.912942 am UUID: 47e43f60-e3fa-4174-ada2-b0b5eb6795d0 Ancestors: System-mt.1203 Enable removal of preference for 'Read document at startup'. Simplify code such that #readDocumentAtStartup is assumed always true and document specifiers begining with '-' are not treated as start documents. The actual preference setting is no longer referenced. Assumptions: if the start document resource name starts with '-' then it is unlikely to be a document. For the case of the first argument appearing to be a document but the user wishing to use it otherwise, the '--' token (or any other argument beginning with '-') may be used in the command line to protect the argument from evaluation. This allows the traditional start document processing to work normally in the general case, and allows start document processing to be bypassed from the command line if desired. No preference setting is required. The #readDocumentAtStartup may be removed in a future update. =============== Diff against System-mt.1203 =============== Item was changed: ----- Method: ProjectLauncher>>startUpAfterLogin (in category 'running') ----- startUpAfterLogin | scriptName loader isUrl | self setupFlaps. + Smalltalk firstArgMightBeDocument + ifTrue: [scriptName := Smalltalk documentPath. - Preferences readDocumentAtStartup - ifTrue: [scriptName := Smalltalk documentPath - ifNil: ['']. scriptName := scriptName convertFromSystemString. scriptName isEmpty ifFalse: ["figure out if script name is a URL by itself" isUrl := (scriptName asLowercase beginsWith: 'http://') or: [(scriptName asLowercase beginsWith: 'file://') or: [scriptName asLowercase beginsWith: 'ftp://']]. isUrl ifFalse: [| encodedPath pathTokens | "Allow for ../dir/scriptName arguments" pathTokens := scriptName splitBy: FileDirectory slash. pathTokens := pathTokens collect: [:s | s encodeForHTTP]. encodedPath := pathTokens reduce: [:acc :each | acc , FileDirectory slash , each]. scriptName := (FileDirectory default uri resolveRelativeURI: encodedPath) asString]]] ifFalse: [scriptName := '']. scriptName isEmptyOrNil ifTrue: [^ Preferences eToyFriendly ifTrue: [self currentWorld addGlobalFlaps]]. loader := CodeLoader new. loader loadSourceFiles: (Array with: scriptName). (scriptName asLowercase endsWith: '.pr') ifTrue: [self installProjectFrom: loader] ifFalse: [loader installSourceFiles]! Item was changed: ----- Method: SmalltalkImage>>arguments (in category 'command line') ----- arguments "Answer an array with all the command line arguments. + This does not include imagePath, documentPath nor any option. + The '--' token on the command line indicates that remaining arguments should + be passed to the image without interpretation, and should not be treated as e.g. + specification of a start script." + - This does not include imagePath, documentPath nor any option." - "Smalltalk commandLine arguments" + | args | - | args strm | args := self rawArguments. + (args includes: '--' ) + ifTrue: [ ^ args copyAfter: '--' ] + ifFalse: [ | rs | rs := args readStream. + rs next. "skip image name" + self firstArgMightBeDocument + ifTrue: [rs next "skip startup document name"]. + ^ rs upToEnd ]. - (args includes: '--') - ifTrue: [ ^args copyAfter: self imageArgumentsMarker ]. - strm := args readStream. - strm atEnd ifFalse: [ strm next. "skip image name" - (Preferences readDocumentAtStartup and: [ strm atEnd not ]) - ifTrue: [ strm next "skip startup document name" ]]. - ^ strm upToEnd. ! Item was changed: ----- Method: SmalltalkImage>>documentPath (in category 'command line') ----- documentPath "Answer the absolute path of the document passed to the VM or nil if none." "Smalltalk commandLine documentPath" + ^ (self getSystemAttribute: 2) ifNil: [ '' ] - ^ (self getSystemAttribute: 2) - ifNotNil: [ :arg | arg = self imageArgumentsMarker - ifTrue: [nil] ifFalse: [arg]]. - ! Item was added: + ----- Method: SmalltalkImage>>firstArgMightBeDocument (in category 'private') ----- + firstArgMightBeDocument + "If the first argument begins with '-' then it is unlikely to be a document specification" + ^ (self documentPath beginsWith: '-') not + ! Item was removed: - ----- Method: SmalltalkImage>>imageArgumentsMarker (in category 'command line') ----- - imageArgumentsMarker - "The '--' token on the command line indicates that remaining arguments should - be passed to the image without interpretation, and should not be treated as e.g. - specification of a start script." - - ^ '--'!

1 0

The Trunk: System-mt.1203.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1203.mcz ==================== Summary ==================== Name: System-mt.1203 Author: mt Time: 18 December 2020, 1:00:34.958366 pm UUID: 1aa9ec9e-b39a-934f-9f81-1503c06477e5 Ancestors: System-mt.1202 SpaceTally again. Don't forget to count the space that is reachable from pools. But only do that after analysing class instances. And don't count things via pools that have already been counted via instance variables. =============== Diff against System-mt.1202 =============== Item was changed: ----- Method: SpaceTally>>computeSpaceUsage (in category 'class analysis') ----- computeSpaceUsage results do: [ :entry | + | class instanceSpaceAndCount seenObjects poolSpace | - | class instanceSpaceAndCount | class := self class environment at: entry analyzedClassName. Smalltalk garbageCollectMost. + seenObjects := self depth > 0 ifTrue: [IdentitySet new]. + instanceSpaceAndCount := self spaceForInstancesOf: class depth: self depth seen: seenObjects. + poolSpace := self spaceForPoolsOf: class depth: self depth seen: seenObjects. - instanceSpaceAndCount := self spaceForInstancesOf: class depth: self depth. entry codeSize: class spaceUsed; instanceCount: instanceSpaceAndCount second; spaceForInstances: instanceSpaceAndCount first; + spaceForPools: poolSpace first; depthOfSpace: self depth ] displayingProgress: 'Taking statistics...'! Item was added: + ----- Method: SpaceTally>>spaceForPoolsOf: (in category 'class analysis') ----- + spaceForPoolsOf: aClass + + ^ self spaceForPoolsOf: aClass depth: self depth! Item was added: + ----- Method: SpaceTally>>spaceForPoolsOf:depth: (in category 'class analysis') ----- + spaceForPoolsOf: aClass depth: anInteger + + ^ self spaceForPoolsOf: aClass depth: anInteger seen: (anInteger > 0 ifTrue: [IdentitySet new])! Item was added: + ----- Method: SpaceTally>>spaceForPoolsOf:depth:seen: (in category 'class analysis') ----- + spaceForPoolsOf: aClass depth: anInteger seen: seenObjects + + | pools objects total | + pools := {aClass classPool}, aClass sharedPools. + objects := pools gather: [:pool | pool values]. + objects isEmpty ifTrue: [^#(0 0)]. + total := 0. + objects do: [:each | total := total + (self spaceForInstance: each depth: anInteger seen: seenObjects)]. + ^{ total. objects size }! Item was changed: Object subclass: #SpaceTallyItem + instanceVariableNames: 'analyzedClassName codeSize instanceCount spaceForInstances spaceForPools depthOfSpace' - instanceVariableNames: 'analyzedClassName codeSize instanceCount spaceForInstances depthOfSpace' classVariableNames: '' poolDictionaries: '' category: 'System-Tools'! !SpaceTallyItem commentStamp: 'sd 6/20/2003 22:02' prior: 0! I'm represent an entry in the spaceTally.! Item was changed: ----- Method: SpaceTallyItem>>printOn: (in category 'printing') ----- printOn: aStream analyzedClassName ifNotNil: [ aStream nextPutAll: analyzedClassName asString]. aStream nextPutAll: ' ('. codeSize ifNotNil: [ aStream nextPutAll: 'code size: ' ; nextPutAll: codeSize asString]. instanceCount ifNotNil: [ aStream nextPutAll: ' instance count: ' ; nextPutAll: instanceCount asString]. spaceForInstances ifNotNil: [ aStream nextPutAll: ' space for instances: ' ; nextPutAll: spaceForInstances asBytesDescription]. + spaceForPools + ifNotNil: [ aStream nextPutAll: ' extra for pools: ' ; nextPutAll: spaceForPools asBytesDescription]. depthOfSpace ifNotNil: [ aStream nextPutAll: ' depth of space: ' ; nextPutAll: depthOfSpace asString]. aStream nextPut: $). ! Item was added: + ----- Method: SpaceTallyItem>>spaceForPools (in category 'accessing') ----- + spaceForPools + + ^ spaceForPools! Item was added: + ----- Method: SpaceTallyItem>>spaceForPools: (in category 'accessing') ----- + spaceForPools: aNumber + + spaceForPools := aNumber!

1 0

The Trunk: System-mt.1202.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1202.mcz ==================== Summary ==================== Name: System-mt.1202 Author: mt Time: 18 December 2020, 10:11:47.76906 am UUID: 29ceed8f-1bbf-fa4f-89ee-8e8aaabe25ba Ancestors: System-dtl.1201 Fixes logging output of DoItFirst for cases where stdio streams are unavailable such as on Windows via Squeak.exe (instead of SqueakConsole.exe). =============== Diff against System-dtl.1201 =============== Item was removed: - ----- Method: DoItFirst>>print:to: (in category 'private') ----- - print: aString to: stream - [ stream nextPutAll: aString; lf; flush ] - on: Error - do: [ Transcript cr; show: self class name , ' output: ', aString; flush. - ^false ]. - ^true. - ! Item was changed: ----- Method: DoItFirst>>printError: (in category 'private') ----- printError: aString "Print to stdout if available, otherwise to the transcript. Answer true if the stdio stream was used, false if output was redirected to transcript." + [ FileStream stderr nextPutAll: aString; lf; flush ] + on: Error + do: [ TranscriptStream forceUpdate: false. "Graphics not yet fully initialized." + Transcript cr; show: self class name , ' error: ', aString; flush. + ^false ]. + ^true. - ^self print: aString to: FileStream stderr. ! Item was changed: ----- Method: DoItFirst>>printOut: (in category 'private') ----- printOut: aString "Print to stdout if available, otherwise to the transcript. Answer true if the stdio stream was used, false if output was redirected to transcript." + [ FileStream stdout nextPutAll: aString; lf; flush ] + on: Error + do: [ TranscriptStream forceUpdate: false. "Graphics not yet fully initialized." + Transcript cr; show: self class name , ' output: ', aString; flush. + ^false ]. + ^true. - ^self print: aString to: FileStream stdout. !

1 0

The Trunk: System-dtl.1201.mcz
by commits＠source.squeak.org 18 Dec '20

18 Dec '20

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1201.mcz ==================== Summary ==================== Name: System-dtl.1201 Author: dtl Time: 17 December 2020, 9:48:42.965817 pm UUID: 02a92044-45ac-40d7-b274-a29ead5778bb Ancestors: System-mt.1200 Make DoItFirst safer on Windows and other platforms without access to stdo streams. If stdio not available, redirect output to transcript. Do not allow the image to quit if output was redirected to transcript, because otherwise command line results cannot be seen. Also move reevalute methods to category 'system startup' to clarify their use. These are only sent from other classes in the startup list. =============== Diff against System-mt.1200 =============== Item was changed: + ----- Method: DoItFirst class>>reevaluateCwd (in category 'system startup') ----- - ----- Method: DoItFirst class>>reevaluateCwd (in category 'reevaluate options') ----- reevaluateCwd "If a -cwd option was specified on the command line, reevaluate it now. May be called from FileDirectory class>>startUp: to reevaluate the command line option to ensure that the default directory is ultimately set as specified by the -cwd image command line option." ^ self current evaluateArg: #cwd.! Item was changed: + ----- Method: DoItFirst class>>reevaluateDebug (in category 'system startup') ----- - ----- Method: DoItFirst class>>reevaluateDebug (in category 'reevaluate options') ----- reevaluateDebug "The -debug option cannot be evaluated at DoInNow startUp time, but may be called later in the startUp processing. If -debug was not specified as a command option this method does nothing. May be called from Delay>>startup to invoke a debugger at the earliest possible time." ^ self current evaluateArg: #debug.! Item was changed: ----- Method: DoItFirst>>cwd: (in category 'actions') ----- cwd: path + "Evaluate arg and print the result on stdout, or error message on stderr." - "Evaluate arg and print the result on stdout, or error message on stderr. - Exit immediately without saving the image." (FileDirectory on: path) exists ifTrue: [ FileDirectory setDefaultDirectory: path ] + ifFalse: [ (self printError: path, ': directory does not exist') + ifTrue: [ Smalltalk quitPrimitive ]].! - ifFalse: [ FileStream stderr nextPutAll: path, ': directory does not exist'; lf; flush. - Smalltalk quitPrimitive ] - ! Item was changed: ----- Method: DoItFirst>>doIt: (in category 'actions') ----- doIt: arguments "Evaluate arguments and print the result on stdout, or error message on stderr. Exit the image after any error." arguments do: [ :arg | + [ self printOut: (Compiler evaluate: arg) asString ] - [FileStream stdout nextPutAll: (Compiler evaluate: arg) asString; lf; flush] on: Error + do: [ :ex | self printError: ex asString ]].! - do: [ :ex | FileStream stderr nextPutAll: ex asString; lf; flush. - Smalltalk quitPrimitive ]]! Item was changed: ----- Method: DoItFirst>>evaluateFileContents: (in category 'actions') ----- evaluateFileContents: fileName "Evaluate the contents of a file and print the result on stdout, or error message on stderr. Exit immediately without saving the image." | fs arg | + [fs := FileStream oldFileNamed: fileName. + [arg := fs contentsOfEntireFile. + ^ self evaluateOption: arg] + ensure: [fs close]] + on: Exception + do: [:ex | (self printError: ex asString) + ifTrue: [Smalltalk quitPrimitive]].! - [ [ fs := FileStream oldFileNamed: fileName. ] - on: FileDoesNotExistException - do: [ :ex | FileStream stderr nextPutAll: ex asString; lf; flush. - Smalltalk quitPrimitive ]. - arg := fs contentsOfEntireFile. - ^ self evaluateOption: arg. - ] ensure: [ fs close ]. - ! Item was changed: ----- Method: DoItFirst>>evaluateOption: (in category 'actions') ----- evaluateOption: arg "Evaluate option and print the result on stdout, or error message on stderr. Exit immediately without saving the image." + | safeToQuit | + [ safeToQuit := self printOut: (Compiler evaluate: arg) asString ] - [FileStream stdout nextPutAll: (Compiler evaluate: arg) asString; lf; flush] on: Error + do: [ :ex | safeToQuit := self printError: ex asString ]. + safeToQuit ifTrue: [ Smalltalk quitPrimitive ].! - do: [ :ex | FileStream stderr nextPutAll: ex asString; lf; flush ]. - Smalltalk quitPrimitive! Item was changed: ----- Method: DoItFirst>>fileIn: (in category 'actions') ----- fileIn: fileNames "File in each named file. On error, print a message to stderr and exit the image." fileNames do: [ :arg | [ | fs | fs := FileStream oldFileNamed: arg. + self printOut: 'file in ', fs name. - FileStream stdout nextPutAll: 'file in ', fs name; lf; flush. fs fileIn ] on: Error + do: [ :ex | (self printError: ex asString) + ifTrue: [ Smalltalk quitPrimitive ]]].! - do: [ :ex | FileStream stderr nextPutAll: ex asString; lf; flush. - Smalltalk quitPrimitive ]]! Item was changed: ----- Method: DoItFirst>>help (in category 'actions') ----- help + self printOut: self class name, ' image arguments:'. - FileStream stdout nextPutAll: self class name, ' image arguments:'; lf. { '--doit argumentlist "evaluate each argument as a doIt expression"' . '--evaluate arg "evaluate arg, print result then exit"' . '--file filename "evaluate contents of filename, print result then exit"' . '--filein filelist "file in each file named in fileList"' . '--cwd path "set FileDirectory defaultDirectory to path prior to evaluating other options"' . '--debug "enter a debugger as soon as possible in the startUp processing"'. '--help "print this message"' + } do: [ :e | self printOut: String tab, e ]. + self printOut: 'some arguments have single character synonyms, -f is a synonym for --file, -d for --doit'. + (self printOut: 'single ''-'' may be used instead of ''--'', -help is interpreted as --help') + ifTrue: [ Smalltalk quitPrimitive ]. "do not quit if output went to the transcript"! - } do: [ :e | FileStream stdout tab; nextPutAll: e; lf ]. - FileStream stdout - nextPutAll: 'some arguments have single character synonyms, -f is a synonym for --file, -d for --doit'; lf; - nextPutAll: 'single ''-'' may be used instead of ''--'', -help is interpreted as --help'; lf; - flush. - Smalltalk quitPrimitive. - - ! Item was added: + ----- Method: DoItFirst>>print:to: (in category 'private') ----- + print: aString to: stream + [ stream nextPutAll: aString; lf; flush ] + on: Error + do: [ Transcript cr; show: self class name , ' output: ', aString; flush. + ^false ]. + ^true. + ! Item was added: + ----- Method: DoItFirst>>printError: (in category 'private') ----- + printError: aString + "Print to stdout if available, otherwise to the transcript. Answer true if + the stdio stream was used, false if output was redirected to transcript." + ^self print: aString to: FileStream stderr. + ! Item was added: + ----- Method: DoItFirst>>printOut: (in category 'private') ----- + printOut: aString + "Print to stdout if available, otherwise to the transcript. Answer true if + the stdio stream was used, false if output was redirected to transcript." + ^self print: aString to: FileStream stdout. + !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2020