Nicolas Cellier uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-nice.386.mcz
==================== Summary ====================
Name: Monticello-nice.386
Author: nice
Time: 31 March 2010, 10:34:46.052 pm
UUID: 3a966ee1-b9a3-45e0-b477-abe033aa6f18
Ancestors: Monticello-ar.385
Fix http://bugs.squeak.org/view.php?id=7487
1) The package-cache did store as nil
2) The file was not closed
=============== Diff against Monticello-ar.385 ===============
Item was changed:
----- Method: MCWorkingCopyBrowser>>saveRepositories (in category 'actions') -----
saveRepositories
+ FileStream forceNewFileNamed: 'MCRepositories.st' do: [:f |
+ MCRepositoryGroup default repositoriesDo: [:r |
+ r asCreationTemplate ifNotNil: [:template |
+ f nextPutAll: 'MCRepositoryGroup default addRepository: (', template , ')!!'; cr]]]!
- | f |
- f := FileStream forceNewFileNamed: 'MCRepositories.st'.
- MCRepositoryGroup default repositoriesDo: [:r |
- f nextPutAll: 'MCRepositoryGroup default addRepository: (', r asCreationTemplate, ')!!'; cr.]!
Nicolas Cellier uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-nice.386.mcz
==================== Summary ====================
Name: Monticello-nice.386
Author: nice
Time: 31 March 2010, 10:34:46.052 pm
UUID: 3a966ee1-b9a3-45e0-b477-abe033aa6f18
Ancestors: Monticello-ar.385
Fix http://bugs.squeak.org/view.php?id=7487
1) The package-cache did store as nil
2) The file was not closed
=============== Diff against Monticello-ar.385 ===============
Item was changed:
----- Method: MCWorkingCopyBrowser>>saveRepositories (in category 'actions') -----
saveRepositories
+ FileStream forceNewFileNamed: 'MCRepositories.st' do: [:f |
+ MCRepositoryGroup default repositoriesDo: [:r |
+ r asCreationTemplate ifNotNil: [:template |
+ f nextPutAll: 'MCRepositoryGroup default addRepository: (', template , ')!!'; cr]]]!
- | f |
- f := FileStream forceNewFileNamed: 'MCRepositories.st'.
- MCRepositoryGroup default repositoriesDo: [:r |
- f nextPutAll: 'MCRepositoryGroup default addRepository: (', r asCreationTemplate, ')!!'; cr.]!
Nicolas Cellier uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-nice.386.mcz
==================== Summary ====================
Name: Monticello-nice.386
Author: nice
Time: 31 March 2010, 10:34:46.052 pm
UUID: 3a966ee1-b9a3-45e0-b477-abe033aa6f18
Ancestors: Monticello-ar.385
Fix http://bugs.squeak.org/view.php?id=7487
1) The package-cache did store as nil
2) The file was not closed
=============== Diff against Monticello-ar.385 ===============
Item was changed:
----- Method: MCWorkingCopyBrowser>>saveRepositories (in category 'actions') -----
saveRepositories
+ FileStream forceNewFileNamed: 'MCRepositories.st' do: [:f |
+ MCRepositoryGroup default repositoriesDo: [:r |
+ r asCreationTemplate ifNotNil: [:template |
+ f nextPutAll: 'MCRepositoryGroup default addRepository: (', template , ')!!'; cr]]]!
- | f |
- f := FileStream forceNewFileNamed: 'MCRepositories.st'.
- MCRepositoryGroup default repositoriesDo: [:r |
- f nextPutAll: 'MCRepositoryGroup default addRepository: (', r asCreationTemplate, ')!!'; cr.]!
Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.306.mcz
==================== Summary ====================
Name: System-ul.306
Author: ul
Time: 31 March 2010, 2:57:27.202 am
UUID: c62ee64a-3d46-6149-8076-0a244b0a1b02
Ancestors: System-nice.305, System-klub.304
Merged klub.304:
- added Docking Bar shortcuts to Keyboard Shortcuts help
=============== Diff against System-nice.305 ===============
Item was changed:
----- Method: Utilities class>>commandKeyMappings (in category 'support windows') -----
commandKeyMappings
^ (self class firstCommentAt: #commandKeyMappings) translated
"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
g Find again
h Set selection as search string for find again
i Inspect it (selection is a valid expression, or selection is over an inspect-ilst)
j Again once (do the last text-related operation again)
k Set font
l Cancel
m Implementors of it (selection is a message selector or cursor is over a class-list or message-list)
n Senders of it (selection is a message selector or cursor is over a class-list or message-list)
o Spawn current method
p Print it (selection is a valid expression)
q Query symbol (toggle all possible completion for a given prefix)
r Recognizer
s Save (i.e. accept)
t Finds a Transcript (when cursor is over the desktop)
u Toggle alignment
v Paste
w 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 argument to clipboard
D Duplicate
E Method strings containing it
F Insert 'ifFalse:'
G fileIn from it (a file name)
H cursor TopHome:
I Inspect via Object Explorer
J Again many (apply the previous text command repeatedly until the end of the text)
K Set style
L Outdent (move selection one tab-stop left)
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 Indent (move selection one tab-stap right)
S Search
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 Capitalize all words in selection
Other special keys
Backspace Backward delete character
Del Forward delete character
Shift-Bksp Backward delete word
Shift-Del Forward delete word
Esc Pop up the Desktop Menu
\ Send top window to back
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-( Enclose within ( and ), or remove enclosing ( and )
Ctrl-[ Enclose within [ and ], or remove enclosing [ and ]
Crtl-{ Enclose within { and }, or remove enclosing { and }
Ctrl-< Enclose within < and >, or remove enclosing < and >
Ctrl-' Enclose within ' and ', or remove enclosing ' and '
Ctrl-"" Enclose within "" and "", or remove enclosing "" and ""
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 10 point font
Cmd-2 12 point font
Cmd-3 18 point font
Cmd-4 24 point font
Cmd-5 36 point font
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 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 9) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means:
+ Ctrl-1 Squeak menu
+ Ctrl-2 Projects menu
+ Ctrl-3 Tools menu
+ Ctrl-4 Extras menu
+ Ctrl-5 Windows menu
+ Ctrl-6 Help menu
+ Ctrl-0 Activates Search Bar
+
"!
Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.306.mcz
==================== Summary ====================
Name: System-ul.306
Author: ul
Time: 31 March 2010, 2:57:27.202 am
UUID: c62ee64a-3d46-6149-8076-0a244b0a1b02
Ancestors: System-nice.305, System-klub.304
Merged klub.304:
- added Docking Bar shortcuts to Keyboard Shortcuts help
=============== Diff against System-nice.305 ===============
Item was changed:
----- Method: Utilities class>>commandKeyMappings (in category 'support windows') -----
commandKeyMappings
^ (self class firstCommentAt: #commandKeyMappings) translated
"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
g Find again
h Set selection as search string for find again
i Inspect it (selection is a valid expression, or selection is over an inspect-ilst)
j Again once (do the last text-related operation again)
k Set font
l Cancel
m Implementors of it (selection is a message selector or cursor is over a class-list or message-list)
n Senders of it (selection is a message selector or cursor is over a class-list or message-list)
o Spawn current method
p Print it (selection is a valid expression)
q Query symbol (toggle all possible completion for a given prefix)
r Recognizer
s Save (i.e. accept)
t Finds a Transcript (when cursor is over the desktop)
u Toggle alignment
v Paste
w 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 argument to clipboard
D Duplicate
E Method strings containing it
F Insert 'ifFalse:'
G fileIn from it (a file name)
H cursor TopHome:
I Inspect via Object Explorer
J Again many (apply the previous text command repeatedly until the end of the text)
K Set style
L Outdent (move selection one tab-stop left)
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 Indent (move selection one tab-stap right)
S Search
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 Capitalize all words in selection
Other special keys
Backspace Backward delete character
Del Forward delete character
Shift-Bksp Backward delete word
Shift-Del Forward delete word
Esc Pop up the Desktop Menu
\ Send top window to back
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-( Enclose within ( and ), or remove enclosing ( and )
Ctrl-[ Enclose within [ and ], or remove enclosing [ and ]
Crtl-{ Enclose within { and }, or remove enclosing { and }
Ctrl-< Enclose within < and >, or remove enclosing < and >
Ctrl-' Enclose within ' and ', or remove enclosing ' and '
Ctrl-"" Enclose within "" and "", or remove enclosing "" and ""
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 10 point font
Cmd-2 12 point font
Cmd-3 18 point font
Cmd-4 24 point font
Cmd-5 36 point font
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 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 9) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means:
+ Ctrl-1 Squeak menu
+ Ctrl-2 Projects menu
+ Ctrl-3 Tools menu
+ Ctrl-4 Extras menu
+ Ctrl-5 Windows menu
+ Ctrl-6 Help menu
+ Ctrl-0 Activates Search Bar
+
"!
Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.306.mcz
==================== Summary ====================
Name: System-ul.306
Author: ul
Time: 31 March 2010, 2:57:27.202 am
UUID: c62ee64a-3d46-6149-8076-0a244b0a1b02
Ancestors: System-nice.305, System-klub.304
Merged klub.304:
- added Docking Bar shortcuts to Keyboard Shortcuts help
=============== Diff against System-nice.305 ===============
Item was changed:
----- Method: Utilities class>>commandKeyMappings (in category 'support windows') -----
commandKeyMappings
^ (self class firstCommentAt: #commandKeyMappings) translated
"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
g Find again
h Set selection as search string for find again
i Inspect it (selection is a valid expression, or selection is over an inspect-ilst)
j Again once (do the last text-related operation again)
k Set font
l Cancel
m Implementors of it (selection is a message selector or cursor is over a class-list or message-list)
n Senders of it (selection is a message selector or cursor is over a class-list or message-list)
o Spawn current method
p Print it (selection is a valid expression)
q Query symbol (toggle all possible completion for a given prefix)
r Recognizer
s Save (i.e. accept)
t Finds a Transcript (when cursor is over the desktop)
u Toggle alignment
v Paste
w 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 argument to clipboard
D Duplicate
E Method strings containing it
F Insert 'ifFalse:'
G fileIn from it (a file name)
H cursor TopHome:
I Inspect via Object Explorer
J Again many (apply the previous text command repeatedly until the end of the text)
K Set style
L Outdent (move selection one tab-stop left)
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 Indent (move selection one tab-stap right)
S Search
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 Capitalize all words in selection
Other special keys
Backspace Backward delete character
Del Forward delete character
Shift-Bksp Backward delete word
Shift-Del Forward delete word
Esc Pop up the Desktop Menu
\ Send top window to back
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-( Enclose within ( and ), or remove enclosing ( and )
Ctrl-[ Enclose within [ and ], or remove enclosing [ and ]
Crtl-{ Enclose within { and }, or remove enclosing { and }
Ctrl-< Enclose within < and >, or remove enclosing < and >
Ctrl-' Enclose within ' and ', or remove enclosing ' and '
Ctrl-"" Enclose within "" and "", or remove enclosing "" and ""
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 10 point font
Cmd-2 12 point font
Cmd-3 18 point font
Cmd-4 24 point font
Cmd-5 36 point font
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 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 9) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means:
+ Ctrl-1 Squeak menu
+ Ctrl-2 Projects menu
+ Ctrl-3 Tools menu
+ Ctrl-4 Extras menu
+ Ctrl-5 Windows menu
+ Ctrl-6 Help menu
+ Ctrl-0 Activates Search Bar
+
"!
Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.406.mcz
==================== Summary ====================
Name: Morphic-ul.406
Author: ul
Time: 31 March 2010, 2:52:31.159 am
UUID: c723a9f7-df5f-3446-9729-e21a08cfa7d1
Ancestors: Morphic-ar.405, Morphic-klub.405
Merged klub.405:
- fix the missing keyboard shortcut for the search bar. Ctrl+<n> activates the search bar where n is an integer between 0 and 9 if there is no menu assigned to that number. The intended usage is Ctrl-0, but some keyboard layouts don't have a key for 0 without modifier keys.
=============== Diff against Morphic-ar.405 ===============
Item was changed:
----- Method: DockingBarMorph>>handleListenEvent: (in category 'events-processing') -----
handleListenEvent: anEvent
" I am registered as a keyboardListener of the ActiveHand,
watching for ctrl-<n> keystrokes, and upon them if I have
an nth menu item, I'll activate myself and select it. "
(anEvent controlKeyPressed and: [
anEvent keyValue
+ between: 48 " $0 asciiValue "
- between: 49 " $1 asciiValue "
and: 57 " $9 asciiValue " ]) ifTrue: [
| index itemToSelect |
index := anEvent keyValue - 48.
itemToSelect := (submorphs select: [ :each |
+ each isKindOf: DockingBarItemMorph ])
+ at: index
+ ifAbsent: [
+ ^self searchBarMorph ifNotNil: [ :searchBar |
+ searchBar activate: anEvent ] ].
- each isKindOf: DockingBarItemMorph ]) at: index ifAbsent: [ ^self ].
self activate: anEvent.
self
selectItem: itemToSelect
event: anEvent ]!
Item was added:
+ ----- Method: DockingBarMorph>>searchBarMorph (in category 'events-processing') -----
+ searchBarMorph
+
+ ^self submorphs detect: [ :each | each class = SearchBarMorph ] ifNone: [ nil ]!
Item was added:
+ ----- Method: SearchBarMorph>>activate: (in category 'search') -----
+ activate: event
+
+ event hand newKeyboardFocus: self.
+ self selectAll!
Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.406.mcz
==================== Summary ====================
Name: Morphic-ul.406
Author: ul
Time: 31 March 2010, 2:52:31.159 am
UUID: c723a9f7-df5f-3446-9729-e21a08cfa7d1
Ancestors: Morphic-ar.405, Morphic-klub.405
Merged klub.405:
- fix the missing keyboard shortcut for the search bar. Ctrl+<n> activates the search bar where n is an integer between 0 and 9 if there is no menu assigned to that number. The intended usage is Ctrl-0, but some keyboard layouts don't have a key for 0 without modifier keys.
=============== Diff against Morphic-ar.405 ===============
Item was changed:
----- Method: DockingBarMorph>>handleListenEvent: (in category 'events-processing') -----
handleListenEvent: anEvent
" I am registered as a keyboardListener of the ActiveHand,
watching for ctrl-<n> keystrokes, and upon them if I have
an nth menu item, I'll activate myself and select it. "
(anEvent controlKeyPressed and: [
anEvent keyValue
+ between: 48 " $0 asciiValue "
- between: 49 " $1 asciiValue "
and: 57 " $9 asciiValue " ]) ifTrue: [
| index itemToSelect |
index := anEvent keyValue - 48.
itemToSelect := (submorphs select: [ :each |
+ each isKindOf: DockingBarItemMorph ])
+ at: index
+ ifAbsent: [
+ ^self searchBarMorph ifNotNil: [ :searchBar |
+ searchBar activate: anEvent ] ].
- each isKindOf: DockingBarItemMorph ]) at: index ifAbsent: [ ^self ].
self activate: anEvent.
self
selectItem: itemToSelect
event: anEvent ]!
Item was added:
+ ----- Method: DockingBarMorph>>searchBarMorph (in category 'events-processing') -----
+ searchBarMorph
+
+ ^self submorphs detect: [ :each | each class = SearchBarMorph ] ifNone: [ nil ]!
Item was added:
+ ----- Method: SearchBarMorph>>activate: (in category 'search') -----
+ activate: event
+
+ event hand newKeyboardFocus: self.
+ self selectAll!
Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.406.mcz
==================== Summary ====================
Name: Morphic-ul.406
Author: ul
Time: 31 March 2010, 2:52:31.159 am
UUID: c723a9f7-df5f-3446-9729-e21a08cfa7d1
Ancestors: Morphic-ar.405, Morphic-klub.405
Merged klub.405:
- fix the missing keyboard shortcut for the search bar. Ctrl+<n> activates the search bar where n is an integer between 0 and 9 if there is no menu assigned to that number. The intended usage is Ctrl-0, but some keyboard layouts don't have a key for 0 without modifier keys.
=============== Diff against Morphic-ar.405 ===============
Item was changed:
----- Method: DockingBarMorph>>handleListenEvent: (in category 'events-processing') -----
handleListenEvent: anEvent
" I am registered as a keyboardListener of the ActiveHand,
watching for ctrl-<n> keystrokes, and upon them if I have
an nth menu item, I'll activate myself and select it. "
(anEvent controlKeyPressed and: [
anEvent keyValue
+ between: 48 " $0 asciiValue "
- between: 49 " $1 asciiValue "
and: 57 " $9 asciiValue " ]) ifTrue: [
| index itemToSelect |
index := anEvent keyValue - 48.
itemToSelect := (submorphs select: [ :each |
+ each isKindOf: DockingBarItemMorph ])
+ at: index
+ ifAbsent: [
+ ^self searchBarMorph ifNotNil: [ :searchBar |
+ searchBar activate: anEvent ] ].
- each isKindOf: DockingBarItemMorph ]) at: index ifAbsent: [ ^self ].
self activate: anEvent.
self
selectItem: itemToSelect
event: anEvent ]!
Item was added:
+ ----- Method: DockingBarMorph>>searchBarMorph (in category 'events-processing') -----
+ searchBarMorph
+
+ ^self submorphs detect: [ :each | each class = SearchBarMorph ] ifNone: [ nil ]!
Item was added:
+ ----- Method: SearchBarMorph>>activate: (in category 'search') -----
+ activate: event
+
+ event hand newKeyboardFocus: self.
+ self selectAll!
Nicolas Cellier uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-nice.305.mcz
==================== Summary ====================
Name: System-nice.305
Author: nice
Time: 30 March 2010, 10:18:06.019 pm
UUID: 0f209bd1-5091-e043-be3e-dcac0c300036
Ancestors: System-ar.304
Fix for http://bugs.squeak.org/view.php?id=7483
#metaclass -> #metaClass
=============== Diff against System-ar.304 ===============
Item was changed:
----- Method: PseudoClass>>theMetaClass (in category 'accessing') -----
theMetaClass
+ ^ self metaClass!
- ^ self metaclass!