summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake/ui.pm
blob: 88ebe66992bd4787b373e2ba953c8793dcb503f9 (plain)
ofshex dumpascii
0000 23 21 2f 75 73 72 2f 62 69 6e 2f 70 65 72 6c 20 2d 77 0a 0a 70 61 63 6b 61 67 65 20 75 69 3b 0a #!/usr/bin/perl.-w..package.ui;.
0020 0a 75 73 65 20 73 74 72 69 63 74 3b 0a 0a 75 73 65 20 6c 69 62 20 71 77 28 2f 75 73 72 2f 6c 69 .use.strict;..use.lib.qw(/usr/li
0040 62 2f 6c 69 62 44 72 61 6b 58 29 3b 0a 0a 75 73 65 20 73 74 61 6e 64 61 6c 6f 6e 65 3b 0a 75 73 b/libDrakX);..use.standalone;.us
0060 65 20 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3b 0a 23 75 73 65 20 63 3b 0a 75 73 65 20 63 e.harddrake::data;.#use.c;.use.c
0080 6f 6d 6d 6f 6e 3b 0a 75 73 65 20 50 4f 53 49 58 3b 0a 0a 75 73 65 20 69 6e 74 65 72 61 63 74 69 ommon;.use.POSIX;..use.interacti
00a0 76 65 3b 0a 75 73 65 20 47 74 6b 3b 0a 23 75 73 65 20 4d 44 4b 3a 3a 43 6f 6d 6d 6f 6e 3b 0a 0a ve;.use.Gtk;.#use.MDK::Common;..
00c0 6d 79 20 24 69 6e 3b 0a 0a 6d 79 20 40 70 69 64 5f 6c 61 75 6e 63 68 65 64 3b 0a 6d 79 20 40 6d my.$in;..my.@pid_launched;.my.@m
00e0 65 6e 75 5f 69 74 65 6d 73 20 3d 20 28 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 46 69 6c enu_items.=.(.{.path.=>._("/_Fil
0100 65 22 29 2c 20 74 79 70 65 20 3d 3e 20 27 3c 42 72 61 6e 63 68 3e 27 20 7d 2c 0a 09 09 09 20 20 e"),.type.=>.'<Branch>'.},......
0120 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 46 69 6c 65 22 29 2e 5f 28 22 2f 5f 53 61 76 ..{.path.=>._("/_File")._("/_Sav
0140 65 20 72 65 70 6f 72 74 22 29 2c 20 61 63 63 65 6c 65 72 61 74 6f 72 20 3d 3e 20 5f 28 22 3c 63 e.report"),.accelerator.=>._("<c
0160 6f 6e 74 72 6f 6c 3e 51 22 29 2c 20 63 61 6c 6c 62 61 63 6b 20 3d 3e 20 5c 26 71 75 69 74 5f 67 ontrol>Q"),.callback.=>.\&quit_g
0180 6c 6f 62 61 6c 20 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 46 lobal.},........{.path.=>._("/_F
01a0 69 6c 65 22 29 2e 5f 28 22 2f 5f 51 75 69 74 22 29 2c 20 61 63 63 65 6c 65 72 61 74 6f 72 20 3d ile")._("/_Quit"),.accelerator.=
01c0 3e 20 5f 28 22 3c 63 6f 6e 74 72 6f 6c 3e 51 22 29 2c 20 63 61 6c 6c 62 61 63 6b 20 3d 3e 20 5c >._("<control>Q"),.callback.=>.\
01e0 26 71 75 69 74 5f 67 6c 6f 62 61 6c 09 7d 2c 0a 23 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d &quit_global.},.#.......{.path.=
0200 3e 20 5f 28 22 2f 5f 53 65 74 74 69 6e 67 73 22 29 2c 74 79 70 65 20 3d 3e 20 27 3c 42 72 61 6e >._("/_Settings"),type.=>.'<Bran
0220 63 68 3e 27 20 7d 2c 0a 23 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 53 ch>'.},.#.......{.path.=>._("/_S
0240 65 74 74 69 6e 67 73 22 29 2e 5f 28 22 2f 5f 50 72 65 66 65 72 65 6e 63 65 73 22 29 20 2c 20 63 ettings")._("/_Preferences").,.c
0260 61 6c 6c 62 61 63 6b 20 3d 3e 20 5c 26 6e 6f 70 7d 2c 20 23 20 46 49 58 4d 45 0a 09 09 09 20 20 allback.=>.\&nop},.#.FIXME......
0280 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 48 65 6c 70 22 29 2c 74 79 70 65 20 3d 3e 20 ..{.path.=>._("/_Help"),type.=>.
02a0 27 3c 42 72 61 6e 63 68 3e 27 20 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f '<Branch>'.},........{.path.=>._
02c0 28 22 2f 5f 48 65 6c 70 22 29 2e 5f 28 22 2f 5f 41 62 6f 75 74 2e 2e 2e 22 29 2c 20 63 61 6c 6c ("/_Help")._("/_About..."),.call
02e0 62 61 63 6b 20 3d 3e 20 5c 26 61 62 6f 75 74 5f 68 61 72 64 64 72 61 6b 65 20 7d 0a 09 09 09 20 back.=>.\&about_harddrake.}.....
0300 20 20 20 29 3b 0a 0a 6d 79 20 24 78 70 6d 5f 64 69 72 20 3d 20 22 2f 75 73 72 2f 73 68 61 72 65 ...);..my.$xpm_dir.=."/usr/share
0320 2f 70 69 78 6d 61 70 73 2f 68 61 72 64 64 72 61 6b 65 32 2f 22 3b 0a 0a 0a 6d 79 20 25 66 69 65 /pixmaps/harddrake2/";...my.%fie
0340 6c 64 73 20 3d 20 28 20 22 62 75 73 22 20 3d 3e 20 5f 28 22 42 75 73 22 29 2c 0a 09 09 09 22 64 lds.=.(."bus".=>._("Bus"),...."d
0360 72 69 76 65 72 22 20 3d 3e 20 5f 28 22 4d 6f 64 75 6c 65 22 29 2c 0a 09 09 09 22 6d 65 64 69 61 river".=>._("Module"),...."media
0380 5f 74 79 70 65 22 20 3d 3e 20 5f 28 22 4d 65 64 69 61 20 54 79 70 65 22 29 2c 0a 09 09 09 22 64 _type".=>._("Media.Type"),...."d
03a0 65 73 63 72 69 70 74 69 6f 6e 22 20 3d 3e 20 5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e 22 29 2c escription".=>._("Description"),
03c0 0a 09 09 09 22 62 75 73 5f 69 64 22 20 3d 3e 20 5f 28 22 42 75 73 20 69 64 65 6e 74 69 66 69 63 ...."bus_id".=>._("Bus.identific
03e0 61 74 69 6f 6e 22 29 2c 0a 09 09 09 22 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 22 20 3d 3e 20 5f 28 ation"),...."bus_location".=>._(
0400 22 4c 6f 63 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 62 75 73 22 29 0a 09 09 09 29 3b 0a 0a 0a 0a "Location.on.the.bus")....);....
0420 73 75 62 20 72 75 6e 20 7b 0a 20 20 20 20 6d 79 20 28 24 63 6c 61 73 73 29 20 3d 20 40 5f 3b 0a sub.run.{.....my.($class).=.@_;.
0440 20 20 20 20 24 69 6e 20 3d 20 27 69 6e 74 65 72 61 63 74 69 76 65 27 2d 3e 76 6e 65 77 28 27 73 ....$in.=.'interactive'->vnew('s
0460 75 27 2c 20 27 64 65 66 61 75 6c 74 27 29 3b 0a 20 20 20 20 47 74 6b 2d 3e 69 6e 69 74 3b 0a 20 u',.'default');.....Gtk->init;..
0480 20 20 20 6d 79 20 24 77 69 6e 64 6f 77 20 3d 20 24 63 6c 61 73 73 2d 3e 6e 65 77 3b 0a 20 20 20 ...my.$window.=.$class->new;....
04a0 20 24 77 69 6e 64 6f 77 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 47 74 6b 2d 3e 6d 61 69 6e 3b 0a 20 .$window->show;.....Gtk->main;..
04c0 20 20 20 24 77 69 6e 64 6f 77 2d 3e 64 65 73 74 72 6f 79 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 ...$window->destroy;.....return.
04e0 24 77 69 6e 64 6f 77 3b 0a 7d 0a 0a 6d 79 20 24 6c 69 63 65 6e 73 65 20 3d 27 43 6f 70 79 72 69 $window;.}..my.$license.='Copyri
0500 67 68 74 20 28 43 29 20 31 39 39 39 2d 32 30 30 32 20 4d 61 6e 64 72 61 6b 65 53 6f 66 74 20 62 ght.(C).1999-2002.MandrakeSoft.b
0520 79 20 74 76 69 67 6e 61 75 64 40 6d 61 6e 64 72 61 6b 65 73 6f 66 74 2e 63 6f 6d 0a 0a 54 68 69 y.tvignaud@mandrakesoft.com..Thi
0540 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 s.program.is.free.software;.you.
0560 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 can.redistribute.it.and/or.modif
0580 79 0a 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 y.it.under.the.terms.of.the.GNU.
05a0 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 General.Public.License.as.publis
05c0 68 65 64 20 62 79 0a 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 hed.by.the.Free.Software.Foundat
05e0 69 6f 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 2c 20 6f 72 20 28 61 74 20 79 6f ion;.either.version.2,.or.(at.yo
0600 75 72 20 6f 70 74 69 6f 6e 29 0a 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 54 ur.option).any.later.version...T
0620 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 his.program.is.distributed.in.th
0640 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 62 e.hope.that.it.will.be.useful,.b
0660 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 ut.WITHOUT.ANY.WARRANTY;.without
0680 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 4d 45 .even.the.implied.warranty.of.ME
06a0 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 RCHANTABILITY.or.FITNESS.FOR.A.P
06c0 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 47 4e 55 20 ARTICULAR.PURPOSE...See.the.GNU.
06e0 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 General.Public.License.for.more.
0700 64 65 74 61 69 6c 73 2e 0a 0a 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 details...You.should.have.receiv
0720 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 ed.a.copy.of.the.GNU.General.Pub
0740 6c 69 63 20 4c 69 63 65 6e 73 65 0a 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 lic.License.along.with.this.prog
0760 72 61 6d 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65 20 46 72 65 65 20 53 ram;.if.not,.write.to.the.Free.S
0780 6f 66 74 77 61 72 65 0a 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 54 65 6d oftware.Foundation,.Inc.,.59.Tem
07a0 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 20 42 6f 73 74 6f 6e 2c 20 4d ple.Place.-.Suite.330,.Boston,.M
07c0 41 20 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 27 3b 0a 0a 0a 73 75 62 20 6e 65 77 20 A.02111-1307,.USA..';...sub.new.
07e0 7b 0a 20 20 20 20 6d 79 20 28 24 73 74 61 74 75 73 62 61 72 2c 20 24 61 63 63 65 6c 5f 67 72 6f {.....my.($statusbar,.$accel_gro
0800 75 70 2c 20 24 6d 65 6e 75 2c 20 24 6d 61 69 6e 5f 77 69 6e 2c 20 24 77 69 64 67 65 74 2c 20 24 up,.$menu,.$main_win,.$widget,.$
0820 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 0a 09 20 20 20 24 6d 65 6e 75 62 61 72 2c 20 24 6d 61 config_button,.....$menubar,.$ma
0840 69 6e 5f 76 62 6f 78 2c 20 24 76 62 6f 78 2c 20 24 74 72 65 65 2c 20 24 74 65 78 74 2c 20 25 72 in_vbox,.$vbox,.$tree,.$text,.%r
0860 65 76 65 72 73 65 5f 66 69 65 6c 64 73 2c 20 24 77 61 69 74 2c 0a 09 20 20 20 24 77 69 64 67 65 everse_fields,.$wait,.....$widge
0880 74 32 2c 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2c 20 24 76 73 63 72 6f 6c 6c t2,.$module_cfg_button,.$vscroll
08a0 62 61 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 22 40 41 52 47 56 22 20 3d 7e 20 2f 2d 2d 68 65 6c bar);......if.("@ARGV".=~./--hel
08c0 70 7c 2d 68 2f 29 20 7b 0a 09 20 20 20 70 72 69 6e 74 20 27 48 61 72 64 64 72 61 6b 65 20 32 0a p|-h/).{.....print.'Harddrake.2.
08e0 27 2c 24 6c 69 63 65 6e 73 65 3b 0a 09 20 20 20 65 78 69 74 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 ',$license;.....exit;.....}.....
0900 20 6d 79 5f 67 74 6b 3a 3a 61 64 64 5f 69 63 6f 6e 5f 70 61 74 68 28 27 2f 75 73 72 2f 73 68 61 .my_gtk::add_icon_path('/usr/sha
0920 72 65 2f 70 69 78 6d 61 70 73 2f 68 61 72 64 64 72 61 6b 65 32 2f 27 29 3b 0a 20 20 20 20 24 6d re/pixmaps/harddrake2/');.....$m
0940 61 69 6e 5f 77 69 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 57 69 6e 64 6f 77 3b 0a 20 20 20 20 24 ain_win.=.new.Gtk::Window;.....$
0960 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 74 69 74 6c 65 28 5f 28 22 48 61 72 64 64 72 61 6b 65 main_win->set_title(_("Harddrake
0980 32 20 76 65 72 73 69 6f 6e 20 22 20 2e 20 24 64 61 74 61 3a 3a 76 65 72 73 69 6f 6e 29 29 3b 0a 2.version."...$data::version));.
09a0 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 70 6f 6c 69 63 79 28 30 2c 20 31 2c 20 ....$main_win->set_policy(0,.1,.
09c0 30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 0.);.....$main_win->realize;....
09e0 20 20 24 6d 61 69 6e 5f 76 62 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 20 ..$main_vbox.=.new.Gtk::VBox(0,.
0a00 30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 61 64 64 28 24 6d 61 69 6e 5f 76 62 0.);.....$main_win->add($main_vb
0a20 6f 78 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 ox);.....$main_vbox->show;......
0a40 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 41 63 63 65 6c 47 72 6f $accel_group.=.new.Gtk::AccelGro
0a60 75 70 3b 0a 20 20 20 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 49 74 65 6d 46 up;.....$widget.=.new.Gtk::ItemF
0a80 61 63 74 6f 72 79 28 20 27 47 74 6b 3a 3a 4d 65 6e 75 42 61 72 27 2c 20 27 3c 6d 61 69 6e 3e 27 actory(.'Gtk::MenuBar',.'<main>'
0aa0 2c 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 63 ,.$accel_group.);.....$widget->c
0ac0 72 65 61 74 65 5f 69 74 65 6d 73 28 20 40 6d 65 6e 75 5f 69 74 65 6d 73 20 29 3b 0a 20 20 20 20 reate_items(.@menu_items.);.....
0ae0 24 6d 61 69 6e 5f 77 69 6e 2d 3e 61 64 64 5f 61 63 63 65 6c 5f 67 72 6f 75 70 28 20 24 61 63 63 $main_win->add_accel_group(.$acc
0b00 65 6c 5f 67 72 6f 75 70 20 29 3b 20 23 24 61 63 63 65 6c 5f 67 72 6f 75 70 2d 3e 61 74 74 61 63 el_group.);.#$accel_group->attac
0b20 68 28 24 6d 61 69 6e 5f 77 69 6e 29 3b 0a 20 20 20 20 24 6d 65 6e 75 62 61 72 20 3d 20 24 77 69 h($main_win);.....$menubar.=.$wi
0b40 64 67 65 74 2d 3e 67 65 74 5f 77 69 64 67 65 74 28 20 27 3c 6d 61 69 6e 3e 27 20 29 3b 0a 0a 20 dget->get_widget(.'<main>'.);...
0b60 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 6d 65 6e 75 62 61 72 29 3b 0a 20 20 ...$main_vbox->add($menubar);...
0b80 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 ..$main_vbox->set_child_packing(
0ba0 24 6d 65 6e 75 62 61 72 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 $menubar,.0,.0,.0,.'start'.);...
0bc0 20 20 24 6d 65 6e 75 62 61 72 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 74 72 65 65 20 3d 20 6e ..$menubar->show;......$tree.=.n
0be0 65 77 20 47 74 6b 3a 3a 54 72 65 65 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 73 65 6c ew.Gtk::Tree;.....$tree->set_sel
0c00 65 63 74 69 6f 6e 5f 6d 6f 64 65 28 27 73 69 6e 67 6c 65 27 20 29 3b 0a 20 20 20 20 24 74 72 65 ection_mode('single'.);.....$tre
0c20 65 2d 3e 73 65 74 5f 76 69 65 77 5f 6d 6f 64 65 28 27 6c 69 6e 65 27 20 29 3b 0a 20 20 20 20 24 e->set_view_mode('line'.);.....$
0c40 74 72 65 65 2d 3e 73 65 74 5f 76 69 65 77 5f 6c 69 6e 65 73 28 31 29 3b 0a 0a 20 20 20 20 24 77 tree->set_view_lines(1);......$w
0c60 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 50 61 6e 65 64 3b 0a 20 20 20 20 24 6d 61 idget.=.new.Gtk::HPaned;.....$ma
0c80 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 77 69 64 67 65 74 29 3b 0a 20 20 20 20 24 6d 61 69 6e in_vbox->add($widget);.....$main
0ca0 5f 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 77 69 64 67 65 74 _vbox->set_child_packing($widget
0cc0 2c 20 31 2c 20 31 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 77 69 64 67 65 ,.1,.1,.0,.'start'.);.....$widge
0ce0 74 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 31 28 20 24 74 72 t->show;.....$widget->pack1(.$tr
0d00 65 65 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 61 64 64 31 28 20 24 74 ee,.0,.0);.....$widget->add1(.$t
0d20 72 65 65 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 76 62 ree.);.....$tree->show;......$vb
0d40 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 ox.=.new.Gtk::VBox;.....$vbox->s
0d60 68 6f 77 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 32 28 20 24 76 62 6f 78 2c 20 how;.....$widget->pack2(.$vbox,.
0d80 31 2c 20 30 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 61 64 64 32 28 20 24 76 62 6f 78 20 1,.0);.....$widget->add2(.$vbox.
0da0 29 3b 0a 0a 20 20 20 20 24 77 69 64 67 65 74 32 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 46 72 61 6d );......$widget2.=.new.Gtk::Fram
0dc0 65 3b 0a 20 20 20 20 24 77 69 64 67 65 74 32 2d 3e 73 65 74 5f 6c 61 62 65 6c 28 20 5f 28 22 49 e;.....$widget2->set_label(._("I
0de0 6e 66 6f 72 6d 61 74 69 6f 6e 73 22 29 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24 nformations"));.....$vbox->add($
0e00 77 69 64 67 65 74 32 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 32 2d 3e 73 68 6f 77 3b 0a 0a 20 widget2);.....$widget2->show;...
0e20 20 20 20 0a 20 20 20 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 3b ........$widget.=.new.Gtk::HBox;
0e40 0a 20 20 20 20 24 77 69 64 67 65 74 32 2d 3e 61 64 64 28 24 77 69 64 67 65 74 29 3b 0a 20 20 20 .....$widget2->add($widget);....
0e60 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 74 65 78 74 20 3d 20 6e 65 77 20 .$widget->show;.....$text.=.new.
0e80 47 74 6b 3a 3a 54 65 78 74 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 61 64 64 28 24 74 65 78 Gtk::Text;.....$widget->add($tex
0ea0 74 29 3b 0a 20 20 20 20 24 74 65 78 74 2d 3e 72 65 61 6c 69 7a 65 3b 0a 20 20 20 20 24 74 65 78 t);.....$text->realize;.....$tex
0ec0 74 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 76 73 63 72 6f 6c 6c 62 61 72 20 3d 20 6e 65 77 20 t->show;......$vscrollbar.=.new.
0ee0 47 74 6b 3a 3a 56 53 63 72 6f 6c 6c 62 61 72 28 20 24 74 65 78 74 2d 3e 76 61 64 6a 20 29 3b 0a Gtk::VScrollbar(.$text->vadj.);.
0f00 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 5f 73 74 61 72 74 28 20 24 76 73 63 72 6f 6c ....$widget->pack_start(.$vscrol
0f20 6c 62 61 72 2c 20 30 2c 20 30 2c 20 30 20 29 3b 0a 20 20 20 20 24 76 73 63 72 6f 6c 6c 62 61 72 lbar,.0,.0,.0.);.....$vscrollbar
0f40 2d 3e 73 68 6f 77 28 29 3b 0a 0a 20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 20 3d 20 ->show();......$config_button.=.
0f60 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 52 75 6e 20 63 6f 6e 66 69 67 20 74 6f new.Gtk::Button(_("Run.config.to
0f80 6f 6c 22 29 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24 63 6f 6e 66 69 67 5f 62 75 ol"));.....$vbox->add($config_bu
0fa0 74 74 6f 6e 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b tton);.....$vbox->set_child_pack
0fc0 69 6e 67 28 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 ing($config_button,.0,.0,.0,.'st
0fe0 61 72 74 27 20 29 3b 0a 20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 72 65 61 6c art'.);.....$config_button->real
1000 69 7a 65 3b 0a 23 20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 3b 0a ize;.#....$config_button->show;.
1020 0a 20 20 20 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 20 3d 20 6e 65 77 20 47 74 .....$module_cfg_button.=.new.Gt
1040 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 43 6f 6e 66 69 67 75 72 65 20 6d 6f 64 75 6c 65 22 29 29 k::Button(_("Configure.module"))
1060 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 ;.....$vbox->add($module_cfg_but
1080 74 6f 6e 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 ton);.....$vbox->set_child_packi
10a0 6e 67 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2c 20 30 2c 20 30 2c 20 30 2c 20 ng($module_cfg_button,.0,.0,.0,.
10c0 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 'start'.);.....$module_cfg_butto
10e0 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 6b n->realize;...........foreach.(k
1100 65 79 73 20 25 66 69 65 6c 64 73 29 20 7b 0a 09 20 20 20 24 72 65 76 65 72 73 65 5f 66 69 65 6c eys.%fields).{.....$reverse_fiel
1120 64 73 7b 24 66 69 65 6c 64 73 7b 24 5f 7d 7d 20 3d 20 24 5f 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 ds{$fields{$_}}.=.$_;.....}.....
1140 20 24 73 74 61 74 75 73 62 61 72 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 53 74 61 74 75 73 62 61 72 .$statusbar.=.new.Gtk::Statusbar
1160 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 73 74 61 74 75 73 62 61 72 ;.....$main_vbox->add($statusbar
1180 29 3b 0a 20 20 20 20 24 73 74 61 74 75 73 62 61 72 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 6d 61 );.....$statusbar->show;.....$ma
11a0 69 6e 5f 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 73 74 61 74 in_vbox->set_child_packing($stat
11c0 75 73 62 61 72 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 0a 20 20 20 20 usbar,.0,.0,.0,.'start'.);......
11e0 24 77 61 69 74 20 3d 20 24 69 6e 2d 3e 77 61 69 74 5f 6d 65 73 73 61 67 65 28 5f 28 22 50 6c 65 $wait.=.$in->wait_message(_("Ple
1200 61 73 65 20 77 61 69 74 22 29 2c 20 5f 28 22 44 65 74 65 63 74 69 6f 6e 20 69 6e 20 70 72 6f 67 ase.wait"),._("Detection.in.prog
1220 72 65 73 73 22 29 29 3b 0a 0a 20 20 20 20 6d 79 20 24 72 6f 6f 74 20 3d 20 6e 65 77 5f 77 69 74 ress"));......my.$root.=.new_wit
1240 68 5f 6c 61 62 65 6c 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 22 44 65 74 65 63 74 65 64 20 h_label.Gtk::TreeItem("Detected.
1260 68 61 72 64 77 61 72 65 22 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 20 hardware".);.....$tree->append(.
1280 24 72 6f 6f 74 20 29 3b 0a 20 20 20 20 24 72 6f 6f 74 2d 3e 73 68 6f 77 28 29 3b 0a 0a 23 20 20 $root.);.....$root->show();..#..
12a0 20 20 24 73 75 62 74 72 65 65 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 3b 0a 23 20 20 20 20 ..$subtree=.new.Gtk::Tree;.#....
12c0 24 74 72 65 65 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 20 24 73 75 62 74 72 65 65 20 29 3b 0a $tree->set_subtree(.$subtree.);.
12e0 23 20 20 20 20 24 73 75 62 74 72 65 65 2d 3e 73 68 6f 77 28 29 3b 0a 23 20 20 20 20 24 68 62 6f #....$subtree->show();.#....$hbo
1300 78 2d 3e 61 64 64 28 24 76 62 6f 78 29 3b 0a 23 20 20 20 20 24 68 62 6f 78 2d 3e 73 65 74 5f 63 x->add($vbox);.#....$hbox->set_c
1320 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 76 62 6f 78 2c 20 31 2c 20 31 2c 20 30 2c 20 27 73 74 hild_packing($vbox,.1,.1,.0,.'st
1340 61 72 74 27 20 29 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 40 64 61 74 61 3a art'.);..........foreach.(@data:
1360 3a 74 72 65 65 29 7b 0a 09 20 20 20 6d 79 20 28 24 49 64 65 6e 74 2c 20 24 74 69 74 6c 65 2c 20 :tree){.....my.($Ident,.$title,.
1380 24 69 63 6f 6e 2c 20 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 2c 20 24 64 65 74 65 63 74 6f 72 29 $icon,.$configurator,.$detector)
13a0 20 3d 20 40 24 5f 3b 0a 09 20 20 20 6e 65 78 74 20 69 66 20 28 72 65 66 28 24 64 65 74 65 63 74 .=.@$_;.....next.if.(ref($detect
13c0 6f 72 29 20 6e 65 20 22 43 4f 44 45 22 29 3b 20 23 73 6b 69 70 20 63 6c 61 73 73 20 77 69 74 6f or).ne."CODE");.#skip.class.wito
13e0 75 74 68 20 64 65 74 65 63 74 6f 72 0a 09 20 20 20 6d 79 20 40 64 65 76 69 63 65 73 20 3d 20 26 uth.detector.....my.@devices.=.&
1400 24 64 65 74 65 63 74 6f 72 3b 0a 09 20 20 20 6e 65 78 74 20 69 66 20 28 21 6c 69 73 74 6c 65 6e $detector;.....next.if.(!listlen
1420 67 74 68 28 40 64 65 76 69 63 65 73 29 29 3b 20 23 20 53 6b 69 70 20 65 6d 70 74 79 20 63 6c 61 gth(@devices));.#.Skip.empty.cla
1440 73 73 20 28 6e 6f 20 64 65 76 69 63 65 73 29 0a 23 09 09 20 20 66 6f 72 65 61 63 68 20 6d 79 20 ss.(no.devices).#....foreach.my.
1460 24 69 69 20 28 6b 65 79 73 20 25 5f 29 20 7b 20 70 72 69 6e 74 20 22 40 40 40 20 24 69 69 20 3d $ii.(keys.%_).{.print."@@@.$ii.=
1480 3d 3d 3d 3d 3d 3d 3d 3e 20 25 5f 7b 24 69 69 7d 5c 6e 22 3b 20 7d 3b 0a 23 09 09 20 20 6e 6f 74 =======>.%_{$ii}\n";.};.#....not
14a0 20 6e 65 77 5f 77 69 74 68 5f 6c 61 62 65 6c 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 24 69 .new_with_label.Gtk::TreeItem($i
14c0 74 65 6d 29 20 62 65 63 61 75 73 65 20 6f 66 20 69 63 6f 6e 0a 09 20 20 20 6d 79 20 28 24 73 75 tem).because.of.icon.....my.($su
14e0 62 69 74 65 6d 2c 20 24 73 75 62 73 75 62 74 72 65 65 29 20 3d 20 28 6e 65 77 20 47 74 6b 3a 3a bitem,.$subsubtree).=.(new.Gtk::
1500 54 72 65 65 49 74 65 6d 2c 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 29 3b 0a 09 20 20 20 24 74 TreeItem,.new.Gtk::Tree);.....$t
1520 72 65 65 2d 3e 61 70 70 65 6e 64 28 20 24 73 75 62 69 74 65 6d 20 29 3b 0a 09 20 20 20 24 73 75 ree->append(.$subitem.);.....$su
1540 62 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 73 65 6c 65 63 74 20 20 3d 3e bitem->signal_connect(select..=>
1560 20 73 75 62 20 7b 0a 09 09 20 20 24 74 65 78 74 2d 3e 62 61 63 6b 77 61 72 64 5f 64 65 6c 65 74 .sub.{.....$text->backward_delet
1580 65 28 24 74 65 78 74 2d 3e 67 65 74 5f 70 6f 69 6e 74 29 3b 0a 09 09 20 20 24 63 6f 6e 66 69 67 e($text->get_point);.....$config
15a0 5f 62 75 74 74 6f 6e 2d 3e 68 69 64 65 3b 0a 09 09 20 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 _button->hide;.....$module_cfg_b
15c0 75 74 74 6f 6e 2d 3e 68 69 64 65 3b 0a 09 20 20 20 7d 2c 20 2c 20 22 22 20 29 3b 0a 09 20 20 20 utton->hide;.....},.,."".);.....
15e0 6d 79 20 24 67 69 63 6f 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 50 69 78 6d 61 70 28 6d 79 5f 67 my.$gicon.=.new.Gtk::Pixmap(my_g
1600 74 6b 3a 3a 67 74 6b 63 72 65 61 74 65 5f 70 6e 67 28 24 69 63 6f 6e 29 29 3b 0a 0a 09 20 20 20 tk::gtkcreate_png($icon));......
1620 6d 79 20 28 24 68 62 6f 78 2c 20 24 6c 61 62 65 6c 29 20 3d 20 28 6e 65 77 20 47 74 6b 3a 3a 48 my.($hbox,.$label).=.(new.Gtk::H
1640 42 6f 78 28 30 2c 30 29 20 2c 6e 65 77 20 47 74 6b 3a 3a 4c 61 62 65 6c 28 24 74 69 74 6c 65 29 Box(0,0).,new.Gtk::Label($title)
1660 29 3b 0a 09 20 20 20 24 68 62 6f 78 2d 3e 70 61 63 6b 5f 73 74 61 72 74 28 24 67 69 63 6f 6e 2c );.....$hbox->pack_start($gicon,
1680 30 2c 20 30 2c 20 35 29 3b 0a 09 20 20 20 24 68 62 6f 78 2d 3e 70 61 63 6b 5f 73 74 61 72 74 28 0,.0,.5);.....$hbox->pack_start(
16a0 24 6c 61 62 65 6c 2c 30 2c 20 30 2c 20 35 29 3b 0a 09 20 20 20 24 67 69 63 6f 6e 2d 3e 73 68 6f $label,0,.0,.5);.....$gicon->sho
16c0 77 3b 0a 09 20 20 20 24 6c 61 62 65 6c 2d 3e 73 68 6f 77 3b 0a 09 20 20 20 24 68 62 6f 78 2d 3e w;.....$label->show;.....$hbox->
16e0 73 68 6f 77 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 61 64 64 28 24 68 62 6f 78 29 3b 0a show;.....$subitem->add($hbox);.
1700 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 73 68 6f 77 28 29 3b 0a 09 20 20 20 24 73 75 62 69 .....$subitem->show();.....$subi
1720 74 65 6d 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 24 73 75 62 73 75 62 74 72 65 65 29 3b 0a 09 tem->set_subtree($subsubtree);..
1740 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 65 78 70 61 6e 64 20 75 6e 6c 65 73 73 20 28 24 74 69 74 ...$subitem->expand.unless.($tit
1760 6c 65 20 3d 7e 20 2f 55 6e 6b 6e 6f 77 6e 2f 00 29 3b 0a 0a 09 20 20 20 66 6f 72 65 61 63 68 20 le.=~./Unknown/.);......foreach.
1780 28 40 64 65 76 69 63 65 73 29 20 7b 0a 09 09 20 20 6d 79 20 24 69 3d 20 28 64 65 66 69 6e 65 64 (@devices).{.....my.$i=.(defined
17a0 28 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 29 3f 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3a 0a 09 09 ($_->{device})?.$_->{device}:...
17c0 09 09 28 64 65 66 69 6e 65 64 28 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 3f 24 5f ..(defined($_->{description})?$_
17e0 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 3a 24 74 69 74 6c 65 29 29 3b 0a 09 09 20 20 6d 79 ->{description}:$title));.....my
1800 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 24 69 29 .$widget.=.new.Gtk::TreeItem($i)
1820 3b 0a 09 09 20 20 69 66 20 28 24 5f 2d 3e 7b 62 75 73 7d 20 65 71 20 22 50 43 49 22 29 20 7b 0a ;.....if.($_->{bus}.eq."PCI").{.
1840 09 09 09 20 6d 79 20 24 69 3d 24 5f 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f 69 64 7d 20 3d ....my.$i=$_;.....$_->{bus_id}.=
1860 20 6a 6f 69 6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 73 70 72 69 6e 74 66 28 22 25 6c 78 22 2c 20 .join.':',.map.{.sprintf("%lx",.
1880 24 69 2d 3e 7b 24 5f 7d 29 20 7d 20 71 77 28 76 65 6e 64 6f 72 20 69 64 20 73 75 62 76 65 6e 64 $i->{$_}).}.qw(vendor.id.subvend
18a0 6f 72 20 73 75 62 69 64 29 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f 6c 6f 63 61 74 69 6f 6e or.subid);.....$_->{bus_location
18c0 7d 20 3d 20 6a 6f 69 6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 73 70 72 69 6e 74 66 28 22 25 6c 78 }.=.join.':',.map.{.sprintf("%lx
18e0 22 2c 20 24 69 2d 3e 7b 24 5f 7d 29 20 7d 20 71 77 28 70 63 69 5f 62 75 73 20 70 63 69 5f 64 65 ",.$i->{$_}).}.qw(pci_bus.pci_de
1900 76 69 63 65 20 70 63 69 5f 66 75 6e 63 74 69 6f 6e 29 3b 0a 09 09 09 20 66 6f 72 65 61 63 68 20 vice.pci_function);.....foreach.
1920 28 71 77 28 76 65 6e 64 6f 72 20 69 64 20 73 75 62 76 65 6e 64 6f 72 20 73 75 62 69 64 20 70 63 (qw(vendor.id.subvendor.subid.pc
1940 69 5f 62 75 73 20 70 63 69 5f 64 65 76 69 63 65 20 70 63 69 5f 66 75 6e 63 74 69 6f 6e 29 29 20 i_bus.pci_device.pci_function)).
1960 7b 20 0a 09 09 09 09 64 65 6c 65 74 65 20 24 69 2d 3e 7b 24 5f 7d 0a 09 09 09 20 7d 0a 09 09 20 {......delete.$i->{$_}.....}....
1980 20 7d 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 24 73 75 62 73 75 .}.....$widget->show;.....$subsu
19a0 62 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 24 77 69 64 67 65 74 29 3b 0a 09 09 20 20 24 77 69 64 btree->append($widget);.....$wid
19c0 67 65 74 2d 3e 65 78 70 61 6e 64 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 65 74 5f 75 73 get->expand;.....$widget->set_us
19e0 65 72 5f 64 61 74 61 28 20 24 5f 20 29 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 69 67 6e er_data(.$_.);.....$widget->sign
1a00 61 6c 5f 68 61 6e 64 6c 65 72 73 5f 64 65 73 74 72 6f 79 28 29 3b 0a 09 09 20 20 24 77 69 64 67 al_handlers_destroy();.....$widg
1a20 65 74 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 73 65 6c 65 63 74 20 3d 3e 20 73 75 62 et->signal_connect(select.=>.sub
1a40 20 7b 0a 09 09 09 20 24 5f 20 3d 20 24 77 69 64 67 65 74 2d 3e 67 65 74 5f 75 73 65 72 5f 64 61 .{.....$_.=.$widget->get_user_da
1a60 74 61 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 68 69 64 65 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e ta;.....$text->hide;.....$text->
1a80 62 61 63 6b 77 61 72 64 5f 64 65 6c 65 74 65 28 24 74 65 78 74 2d 3e 67 65 74 5f 70 6f 69 6e 74 backward_delete($text->get_point
1aa0 29 3b 0a 09 09 09 20 23 20 73 70 6c 69 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69 6e 74 6f 20 );.....#.split.description.into.
1ac0 6d 61 6e 75 66 61 63 74 75 72 65 72 2f 64 65 73 63 72 69 70 74 69 6f 6e 0a 09 09 09 20 66 6f 72 manufacturer/description.....for
1ae0 65 61 63 68 20 6d 79 20 24 69 20 28 73 6f 72 74 20 6d 61 70 20 7b 20 28 24 66 69 65 6c 64 73 7b each.my.$i.(sort.map.{.($fields{
1b00 24 5f 7d 29 3f 24 66 69 65 6c 64 73 7b 24 5f 7d 20 3a 20 24 5f 20 7d 20 6b 65 79 73 20 25 24 5f $_})?$fields{$_}.:.$_.}.keys.%$_
1b20 29 20 7b 0a 09 09 09 09 24 74 65 78 74 2d 3e 69 6e 73 65 72 74 28 22 22 2c 22 22 2c 22 22 2c 20 ).{.....$text->insert("","","",.
1b40 22 5c 6e 24 69 20 3a 20 22 2e 20 24 5f 2d 3e 7b 28 24 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 "\n$i.:."..$_->{($reverse_fields
1b60 7b 24 69 7d 29 3f 24 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 7b 24 69 7d 3a 24 69 7d 2e 22 5c {$i})?$reverse_fields{$i}:$i}."\
1b80 6e 22 20 29 3b 0a 09 09 09 09 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 n".);.....$module_cfg_button->si
1ba0 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 63 6c 69 63 6b 65 64 20 3d 3e 20 73 75 62 0a 09 09 09 09 gnal_connect(clicked.=>.sub.....
1bc0 09 09 09 09 09 09 09 7b 0a 09 09 09 09 09 09 09 09 09 09 09 20 20 20 20 70 72 69 6e 74 20 22 54 .......{................print."T
1be0 4f 54 4f 5c 6e 22 3b 0a 09 09 09 09 09 09 09 09 09 09 09 7d 29 20 69 66 20 28 24 69 20 65 71 20 OTO\n";............}).if.($i.eq.
1c00 22 4d 6f 64 75 6c 65 22 20 26 26 20 24 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 7b 24 69 7d 29 "Module".&&.$reverse_fields{$i})
1c20 3b 0a 09 09 09 20 7d 3b 0a 09 09 09 20 0a 09 09 09 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e ;.....};..........$config_button
1c40 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 63 6c 69 63 6b 65 64 20 3d 3e 20 73 75 62 20 ->signal_connect(clicked.=>.sub.
1c60 7b 0a 09 09 09 09 69 66 20 28 66 6f 72 6b 28 29 29 20 7b 0a 09 09 09 09 20 20 20 20 70 72 69 6e {.....if.(fork()).{.........prin
1c80 74 0a 09 09 09 09 20 20 20 20 50 4f 53 49 58 3a 3a 77 61 69 74 28 29 3b 0a 09 09 09 09 20 20 7d t.........POSIX::wait();.......}
1ca0 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 20 65 78 65 63 28 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 .else.{.......exec($configurator
1cc0 29 20 6f 72 20 64 69 65 20 22 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 20 6d 69 73 73 69 6e 67 5c ).or.die."$configurator.missing\
1ce0 6e 22 3b 0a 09 09 09 09 20 20 7d 0a 09 09 09 20 7d 29 20 20 69 66 20 28 2d 78 20 24 63 6f 6e 66 n";.......}.....})..if.(-x.$conf
1d00 69 67 75 72 61 74 6f 72 29 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 73 68 6f 77 3b 0a 09 09 09 20 igurator);.....$text->show;.....
1d20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 7d 20 29 3b 0a 09 $config_button->show;.....}.);..
1d40 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 75 6e 64 65 66 20 24 77 61 69 74 3b 0a 20 20 20 20 ...}.....}.....undef.$wait;.....
1d60 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 20 28 .....$main_win->signal_connect.(
1d80 20 64 65 6c 65 74 65 5f 65 76 65 6e 74 20 3d 3e 20 5c 26 71 75 69 74 5f 67 6c 6f 62 61 6c 20 29 .delete_event.=>.\&quit_global.)
1da0 3b 0a 20 20 20 20 0a 20 20 20 20 72 65 74 75 72 6e 20 24 6d 61 69 6e 5f 77 69 6e 3b 20 20 20 20 ;..........return.$main_win;....
1dc0 23 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 73 74 72 75 63 74 65 64 20 55 49 0a 7d 0a 0a 0a #.Return.the.constructed.UI.}...
1de0 73 75 62 20 61 62 6f 75 74 5f 68 61 72 64 64 72 61 6b 65 20 7b 0a 20 20 20 20 24 69 6e 2d 3e 61 sub.about_harddrake.{.....$in->a
1e00 73 6b 5f 79 65 73 6f 72 6e 6f 28 5f 28 22 41 62 6f 75 74 20 48 61 72 64 64 72 61 6b 65 22 29 2c sk_yesorno(_("About.Harddrake"),
1e20 20 0a 09 09 09 09 20 6a 6f 69 6e 20 28 22 22 2c 20 5f 28 22 54 68 69 73 20 69 73 20 48 61 72 64 .......join.("",._("This.is.Hard
1e40 44 72 61 6b 65 2c 20 61 20 4d 61 6e 64 72 61 6b 65 20 68 61 72 64 77 61 72 65 20 63 6f 6e 66 69 Drake,.a.Mandrake.hardware.confi
1e60 67 75 72 61 74 69 6f 6e 20 74 6f 6f 6c 2e 5c 6e 56 65 72 73 69 6f 6e 3a 22 29 2c 20 22 20 24 64 guration.tool.\nVersion:"),.".$d
1e80 61 74 61 3a 3a 76 65 72 73 69 6f 6e 5c 6e 22 2c 20 0a 09 09 09 09 09 20 20 5f 28 22 41 75 74 68 ata::version\n",........._("Auth
1ea0 6f 72 3a 22 29 2c 22 20 54 68 69 65 72 72 79 20 56 69 67 6e 61 75 64 20 3c 74 76 69 67 6e 61 75 or:"),".Thierry.Vignaud.<tvignau
1ec0 64 5c 40 6d 61 6e 64 72 61 6b 65 73 6f 66 74 2e 63 6f 6d 3e 20 5c 6e 5c 6e 22 20 2c 0a 09 09 09 d\@mandrakesoft.com>.\n\n".,....
1ee0 09 09 20 20 24 6c 69 63 65 6e 73 65 29 2c 0a 09 09 09 09 20 5b 20 5f 28 22 4f 6b 22 29 20 5d 2c ....$license),......[._("Ok").],
1f00 20 22 4f 6b 22 29 3b 0a 0a 7d 0a 0a 73 75 62 20 71 75 69 74 5f 67 6c 6f 62 61 6c 20 7b 0a 23 20 ."Ok");..}..sub.quit_global.{.#.
1f20 20 20 20 6e 6f 20 73 74 72 69 63 74 3b 0a 20 20 20 20 66 6f 72 65 61 63 68 28 40 70 69 64 5f 6c ...no.strict;.....foreach(@pid_l
1f40 61 75 6e 63 68 65 64 29 20 7b 0a 09 20 20 20 6b 69 6c 6c 20 27 54 45 52 4d 27 2c 20 24 5f 20 69 aunched).{.....kill.'TERM',.$_.i
1f60 66 20 28 64 65 66 69 6e 65 64 20 24 5f 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 47 74 6b 2d 3e 65 f.(defined.$_);.....}.....Gtk->e
1f80 78 69 74 28 30 29 3b 0a 7d 0a 0a 0a 0a 31 3b 0a 0a 5f 5f 45 4e 44 5f 5f 0a xit(0);.}....1;..__END__.