Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
S
sasa
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container Registry
Model registry
Operate
Environments
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
verimag
synchrone
sasa
Commits
fc55960d
Commit
fc55960d
authored
2 years ago
by
erwan
Browse files
Options
Downloads
Patches
Plain Diff
fix: in rdbgui4sasa, the manual daemon activated all enabled nodes
parent
6ea21d38
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
tools/rdbg4sasa/gtkgui.ml
+7
-10
7 additions, 10 deletions
tools/rdbg4sasa/gtkgui.ml
with
7 additions
and
10 deletions
tools/rdbg4sasa/gtkgui.ml
+
7
−
10
View file @
fc55960d
(* Time-stamp: <modified the
11
/0
7
/202
2
(at 1
4:12
) by Erwan Jahier> *)
(* Time-stamp: <modified the
04
/0
1
/202
3
(at 1
1:44
) by Erwan Jahier> *)
#
thread
#
require
"lablgtk3"
...
...
@@ -170,9 +170,9 @@ let init_rdbg_hook () =
|
None
->
false
|
Some
x
->
x
in
let
activate
=
match
enabled
with
(* activate the Enabled actions! *)
let
activate
=
match
enabled
with
|
B
true
->
B
to_activate
|
B
false
->
B
false
|
B
false
->
B
false
(* activate only the Enabled actions! *)
|
_
->
assert
false
in
(
str
,
activate
)
...
...
@@ -259,8 +259,8 @@ let custom_daemon p gtext vbox step_button back_step_button round_button
Hashtbl
.
filter_map_inplace
(
fun
n
_prev_status
->
Some
(
n
=
node
))
daemongui_activate
;
)
|
Manual
->
let
txt
=
Printf
.
sprintf
"
Manual step:
\n\n
%s"
(
str_of_sasa_event
false
!
e
)
in
blue
gtext
#
buffer
txt
;
let
txt
=
Printf
.
sprintf
"
Set %s to %b
\n
"
node
activate
in
blue
_add
gtext
#
buffer
txt
;
Hashtbl
.
replace
daemongui_activate
node
activate
);
in
...
...
@@ -427,12 +427,9 @@ let custom_daemon p gtext vbox step_button back_step_button round_button
hide
checkbox_grid
;
hide
pushbox_grid
;
in
let
update_all_checkboxes
()
=
(* only display the buttons of enabled nodes (for the manual daemon) *)
let
nodes_enabled
=
rdbg_nodes_enabled
!
e
in
List
.
iter
(
fun
(
name
,
enabled
)
->
Hashtbl
.
replace
daemongui_activate
name
enabled
;
update_checkbox
name
enabled
)
nodes_enabled
List
.
iter
(
fun
(
name
,
enabled
)
->
update_checkbox
name
enabled
)
nodes_enabled
in
Hashtbl
.
add
refresh_fun_tbl
""
update_all_checkboxes
;
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment