Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
vecs
FIJI Public
Commits
6fde683c
Commit
6fde683c
authored
Jul 13, 2016
by
Stefan Tauner
Browse files
FIJITestsViewer: add keyboard accelerators for update, start, stop
parent
5a577fc7
Changes
1
Hide whitespace changes
Inline
Side-by-side
bin/Tk/FIJITestsViewer.pm
View file @
6fde683c
...
...
@@ -441,21 +441,33 @@ sub _populate_widget {
-
side
=>
"
bottom
",
-
fill
=>
'
both
',
);
$self
->
{'
update_button
'}
=
$self
->
{'
fr_buttons
'}
->
Button
(
-
text
=>
"
Update
",
-
command
=>
[
\
&_update_fiji_status
,
$self
],
-
state
=>
(
defined
$self
->
{'
Downloader
'})
?
"
normal
"
:
"
disabled
"
-
state
=>
(
defined
$self
->
{'
Downloader
'})
?
"
normal
"
:
"
disabled
",
-
underline
=>
0
,
);
$self
->
MainWindow
->
bind
("
<Alt-u>
"
=>
[
$self
->
{'
update_button
'},
'
Invoke
']);
$self
->
MainWindow
->
bind
("
<F5>
"
=>
[
$self
->
{'
update_button
'},
'
Invoke
']);
$self
->
{'
start_button
'}
=
$self
->
{'
fr_buttons
'}
->
Button
(
-
text
=>
"
Start
",
-
command
=>
[
\
&_start_test
,
$self
],
-
state
=>
(
defined
$self
->
{'
Downloader
'})
?
"
normal
"
:
"
disabled
"
-
state
=>
(
defined
$self
->
{'
Downloader
'})
?
"
normal
"
:
"
disabled
",
-
underline
=>
0
,
);
$self
->
MainWindow
->
bind
("
<Alt-s>
"
=>
[
$self
->
{'
start_button
'},
'
Invoke
']);
$self
->
MainWindow
->
bind
("
<F6>
"
=>
[
$self
->
{'
start_button
'},
'
Invoke
']);
$self
->
{'
stop_button
'}
=
$self
->
{'
fr_buttons
'}
->
Button
(
-
text
=>
"
Stop
",
-
command
=>
[
\
&_stop_test
,
$self
],
-
state
=>
"
disabled
"
-
state
=>
"
disabled
",
-
underline
=>
3
,
);
$self
->
MainWindow
->
bind
("
<Alt-p>
"
=>
[
$self
->
{'
stop_button
'},
'
Invoke
']);
$self
->
MainWindow
->
bind
("
<F7>
"
=>
[
$self
->
{'
stop_button
'},
'
Invoke
']);
$self
->
{'
stop_button
'}
->
pack
(
-
side
=>
"
right
");
$self
->
{'
start_button
'}
->
pack
(
-
side
=>
"
right
");
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment