瀏覽代碼

Rewrote AmberCli.st from IDE

Thomas Rake 11 年之前
父節點
當前提交
58e894b001
共有 1 個文件被更改,包括 5 次插入6 次删除
  1. 5 6
      cli/st/AmberCli.st

+ 5 - 6
cli/st/AmberCli.st

@@ -230,12 +230,6 @@ require: aModuleString
 	^require value: aModuleString
 	^require value: aModuleString
 !
 !
 
 
-withBasePath: aBaseRelativePath
-	"return a file path which is relative to the basePath."
-	^	path join: self basePath with: aBaseRelativePath
-!
-
-
 validateBasePath
 validateBasePath
 	"The basePath must be an existing directory. "
 	"The basePath must be an existing directory. "
 	fs stat: self basePath then: [ :err :stat | err
 	fs stat: self basePath then: [ :err :stat | err
@@ -243,6 +237,11 @@ validateBasePath
 		ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.'  ]].
 		ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.'  ]].
 !
 !
 
 
+withBasePath: aBaseRelativePath
+	"return a file path which is relative to the basePath."
+	^	path join: self basePath with: aBaseRelativePath
+!
+
 writeData: data toFileNamed: aFilename
 writeData: data toFileNamed: aFilename
 	console log: aFilename
 	console log: aFilename
 ! !
 ! !