-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
3ef5e22
commit e096b4f
Showing
8 changed files
with
60 additions
and
2 deletions.
There are no files selected for viewing
8 changes: 8 additions & 0 deletions
8
...romScratch.package/ArgMorphBuilder.class/instance/addNumberExpressArg.selector.target..st
This file contains 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
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,8 @@ | ||
accessing | ||
addNumberExpressArg: aCharacter selector: aSymbol target: anObject | ||
self | ||
add: aCharacter | ||
builder: [ ExpressionArgMorphWithMenu new | ||
numExpression: (anObject perform: aSymbol) first second asString; | ||
getOptionsSelector: aSymbol; | ||
getOptionsTarget: anObject ] |
3 changes: 3 additions & 0 deletions
3
filetree/FromScratch.package/Array.extension/instance/isNumberString.st
This file contains 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
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,3 @@ | ||
*FromScratch | ||
isNumberString | ||
^ false |
This file contains 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
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,3 @@ | ||
{ | ||
"name" : "Array" | ||
} |
This file contains 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
3 changes: 3 additions & 0 deletions
3
filetree/FromScratch.package/Number.extension/instance/isNumberString.st
This file contains 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
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,3 @@ | ||
*FromScratch | ||
isNumberString | ||
^ false |
3 changes: 3 additions & 0 deletions
3
filetree/FromScratch.package/ScratchScript.class/instance/specialCommands.st
This file contains 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
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,3 @@ | ||
block specs | ||
specialCommands | ||
^ #(#setVar:to:) |
15 changes: 15 additions & 0 deletions
15
filetree/FromScratch.package/ScratchStackProcess.class/instance/doForever.st
This file contains 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
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,15 @@ | ||
special ops | ||
doForever | ||
"Executes one iteration of a forever loop." | ||
|
||
"Right now, the forever special form is at the top of the stack. We're going to add two more things on top of this: (1) a frame for evaluating the blocks in the forever block, and (2) a frame that just results in yielding control. That way we'll evaluate the contents of the block, give up control, and do it all again." | ||
|
||
| blocks | | ||
"Remember blocks to evaluate before we clobber the stack." | ||
blocks := stackFrame expression firstBlockList. | ||
|
||
"When we're all done with these blocks, we want to yield." | ||
self pushStackFrame: (ScratchStackFrame new shouldYield: true). | ||
|
||
"First, we want to evaluate the blocks inside the loop." | ||
self pushStackFrame: (ScratchStackFrame new expression: blocks) |
24 changes: 24 additions & 0 deletions
24
filetree/FromScratch.package/SpScratchApp.class/class/deploySystem.st
This file contains 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
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,24 @@ | ||
accessing | ||
deploySystem | ||
"self deploySystem" | ||
(self confirm: 'Deploying System?') | ||
ifFalse: [ ^ self ]. | ||
World closeAllWindowsDiscardingChanges. | ||
FreeTypeFontProvider current updateFromSystem. | ||
MCRepositoryGroup | ||
allSubInstancesDo: [ :gr | gr repositories do: [ :r | gr removeRepository: r ] ]. | ||
IceRepository registry removeAll. | ||
IceCredentialStore current | ||
in: | ||
[ :store | store allCredentials do: [ :each | each removeFrom: store ] ]. | ||
Smalltalk cleanUp: true except: {} confirming: false. | ||
Deprecation | ||
raiseWarning: false; | ||
showWarning: false. | ||
NoChangesLog install. | ||
NoPharoFilesOpener install. | ||
Stdio useNullStreams. | ||
MCCacheRepository uniqueInstance disable. | ||
EpMonitor reset. | ||
5 timesRepeat: [ Smalltalk garbageCollect ]. | ||
Smalltalk snapshot: true andQuit: true |