Skip to content

Instantly share code, notes, and snippets.

View seandenigris's full-sized avatar

Sean DeNigris seandenigris

View GitHub Profile
%glr;
%prefix Le;
%root AnnotationParse;
%suffix Node;
%hierarchy Argument (
AlignmentArgument
CodeExpandedArgument
DbArgument
ExpandedArgument
@seandenigris
seandenigris / gt_slideshow_shortcuts.st
Last active June 24, 2021 01:32
GToolkit: Slideshow Shortcuts
shortcutBuilder := [ :world :key :action |
BlShortcutWithAction new
repeatable: false;
combination: (BlSingleKeyCombination new key: key);
action: [
| showElements |
showElements := world root allChildrenBreadthFirstSelect: [ :c | c isKindOf: GtSlideShowElement ].
showElements do: action ] ].
GtWorld allInstances do: [ :w |
@seandenigris
seandenigris / gist:dc8fc7dc6cd91e7bb3f327154814d2c9
Created September 30, 2020 17:31
Metacello Churn Transcript
Fetched -> BaselineOfTesseract-CompatibleUserName.1601486715 --- git@github.com:seandenigris/Tesseract-St.git[master] --- git@github.com:seandenigris/Tesseract-St.git[master]
Loaded -> BaselineOfTesseract-CompatibleUserName.1601486715 --- git@github.com:seandenigris/Tesseract-St.git[master] --- git@github.com:seandenigris/Tesseract-St.git[master]
Loading baseline of BaselineOfTesseract...
Fetched -> BaselineOfOSSubprocess-CompatibleUserName.1588868295 --- git@github.com:pharo-contributions/OSSubprocess.git[master] --- git@github.com:pharo-contributions/OSSubprocess.git[master]
Loaded -> BaselineOfOSSubprocess-CompatibleUserName.1588868295 --- git@github.com:pharo-contributions/OSSubprocess.git[master] --- git@github.com:pharo-contributions/OSSubprocess.git[master]
Fetched -> BaselineOfTempfile-CompatibleUserName.1600111301 --- git@github.com:seandenigris/TempfileSt.git[master] --- git@github.com:seandenigris/TempfileSt.git[master]
Loaded -> BaselineOfTempfile-CompatibleUserName.1600111301 --- git@github.com:s
onsets := {
'14 March 2020'.
'17 March 2020'.
'18 March 2020'.
'19 March 2020'.
'16 March 2020'.
'20 March 2020'.
'21 March 2020'.
'18 March 2020'.
'21 March 2020'.
Metacello new
repository: 'github://juliendelplanque/SQLite3/src';
baseline: 'SQLite3';
load.
"Calibre Example"
connection := SQLite3Connection on: FileLocator home / 'Dropbox (Personal)'/'Calibre Library'/'metadata.db'.
connection open.
connection tableNames.
@seandenigris
seandenigris / gist:d153ff4757f681c5169a29cf832ca31a
Last active May 19, 2018 13:24
Pharo 7 Debug Log - Freetype Problem?
THERE_BE_DRAGONS_HERE
Could not find accessor for variable named "'dest'"
19 May 2018 9:12:21.051871 am
VM: Mac OS - intel - 1013.2 - CoInterpreter VMMaker.oscog-eem.2380 uuid: c76d37e1-445c-4e34-9796-fc836dfd50c9 May 9 2018
StackToRegisterMappingCogit VMMaker.oscog-eem.2380 uuid: c76d37e1-445c-4e34-9796-fc836dfd50c9 May 9 2018
VM: 201805090836 https://github.com/OpenSmalltalk/opensmalltalk-vm.git Date: Wed May 9 10:36:12 2018 CommitHash: 334be97 Plugins: 201805090836 https://github.com/OpenSmalltalk/opensmalltalk-vm.git
Image: Pharo7.0alpha [Build information: Pharo-7.0+alpha.build.3.sha.b90156109489d468b9847b6b37a38f06957849d8 (32 Bit)]
@seandenigris
seandenigris / gist:98426ea2a93dd2b44538880add36e306
Created May 19, 2018 13:22
Pharo 7 Debug Log - Freetype Problem?
This file has been truncated, but you can view the full file.
THERE_BE_DRAGONS_HERE
Could not find accessor for variable named "'dest'"
19 May 2018 9:12:21.051871 am
VM: Mac OS - intel - 1013.2 - CoInterpreter VMMaker.oscog-eem.2380 uuid: c76d37e1-445c-4e34-9796-fc836dfd50c9 May 9 2018
StackToRegisterMappingCogit VMMaker.oscog-eem.2380 uuid: c76d37e1-445c-4e34-9796-fc836dfd50c9 May 9 2018
VM: 201805090836 https://github.com/OpenSmalltalk/opensmalltalk-vm.git Date: Wed May 9 10:36:12 2018 CommitHash: 334be97 Plugins: 201805090836 https://github.com/OpenSmalltalk/opensmalltalk-vm.git
Image: Pharo7.0alpha [Build information: Pharo-7.0+alpha.build.3.sha.b90156109489d468b9847b6b37a38f06957849d8 (32 Bit)]
@seandenigris
seandenigris / update_iceberg_1_7.st
Created April 14, 2018 17:51
Iceberg 1.7 Update Script
MetacelloPharoPlatform select.
#(
'BaselineOfTonel'
'BaselineOfLibGit'
'BaselineOfIceberg'
'MonticelloTonel-Core'
'MonticelloTonel-FileSystem'
'MonticelloTonel-Tests'
'Iceberg-UI'
'Iceberg-Plugin-GitHub'
@seandenigris
seandenigris / discordst-dnu
Created March 19, 2018 12:55
DiscordSt Margin DNU #withRight:
Margin(Object)>>doesNotUnderstand: #withRight:
RubTextFieldArea(RubAbstractTextArea)>>margins:
GLMRubTextFieldMorph(RubScrolledTextMorph)>>margins:
GLMRubTextFieldBrick(GLMRubScrolledTextBrick)>>doesNotUnderstand: #margins:
[ :b |
b editBrick
hShrinkWrap;
rubricBackgroundColor: b themer rubricBackgroundColor;
margins: (self defaultPadding @ 0) asMargin ] in GTPlaygroundEditableTabLabel>>initialize in Block: [ :b | ...
BlockClosure>>cull:
@seandenigris
seandenigris / StateSpecsConflictStack.txt
Last active March 19, 2018 01:33
Call Chain from StateSpecs Load Conflict
MetacelloAllowConflictingProjectUpgrade>>defaultAction
UndefinedObject>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>pass
[ ^ exception pass ] in MetacelloScriptEngine>>handleConflict: in Block: [ ^ exception pass ]
Dictionary>>at:ifAbsent:
MetacelloScriptEngine>>handleConflict:
MetacelloAllowConflictingProjectUpgrade>>handleResolutionFor:
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] in [ [ actionBlock