Skip to content

Instantly share code, notes, and snippets.

@timfel

timfel/app.st

Created February 22, 2012 18:11
Show Gist options
  • Save timfel/1886415 to your computer and use it in GitHub Desktop.
Save timfel/1886415 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
app.st
RPApplication subclass: #TestApp
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'TestApp'.
echoSomething
<get: '/'>
self error: 'Shows error info about me'.
Raw
classside.st
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].
Raw
deploy.st
CloudFoundry generateDroplet.
Raw
script.st
CloudFoundry new
base: 'squeak';
generateDropletWithVNC.
Raw
squeak.st
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.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment