1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
---
xkbset-gui | 12 ------------
1 file changed, 12 deletions(-)
--- a/xkbset-gui
+++ b/xkbset-gui
@@ -85,8 +85,6 @@ sub do_widgets {
->pack(-side=>"left",-expand=>1);
$frame_set_buttons->Button(-text=>"Apply Changes",-command=>\&apply_changes)
->pack(-side=>"left",-expand=>1);
- $frame_set_buttons->Button(-text=>"Save in .xsession",-command=>\&save_in_xsession)
- ->pack(-side=>"left",-expand=>1);
$frame_set_buttons->Button(-text=>"Quit",
-command=>sub{exit})
->pack(-side=>"left",-expand=>1);
@@ -255,13 +253,3 @@ sub read_values {
sub apply_changes {
system "xkbset " . ($mousekeys?"":"-") . "m " . ($mousekeysaccel?"":"-") . "ma $mk_delay $mk_interval $mk_time_to_max $mk_max_speed $mk_curve";
}
-
-sub save_in_xsession {
- if (defined($ENV{"HOME"})) {
- if (-e "$ENV{'HOME'}/.xsession") {
- system "perl -i -ne \"print if !/^xkbset /\" $ENV{'HOME'}/.xsession";
- }
- system "xkbset w >> $ENV{'HOME'}/.xsession";
- }
-# system "xkbset " . ($mousekeys?"":"-") . "m " . ($mousekeysaccel?"":"-") . "ma $mk_delay $mk_interval $mk_time_to_max $mk_max_speed $mk_curve";
-}
|
