Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Convert classic figure scripts #136

Merged
merged 4 commits into from
Sep 28, 2022
Merged

Convert classic figure scripts #136

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
2ef83d1
convert classic figure scripts (%%) to modern \ExecuteSmalltalkScripts
LinqLover Sep 28, 2022
716c259
Migrate all senders of SBESqueakPicture to SBEScreenshotRecorder
LinqLover Sep 28, 2022
6ae87c2
extract: remove deprecated code (SBESqueakPicture, #collectScriptsCla…
LinqLover Sep 28, 2022
558815f
Merge branch 'master' into convert-classic-scripts
LinqLover Sep 28, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
212 changes: 120 additions & 92 deletions Environment/Environment.tex
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -101,10 +101,12 @@ \section{The system browser}
We will take a look at the standard \ind{system browser} first since the others are variations on it.
\figref{SystemBrowser0} shows the browser as it appears when you first open it from the world menu.

%%{SBESqueakPicture writeTo: './figures/SystemBrowser0.png' frame: #morphs using: [:helper |
%% Browser open.
%% helper scaleWindow: helper foregroundWindow.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/SystemBrowser0.png' frame: #morphs building: [:helper |
Browser open.
helper scaleWindow: helper foregroundWindow.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[htbp]
\centering
\ifluluelse
Expand All @@ -118,10 +120,12 @@ \section{The system browser}
The leftmost pane lists \emph{categories} of classes; select one (say \scat{Kernel-Objects}) and the pane immediately to the right will then show all of the classes in that category.
\on{I adopted the spelling of NeXTstep recommended by wikipedia}

%%{SBESqueakPicture writeTo: './figures/SystemBrowser1.png' frame: #morphs using: [:helper |
%% Browser fullOnClass: Model.
%% helper scaleWindow: helper foregroundWindow.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/SystemBrowser1.png' frame: #morphs building: [:helper |
Browser fullOnClass: Model.
helper scaleWindow: helper foregroundWindow.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[htbp]
\centering
\ifluluelse
Expand All @@ -139,10 +143,12 @@ \section{The system browser}
\protindex{all}
\cmindex{Model}{myDependents}

%%{SBESqueakPicture writeTo: './figures/SystemBrowserMyDependents.png' frame: #morphs using: [:helper |
%% Browser fullOnClass: Model selector: #myDependents.
%% helper scaleWindow: helper foregroundWindow.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/SystemBrowserMyDependents.png' frame: #morphs building: [:helper |
Browser fullOnClass: Model selector: #myDependents.
helper scaleWindow: helper foregroundWindow.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[htbp]
\centering
\ifluluelse
Expand All @@ -164,10 +170,12 @@ \section{The system browser}
\index{category!creating}
\index{protocol!creating}

%%{SBESqueakPicture writeTo: './figures/SystemBrowserClassCreation.png' frame: #morphs using: [:helper |
%% Browser fullOnCategory: 'Kernel-Objects'.
%% helper scaleWindow: helper foregroundWindow.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/SystemBrowserClassCreation.png' frame: #morphs building: [:helper |
Browser fullOnCategory: 'Kernel-Objects'.
helper scaleWindow: helper foregroundWindow.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[htbp]
\centering
\ifluluelse
Expand Down Expand Up @@ -202,11 +210,13 @@ \section{The system browser}
\index{method!creation}
\index{system browser!defining a method}

%%{SBESqueakPicture writeTo: './figures/SystemBrowserMethodTemplate.png' frame: #morphs using: [:helper |
%% Browser fullOnClass: Model category: #'morphic ui'.
%% helper scaleWindow: helper foregroundWindow.
%% helper focus: (helper codePaneOfBrowser: helper foregroundWindow).
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/SystemBrowserMethodTemplate.png' frame: #morphs building: [:helper |
Browser fullOnClass: Model category: #'morphic ui'.
helper scaleWindow: helper foregroundWindow.
helper focus: (helper codePaneOfBrowser: helper foregroundWindow).
]
\end{ExecuteSmalltalkScript}
\begin{figure}[htbp]
\centering
\ifluluelse
Expand Down Expand Up @@ -247,16 +257,18 @@ \subsubsection{Senders and implementors of a message}
Selecting an item in this menu will open a browser with the list of all methods in the image that send the selected message.
You can also quickly access the senders of messages by typing \short{n} (for {se\textbf{n}ders}).

%%{SBESqueakPicture writeTo: './figures/SendersOfCheckEvent.png' frame: #morphs using: [:helper |
%% | window sendersButton |
%% ToolSet browse: ScaleMorph selector: #checkExtent:.
%% window := helper foregroundWindow.
%% helper scaleWindow: window extent: 600 @ 400.
%% sendersButton := helper buttonLabeled: 'senders' in: window.
%% helper
%% runModal: [helper click: sendersButton buttons: #(left)]
%% then: [helper dialogWindow center: (window bounds pointAtFraction: 3 @ 2 / 4)]
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/SendersOfCheckEvent.png' frame: #morphs building: [:helper |
| window sendersButton |
ToolSet browse: ScaleMorph selector: #checkExtent:.
window := helper foregroundWindow.
helper scaleWindow: window extent: 600 @ 400.
sendersButton := helper buttonLabeled: 'senders' in: window.
helper
runModal: [helper click: sendersButton buttons: #(left)]
then: [helper dialogWindow center: (window bounds pointAtFraction: 3 @ 2 / 4)]
]
\end{ExecuteSmalltalkScript}
\begin{figure}[htbp]
\begin{center}
\ifluluelse
Expand All @@ -280,14 +292,16 @@ \subsubsection{Senders and implementors of a message}
The \menu{senders} button lists \emph{all} methods that send the chosen message: not all of these sends will necessarily result in the execution of the method you are currently looking at..
Indeed, much of the power of object-oriented programming comes from the fact that every message send is potentially \emph{polymorphic}, that is, it can work equally well on objects of any class. Sometimes it is easy to figure out which method will be executed as result of a particular message send, and sometimes it is impossible; the senders and implementors tools don't try.

%%{SBESqueakPicture writeTo: './figures/CanvasDraw.png' frame: #morphs using: [:helper |
%% | method window list |
%% helper systemNavigation browseAllCallsOn: #drawOn:.
%% method := 'Canvas draw:*'.
%% window := helper foregroundWindow.
%% window extent: 600 @ 300; fullBounds.
%% helper selectAnyListIn: helper foregroundWindow at: method andScrollIntoViewBy: 3.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/CanvasDraw.png' frame: #morphs building: [:helper |
| method window list |
helper systemNavigation browseAllCallsOn: #drawOn:.
method := 'Canvas draw:*'.
window := helper foregroundWindow.
window extent: 600 @ 300; fullBounds.
helper selectAnyListIn: helper foregroundWindow at: method andScrollIntoViewBy: 3.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[htbp]
\begin{center}
\ifluluelse
Expand Down Expand Up @@ -318,28 +332,30 @@ \subsubsection{Versions of a method}
When you save a new \subind{method}{version} of a method, the old one is not lost.
\sq keeps all of the old versions, and allows you to compare different versions and to go back (``revert'') to an old version.

%%{SBESqueakPicture writeTo: './figures/VersionsOfMouseUp.png' frame: #morphs using: [:helper |
%% | list |
%% helper restoreMethods: {SBECell >> #mouseUp:} after: [
%% SBECell removeSelector: #mouseUp:.
%% "Just open browser now so it will select the newest version by itself"
%% SBECell
%% compile: (String streamContents: [:stream | stream
%% nextPutAll: 'mouseUp: anEvent';
%% crtab; nextPutAll: 'mouseAction value']).
%% SBECell organization classifyAllUnclassified.
%% SBECell
%% compile: (String streamContents: [:stream | stream
%% nextPutAll: 'mouseUp: anEvent';
%% crtab; nextPutAll: '(self containsPoint: anEvent position)';
%% crtab: 2; nextPutAll: 'ifTrue: [mouseAction value]'])
%% classified: (SBECell whichCategoryIncludesSelector: #mouseUp:).
%% ToolSet browseVersionsOf: SBECell selector: #mouseUp:.
%% helper scaleWindow: helper foregroundWindow extent: 500 @ 250.
%% list := helper listMorphIncludingMatch: '*mouseUp*' in: helper foregroundWindow.
%% list changeModelSelection: 1.
%% helper takeScreenshot]
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/VersionsOfMouseUp.png' frame: #morphs building: [:helper |
| list |
helper restoreMethods: {SBECell >> #mouseUp:} after: [
SBECell removeSelector: #mouseUp:.
"Just open browser now so it will select the newest version by itself"
SBECell
compile: (String streamContents: [:stream | stream
nextPutAll: 'mouseUp: anEvent';
crtab; nextPutAll: 'mouseAction value']).
SBECell organization classifyAllUnclassified.
SBECell
compile: (String streamContents: [:stream | stream
nextPutAll: 'mouseUp: anEvent';
crtab; nextPutAll: '(self containsPoint: anEvent position)';
crtab: 2; nextPutAll: 'ifTrue: [mouseAction value]'])
classified: (SBECell whichCategoryIncludesSelector: #mouseUp:).
ToolSet browseVersionsOf: SBECell selector: #mouseUp:.
helper scaleWindow: helper foregroundWindow extent: 500 @ 250.
list := helper listMorphIncludingMatch: '*mouseUp*' in: helper foregroundWindow.
list changeModelSelection: 1.
helper takeScreenshot]
]
\end{ExecuteSmalltalkScript}
\begin{figure}[btp]
\centering
\ifluluelse
Expand Down Expand Up @@ -398,13 +414,15 @@ \subsubsection{Method overridings}
\emph{pink tan:} & the displayed method overrides, is overridden, and makes a \ct!super!-send.
\end{tabular}

%%{SBESqueakPicture writeTo: './figures/inheritanceOverriding.png' frame: #morphs using: [:helper |
%% self systemNavigation
%% methodHierarchyBrowserForClass: ScaleMorph
%% selector: #defaultColor.
%% helper scaleWindow: helper foregroundWindow extent: 500 @ 250.
%% helper selectAnyListIn: helper foregroundWindow at: '*Morph*'.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/inheritanceOverriding.png' frame: #morphs building: [:helper |
self systemNavigation
methodHierarchyBrowserForClass: ScaleMorph
selector: #defaultColor.
helper scaleWindow: helper foregroundWindow extent: 500 @ 250.
helper selectAnyListIn: helper foregroundWindow at: '*Morph*'.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[tbp]
\begin{center}
\ifluluelse
Expand All @@ -427,10 +445,12 @@ \subsubsection{The hierarchy browser}
In \figref{hierarchyBrowser}, the hierarchy browser reveals that the direct superclass of \clsind{ScaleMorph} is \clsind{RectangleMorph}.
\index{system browser!hierarchy button}

%%{SBESqueakPicture writeTo: './figures/hierarchyBrowser.png' frame: #morphs using: [:helper |
%% ScaleMorph browseHierarchy.
%% helper scaleWindow: helper foregroundWindow extent: 600 @ 400.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/hierarchyBrowser.png' frame: #morphs building: [:helper |
ScaleMorph browseHierarchy.
helper scaleWindow: helper foregroundWindow extent: 600 @ 400.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[btp]
\begin{center}
\ifluluelse
Expand Down Expand Up @@ -655,9 +675,11 @@ \subsection{Basic Monticello}
The name means ``little mountain'' in Italian and so it is always pronounced with an Italian ``c'', which sounds like the ``ch'' in chair: Mont-y'-che-llo.


%%{SBESqueakPicture writeTo: './figures/freshMonticello.png' frame: #morphs using: [:helper |
%% MCWorkingCopyBrowser open
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/freshMonticello.png' frame: #morphs building: [:helper |
MCWorkingCopyBrowser open
]
\end{ExecuteSmalltalkScript}
\begin{figure}[btp]
\begin{center}
\ifluluelse
Expand Down Expand Up @@ -694,15 +716,17 @@ \subsection{Basic Monticello}
password: ''
\end{code}

%%{SBESqueakPicture writeTo: './figures/SqueakSource-SBE.png' frame: #morphs using: [:helper |
%% | window packageList |
%% helper mcCachePackages: #('SBE-QuickTour' 'SBE-Streams') during: [
%% helper hideProgressMorph.
%% MCCacheRepository default morphicOpen.
%% window := helper foregroundWindow.
%% packageList := helper listMorphIncludingMatch: 'SBE-QuickTour' in: window.
%% window model versionSelection: 1]
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/SqueakSource-SBE.png' frame: #morphs building: [:helper |
| window packageList |
helper mcCachePackages: #('SBE-QuickTour' 'SBE-Streams') during: [
helper hideProgressMorph.
MCCacheRepository default morphicOpen.
window := helper foregroundWindow.
packageList := helper listMorphIncludingMatch: 'SBE-QuickTour' in: window.
window model versionSelection: 1]
]
\end{ExecuteSmalltalkScript}
\begin{figure}[btp]
\begin{center}
\ifluluelse
Expand Down Expand Up @@ -731,10 +755,12 @@ \subsection{Basic Monticello}
\dothis{Create a category called \scat{SBE-Monticello}, and put a couple of classes in it, as shown in \figref{MCnewcategory}.
Also, create a method in an existing class, and put it in the same package as your classes, using the rules from page \pageref{sec:packageRules}\,---\,see \figref{MCnewmethod}.}

%%{SBESqueakPicture writeTo: './figures/MCnewcategory.png' frame: #morphs using: [:helper |
%% ToolSet browse: SBEGoodClass selector: #trialMethod.
%% helper scaleWindow: helper foregroundWindow.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/MCnewcategory.png' frame: #morphs building: [:helper |
ToolSet browse: SBEGoodClass selector: #trialMethod.
helper scaleWindow: helper foregroundWindow.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[btp]
\begin{center}
\ifluluelse
Expand All @@ -745,10 +771,12 @@ \subsection{Basic Monticello}
\label{fig:MCnewcategory}
\end{figure}

%%{SBESqueakPicture writeTo: './figures/MCnewmethod.png' frame: #morphs using: [:helper |
%% ToolSet browse: Object selector: #exampleMethod.
%% helper scaleWindow: helper foregroundWindow.
%%]}
\begin{ExecuteSmalltalkScript}
SBEScreenshotRecorder writeTo: './figures/MCnewmethod.png' frame: #morphs building: [:helper |
ToolSet browse: Object selector: #exampleMethod.
helper scaleWindow: helper foregroundWindow.
]
\end{ExecuteSmalltalkScript}
\begin{figure}[btp]
\begin{center}
\ifluluelse
Expand Down
Loading