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
| colorChangeIndex := self detectIndex: [ :s | s = '; PRINT_COLOR_CHANGE' ]. | |
| startLines := self first: colorChangeIndex-1. | |
| restLines := self allButFirst: colorChangeIndex + 1. | |
| layerChangeIndex := restLines detectIndex: [ :s | s = ';AFTER_LAYER_CHANGE' ]. | |
| endLines := restLines allButFirst: layerChangeIndex. | |
| layerLines := restLines first: layerChangeIndex. |
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
| top_d = 107; | |
| wider_ridge_d = 100; | |
| narrower_ridge_d = 92; | |
| bottom_d = 78; | |
| top_h = 18; | |
| h = 80; |
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
| map $http_upgrade $connection_upgrade { | |
| default upgrade; | |
| '' close; | |
| } | |
| server { | |
| listen 80; | |
| listen [::]:80; | |
| server_name mastodon-test.tymchuk.me; | |
| root /home/mastodon/live/public; |
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
| | methods size | | |
| methods := (RPackage organizer packages select: [ :p | p packageManifestOrNil isNil]) flatCollect: #methods. | |
| size := methods size * | |
| (ReRuleManager uniqueInstance methodRules size + | |
| ReRuleManager uniqueInstance nodeRules size). | |
| (1 to: 10) collect: [ :x | | |
| [ methods do: [ :m | m critiques ] ] timeToRunWithoutGC / size ]. |
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
| critics := (self | |
| collect: | |
| [ :pharoV | | |
| (pharoV files | |
| reject: [ :criticF | criticF basename = '.done' ] | |
| thenCollect: #basename) | |
| select: | |
| [ :crit | | |
| Smalltalk globals | |
| at: crit asSymbol |
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
| import turtle | |
| def circle(radius = 50, segments = 60): | |
| turn_step = 360 / segments | |
| segment_step = 6.28 * radius / segments | |
| turtle.left(turn_step / 2) | |
| for i in range(segments): | |
| color_step = 2 * i / (segments - 1) |
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
| TreeModel new | |
| roots: (RPackageOrganizer default packageNamed: 'Vidi') classes; | |
| beCheckList; | |
| autoMultiSelection: true; | |
| multiSelection: true; | |
| autoDeselection: false; | |
| childrenBlock: [ :class | class isClass | |
| ifTrue: [ class methods ] | |
| ifFalse: [ #() ] ]; | |
| "hasChildrenBlock: [ :entity | entity isClass ];" |
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
| "to serialize the object use" | |
| FLSerializer serialize: object toFileNamed: 'file-name.fuel'. | |
| "to deserialize use" | |
| FLMaterializer materializeFromFileNamed: 'file-name.fuel' |
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 | |
| smalltalkhubUser: 'Moose' project: 'GToolkit'; | |
| configuration; | |
| loadDevelopment. | |
| #GTImageSetupCommandLineHandler asClass new | |
| installGTInspector; | |
| installGTPlayground; | |
| disableBreakingCommandPlusOKeybindingsInPharo30. | |
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
| language: pharo | |
| env: | |
| global: | |
| - PROJECT=<your_project_name> | |
| - REPO=http://www.smalltalkhub.com/mc/Pharo/MetaRepoForPharo30/main | |
| - PHARO=30 | |
| matrix: | |
| - VERSION=stable | |
| - VERSION=development |
NewerOlder