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
| Transcript << MyProtocolViewer class name; cr. | |
| methodDumper := [ :it | it methodsDo: [ :m | | |
| Transcript << m sourceCode;cr;cr ]]. | |
| methodDumper value: MyProtocolViewer. | |
| methodDumper value: MyProtocolViewer class. |
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
| "For Pharo 2.0" | |
| Gofer it | |
| squeaksource: 'ZincHTTPComponents'; | |
| package: 'Zinc-WWS-Client'; | |
| load. | |
| ZnWorkspace open. | |
| "-----------------------------------" |
philippeback
/ Finder Shortcut
Created
September 10, 2014 10:38
Add a global shortcut to open the Finder
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
| ToolShortcuts | |
| openFinder | |
| <shortcut> | |
| ^ KMKeymap | |
| shortcut: $h command | |
| action: [ Smalltalk tools finder open ] | |
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
| KMLog setDebug. | |
| KMRepository reset. | |
| KMCategory allInstances collect: [ :k | k name ]. | |
| KMCategory allInstances select: [ :k | k name = #twmShortcuts ]. | |
| KMBuilder#setAsGlobalCategory: #xyz | |
| #xyz asKmCategoryIn: |
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
| Gofer it | |
| url: 'http://www.smalltalkhub.com/mc/philippeback/HOExtras/main'; | |
| package: 'Zinc-WWS-Client'; | |
| load. | |
| ZnWorkspace open. | |
| ZnWorkspace openUrl: 'http://ws.stfx.eu/1WS4U' |
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
| Gofer new | |
| url: 'http://www.smalltalkhub.com/mc/Moose/GToolkit/main'; | |
| configuration; | |
| load. | |
| (Smalltalk globals at: ConfigurationOfGToolkit) loadDevelopment. | |
| (Smalltalk globals at: #GTInspector) registerToolsOn: Smalltalk tools. | |
| (Smalltalk globals at: #GTGenericStackDebugger) registerToolsOn: Smalltalk tools. | |
| (Smalltalk globals at: #GTPlayground) registerToolsOn: Smalltalk tools. | |
| (Smalltalk globals at: #Workspace) registerToolsOn: Smalltalk tools. |
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
| (Smalltalk at: #RubCursor) perform: #defaultColor: with: (Color r: 0.864 g: 0.9460000000000001 b: 0.5680000000000001 alpha: 1.0). | |
| (Smalltalk at: #RubAbstractTextArea) perform: #textColor: with: (Color r: 0.735 g: 0.731 b: 0.736 alpha: 1.0). | |
| (Smalltalk at: #RubAbstractTextArea) perform: #textColor: with: (Color r: 0.735 g: 0.731 b: 0.736 alpha: 1.0) | |
philippeback
/ darkgtoolkit.st
Created
September 11, 2014 10:03
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
| 'From Pharo3.0 of 18 March 2013 [Latest update: #30847] on 11 September 2014 at 12:02:04.663534 pm'! | |
| !GLMUIThemeExtraIcons class methodsFor: 'utils' stamp: 'PhilippeBack 9/11/2014 10:58'! | |
| reverseIcons | |
| "self reverseIcons" | |
| "An attempt to reverse icons" | |
| icons do: [ :icon | icon replaceColor: Color transparent withColor: Color white ]. | |
| ! ! | |
philippeback
/ WAToolDecoration.st
Created
September 11, 2014 10:05
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
| 'From Pharo3.0 of 18 March 2013 [Latest update: #30847] on 30 May 2014 at 10:39:54.099711 am'! | |
| WADecoration subclass: #WAToolDecoration | |
| instanceVariableNames: 'plugins showHalos halos' | |
| classVariableNames: '' | |
| poolDictionaries: '' | |
| category: 'Seaside-Development-Core'! | |
| !WAToolDecoration commentStamp: '<historical>' prior: 0! | |
| ! | |
philippeback
/ DarkToolkit.cs
Created
September 11, 2014 10:32
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
| 'From Pharo3.0 of 18 March 2013 [Latest update: #30847] on 11 September 2014 at 12:30:03.713575 pm'! | |
| !GTGenericStackDebugger methodsFor: 'printing/formatting' stamp: 'PhilippeBack 9/11/2014 12:29'! | |
| textAttributesForStackEntry: aContext | |
| (self selectedContext isNil or: self class enableStackColoring not) ifTrue: [ ^ {TextColor white} ]. | |
| (self selectedContext == aContext) ifTrue: [ ^ {TextColor white} ]. | |
| (aContext receiver class = self selectedContext receiver class) |