menu/icons/more_applications_section.png

package mygtk2;

use diagnostics;
use strict;
use feature 'state';

our @ISA = qw(Exporter);
our @EXPORT = qw(gtknew gtkset gtkadd gtkval_register gtkval_modify);

use c;
use log;
use common;

use Gtk2;

sub init() {
    !check_for_xserver() and print("Cannot be run in console mode.\n"), c::_exit(0);
    $::one_message_has_been_translated and warn("N() was called from $::one_message_has_been_translated BEFORE gtk2 initialisation, replace it with a N_() AND a translate() later.\n"), c::_exit(1);

    Gtk2->init;
    Locale::gettext::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', if_(!$::isInstall, 'libDrakX-standalone'),
        if_($::isRestore, 'draksnapshot'), if_($::isInstall, 'urpmi'),
        'drakx-net', 'drakx-kbd-mouse-x11', # shared translation
          @::textdomains;
    Glib->enable_exceptions2;
}
init() unless $::no_ugtk_init;
Glib->enable_exceptions2 if $::isInstall;


sub gtknew {
    my $class = shift;
    if (@_ % 2 != 0) {
	internal_error("gtknew $class: bad options @_");
    }
    if (my $r = find { ref $_->[0] } group_by2(@_)) {
	internal_error("gtknew $class: $r should be a string in @_");
    }
    my %opts = @_;
    _gtk(undef, $class, 'gtknew', \%opts);
}

sub gtkset {
    my $w = shift;
    my $class = ref($w);
    if (@_ % 2 != 0) {
	internal_error("gtkset $class: bad options @_");
    }
    if (my $r = find { ref $_->[0] } group_by2(@_)) {
	internal_error("gtkset $class: $r should be a string in @_");
    }
    my %opts = @_;

    $class =~ s/^(Gtk2|Gtk2::Gdk|mygtk2)::// or internal_error("gtkset unknown class $class");
    
    _gtk($w, $class, 'gtkset', \%opts);
}

sub gtkadd {
    my $w = shift;
    my $class = ref($w);
    if (@_ % 2 != 0) {
	internal_error("gtkadd $class: bad options @_");
    }
    if (my $r = find { ref $_->[0] } group_by2(@_)) {
	internal_error("gtkadd $class: $r should be a string in @_");
    }
    my %opts = @_;
    $class =~ s/^(Gtk2|Gtk2::Gdk|mygtk2)::// or internal_error("gtkadd unknown class $class");
    
    _gtk($w, $class, 'gtkadd', \%opts);
}


my %refs;

sub gtkval_register {
    my ($w, $ref, $sub) = @_;
    push @{$w->{_ref}}, $ref;
    $w->signal_connect(destroy => sub { 
	@{$refs{$ref}} = grep { $_->[1] != $w } @{$refs{$ref}};
	delete $refs{$ref} if !@{$refs{$ref}};
    });
    push @{$refs{$ref}}, [ $sub, $w ];
}
sub gtkval_modify {
    my ($ref, $val, @to_skip) = @_;
    my $prev = '' . $ref;
    $$ref = $val;
    if ($prev ne '' . $ref) {
	internal_error();
    }
ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 20 00 00 00 20 08 06 00 00 00 73 7a 7a	.PNG........IHDR.............szz
0020	f4 00 00 00 04 73 42 49 54 08 08 08 08 7c 08 64 88 00 00 00 09 70 48 59 73 00 00 0d d7 00 00 0d	.....sBIT....\|.d.....pHYs.......
0040	d7 01 42 28 9b 78 00 00 00 19 74 45 58 74 53 6f 66 74 77 61 72 65 00 77 77 77 2e 69 6e 6b 73 63	..B(.x....tEXtSoftware.www.inksc
0060	61 70 65 2e 6f 72 67 9b ee 3c 1a 00 00 03 99 49 44 41 54 58 85 ed 97 cd 4f 9c 55 14 c6 7f e7 be	ape.org..<.....IDATX....O.U.....
0080	c3 82 05 cc c4 d4 a4 d0 4e d0 40 d3 12 52 f9 2c b6 11 35 31 6e 5c 61 3f 80 da 02 fd 43 b4 0b 63	........N.@..R.,..51n\a?....C..c
00a0	ff 0e 99 21 1a 93 a6 2e d8 b8 d2 68 24 31 52 03 2d b1 c4 02 62 11 14 5c 98 81 36 b1 d4 f9 b8 8f	...!.......h$1R.-...b..\..6.....
00c0	8b f9 70 86 61 98 69 a1 2b 7d 26 6f e6 dc 73 6f ce 79 ce 39 f7 bd ef b9 f0 5f 87 d5 ba 50 92 ad	..p.a.i.+}&o..so.y.9....._...P..
00e0	6f 6e f6 7a dc bb 78 0d 60 1c 05 8e e7 a6 7f 43 fc 81 b3 69 87 9f 8a 36 35 cd 9a 99 0e 85 80 24	on.z..x.`......C...i...65......$
0100	5b dd d8 18 31 b9 8f 84 da 6a e4 bb 8c e9 fa 4b cd cd 37 ab 11 d9 97 c0 ca fa fa 09 67 ee 33 89	[...1....j.....K..7.........g.3.
0120	de 1a 1d ef 82 7e f0 e8 4a 5b 34 fa f3 53 13 f8 65 6d ed 0d e1 6e 01 2f 3e 9b f3 02 12 c8 46 5a	.....~..J[4..S..em...n./>.....FZ
0140	5b 8e 7d 59 33 81 95 5f 7f 7f 5b f8 2f 80 ba 03 3a cf 23 65 d8 3b ad 2d c7 bf aa 4a e0 fe ea ea	[.}Y3.._..[./...:.#e.;.-...J....
0160	cb 01 c1 6d e0 c8 21 39 cf 23 e1 02 ce b6 46 a3 cb c5 4a 57 3c 90 64 01 ee a6 a4 23 92 38 e4 e7	...m..!9.#....F...JW<.d....#.8..
0180	85 4c 5a 9f 48 b2 8a 04 96 57 d7 2f 7b a9 4f 3c b7 5f ff e2 83 b5 a1 3d 09 48 32 af cc 87 cf 21	.LZ.H....W./{.O<._.....=.H2....!
01a0	f2 92 07 fc 8d e2 2c 14 84 c5 95 b5 33 1e 7f fb 40 55 ae 15 b2 be f6 b6 96 59 80 50 5e 97 51 7a	......,.....3...@U.......Y.P^.Qz
01c0	f0 29 0e c6 83 62 10 28 25 20 31 00 35 9d 9e 87 00 3f 90 97 8a 08 e8 58 a5 e5 f3 77 ef 32 19 8f	.)...b.(%.1.5....?.....X...w.2..
01e0	03 62 74 6c 9c ee 9e 9e 82 ce 80 d1 f1 71 ba ba bb 4b 74 63 d7 ae d1 d9 d5 b5 a7 3d 83 e6 bc 5c	.btl.........q...Ktc.......=...\
0200	bc 09 8f 56 da 38 b1 89 8f d9 4a 24 d8 4a 6c 31 19 8f f1 f7 93 27 c4 27 26 d8 4a 24 48 24 12 4c	...V.8....J$.Jl1.....'.'&.J$H$.L
0220	c6 63 24 93 29 e2 b1 22 5d 2c 46 3a 9d de d3 9e 2f 0a d6 ed 66 57 0b 1e 3e 7a 84 76 95 eb f1 e3	.c$.).."],F:..../...fW..>z.v....
0240	bf ca c2 4c 26 93 78 ef f7 32 51 50 fe 4b 40 da ac 94 81 ab a3 63 34 36 86 69 0c 37 72 fe fc 45	...L&.x..2QP.K@......c46.i.7r..E
0260	00 2e 5c b8 48 63 38 4c 38 12 e6 d2 d0 30 00 c3 c3 23 84 c3 11 22 91 08 23 ef 5d c1 80 54 2a 85	..\.Hc8L8....0...#..."..#.]..T*.
0280	f7 7e b7 cd 8d 22 9e 59 cc ff b4 f4 0d f0 66 a5 a8 53 a9 14 db db db 98 19 06 98 33 9c b9 ec d8	.~...".Y......f..S.........3....
02a0	39 9c 33 8c ac 6c 66 b8 82 de e1 cc 70 41 50 64 4d 5f 77 b6 9f 7c ab 24 03 92 9f de ef 00 09 85	9.3..lf.....pAPdM_w..\|.$........
02c0	42 44 22 11 cc 0c cc b2 ff 90 93 c9 be 40 39 9d 15 f4 d9 b1 a0 74 0f 78 be 2d 2b 81 cf 30 55 ed	BD"..........@9......t.x.-+..0U.
02e0	14 0b 82 80 86 86 06 9c 59 c1 61 35 e7 d9 a1 95 d8 31 dc 54 59 09 24 d9 9d 85 c5 45 e0 44 a5 32	........Y.a5.....1.TY.$....E.D.2
0300	e4 91 4e a7 d9 d9 d9 21 9b 0c c3 72 a5 70 2e 2b bb 5c 19 b2 ba b2 7d be d4 dd 71 f2 54 be 53 2a	..N....!...r.p.+.\....}...q.T.S*
0320	cc 9a 99 24 7f bd 96 f3 3c 08 02 ea eb eb c9 55 3d 5f 09 60 ff c8 25 81 f1 7e 71 9b 56 72 f6 4a	...$....<......U=_.`..%..~q.Vr.J
0340	b2 b9 7b f7 67 84 ce 54 cb 02 80 f7 19 92 c9 54 2e 13 55 23 07 31 d3 7b ba fd 5c 31 81 92 55 66	..{.g..T.......T..U#.1.{..\1..Uf
0360	a6 b4 b7 11 a1 3f 6b c9 84 99 a3 ae ae ae a6 c8 25 25 2c d0 e8 ee 26 b5 8c e6 ab 9d a7 1e c8 73	.....?k.........%%,...&........s
0380	59 22 25 41 b5 c7 cc 11 0a d5 e5 08 64 f7 c0 1e eb 52 19 af 4b bd 1d 1d 65 cd 69 c5 cf df cc fc	Y"%A........d....R..K...e.i.....
03a0	c2 eb 88 cf 41 07 6e 4a cd 6c b8 bf b3 a3 ac 1f dc 97 00 c0 77 b3 0b 6d ce f9 4f 81 fe 67 f3 ad	....A.nJ.l..........w..m..O..g..
03c0	99 4c c6 ae be d6 77 7a a5 d2 8a 9a 2e 26 df cf dd 1b c2 b8 01 aa fa 8a e6 b0 24 e3 83 73 5d a7	.L....wz.....&............$..s].
03e0	6f 1d e8 62 b2 9b c8 cc dc 8f 3d de 18 34 69 40 d0 04 44 73 d3 eb 06 9b 32 9b 36 af a9 b3 bd af	o..b......=..4i@..Ds....2.6.....
0400	dc a9 f5 6a f6 3f fe 01 4c 80 fa 8f b7 1c 66 8e 00 00 00 00 49 45 4e 44 ae 42 60 82	...j.?..L.....f.....IEND.B`.