blob: a5b166d38a73fe73ed4afae3588f38f00a944a81 (plain)

ofs	hex dump	ascii
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 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3b 0a 0a 75 73 65 20 73 74 72 69 63	.use.harddrake::data;..use.stric
0040	74 3b 0a 75 73 65 20 6c 69 62 20 71 77 28 2f 75 73 72 2f 6c 69 62 2f 6c 69 62 44 72 61 6b 58 29	t;.use.lib.qw(/usr/lib/libDrakX)
0060	3b 0a 0a 75 73 65 20 73 74 61 6e 64 61 6c 6f 6e 65 3b 0a 75 73 65 20 63 3b 0a 23 75 73 65 20 64	;..use.standalone;.use.c;.#use.d
0080	65 74 65 63 74 5f 64 65 76 69 63 65 73 3b 0a 75 73 65 20 63 6f 6d 6d 6f 6e 3b 0a 0a 75 73 65 20	etect_devices;.use.common;..use.
00a0	69 6e 74 65 72 61 63 74 69 76 65 3b 0a 75 73 65 20 47 74 6b 3b 0a 23 75 73 65 20 4d 44 4b 3a 3a	interactive;.use.Gtk;.#use.MDK::
00c0	43 6f 6d 6d 6f 6e 3b 0a 0a 6d 79 20 24 69 6e 3b 0a 0a 6d 79 20 40 70 69 64 5f 6c 61 75 6e 63 68	Common;..my.$in;..my.@pid_launch
00e0	65 64 3b 0a 6d 79 20 40 6d 65 6e 75 5f 69 74 65 6d 73 20 3d 20 28 20 7b 20 70 61 74 68 20 3d 3e	ed;.my.@menu_items.=.(.{.path.=>
0100	20 5f 28 22 2f 5f 46 69 6c 65 22 29 2c 20 74 79 70 65 20 3d 3e 20 27 3c 42 72 61 6e 63 68 3e 27	._("/_File"),.type.=>.'<Branch>'
0120	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 69 6c 65 22 29	.},........{.path.=>._("/_File")
0140	2e 5f 28 22 2f 5f 53 61 76 65 20 72 65 70 6f 72 74 22 29 2c 20 61 63 63 65 6c 65 72 61 74 6f 72	._("/_Save.report"),.accelerator
0160	20 3d 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	.=>._("<control>Q"),.callback.=>
0180	20 5c 26 71 75 69 74 5f 67 6c 6f 62 61 6c 20 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20	.\&quit_global.},........{.path.
01a0	3d 3e 20 5f 28 22 2f 5f 46 69 6c 65 22 29 2e 5f 28 22 2f 5f 51 75 69 74 22 29 2c 20 61 63 63 65	=>._("/_File")._("/_Quit"),.acce
01c0	6c 65 72 61 74 6f 72 20 3d 3e 20 5f 28 22 3c 63 6f 6e 74 72 6f 6c 3e 51 22 29 2c 20 63 61 6c 6c	lerator.=>._("<control>Q"),.call
01e0	62 61 63 6b 20 3d 3e 20 5c 26 71 75 69 74 5f 67 6c 6f 62 61 6c 09 7d 2c 0a 23 09 09 09 20 20 20	back.=>.\&quit_global.},.#......
0200	20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 53 65 74 74 69 6e 67 73 22 29 2c 74 79 70 65 20	.{.path.=>._("/_Settings"),type.
0220	3d 3e 20 27 3c 42 72 61 6e 63 68 3e 27 20 7d 2c 0a 23 09 09 09 20 20 20 20 7b 20 70 61 74 68 20	=>.'<Branch>'.},.#.......{.path.
0240	3d 3e 20 5f 28 22 2f 5f 53 65 74 74 69 6e 67 73 22 29 2e 5f 28 22 2f 5f 50 72 65 66 65 72 65 6e	=>._("/_Settings")._("/_Preferen
0260	63 65 73 22 29 20 2c 20 63 61 6c 6c 62 61 63 6b 20 3d 3e 20 5c 26 6e 6f 70 7d 2c 20 23 20 46 49	ces").,.callback.=>.\&nop},.#.FI
0280	58 4d 45 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 48 65 6c 70 22 29	XME........{.path.=>._("/_Help")
02a0	2c 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 20 20 7b 20	,type.=>.'<Branch>'.},........{.
02c0	70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 48 65 6c 70 22 29 2e 5f 28 22 2f 5f 41 62 6f 75 74 2e 2e	path.=>._("/_Help")._("/_About..
02e0	2e 22 29 2c 20 63 61 6c 6c 62 61 63 6b 20 3d 3e 20 5c 26 61 62 6f 75 74 5f 68 61 72 64 64 72 61	."),.callback.=>.\&about_harddra
0300	6b 65 20 7d 0a 09 09 09 20 20 20 20 29 3b 0a 0a 6d 79 20 24 78 70 6d 5f 64 69 72 20 3d 20 22 2f	ke.}........);..my.$xpm_dir.=."/
0320	75 73 72 2f 73 68 61 72 65 2f 70 69 78 6d 61 70 73 2f 68 61 72 64 64 72 61 6b 65 32 2f 22 3b 0a	usr/share/pixmaps/harddrake2/";.
0340	0a 0a 6d 79 20 25 66 69 65 6c 64 73 20 3d 20 28 20 22 62 75 73 22 20 3d 3e 20 5f 28 22 42 75 73	..my.%fields.=.(."bus".=>._("Bus
0360	22 29 2c 0a 09 09 09 22 64 72 69 76 65 72 22 20 3d 3e 20 5f 28 22 4d 6f 64 75 6c 65 22 29 2c 0a	"),...."driver".=>._("Module"),.
0380	09 09 09 22 6d 65 64 69 61 5f 74 79 70 65 22 20 3d 3e 20 5f 28 22 4d 65 64 69 61 20 54 79 70 65	..."media_type".=>._("Media.Type
03a0	22 29 2c 0a 09 09 09 22 64 65 73 63 72 69 70 74 69 6f 6e 22 20 3d 3e 20 5f 28 22 44 65 73 63 72	"),...."description".=>._("Descr
03c0	69 70 74 69 6f 6e 22 29 2c 0a 09 09 09 22 62 75 73 5f 69 64 22 20 3d 3e 20 5f 28 22 42 75 73 20	iption"),...."bus_id".=>._("Bus.
03e0	69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 22 29 2c 0a 09 09 09 22 62 75 73 5f 6c 6f 63 61 74 69	identification"),...."bus_locati
0400	6f 6e 22 20 3d 3e 20 5f 28 22 4c 6f 63 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 62 75 73 22 29 0a	on".=>._("Location.on.the.bus").
0420	09 09 09 29 3b 0a 0a 0a 0a 73 75 62 20 72 75 6e 20 7b 0a 20 20 20 20 6d 79 20 28 24 63 6c 61 73	...);....sub.run.{.....my.($clas
0440	73 29 20 3d 20 40 5f 3b 0a 20 20 20 20 24 69 6e 20 3d 20 27 69 6e 74 65 72 61 63 74 69 76 65 27	s).=.@_;.....$in.=.'interactive'
0460	2d 3e 76 6e 65 77 28 27 73 75 27 2c 20 27 64 65 66 61 75 6c 74 27 29 3b 0a 20 20 20 20 47 74 6b	->vnew('su',.'default');.....Gtk
0480	2d 3e 69 6e 69 74 3b 0a 20 20 20 20 6d 79 20 24 77 69 6e 64 6f 77 20 3d 20 24 63 6c 61 73 73 2d	->init;.....my.$window.=.$class-
04a0	3e 6e 65 77 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 47 74 6b	>new;.....$window->show;.....Gtk
04c0	2d 3e 6d 61 69 6e 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77 2d 3e 64 65 73 74 72 6f 79 3b 0a 20 20	->main;.....$window->destroy;...
04e0	20 20 72 65 74 75 72 6e 20 24 77 69 6e 64 6f 77 3b 0a 7d 0a 0a 6d 79 20 24 6c 69 63 65 6e 73 65	..return.$window;.}..my.$license
0500	20 3d 27 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 31 39 39 39 2d 32 30 30 32 20 4d 61 6e 64 72	.='Copyright.(C).1999-2002.Mandr
0520	61 6b 65 53 6f 66 74 20 62 79 20 74 76 69 67 6e 61 75 64 40 6d 61 6e 64 72 61 6b 65 73 6f 66 74	akeSoft.by.tvignaud@mandrakesoft
0540	2e 63 6f 6d 0a 0a 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77	.com..This.program.is.free.softw
0560	61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64	are;.you.can.redistribute.it.and
0580	2f 6f 72 20 6d 6f 64 69 66 79 0a 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66	/or.modify.it.under.the.terms.of
05a0	20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20	.the.GNU.General.Public.License.
05c0	61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72	as.published.by.the.Free.Softwar
05e0	65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 2c 20	e.Foundation;.either.version.2,.
0600	6f 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 0a 61 6e 79 20 6c 61 74 65 72 20 76 65	or.(at.your.option).any.later.ve
0620	72 73 69 6f 6e 2e 0a 0a 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75	rsion...This.program.is.distribu
0640	74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20	ted.in.the.hope.that.it.will.be.
0660	75 73 65 66 75 6c 2c 0a 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59	useful,.but.WITHOUT.ANY.WARRANTY
0680	3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61	;.without.even.the.implied.warra
06a0	6e 74 79 20 6f 66 0a 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53	nty.of.MERCHANTABILITY.or.FITNES
06c0	53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65	S.FOR.A.PARTICULAR.PURPOSE...See
06e0	20 74 68 65 0a 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20	.the.GNU.General.Public.License.
0700	66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 59 6f 75 20 73 68 6f 75 6c 64 20 68 61	for.more.details...You.should.ha
0720	76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65	ve.received.a.copy.of.the.GNU.Ge
0740	6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 61 6c 6f 6e 67 20 77 69 74 68 20	neral.Public.License.along.with.
0760	74 68 69 73 20 70 72 6f 67 72 61 6d 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74	this.program;.if.not,.write.to.t
0780	68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 0a 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63	he.Free.Software.Foundation,.Inc
07a0	2e 2c 20 35 39 20 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 20	.,.59.Temple.Place.-.Suite.330,.
07c0	42 6f 73 74 6f 6e 2c 20 4d 41 20 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 27 3b 0a 0a	Boston,.MA.02111-1307,.USA..';..
07e0	0a 73 75 62 20 6e 65 77 20 7b 0a 20 20 20 20 6d 79 20 28 24 73 74 61 74 75 73 62 61 72 2c 20 24	.sub.new.{.....my.($statusbar,.$
0800	61 63 63 65 6c 5f 67 72 6f 75 70 2c 20 24 6d 65 6e 75 2c 20 24 6d 61 69 6e 5f 77 69 6e 2c 20 24	accel_group,.$menu,.$main_win,.$
0820	77 69 64 67 65 74 2c 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 0a 09 20 20 20 24 6d 65 6e	widget,.$config_button,.....$men
0840	75 62 61 72 2c 20 24 6d 61 69 6e 5f 76 62 6f 78 2c 20 24 76 62 6f 78 2c 20 24 74 72 65 65 2c 20	ubar,.$main_vbox,.$vbox,.$tree,.
0860	24 74 65 78 74 2c 20 25 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 2c 20 24 77 61 69 74 2c 0a 09	$text,.%reverse_fields,.$wait,..
0880	20 20 20 24 77 69 64 67 65 74 32 2c 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2c	...$widget2,.$module_cfg_button,
08a0	20 24 76 73 63 72 6f 6c 6c 62 61 72 29 3b 0a 0a 20 20 20 20 69 66 20 28 22 40 41 52 47 56 22 20	.$vscrollbar);......if.("@ARGV".
08c0	3d 7e 20 2f 2d 2d 68 65 6c 70 7c 2d 68 2f 29 20 7b 0a 09 20 20 20 70 72 69 6e 74 20 27 48 61 72	=~./--help|-h/).{.....print.'Har
08e0	64 64 72 61 6b 65 20 32 0a 27 2c 24 6c 69 63 65 6e 73 65 3b 0a 09 20 20 20 65 78 69 74 3b 0a 20	ddrake.2.',$license;.....exit;..
0900	20 20 20 7d 0a 0a 20 20 20 20 6d 79 5f 67 74 6b 3a 3a 61 64 64 5f 69 63 6f 6e 5f 70 61 74 68 28	...}......my_gtk::add_icon_path(
0920	27 2f 75 73 72 2f 73 68 61 72 65 2f 70 69 78 6d 61 70 73 2f 68 61 72 64 64 72 61 6b 65 32 2f 27	'/usr/share/pixmaps/harddrake2/'
0940	29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 57 69 6e 64	);.....$main_win.=.new.Gtk::Wind
0960	6f 77 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 74 69 74 6c 65 28 5f 28 22	ow;.....$main_win->set_title(_("
0980	48 61 72 64 64 72 61 6b 65 32 20 76 65 72 73 69 6f 6e 20 22 20 2e 20 24 64 61 74 61 3a 3a 76 65	Harddrake2.version."...$data::ve
09a0	72 73 69 6f 6e 29 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 70 6f 6c 69	rsion));.....$main_win->set_poli
09c0	63 79 28 30 2c 20 31 2c 20 30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 72 65 61	cy(0,.1,.0.);.....$main_win->rea
09e0	6c 69 7a 65 3b 0a 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a	lize;......$main_vbox.=.new.Gtk:
0a00	3a 56 42 6f 78 28 30 2c 20 30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 61 64 64	:VBox(0,.0.);.....$main_win->add
0a20	28 24 6d 61 69 6e 5f 76 62 6f 78 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 73 68	($main_vbox);.....$main_vbox->sh
0a40	6f 77 3b 0a 0a 20 20 20 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 3d 20 6e 65 77 20 47 74 6b 3a	ow;......$accel_group.=.new.Gtk:
0a60	3a 41 63 63 65 6c 47 72 6f 75 70 3b 0a 20 20 20 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47	:AccelGroup;.....$widget.=.new.G
0a80	74 6b 3a 3a 49 74 65 6d 46 61 63 74 6f 72 79 28 20 27 47 74 6b 3a 3a 4d 65 6e 75 42 61 72 27 2c	tk::ItemFactory(.'Gtk::MenuBar',
0aa0	20 27 3c 6d 61 69 6e 3e 27 2c 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 29 3b 0a 20 20 20 20 24	.'<main>',.$accel_group.);.....$
0ac0	77 69 64 67 65 74 2d 3e 63 72 65 61 74 65 5f 69 74 65 6d 73 28 20 40 6d 65 6e 75 5f 69 74 65 6d	widget->create_items(.@menu_item
0ae0	73 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 61 64 64 5f 61 63 63 65 6c 5f 67 72	s.);.....$main_win->add_accel_gr
0b00	6f 75 70 28 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 29 3b 20 23 24 61 63 63 65 6c 5f 67 72 6f	oup(.$accel_group.);.#$accel_gro
0b20	75 70 2d 3e 61 74 74 61 63 68 28 24 6d 61 69 6e 5f 77 69 6e 29 3b 0a 20 20 20 20 24 6d 65 6e 75	up->attach($main_win);.....$menu
0b40	62 61 72 20 3d 20 24 77 69 64 67 65 74 2d 3e 67 65 74 5f 77 69 64 67 65 74 28 20 27 3c 6d 61 69	bar.=.$widget->get_widget(.'<mai
0b60	6e 3e 27 20 29 3b 0a 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 6d 65 6e	n>'.);......$main_vbox->add($men
0b80	75 62 61 72 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64	ubar);.....$main_vbox->set_child
0ba0	5f 70 61 63 6b 69 6e 67 28 24 6d 65 6e 75 62 61 72 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61	_packing($menubar,.0,.0,.0,.'sta
0bc0	72 74 27 20 29 3b 0a 20 20 20 20 24 6d 65 6e 75 62 61 72 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20	rt'.);.....$menubar->show;......
0be0	24 74 72 65 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 3b 0a 20 20 20 20 24 74 72 65 65	$tree.=.new.Gtk::Tree;.....$tree
0c00	2d 3e 73 65 74 5f 73 65 6c 65 63 74 69 6f 6e 5f 6d 6f 64 65 28 27 73 69 6e 67 6c 65 27 20 29 3b	->set_selection_mode('single'.);
0c20	0a 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 76 69 65 77 5f 6d 6f 64 65 28 27 6c 69 6e 65 27	.....$tree->set_view_mode('line'
0c40	20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 76 69 65 77 5f 6c 69 6e 65 73 28 31 29	.);.....$tree->set_view_lines(1)
0c60	3b 0a 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 50 61 6e 65 64	;......$widget.=.new.Gtk::HPaned
0c80	3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 77 69 64 67 65 74 29 3b 0a	;.....$main_vbox->add($widget);.
0ca0	20 20 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	....$main_vbox->set_child_packin
0cc0	67 28 24 77 69 64 67 65 74 2c 20 31 2c 20 31 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20	g($widget,.1,.1,.0,.'start'.);..
0ce0	20 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70	...$widget->show;.....$widget->p
0d00	61 63 6b 31 28 20 24 74 72 65 65 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d	ack1(.$tree,.0,.0);.....$widget-
0d20	3e 61 64 64 31 28 20 24 74 72 65 65 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 68 6f 77 3b	>add1(.$tree.);.....$tree->show;
0d40	0a 0a 20 20 20 20 24 76 62 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 3b 0a 20 20 20	......$vbox.=.new.Gtk::VBox;....
0d60	20 24 76 62 6f 78 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 32	.$vbox->show;.....$widget->pack2
0d80	28 20 24 76 62 6f 78 2c 20 31 2c 20 30 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 61 64 64	(.$vbox,.1,.0);.....$widget->add
0da0	32 28 20 24 76 62 6f 78 20 29 3b 0a 0a 20 20 20 20 24 77 69 64 67 65 74 32 20 3d 20 6e 65 77 20	2(.$vbox.);......$widget2.=.new.
0dc0	47 74 6b 3a 3a 46 72 61 6d 65 3b 0a 20 20 20 20 24 77 69 64 67 65 74 32 2d 3e 73 65 74 5f 6c 61	Gtk::Frame;.....$widget2->set_la
0de0	62 65 6c 28 20 5f 28 22 49 6e 66 6f 72 6d 61 74 69 6f 6e 73 22 29 29 3b 0a 20 20 20 20 24 76 62	bel(._("Informations"));.....$vb
0e00	6f 78 2d 3e 61 64 64 28 24 77 69 64 67 65 74 32 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 32 2d	ox->add($widget2);.....$widget2-
0e20	3e 73 68 6f 77 3b 0a 0a 20 20 20 20 0a 20 20 20 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47	>show;...........$widget.=.new.G
0e40	74 6b 3a 3a 48 42 6f 78 3b 0a 20 20 20 20 24 77 69 64 67 65 74 32 2d 3e 61 64 64 28 24 77 69 64	tk::HBox;.....$widget2->add($wid
0e60	67 65 74 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 74 65	get);.....$widget->show;.....$te
0e80	78 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 65 78 74 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d	xt.=.new.Gtk::Text;.....$widget-
0ea0	3e 61 64 64 28 24 74 65 78 74 29 3b 0a 20 20 20 20 24 74 65 78 74 2d 3e 72 65 61 6c 69 7a 65 3b	>add($text);.....$text->realize;
0ec0	0a 20 20 20 20 24 74 65 78 74 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 76 73 63 72 6f 6c 6c 62	.....$text->show;......$vscrollb
0ee0	61 72 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 53 63 72 6f 6c 6c 62 61 72 28 20 24 74 65 78 74 2d	ar.=.new.Gtk::VScrollbar(.$text-
0f00	3e 76 61 64 6a 20 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 5f 73 74 61 72 74	>vadj.);.....$widget->pack_start
0f20	28 20 24 76 73 63 72 6f 6c 6c 62 61 72 2c 20 30 2c 20 30 2c 20 30 20 29 3b 0a 20 20 20 20 24 76	(.$vscrollbar,.0,.0,.0.);.....$v
0f40	73 63 72 6f 6c 6c 62 61 72 2d 3e 73 68 6f 77 28 29 3b 0a 0a 20 20 20 20 24 63 6f 6e 66 69 67 5f	scrollbar->show();......$config_
0f60	62 75 74 74 6f 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 52 75 6e 20	button.=.new.Gtk::Button(_("Run.
0f80	63 6f 6e 66 69 67 20 74 6f 6f 6c 22 29 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24	config.tool"));.....$vbox->add($
0fa0	63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63	config_button);.....$vbox->set_c
0fc0	68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 20 30 2c 20	hild_packing($config_button,.0,.
0fe0	30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74	0,.0,.'start'.);.....$config_but
1000	74 6f 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 23 20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f	ton->realize;.#....$config_butto
1020	6e 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e	n->show;......$module_cfg_button
1040	20 3d 20 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 43 6f 6e 66 69 67 75 72 65 20	.=.new.Gtk::Button(_("Configure.
1060	6d 6f 64 75 6c 65 22 29 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24 6d 6f 64 75 6c	module"));.....$vbox->add($modul
1080	65 5f 63 66 67 5f 62 75 74 74 6f 6e 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68	e_cfg_button);.....$vbox->set_ch
10a0	69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2c 20	ild_packing($module_cfg_button,.
10c0	30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 6d 6f 64 75 6c 65 5f	0,.0,.0,.'start'.);.....$module_
10e0	63 66 67 5f 62 75 74 74 6f 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 20 20 0a 20 20 20 20 66	cfg_button->realize;...........f
1100	6f 72 65 61 63 68 20 28 6b 65 79 73 20 25 66 69 65 6c 64 73 29 20 7b 0a 09 20 20 20 24 72 65 76	oreach.(keys.%fields).{.....$rev
1120	65 72 73 65 5f 66 69 65 6c 64 73 7b 24 66 69 65 6c 64 73 7b 24 5f 7d 7d 20 3d 20 24 5f 3b 0a 20	erse_fields{$fields{$_}}.=.$_;..
1140	20 20 20 7d 0a 0a 20 20 20 20 24 73 74 61 74 75 73 62 61 72 20 3d 20 6e 65 77 20 47 74 6b 3a 3a	...}......$statusbar.=.new.Gtk::
1160	53 74 61 74 75 73 62 61 72 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24	Statusbar;.....$main_vbox->add($
1180	73 74 61 74 75 73 62 61 72 29 3b 0a 20 20 20 20 24 73 74 61 74 75 73 62 61 72 2d 3e 73 68 6f 77	statusbar);.....$statusbar->show
11a0	3b 0a 20 20 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	;.....$main_vbox->set_child_pack
11c0	69 6e 67 28 24 73 74 61 74 75 73 62 61 72 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27	ing($statusbar,.0,.0,.0,.'start'
11e0	20 29 3b 0a 0a 20 20 20 20 24 77 61 69 74 20 3d 20 24 69 6e 2d 3e 77 61 69 74 5f 6d 65 73 73 61	.);......$wait.=.$in->wait_messa
1200	67 65 28 5f 28 22 50 6c 65 61 73 65 20 77 61 69 74 22 29 2c 20 5f 28 22 44 65 74 65 63 74 69 6f	ge(_("Please.wait"),._("Detectio
1220	6e 20 69 6e 20 70 72 6f 67 72 65 73 73 22 29 29 3b 0a 0a 20 20 20 20 6d 79 20 24 72 6f 6f 74 20	n.in.progress"));......my.$root.
1240	3d 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 22	=.new_with_label.Gtk::TreeItem("
1260	44 65 74 65 63 74 65 64 20 68 61 72 64 77 61 72 65 22 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d	Detected.hardware".);.....$tree-
1280	3e 61 70 70 65 6e 64 28 20 24 72 6f 6f 74 20 29 3b 0a 20 20 20 20 24 72 6f 6f 74 2d 3e 73 68 6f	>append(.$root.);.....$root->sho
12a0	77 28 29 3b 0a 0a 23 20 20 20 20 24 73 75 62 74 72 65 65 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72	w();..#....$subtree=.new.Gtk::Tr
12c0	65 65 3b 0a 23 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 20 24 73 75	ee;.#....$tree->set_subtree(.$su
12e0	62 74 72 65 65 20 29 3b 0a 23 20 20 20 20 24 73 75 62 74 72 65 65 2d 3e 73 68 6f 77 28 29 3b 0a	btree.);.#....$subtree->show();.
1300	23 20 20 20 20 24 68 62 6f 78 2d 3e 61 64 64 28 24 76 62 6f 78 29 3b 0a 23 20 20 20 20 24 68 62	#....$hbox->add($vbox);.#....$hb
1320	6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 76 62 6f 78 2c 20 31 2c 20	ox->set_child_packing($vbox,.1,.
1340	31 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 65 61 63	1,.0,.'start'.);..........foreac
1360	68 20 28 40 64 61 74 61 3a 3a 74 72 65 65 29 7b 0a 09 20 20 20 6d 79 20 28 24 49 64 65 6e 74 2c	h.(@data::tree){.....my.($Ident,
1380	20 24 74 69 74 6c 65 2c 20 24 69 63 6f 6e 2c 20 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 2c 20 24	.$title,.$icon,.$configurator,.$
13a0	64 65 74 65 63 74 6f 72 29 20 3d 20 40 24 5f 3b 0a 09 20 20 20 6e 65 78 74 20 69 66 20 28 72 65	detector).=.@$_;.....next.if.(re
13c0	66 28 24 64 65 74 65 63 74 6f 72 29 20 6e 65 20 22 43 4f 44 45 22 29 3b 0a 09 20 20 20 6d 79 20	f($detector).ne."CODE");.....my.
13e0	40 64 65 76 69 63 65 73 20 3d 20 26 24 64 65 74 65 63 74 6f 72 3b 0a 09 20 20 20 6e 65 78 74 20	@devices.=.&$detector;.....next.
1400	69 66 20 28 21 6c 69 73 74 6c 65 6e 67 74 68 28 40 64 65 76 69 63 65 73 29 29 3b 20 23 20 53 6b	if.(!listlength(@devices));.#.Sk
1420	69 70 20 63 6c 61 73 73 20 77 69 74 68 6f 75 74 20 61 6e 79 20 64 65 76 69 63 65 73 0a 23 09 09	ip.class.without.any.devices.#..
1440	20 20 66 6f 72 65 61 63 68 20 6d 79 20 24 69 69 20 28 6b 65 79 73 20 25 5f 29 20 7b 20 70 72 69	..foreach.my.$ii.(keys.%_).{.pri
1460	6e 74 20 22 40 40 40 20 24 69 69 20 3d 3d 3d 3d 3d 3d 3d 3d 3e 20 25 5f 7b 24 69 69 7d 5c 6e 22	nt."@@@.$ii.========>.%_{$ii}\n"
1480	3b 20 7d 3b 0a 23 09 09 20 20 6e 6f 74 20 6e 65 77 5f 77 69 74 68 5f 6c 61 62 65 6c 20 47 74 6b	;.};.#....not.new_with_label.Gtk
14a0	3a 3a 54 72 65 65 49 74 65 6d 28 24 69 74 65 6d 29 20 62 65 63 61 75 73 65 20 6f 66 20 69 63 6f	::TreeItem($item).because.of.ico
14c0	6e 0a 09 20 20 20 6d 79 20 28 24 73 75 62 69 74 65 6d 2c 20 24 73 75 62 73 75 62 74 72 65 65 29	n.....my.($subitem,.$subsubtree)
14e0	20 3d 20 28 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 2c 20 6e 65 77 20 47 74 6b 3a 3a	.=.(new.Gtk::TreeItem,.new.Gtk::
1500	54 72 65 65 29 3b 0a 09 20 20 20 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 20 24 73 75 62 69 74	Tree);.....$tree->append(.$subit
1520	65 6d 20 29 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65	em.);.....$subitem->signal_conne
1540	63 74 28 73 65 6c 65 63 74 20 20 3d 3e 20 73 75 62 20 7b 0a 09 09 20 20 24 74 65 78 74 2d 3e 62	ct(select..=>.sub.{.....$text->b
1560	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 29	ackward_delete($text->get_point)
1580	3b 0a 09 09 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 68 69 64 65 3b 0a 09 09 20 20	;.....$config_button->hide;.....
15a0	24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 68 69 64 65 3b 0a 09 20 20 20 7d 2c	$module_cfg_button->hide;.....},
15c0	20 2c 20 22 22 20 29 3b 0a 09 20 20 20 6d 79 20 24 67 69 63 6f 6e 20 3d 20 6e 65 77 20 47 74 6b	.,."".);.....my.$gicon.=.new.Gtk
15e0	3a 3a 50 69 78 6d 61 70 28 6d 79 5f 67 74 6b 3a 3a 67 74 6b 63 72 65 61 74 65 5f 70 6e 67 28 24	::Pixmap(my_gtk::gtkcreate_png($
1600	69 63 6f 6e 29 29 3b 0a 0a 09 20 20 20 6d 79 20 28 24 68 62 6f 78 2c 20 24 6c 61 62 65 6c 29 20	icon));......my.($hbox,.$label).
1620	3d 20 28 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c 30 29 20 2c 6e 65 77 20 47 74 6b 3a 3a	=.(new.Gtk::HBox(0,0).,new.Gtk::
1640	4c 61 62 65 6c 28 24 74 69 74 6c 65 29 29 3b 0a 09 20 20 20 24 68 62 6f 78 2d 3e 70 61 63 6b 5f	Label($title));.....$hbox->pack_
1660	73 74 61 72 74 28 24 67 69 63 6f 6e 2c 30 2c 20 30 2c 20 35 29 3b 0a 09 20 20 20 24 68 62 6f 78	start($gicon,0,.0,.5);.....$hbox
1680	2d 3e 70 61 63 6b 5f 73 74 61 72 74 28 24 6c 61 62 65 6c 2c 30 2c 20 30 2c 20 35 29 3b 0a 09 20	->pack_start($label,0,.0,.5);...
16a0	20 20 24 67 69 63 6f 6e 2d 3e 73 68 6f 77 3b 0a 09 20 20 20 24 6c 61 62 65 6c 2d 3e 73 68 6f 77	..$gicon->show;.....$label->show
16c0	3b 0a 09 20 20 20 24 68 62 6f 78 2d 3e 73 68 6f 77 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d	;.....$hbox->show;.....$subitem-
16e0	3e 61 64 64 28 24 68 62 6f 78 29 3b 0a 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 73 68 6f 77	>add($hbox);......$subitem->show
1700	28 29 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 24 73	();.....$subitem->set_subtree($s
1720	75 62 73 75 62 74 72 65 65 29 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 65 78 70 61 6e 64	ubsubtree);.....$subitem->expand
1740	20 75 6e 6c 65 73 73 20 28 24 74 69 74 6c 65 20 3d 7e 20 2f 55 6e 6b 6e 6f 77 6e 2f 00 29 3b 0a	.unless.($title.=~./Unknown/.);.
1760	0a 09 20 20 20 66 6f 72 65 61 63 68 20 28 40 64 65 76 69 63 65 73 29 20 7b 0a 09 09 20 20 6d 79	.....foreach.(@devices).{.....my
1780	20 24 69 3d 20 28 64 65 66 69 6e 65 64 28 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 29 3f 20 24 5f 2d	.$i=.(defined($_->{device})?.$_-
17a0	3e 7b 64 65 76 69 63 65 7d 3a 0a 09 09 09 09 28 64 65 66 69 6e 65 64 28 24 5f 2d 3e 7b 64 65 73	>{device}:.....(defined($_->{des
17c0	63 72 69 70 74 69 6f 6e 7d 29 3f 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 3a 24 74 69	cription})?$_->{description}:$ti
17e0	74 6c 65 29 29 3b 0a 09 09 20 20 6d 79 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a	tle));.....my.$widget.=.new.Gtk:
1800	3a 54 72 65 65 49 74 65 6d 28 24 69 29 3b 0a 09 09 20 20 69 66 20 28 24 5f 2d 3e 7b 62 75 73 7d	:TreeItem($i);.....if.($_->{bus}
1820	20 65 71 20 22 50 43 49 22 29 20 7b 0a 09 09 09 20 6d 79 20 24 69 3d 24 5f 3b 0a 09 09 09 20 24	.eq."PCI").{.....my.$i=$_;.....$
1840	5f 2d 3e 7b 62 75 73 5f 69 64 7d 20 3d 20 6a 6f 69 6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 73 70	_->{bus_id}.=.join.':',.map.{.sp
1860	72 69 6e 74 66 28 22 25 6c 78 22 2c 20 24 69 2d 3e 7b 24 5f 7d 29 20 7d 20 71 77 28 76 65 6e 64	rintf("%lx",.$i->{$_}).}.qw(vend
1880	6f 72 20 69 64 20 73 75 62 76 65 6e 64 6f 72 20 73 75 62 69 64 29 3b 0a 09 09 09 20 24 5f 2d 3e	or.id.subvendor.subid);.....$_->
18a0	7b 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 7d 20 3d 20 6a 6f 69 6e 20 27 3a 27 2c 20 6d 61 70 20 7b	{bus_location}.=.join.':',.map.{
18c0	20 73 70 72 69 6e 74 66 28 22 25 6c 78 22 2c 20 24 69 2d 3e 7b 24 5f 7d 29 20 7d 20 71 77 28 70	.sprintf("%lx",.$i->{$_}).}.qw(p
18e0	63 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 3b	ci_bus.pci_device.pci_function);
1900	0a 09 09 09 20 66 6f 72 65 61 63 68 20 28 71 77 28 76 65 6e 64 6f 72 20 69 64 20 73 75 62 76 65	.....foreach.(qw(vendor.id.subve
1920	6e 64 6f 72 20 73 75 62 69 64 20 70 63 69 5f 62 75 73 20 70 63 69 5f 64 65 76 69 63 65 20 70 63	ndor.subid.pci_bus.pci_device.pc
1940	69 5f 66 75 6e 63 74 69 6f 6e 29 29 20 7b 20 0a 09 09 09 09 64 65 6c 65 74 65 20 24 69 2d 3e 7b	i_function)).{......delete.$i->{
1960	24 5f 7d 0a 09 09 09 20 7d 0a 09 09 20 20 7d 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f	$_}.....}.....}.....$widget->sho
1980	77 3b 0a 09 09 20 20 24 73 75 62 73 75 62 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 24 77 69 64 67	w;.....$subsubtree->append($widg
19a0	65 74 29 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 65 78 70 61 6e 64 3b 0a 09 09 20 20 24 77	et);.....$widget->expand;.....$w
19c0	69 64 67 65 74 2d 3e 73 65 74 5f 75 73 65 72 5f 64 61 74 61 28 20 24 5f 20 29 3b 0a 09 09 20 20	idget->set_user_data(.$_.);.....
19e0	24 77 69 64 67 65 74 2d 3e 73 69 67 6e 61 6c 5f 68 61 6e 64 6c 65 72 73 5f 64 65 73 74 72 6f 79	$widget->signal_handlers_destroy
1a00	28 29 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28	();.....$widget->signal_connect(
1a20	73 65 6c 65 63 74 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 20 24 5f 20 3d 20 24 77 69 64 67 65 74	select.=>.sub.{.....$_.=.$widget
1a40	2d 3e 67 65 74 5f 75 73 65 72 5f 64 61 74 61 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 68 69 64 65	->get_user_data;.....$text->hide
1a60	3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 62 61 63 6b 77 61 72 64 5f 64 65 6c 65 74 65 28 24 74 65	;.....$text->backward_delete($te
1a80	78 74 2d 3e 67 65 74 5f 70 6f 69 6e 74 29 3b 0a 09 09 09 20 23 20 73 70 6c 69 74 20 64 65 73 63	xt->get_point);.....#.split.desc
1aa0	72 69 70 74 69 6f 6e 20 69 6e 74 6f 20 6d 61 6e 75 66 61 63 74 75 72 65 72 2f 64 65 73 63 72 69	ription.into.manufacturer/descri
1ac0	70 74 69 6f 6e 0a 09 09 09 20 66 6f 72 65 61 63 68 20 6d 79 20 24 69 20 28 73 6f 72 74 20 6d 61	ption.....foreach.my.$i.(sort.ma
1ae0	70 20 7b 20 28 24 66 69 65 6c 64 73 7b 24 5f 7d 29 3f 24 66 69 65 6c 64 73 7b 24 5f 7d 20 3a 20	p.{.($fields{$_})?$fields{$_}.:.
1b00	24 5f 20 7d 20 6b 65 79 73 20 25 24 5f 29 20 7b 0a 09 09 09 09 24 74 65 78 74 2d 3e 69 6e 73 65	$_.}.keys.%$_).{.....$text->inse
1b20	72 74 28 22 22 2c 22 22 2c 22 22 2c 20 22 5c 6e 24 69 20 3a 20 22 2e 20 24 5f 2d 3e 7b 28 24 72	rt("","","",."\n$i.:."..$_->{($r
1b40	65 76 65 72 73 65 5f 66 69 65 6c 64 73 7b 24 69 7d 29 3f 24 72 65 76 65 72 73 65 5f 66 69 65 6c	everse_fields{$i})?$reverse_fiel
1b60	64 73 7b 24 69 7d 3a 24 69 7d 2e 22 5c 6e 22 20 29 3b 0a 09 09 09 09 24 6d 6f 64 75 6c 65 5f 63	ds{$i}:$i}."\n".);.....$module_c
1b80	66 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 63 6c 69 63 6b 65	fg_button->signal_connect(clicke
1ba0	64 20 3d 3e 20 73 75 62 0a 09 09 09 09 09 09 09 09 09 09 09 7b 0a 09 09 09 09 09 09 09 09 09 09	d.=>.sub............{...........
1bc0	09 20 20 20 20 70 72 69 6e 74 20 22 54 4f 54 4f 5c 6e 22 3b 0a 09 09 09 09 09 09 09 09 09 09 09	.....print."TOTO\n";............
1be0	7d 29 20 69 66 20 28 24 69 20 65 71 20 22 4d 6f 64 75 6c 65 22 20 26 26 20 24 72 65 76 65 72 73	}).if.($i.eq."Module".&&.$revers
1c00	65 5f 66 69 65 6c 64 73 7b 24 69 7d 29 3b 0a 09 09 09 20 7d 3b 0a 09 09 09 20 0a 09 09 09 20 24	e_fields{$i});.....};..........$
1c20	63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 63 6c	config_button->signal_connect(cl
1c40	69 63 6b 65 64 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 09 69 66 20 28 6d 79 20 24 70 69 64 20 3d	icked.=>.sub.{.....if.(my.$pid.=
1c60	20 66 6f 72 6b 29 20 7b 0a 09 09 09 09 20 20 20 20 50 4f 53 49 58 3a 3a 77 61 69 74 28 29 3b 0a	.fork).{.........POSIX::wait();.
1c80	09 09 09 09 20 20 7d 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	......}.else.{.......exec($confi
1ca0	67 75 72 61 74 6f 72 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	gurator).or.die."$configurator.m
1cc0	69 73 73 69 6e 67 5c 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	issing\n";.......}.....})..if.(-
1ce0	78 20 24 63 6f 6e 66 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	x.$configurator);.....$text->sho
1d00	77 3b 0a 09 09 09 20 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	w;.....$config_button->show;....
1d20	20 7d 20 29 3b 0a 09 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	.}.);.....}.....}.....undef.$wai
1d40	74 3b 0a 20 20 20 20 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	t;..........$main_win->signal_co
1d60	6e 6e 65 63 74 20 28 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	nnect.(.delete_event.=>.\&quit_g
1d80	6c 6f 62 61 6c 20 29 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	lobal.);..........return.$main_w
1da0	69 6e 3b 20 20 20 20 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	in;....#.Return.the.constructed.
1dc0	55 49 0a 7d 0a 0a 0a 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	UI.}...sub.about_harddrake.{....
1de0	20 24 69 6e 2d 3e 61 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	.$in->ask_yesorno(_("About.Hardd
1e00	72 61 6b 65 22 29 2c 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	rake"),.......join.("",._("This.
1e20	69 73 20 48 61 72 64 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	is.HardDrake,.a.Mandrake.hardwar
1e40	65 20 63 6f 6e 66 69 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	e.configuration.tool.\nVersion:"
1e60	29 2c 20 22 20 24 64 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	),.".$data::version\n",.........
1e80	5f 28 22 41 75 74 68 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	_("Author:"),".Thierry.Vignaud.<
1ea0	74 76 69 67 6e 61 75 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	tvignaud\@mandrakesoft.com>.\n\n
1ec0	22 20 2c 0a 09 09 09 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	".,........$license),......[._("
1ee0	4f 6b 22 29 20 5d 2c 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	Ok").],."Ok");..}..sub.quit_glob
1f00	61 6c 20 7b 0a 23 20 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	al.{.#....no.strict;.....foreach
1f20	28 40 70 69 64 5f 6c 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	(@pid_launched).{.....kill.'TERM
1f40	27 2c 20 24 5f 20 69 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	',.$_.if.(defined.$_);.....}....
1f60	20 47 74 6b 2d 3e 65 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	.Gtk->exit(0);.}....1;..__END__.