Use `Smalltalk at: #Class` to access St/X classes in jv_calipel_s
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 18 Sep 2015 09:25:31 +0100
changeset 280 0e38885a2a13
parent 279 af5ed3f190d4
child 281 674302a63a98
Use `Smalltalk at: #Class` to access St/X classes in jv_calipel_s ...to avoid warnings about undeclared classes when loaded in Pharo.
s/jv_calipel_s.st
web/config/deploy.rb
--- a/s/jv_calipel_s.st	Fri Sep 18 09:21:21 2015 +0100
+++ b/s/jv_calipel_s.st	Fri Sep 18 09:25:31 2015 +0100
@@ -17,9 +17,10 @@
 
     tests := self package , '/tests'.
     Smalltalk loadPackage: tests.
-    ^(ProjectDefinition definitionClassForPackage: tests) testSuite
+    ^((Smalltalk at: #ProjectDefinition) definitionClassForPackage: tests) testSuite
 
     "Created: / 09-06-2013 / 22:23:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-09-2015 / 09:23:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !jv_calipel_s class methodsFor:'description'!
@@ -157,7 +158,7 @@
         Smalltalk loadPackage: pkgnm.
         mcpkg := MCPackage named: pkgnm.
         mcwc := mcpkg workingCopy.
-        mcvi := HGMCVersionInfo forPackage: pkgnm.
+        mcvi := (Smalltalk at:#HGMCVersionInfo) forPackage: pkgnm.
         [
            mcversion := mcwc newVersion.
            mcversion snapshot includeExtrasForSTX: true.
@@ -172,7 +173,7 @@
     packages do: exporter.
 
     "Created: / 11-06-2013 / 02:06:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 11-05-2015 / 15:36:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-09-2015 / 09:24:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !jv_calipel_s class methodsFor:'documentation'!
--- a/web/config/deploy.rb	Fri Sep 18 09:21:21 2015 +0100
+++ b/web/config/deploy.rb	Fri Sep 18 09:25:31 2015 +0100
@@ -13,15 +13,15 @@
 
 server "swing.fit.cvut.cz", :app, :web, :db, primary: true
 if ENV['USER'] == 'jv'
-  set :user, "vranyj1"
+  set :user, "hlopkmar"
 else
   set :user, "hlopkmar"
 end
 set :use_sudo, false
 
-set :default_environment, {
-  'PATH' => "/home/hlopkmar/.rvm/gems/ruby-2.0.0-p195/bin:/home/hlopkmar/.rvm/bin:$PATH"
-}
+#set :default_environment, {
+#  'PATH' => "/home/hlopkmar/.rvm/gems/ruby-2.0.0-p195/bin:/home/hlopkmar/.rvm/bin:$PATH"
+#}
 
 set :shared_children, shared_children + [
     "public/uploads",