Skip to content

Instantly share code, notes, and snippets.

View despotadesdibujau's full-sized avatar

southsmalltalks despotadesdibujau

  • southsmalltalks
  • Buenos Aires
View GitHub Profile
|webViewStream|
[webViewStream:=(StandardFileStream fileNamed:'webViews.txt').
(Smalltalk allClasses select:[:class | class name printString includesSubstring:'WebView'])
do:[:webView | webViewStream nextPutAll:webView name printString; lf ] ]
ensure:[webViewStream close]
@despotadesdibujau
despotadesdibujau / allWillowClasses.st
Created November 23, 2017 03:46
List in a file all willow classes
| package classesStream|
[classesStream :=(StandardFileStream fileNamed: 'willowclasses.txt').
package:=RPackageOrganizer default packageNamed: #'Willow' .
package classes do:[:class | classesStream nextPutAll: class name printString; lf ]]
ensure:[classesStream close].
Gofer new
url: 'http://smalltalkhub.com/mc/Pharo/Pharo60/main';
package:'Metacello-GitBasedRepository';
load.
Gofer new
url: 'http://smalltalkhub.com/mc/Pharo/Pharo60/main';
package:'Metacello-GitHub';
load.
Smalltalk recompile.
@despotadesdibujau
despotadesdibujau / loadMyApplication.st
Created November 18, 2017 21:33
load application from github
Metacello new
baseline:'ToDoApplication';
repository: 'github://despotadesdibujau/seaside-todo-application:master';
load.
SmalltalkImage current saveImageInFileNamed:'todoApplication.image'.
SmalltalkImage current snapshot: true andQuit: true
ChangesLog subclass: 'NoChangesLog'.
"and installed that as its DefaultInstance (as accessed by #default), with an #install class side message."
NoChangesLog class compile:'default
^DefaultInstance ifNil: [
DefaultInstance := self new.
self registerInterestToSystemAnnouncement.
DefaultInstance]'.
NoChangesLog compile:'logChange:aStringOrText'.
@despotadesdibujau
despotadesdibujau / loadMetacello.st
Last active November 19, 2017 00:44
with this script you can prepare the minimal image to load your application from github and filetree
Gofer new smalltalkhubUser:'SvenVanCaekenberghe'project:'STON';
configurationOf:'Ston';
loadStable.
Gofer new
url: 'http://smalltalkhub.com/mc/Pharo/Pharo60/main';
package:'MonticelloFileTree-Core';
load.
Gofer new
url: 'http://smalltalkhub.com/mc/Pharo/Pharo60/main';
package:'Metacello-GitBasedRepository';
@despotadesdibujau
despotadesdibujau / metacello-github.st
Created November 17, 2017 02:20
script to load metacello github
Gofer new
url: 'http://smalltalkhub.com/mc/Pharo/Pharo60/main';
package:'Metacello-GitHub';
load
@despotadesdibujau
despotadesdibujau / monticello-filetree.st
Created November 17, 2017 02:18
script to load monticello filetree
Gofer new
url: 'http://smalltalkhub.com/mc/Pharo/Pharo60/main';
package:'MonticelloFileTree-Core';
load
@despotadesdibujau
despotadesdibujau / load-metacello-git-based.st
Created November 17, 2017 02:16
Script to load metacello git based repository
Gofer new
url: 'http://smalltalkhub.com/mc/Pharo/Pharo60/main';
package:'Metacello-GitBasedRepository';
load
@despotadesdibujau
despotadesdibujau / start_up_pharo.st
Created November 12, 2017 01:36
Script to startUp in no dispaly mode the minimal image. This script allow us startUp the image just doing: ./pharo Pharo.image....Remember do in the terminal "sudo chmod a+x pharo.sh"
|fileStream bashFileContent|
bashFileContent :='#!/usr/bin/env bash
# some magic to find out the real location of this script dealing with symlinks
DIR=`readlink "$0"` || DIR="$0";
DIR=`dirname "$DIR"`;
cd "$DIR"
DIR=`pwd`
cd - > /dev/null
# disable parameter expansion to forward all arguments unprocessed to the VM