public
Created

  • Download Gist
app.st
Smalltalk
1 2 3 4 5 6 7 8 9
RPApplication subclass: #TestApp
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'TestApp'.
 
echoSomething
<get: '/'>
self error: 'Shows error info about me'.
classside.st
Smalltalk
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
initialize
"self initialize"
Smalltalk addToStartUpList: self.
Smalltalk addToShutDownList: self.
 
startUp
"Start this app if running on cloud foundry"
(SmalltalkImage current getSystemAttribute: 3) ifNil: [^ self].
self
runIn: #deployment
on: (SmalltalkImage current getSystemAttribute: 3) asNumber
named: 'TestApp'.
 
shutDown
self services do: [:each | each stop; waitForStop].
deploy.st
Smalltalk
1
CloudFoundry generateDroplet.
script.st
Smalltalk
1 2 3
CloudFoundry new
base: 'squeak';
generateDropletWithVNC.
squeak.st
Smalltalk
1 2 3 4
Installer mc directory: '.'; package: 'ConfigurationOfRatPack'; install.
((Smalltalk at: #'ConfigurationOfRatPack') project version: '1.0') load: #('default').
Installer mc directory: '.'; package: 'TestApp'; install.
(Installer ss project: 'RFB') install: 'RFB'.RFBServer start: 5.

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.