Geoffroy Couprie Geal
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| OSProcess thisOSProcess stdOut | |
| nextPutAll: 'Welcome to the simple Smalltalk REPL'; | |
| nextPut: Character lf; nextPut: $>; flush. | |
| [ |input| | |
| [ input := OSProcess readFromStdIn. | |
| input size > 0 ifTrue: [ | |
| OSProcess thisOSProcess stdOut | |
| nextPutAll: ((Compiler evaluate: input) asString; | |
| nextPut: Character lf; nextPut: $>; flush | |
| ] |
Geal
/ reverse window title
Created
February 4, 2011 09:28
Reverse all the window titles (except for PluggableSystemWindow)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SystemWindow allInstancesDo:[:win| win setLabel: (win labelString reverse)] |
Geal
/ get selected space in a workspace.st
Created
February 3, 2011 16:36
Retrieve the text currently selected in a workspace
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SHWorkspace allInstances first codeTextMorph textMorph selection asString |
Geal
/ dump content of method.st
Created
February 2, 2011 10:31
Displays only the body of a method (without prototype and comments)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| | scriptMethod sourceString sourceStringWithBracketsStripped | | |
| scriptMethod := CLASS_HERE compiledMethodAt: #METHOD_HERE. | |
| sourceString := scriptMethod methodNode body asString. | |
| sourceStringWithBracketsStripped := sourceString copyFrom: 3 to: sourceString size - 2. | |
| sourceStringWithBracketsStripped. |
Geal
/ set native window position.st
Created
February 1, 2011 16:29
how to control the native window size and position
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| HostWindowProxy new | |
| instVarNamed: #windowHandle put: 1; | |
| windowPosition: 0 @ 0; | |
| windowSize: 800 @ 600; | |
| windowTitle: 'Screencast' |
NewerOlder