Issue #261: add some class-side methods, so that the scripts can be invoked from within the image [ci skip]

Author: dalehenrich

shared/repos/GsDevKit_launcher/rowan/scripts/gsdevkit_launcher-Scripts/GdkL_CopyScriptClasses.class.st

@@ -18,6 +18,45 @@ Class {
 	#category : 'gsdevkit_launcher-Scripts'
 }
 
+{ #category : 'actions' }
+GdkL_CopyScriptClasses class >> copyFileTreeToTonel [
+  "self copyFileTreeToTonel"
+
+  ^ self copyFileTreeToTonel: self defaultClassNames
+]
+
+{ #category : 'actions' }
+GdkL_CopyScriptClasses class >> copyFileTreeToTonel: classNames [
+  "self copyFileTreeToTonel: #('GdkL_CopyScriptClasses' 'GdkL_Error' 'GdkL-Hello')"
+
+  ^ self new
+    classNames: classNames;
+    write: 'tonel';
+    main
+]
+
+{ #category : 'actions' }
+GdkL_CopyScriptClasses class >> copyTonelToFiletree [
+  "self copyTonelToFiletree"
+
+  ^ self copyTonelToFiletree: self defaultClassNames
+]
+
+{ #category : 'actions' }
+GdkL_CopyScriptClasses class >> copyTonelToFiletree: classNames [
+  "self copyTonelToFiletree: #('GdkL_CopyScriptClasses' 'GdkL_Error' 'GdkL-Hello')"
+
+  ^ self new
+    classNames: classNames;
+    write: 'filetree';
+    main
+]
+
+{ #category : 'private' }
+GdkL_CopyScriptClasses class >> defaultClassNames [
+  ^ #('GdkL_CopyScriptClasses' 'GdkL_Error' 'GdkL_Hello')
+]
+
 { #category : 'private' }
 GdkL_CopyScriptClasses >> _projectDefinitionClass [
 	^ ((AllUsers userWithId: 'SystemUser') objectNamed: 'RwComponentProjectDefinition')
@@ -33,6 +72,11 @@ GdkL_CopyScriptClasses >> _projectDefinitionForUrl: rowanSpecUrl [
 	^ projectDef
 ]
 
+{ #category : 'accessing' }
+GdkL_CopyScriptClasses >> classNames: classNames [
+  args := classNames
+]
+
 { #category : 'main' }
 GdkL_CopyScriptClasses >> main [
 	| shebang needsShebangProperty projectDefinition_filetree projectDefinition_tonel packageName sourcePackageDef targetPackageDef |

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Scripts.package/GdkL_CopyScriptClasses.class/class/copyFileTreeToTonel..st

@@ -0,0 +1,8 @@
+actions
+copyFileTreeToTonel: classNames
+  "self copyFileTreeToTonel: #('GdkL_CopyScriptClasses' 'GdkL_Error' 'GdkL-Hello')"
+
+  ^ self new
+    classNames: classNames;
+    write: 'tonel';
+    main

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Scripts.package/GdkL_CopyScriptClasses.class/class/copyFileTreeToTonel.st

@@ -0,0 +1,5 @@
+actions
+copyFileTreeToTonel
+  "self copyFileTreeToTonel"
+
+  ^ self copyFileTreeToTonel: self defaultClassNames

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Scripts.package/GdkL_CopyScriptClasses.class/class/copyTonelToFiletree..st

@@ -0,0 +1,8 @@
+actions
+copyTonelToFiletree: classNames
+  "self copyTonelToFiletree: #('GdkL_CopyScriptClasses' 'GdkL_Error' 'GdkL-Hello')"
+
+  ^ self new
+    classNames: classNames;
+    write: 'filetree';
+    main

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Scripts.package/GdkL_CopyScriptClasses.class/class/copyTonelToFiletree.st

@@ -0,0 +1,5 @@
+actions
+copyTonelToFiletree
+  "self copyTonelToFiletree"
+
+  ^ self copyTonelToFiletree: self defaultClassNames

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Scripts.package/GdkL_CopyScriptClasses.class/class/defaultClassNames.st

@@ -0,0 +1,3 @@
+private
+defaultClassNames
+  ^ #('GdkL_CopyScriptClasses' 'GdkL_Error' 'GdkL_Hello')

shared/repos/GsDevKit_launcher/rowan/src/gsdevkit_launcher-Scripts.package/GdkL_CopyScriptClasses.class/instance/classNames..st

@@ -0,0 +1,3 @@
+accessing
+classNames: classNames
+  args := classNames