diff --git a/src/AI-ChatPharo-Installer/CPWorldMenu.class.st b/src/AI-ChatPharo-Installer/CPWorldMenu.class.st new file mode 100644 index 00000000000..1647d3cbd3a --- /dev/null +++ b/src/AI-ChatPharo-Installer/CPWorldMenu.class.st @@ -0,0 +1,117 @@ +Class { + #name : 'CPWorldMenu', + #superclass : 'RSObject', + #classInstVars : [ + 'chatpharoIcon' + ], + #category : 'AI-ChatPharo-Installer', + #package : 'AI-ChatPharo-Installer' +} + +{ #category : 'accessing' } +CPWorldMenu class >> chatpharoIcon [ + + ^ chatpharoIcon ifNil: [ + chatpharoIcon := Form fromBinaryStream: + self chatpharoIconStream base64Decoded + readStream ] +] + +{ #category : 'accessing' } +CPWorldMenu class >> chatpharoIconStream [ + + ^ '' +] + +{ #category : 'export' } +CPWorldMenu class >> loadExporters [ + + Metacello new + githubUser: 'omarabedelkader' + project: 'ChatPharo' + commitish: 'main' + path: 'src'; + baseline: 'AIChatPharo'; + load +] + +{ #category : 'accessing' } +CPWorldMenu class >> loadFullVersion [ + "TODO do not discard changes" + + (UIManager default confirm: + 'Do you want to load the ChatPharo ?') ifFalse: [ + ^ self ]. + [ + Metacello new + githubUser: 'omarabedelkader' + project: 'ChatPharo' + commitish: 'main' + path: 'src'; + baseline: 'AIChatPharo'; + load ] + on: MCMergeOrLoadWarning + do: [ :warning | warning load ]. + self loadExporters +] + +{ #category : 'accessing' } +CPWorldMenu class >> menu00ChatPharoOn: aBuilder [ + + + (aBuilder item: #ChatPharo) + parent: #Tools; + label: 'ChatPharo'; + "icon: self chatpharoIcon;"help: 'An AI Assistant'; + order: 777. + (aBuilder item: #ChatPharoHelp) + parent: #ChatPharo; + label: 'Help'; + icon: (self iconNamed: #help); + help: 'Need help?'; + order: 1. + (aBuilder item: #ChatPharoLoad) + parent: #ChatPharo; + label: 'Load...'; + icon: (self iconNamed: #smallLoadProject); + help: 'Load ChatPharo projects'; + order: 2. + (aBuilder item: #ChatPharoLoadFullVersion) + parent: #ChatPharo; + order: 3; + label: 'Open ChatPharo'; + help: 'Open ChatPharo'; + action: [ ChatPharo new presenter open ] +] + +{ #category : 'accessing' } +CPWorldMenu class >> menu04DocumentationOn: aBuilder [ + + + (aBuilder item: #ChatPharoDocumentation) + parent: #ChatPharoHelp; + order: 4; + label: 'Online documentation'; + help: + 'Will open the webpage https://github.com/omarabedelkader/ChatPharo/wiki'; + icon: (self iconNamed: #smallHelp); + action: [ + WebBrowser openOn: + 'https://github.com/omarabedelkader/ChatPharo/wiki' ] +] + +{ #category : 'accessing' } +CPWorldMenu class >> menu06LoadFullVersionOn: aBuilder [ + + + (aBuilder item: #ChatPharoLoadFullVersion) + parent: #ChatPharoLoad; + order: 5; + label: 'Load full version'; + help: 'Load full version of ChatPharo including examples'; + "icon: self chatpharoIcon;"action: [ self loadFullVersion ] +] + +{ #category : 'see class side' } +CPWorldMenu >> seeClassSide [ +] diff --git a/src/AI-ChatPharo-Installer/package.st b/src/AI-ChatPharo-Installer/package.st new file mode 100644 index 00000000000..8b65a297fd1 --- /dev/null +++ b/src/AI-ChatPharo-Installer/package.st @@ -0,0 +1 @@ +Package { #name : 'AI-ChatPharo-Installer' } diff --git a/src/BaselineOfPharo/BaselineOfPharo.class.st b/src/BaselineOfPharo/BaselineOfPharo.class.st index 5cf2e5beac3..091606eaf57 100644 --- a/src/BaselineOfPharo/BaselineOfPharo.class.st +++ b/src/BaselineOfPharo/BaselineOfPharo.class.st @@ -153,7 +153,7 @@ BaselineOfPharo class >> spec [ newName: 'Spec2' owner: 'pharo-spec' project:'Spec' - version: 'Pharo13' + version: 'v2.0.1' ] { #category : 'repository urls' }