Levente Uzonyi uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-ul.23.mcz
==================== Summary ====================
Name: 60Deprecated-ul.23
Author: ul
Time: 2 July 2018, 8:53:19.652521 pm
UUID: 4dd2eb16-f124-4343-bc9d-3700e9055d7c
Ancestors: 60Deprecated-eem.22
Deprecated HashedCollection's #findElementOrNil: and #fullCheck.
=============== Diff against 60Deprecated-eem.22 ===============
Item was added:
+ ----- Method: HashedCollection>>findElementOrNil: (in category '*60Deprecated-compatibility') -----
+ findElementOrNil: anObject
+ "This method has been superseeded by #scanFor:
+ It is here for compatibility with external packages only."
+ ^self scanFor: anObject!
Item was added:
+ ----- Method: HashedCollection>>fullCheck (in category '*60Deprecated-compatibility') -----
+ fullCheck
+ "This is a private method, formerly implemented in Set, that is no longer required.
+ It is here for compatibility with external packages only."
+ "Keep array at least 1/4 free for decent hash behavior"
+
+ array size * 3 < (tally * 4) ifTrue: [ self grow ]!
Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.1458.mcz
==================== Summary ====================
Name: Morphic-cmm.1458
Author: cmm
Time: 1 July 2018, 7:08:29.055704 pm
UUID: 4c35981c-7629-4346-973b-408ca3f2e045
Ancestors: Morphic-cmm.1457
Recover Levente's change to use #sort: instead of asSortedCollection:, which had been done prior to my change to #findWindow:. Sorry Levente!
=============== Diff against Morphic-cmm.1457 ===============
Item was changed:
----- Method: PasteUpMorph>>findWindow: (in category 'world menu') -----
findWindow: evt
"Present a menu names of windows and naked morphs, and activate the one that gets chosen. Collapsed windows appear below line, expand if chosen; naked morphs appear below second line; if any of them has been given an explicit name, that is what's shown, else the class-name of the morph shows; if a naked morph is chosen, bring it to front and have it don a halo."
| menu expanded collapsed nakedMorphs |
menu := MenuMorph new.
expanded := SystemWindow windowsIn: self satisfying: [:w | w isCollapsed not].
collapsed := SystemWindow windowsIn: self satisfying: [:w | w isCollapsed].
nakedMorphs := self submorphsSatisfying:
[:m | (m isSystemWindow not and: [(m isStickySketchMorph) not]) and:
[(m isFlapTab) not]].
(expanded isEmpty & (collapsed isEmpty & nakedMorphs isEmpty)) ifTrue: [^ Beeper beep].
+ (expanded sort: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do:
- (expanded asSortedCollection: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do:
[:w | menu add: (w label contractTo: 80) target: w action: #beKeyWindow.
w model canDiscardEdits ifFalse: [menu lastItem color: Color red]].
(expanded isEmpty | (collapsed isEmpty & nakedMorphs isEmpty)) ifFalse: [menu addLine].
+ (collapsed sort: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do:
- (collapsed asSortedCollection: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do:
[:w | menu add: (w label contractTo: 80) target: w action: #collapseOrExpand.
w model canDiscardEdits ifFalse: [menu lastItem color: Color red]].
nakedMorphs isEmpty ifFalse: [menu addLine].
+ (nakedMorphs sort: [:w1 :w2 | w1 nameForFindWindowFeature caseInsensitiveLessOrEqual: w2 nameForFindWindowFeature]) do:
- (nakedMorphs asSortedCollection: [:w1 :w2 | w1 nameForFindWindowFeature caseInsensitiveLessOrEqual: w2 nameForFindWindowFeature]) do:
[:w | menu add: (w nameForFindWindowFeature contractTo: 80) target: w action: #comeToFrontAndAddHalo].
menu addTitle: 'find window' translated.
menu popUpEvent: evt in: self.!
Chris Muller uploaded a new version of Help-Squeak-Project to project The Trunk:
http://source.squeak.org/trunk/Help-Squeak-Project-cmm.58.mcz
==================== Summary ====================
Name: Help-Squeak-Project-cmm.58
Author: cmm
Time: 1 July 2018, 6:26:15.595718 pm
UUID: c228822e-add8-4297-a6aa-2ebc50fd177d
Ancestors: Help-Squeak-Project-tpr.57
Command-key help page updates.
=============== Diff against Help-Squeak-Project-tpr.57 ===============
Item was changed:
----- Method: SqueakTutorialsCommandKey class>>commandKeyMappings (in category 'as yet unclassified') -----
commandKeyMappings
"This method was automatically generated. Edit it using:"
"SqueakTutorialsCommandKey edit: #commandKeyMappings"
+ ^(HelpTopic
- ^HelpTopic
title: 'Command Key Mappings'
contents:
'Lower-case command keys
(use with Cmd key on Mac and Alt key on other platforms)
a Select all
b Browse it (selection is a class name or cursor is over a class-list or message-list)
c Copy selection
d Do it (selection is a valid expression)
e Exchange selection with prior selection
f Find text with a dialog
g Find the current selection again
j Repeat the last selection replacement
i Inspect it
k Set font
l Cancel text edit
m Implementors of it
n Senders of it
o Spawn current method
p Print it (selection is a valid expression)
q Query symbol (toggle all possible completion for a given prefix)
s Save (i.e. accept)
t Finds a Transcript (when cursor is over the desktop)
u Toggle alignment
v Paste
w Select/Delete preceding word (over text); Close-window (over morphic desktop)
x Cut selection
y Swap characters
z Undo
Note: for Do it, Senders of it, etc., a null selection will be expanded to a word or to the current line in an attempt to do what you want. Also note that Senders/Implementors of it will find the outermost keyword selector in a large selection, as when you have selected a bracketed expression or an entire line. Finally note that the same cmd-m and cmd-n (and cmd-v for versions) work in the message pane of most browsers.
Upper-case command keys
(use with Shift-Cmd, or Ctrl on Mac
or Shift-Alt on other platforms; sometimes Ctrl works too)
A Advance argument
B Browse it in this same browser (in System browsers only)
C Compare the selected text to the clipboard contents
D Debug-It
E Method strings containing it
F Insert ''ifFalse:''
G fileIn from it (a file name)
H Move cursor to top/home of text
I Inspect via Object Explorer
J Again many (apply the previous text command repeatedly until the end of the text)
K Set style
L Opens a FileList, bringing forward on that already exists if appropriate
M Select current type-in
N References to it (selection is a class name, or cursor is over a class-list or message-list)
O Open single-message browser (in message lists)
P Make project link
R opens a Recent Submissions browser
S Pretty-print a method in the current browser
T Insert ''ifTrue:''
U Convert linefeeds to carriage returns in selection
V Paste author''s initials
W Selectors containing it (in text); show-world-menu (when issued with cursor over desktop)
X Force selection to lowercase
Y Force selection to uppercase
Z Redo
Other special keys
Backspace Backward delete character
Shift-Bksp Backward select or delete word
Del Forward delete character
Shift-Del Forward delete word
Esc Pop up the context menu
Shift+Esc Pop up the World Menu
Cmd+Esc Close the active window
Ctrl+Esc Present a list of open windows
Cmd+\ Send the active window to the back
Tab Insert a tab char in a single-line selection or insert a tab at the beginning of each line in a multi-line selection
Shift-Tab Remove a tab from the beginning of each line in the selection
+ Shift-Cmd-_ (underscore) condense selection into one line
Cursor keys
left, right,
up, down Move cursor left, right, up or down
Ctrl-left Move cursor left one word
Ctrl-right Move cursor right one word
Home Move cursor to begin of line or begin of text
End Move cursor to end of line or end of text
PgUp, Ctrl-up Move cursor up one page
PgDown, Ctrl-Dn Move cursor down one page
Note all these keys can be used together with Shift to define or enlarge the selection. You cannot however shrink that selection again, as in some other systems.
Other Cmd-key combinations (not available on all platforms)
Return Insert return followed by as many tabs as the previous line
(with a further adjustment for additional brackets in that line)
Space Select the current word as with double clicking
Enclose the selection in a kind of bracket. Each is a toggle.
(not available on all platforms)
Ctrl-( Toggle enclosure within parentheses
Cmd-[ Toggle enclosure within brackets
Crtl-{ Toggle enclosure within curly braces
Ctrl-'' Toggle enclosure within double-quotes
Cmd-'' Toggle enclosure within single-quotes
Note also that you can double-click just inside any of the above delimiters, or at the beginning or end of a line, to select the text enclosed.
Text Emphasis
(not available on all platforms)
Cmd-1 type the first method argument
Cmd-2 type the second method argument
Cmd-3 type the third method argument
Cmd-4 type the fourth method argument
Cmd-5 for future use
Cmd-6 color, action-on-click, link to class comment, link to method, url
Brings up a menu. To remove these properties, select
more than the active part and then use command-0.
Cmd-7 bold
Cmd-8 italic
+ Cmd-9 negative kern (letters 1 pixel closer)
+ Cmd-0 make plain (removes all emphasis and kerning)
+ Cmd-- underlined
+ Cmd-= struck out
- Cmd-9 narrow (same as negative kern)
- Cmd-0 plain text (resets all emphasis)
- Cmd-- underlined (toggles it)
- Cmd-= struck out (toggles it)
- Shift-Cmd-- (aka :=) negative kern (letters 1 pixel closer)
- Shift-Cmd-+ positive kern (letters 1 pixel larger spread)
-
Docking Bar
Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means:
Ctrl-0 Activates Search Bar or Scratch Pad
Ctrl-1 Squeak menu
Ctrl-2 Projects menu
Ctrl-3 Tools menu
Ctrl-4 Apps menu
Ctrl-5 Extras menu
Ctrl-6 Windows menu
Ctrl-7 Help menu
+ !!' readStream nextChunkText)
+ key: #commandKeyMappings!
- !!' readStream nextChunkText!
Chris Muller uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-cmm.797.mcz
==================== Summary ====================
Name: Collections-cmm.797
Author: cmm
Time: 1 July 2018, 6:04:20.270181 pm
UUID: 00fa2143-c85b-4a5c-9615-2c45ae597af6
Ancestors: Collections-ul.796
Added String>>#condensedIntoOneLine to support new editing hot key.
=============== Diff against Collections-ul.796 ===============
Item was added:
+ ----- Method: String>>condensedIntoOneLine (in category 'converting') -----
+ condensedIntoOneLine
+ "Return a copy of the receiver with all separators converted to spaces, and with no consecutive spaces. A formatting tool."
+ ^ String streamContents:
+ [ : stream | | prior |
+ prior := $X. "any non-blank"
+ self withBlanksTrimmed do:
+ [ : char | char isSeparator ifTrue: [ prior isSeparator ifFalse: [stream space]] ifFalse: [ stream nextPut: char ].
+ prior := char ] ]!