projects
/
clawsker.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
52589d5
)
Fix undetected changes when value is zero
author
Ricardo Mones
<ricardo@mones.org>
Wed, 7 Nov 2018 20:33:58 +0000
(21:33 +0100)
committer
Ricardo Mones
<ricardo@mones.org>
Wed, 7 Nov 2018 20:33:58 +0000
(21:33 +0100)
clawsker
patch
|
blob
|
history
diff --git
a/clawsker
b/clawsker
index 7e4e9e9903439aef1f8ca8d09e46fe4152f8d762..45bb2e4dc13bfeb28125e98f8948c2ddd31457fe 100755
(executable)
--- a/
clawsker
+++ b/
clawsker
@@
-348,7
+348,7
@@
sub handle_bool_value {
my ($widget, $event, $dataref) = @_;
$$dataref->[VALUE] = ($widget->get_active ())? '1': '0';
$MODIFIED += $$dataref->[VALUE] != $$dataref->[IVALUE]? 1: -1
my ($widget, $event, $dataref) = @_;
$$dataref->[VALUE] = ($widget->get_active ())? '1': '0';
$MODIFIED += $$dataref->[VALUE] != $$dataref->[IVALUE]? 1: -1
- if $$dataref->[IVALUE];
+ if
defined
$$dataref->[IVALUE];
}
sub handle_int_value {
}
sub handle_int_value {
@@
-364,14
+364,14
@@
sub handle_int_value {
$widget->set_text ($$dataref->[VALUE]);
}
$MODIFIED += $$dataref->[VALUE] != $$dataref->[IVALUE]? 1: -1
$widget->set_text ($$dataref->[VALUE]);
}
$MODIFIED += $$dataref->[VALUE] != $$dataref->[IVALUE]? 1: -1
- if $$dataref->[IVALUE];
+ if
defined
$$dataref->[IVALUE];
}
sub handle_string_value {
my ($widget, $event, $dataref) = @_;
$$dataref->[VALUE] = $widget->get_text ();
$MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
}
sub handle_string_value {
my ($widget, $event, $dataref) = @_;
$$dataref->[VALUE] = $widget->get_text ();
$MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
- if $$dataref->[IVALUE];
+ if
defined
$$dataref->[IVALUE];
}
sub handle_nchar_value {
}
sub handle_nchar_value {
@@
-380,7
+380,7
@@
sub handle_nchar_value {
$widget->set_text ($_);
$$dataref->[VALUE] = $_;
$MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
$widget->set_text ($_);
$$dataref->[VALUE] = $_;
$MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
- if $$dataref->[IVALUE];
+ if
defined
$$dataref->[IVALUE];
}
sub gdk_color_from_str {
}
sub gdk_color_from_str {
@@
-410,14
+410,14
@@
sub handle_color_value {
my $newcol = $widget->get_color;
$$dataref->[VALUE] = str_from_gdk_color ($newcol);
$MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
my $newcol = $widget->get_color;
$$dataref->[VALUE] = str_from_gdk_color ($newcol);
$MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
- if $$dataref->[IVALUE];
+ if
defined
$$dataref->[IVALUE];
}
sub handle_selection_value {
my ($widget, $event, $dataref) = @_;
$$dataref->[VALUE] = $widget->get_active;
$MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
}
sub handle_selection_value {
my ($widget, $event, $dataref) = @_;
$$dataref->[VALUE] = $widget->get_active;
$MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
- if $$dataref->[IVALUE];
+ if
defined
$$dataref->[IVALUE];
}
sub get_rc_filename {
}
sub get_rc_filename {