search

timfel / etoys-spur

A repository to track Etoys development, keep external sources, and build all-in-one bundles
MIT License
0 stars 0 forks source link

a better emergency evaluator #24

Open JensLincke opened 7 years ago

JensLincke commented 7 years ago 
Installer swa 
   project: 'SqueakShell'; 
   install: 'SqueakShell'. 

p1 := Project current.
p2 := SqueakShellProject new.
p1 setParent: p2
p2 subProjects
Project rebuildAllProjects

p2 enter.

SqshCommandLine >> enterPreviousProject

    <shortcuts: #('pp') description: 'Enter previous project'>

    Project current subProjects first enter.

SqshControlManager >> handleKeyboardEvent: event

    ...

    "Quit the Squeak Shell."
    keyCharacter = Character escape
        ifTrue: [
            Project current isSqueakShell
                ifTrue: [^ Project current subProjects first enter]
                ifFalse: [^ self exitValue: #escaped]].

                .....
JensLincke commented 7 years ago

http://forum.world.st/ANN-The-Squeak-Shell-td4905613.html