blob: 3feb6fe9bc3e5d14b659fce67f307a6a556987bd (plain)

ofs	hex dump	ascii
0000	70 61 63 6b 61 67 65 20 68 61 72 64 64 72 61 6b 65 3a 3a 75 69 3b 0a 0a 75 73 65 20 73 74 72 69	package.harddrake::ui;..use.stri
0020	63 74 3b 0a 0a 75 73 65 20 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3b 0a 75 73 65 20 63 6f	ct;..use.harddrake::data;.use.co
0040	6d 6d 6f 6e 3b 0a 75 73 65 20 69 6e 74 65 72 61 63 74 69 76 65 3b 0a 75 73 65 20 47 74 6b 3b 0a	mmon;.use.interactive;.use.Gtk;.
0060	23 75 73 65 20 4d 44 4b 3a 3a 43 6f 6d 6d 6f 6e 3b 0a 0a 6d 79 20 24 69 6e 3b 0a 0a 6d 79 20 40	#use.MDK::Common;..my.$in;..my.@
0080	6d 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	menu_items.=.(.{.path.=>._("/_Fi
00a0	6c 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	le"),.type.=>.'<Branch>'.},.....
00c0	20 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	...{.path.=>._("/_File")._("/_Sa
00e0	76 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	ve.report"),.accelerator.=>._("<
0100	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 26 71 75 69 74 5f	control>Q"),.callback.=>.\&quit_
0120	67 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	global.},........{.path.=>._("/_
0140	46 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	File")._("/_Quit"),.accelerator.
0160	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 20	=>._("<control>Q"),.callback.=>.
0180	5c 26 71 75 69 74 5f 67 6c 6f 62 61 6c 09 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d	\&quit_global.},........{.path.=
01a0	3e 20 5f 28 22 2f 5f 48 65 6c 70 22 29 2c 74 79 70 65 20 3d 3e 20 27 3c 42 72 61 6e 63 68 3e 27	>._("/_Help"),type.=>.'<Branch>'
01c0	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 48 65 6c 70 22 29	.},........{.path.=>._("/_Help")
01e0	2e 5f 28 22 2f 5f 48 65 6c 70 2e 2e 2e 22 29 2c 20 63 61 6c 6c 62 61 63 6b 20 3d 3e 20 5c 26 68	._("/_Help..."),.callback.=>.\&h
0200	65 6c 70 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 48 65 6c	elp.},........{.path.=>._("/_Hel
0220	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 62 61 63 6b 20 3d 3e	p")._("/_About..."),.callback.=>
0240	20 5c 26 61 62 6f 75 74 5f 68 61 72 64 64 72 61 6b 65 20 7d 2c 0a 09 09 09 20 20 20 20 29 3b 0a	.\&about_harddrake.},........);.
0260	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 22	.my.%fields.=.(."bus".=>._("Bus"
0280	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 09	),...."driver".=>._("Module"),..
02a0	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 63 6c 61 73 73	.."media_type".=>._("Media.class
02c0	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
02e0	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.
0300	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
0320	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 2c	on".=>._("Location.on.the.bus"),
0340	0a 09 09 09 22 69 6e 66 6f 22 20 3d 3e 20 22 48 61 72 64 77 61 72 65 20 69 64 22 2c 0a 09 09 09	...."info".=>."Hardware.id",....
0360	22 64 65 76 69 63 65 22 20 3d 3e 20 22 44 65 76 69 63 65 20 66 69 6c 65 22 2c 0a 09 09 09 29 3b	"device".=>."Device.file",....);
0380	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 73 29 20 3d 20	....sub.run.{.....my.($class).=.
03a0	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 2d 3e 76 6e 65	@_;.....$in.=.'interactive'->vne
03c0	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 2d 3e 69 6e 69	w('su',.'default');.....Gtk->ini
03e0	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 3e 6e 65 77 3b	t;.....my.$window.=.$class->new;
0400	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 2d 3e 6d 61 69	.....$window->show;.....Gtk->mai
0420	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 7d 0a 0a 6d 79 20 24	n;.....$window->destroy;.}..my.$
0440	6c 69 63 65 6e 73 65 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	license.='Copyright.(C).1999-200
0460	32 20 4d 61 6e 64 72 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	2.MandrakeSoft.by.tvignaud@mandr
0480	61 6b 65 73 6f 66 74 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	akesoft.com..This.program.is.fre
04a0	65 20 73 6f 66 74 77 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	e.software;.you.can.redistribute
04c0	20 69 74 20 61 6e 64 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	.it.and/or.modify.it.under.the.t
04e0	65 72 6d 73 20 6f 66 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	erms.of.the.GNU.General.Public.L
0500	69 63 65 6e 73 65 20 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	icense.as.published.by.the.Free.
0520	53 6f 66 74 77 61 72 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	Software.Foundation;.either.vers
0540	69 6f 6e 20 32 2c 20 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	ion.2,.or.(at.your.option).any.l
0560	61 74 65 72 20 76 65 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	ater.version...This.program.is.d
0580	69 73 74 72 69 62 75 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	istributed.in.the.hope.that.it.w
05a0	69 6c 6c 20 62 65 20 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	ill.be.useful,.but.WITHOUT.ANY.W
05c0	41 52 52 41 4e 54 59 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	ARRANTY;.without.even.the.implie
05e0	64 20 77 61 72 72 61 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	d.warranty.of.MERCHANTABILITY.or
0600	20 46 49 54 4e 45 53 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	.FITNESS.FOR.A.PARTICULAR.PURPOS
0620	45 2e 20 20 53 65 65 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	E...See.the.GNU.General.Public.L
0640	69 63 65 6e 73 65 20 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	icense.for.more.details...You.sh
0660	6f 75 6c 64 20 68 61 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	ould.have.received.a.copy.of.the
0680	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 0a 61 6c 6f 6e	.GNU.General.Public.License.alon
06a0	67 20 77 69 74 68 20 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	g.with.this.program;.if.not,.wri
06c0	74 65 20 74 6f 20 74 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	te.to.the.Free.Software.Foundati
06e0	6f 6e 2c 20 49 6e 63 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	on,.Inc.,.59.Temple.Place.-.Suit
0700	65 20 33 33 30 2c 20 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	e.330,.Boston,.MA.02111-1307,.US
0720	41 2e 0a 27 3b 0a 0a 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	A..';...sub.new.{.....my.($statu
0740	73 62 61 72 2c 20 24 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	sbar,.$accel_group,.$menu,.$main
0760	5f 77 69 6e 2c 20 24 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	_win,.$widget,.$config_button,..
0780	20 20 20 24 6d 65 6e 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	...$menubar,.$main_vbox,.$vbox,.
07a0	24 74 72 65 65 2c 20 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	$tree,.$text,.%reverse_fields,.$
07c0	77 61 69 74 2c 0a 09 20 20 20 24 66 72 61 6d 65 2c 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75	wait,.....$frame,.$module_cfg_bu
07e0	74 74 6f 6e 2c 20 24 76 73 63 72 6f 6c 6c 62 61 72 2c 24 70 69 64 2c 24 6d 6f 64 5f 73 69 67 6e	tton,.$vscrollbar,$pid,$mod_sign
0800	61 6c 5f 69 64 2c 0a 09 20 20 20 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 2c 20 24 73 69 67	al_id,.....$tool_signal_id,.$sig
0820	5f 69 64 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	_id);......if.("@ARGV".=~./--hel
0840	70 7c 2d 68 2f 29 20 7b 0a 09 20 20 20 70 72 69 6e 74 20 22 48 61 72 64 64 72 61 6b 65 20 32 5c	p|-h/).{.....print."Harddrake.2\
0860	6e 22 2c 20 24 6c 69 63 65 6e 73 65 2c 20 22 5c 6e 55 73 61 67 65 3a 20 68 61 72 64 64 72 61 6b	n",.$license,."\nUsage:.harddrak
0880	65 20 5b 2d 68 7c 2d 2d 68 65 6c 70 5d 5c 6e 22 3b 0a 09 20 20 20 65 78 69 74 3b 0a 20 20 20 20	e.[-h|--help]\n";.....exit;.....
08a0	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 27 2f 75	}......my_gtk::add_icon_path('/u
08c0	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 29 3b 0a	sr/share/pixmaps/harddrake2/');.
08e0	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 6f 77 3b	....$main_win.=.new.Gtk::Window;
0900	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 48 61 72	.....$main_win->set_title(_("Har
0920	64 64 72 61 6b 65 32 20 76 65 72 73 69 6f 6e 20 22 20 2e 20 24 68 61 72 64 64 72 61 6b 65 3a 3a	ddrake2.version."...$harddrake::
0940	64 61 74 61 3a 3a 76 65 72 73 69 6f 6e 29 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e	data::version));.....$main_win->
0960	73 65 74 5f 70 6f 6c 69 63 79 28 30 2c 20 31 2c 20 30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f	set_policy(0,.1,.0.);.....$main_
0980	77 69 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 20 3d 20	win->realize;......$main_vbox.=.
09a0	6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 20 30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f	new.Gtk::VBox(0,.0.);.....$main_
09c0	77 69 6e 2d 3e 61 64 64 28 24 6d 61 69 6e 5f 76 62 6f 78 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f	win->add($main_vbox);.....$main_
09e0	76 62 6f 78 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 3d 20	vbox->show;......$accel_group.=.
0a00	6e 65 77 20 47 74 6b 3a 3a 41 63 63 65 6c 47 72 6f 75 70 3b 0a 20 20 20 20 24 77 69 64 67 65 74	new.Gtk::AccelGroup;.....$widget
0a20	20 3d 20 6e 65 77 20 47 74 6b 3a 3a 49 74 65 6d 46 61 63 74 6f 72 79 28 20 27 47 74 6b 3a 3a 4d	.=.new.Gtk::ItemFactory(.'Gtk::M
0a40	65 6e 75 42 61 72 27 2c 20 27 3c 6d 61 69 6e 3e 27 2c 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20	enuBar',.'<main>',.$accel_group.
0a60	29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 63 72 65 61 74 65 5f 69 74 65 6d 73 28 20 40 6d	);.....$widget->create_items(.@m
0a80	65 6e 75 5f 69 74 65 6d 73 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 61 64 64 5f	enu_items.);.....$main_win->add_
0aa0	61 63 63 65 6c 5f 67 72 6f 75 70 28 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 29 3b 20 23 24 61	accel_group(.$accel_group.);.#$a
0ac0	63 63 65 6c 5f 67 72 6f 75 70 2d 3e 61 74 74 61 63 68 28 24 6d 61 69 6e 5f 77 69 6e 29 3b 0a 20	ccel_group->attach($main_win);..
0ae0	20 20 20 24 6d 65 6e 75 62 61 72 20 3d 20 24 77 69 64 67 65 74 2d 3e 67 65 74 5f 77 69 64 67 65	...$menubar.=.$widget->get_widge
0b00	74 28 20 27 3c 6d 61 69 6e 3e 27 20 29 3b 0a 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e	t(.'<main>'.);......$main_vbox->
0b20	61 64 64 28 24 6d 65 6e 75 62 61 72 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 73	add($menubar);.....$main_vbox->s
0b40	65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 6d 65 6e 75 62 61 72 2c 20 30 2c 20 30 2c	et_child_packing($menubar,.0,.0,
0b60	20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 6d 65 6e 75 62 61 72 2d 3e 73 68 6f	.0,.'start'.);.....$menubar->sho
0b80	77 3b 0a 0a 20 20 20 20 24 74 72 65 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 3b 0a 20	w;......$tree.=.new.Gtk::Tree;..
0ba0	20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 73 65 6c 65 63 74 69 6f 6e 5f 6d 6f 64 65 28 27 73 69	...$tree->set_selection_mode('si
0bc0	6e 67 6c 65 27 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 76 69 65 77 5f 6d 6f 64	ngle'.);.....$tree->set_view_mod
0be0	65 28 27 6c 69 6e 65 27 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 76 69 65 77 5f	e('line'.);.....$tree->set_view_
0c00	6c 69 6e 65 73 28 31 29 3b 0a 0a 20 20 20 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b	lines(1);......$widget.=.new.Gtk
0c20	3a 3a 48 50 61 6e 65 64 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 77	::HPaned;.....$main_vbox->add($w
0c40	69 64 67 65 74 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	idget);.....$main_vbox->set_chil
0c60	64 5f 70 61 63 6b 69 6e 67 28 24 77 69 64 67 65 74 2c 20 31 2c 20 31 2c 20 30 2c 20 27 73 74 61	d_packing($widget,.1,.1,.0,.'sta
0c80	72 74 27 20 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24	rt'.);.....$widget->show;......$
0ca0	66 72 61 6d 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 46 72 61 6d 65 3b 0a 20 20 20 20 24 66 72 61	frame.=.new.Gtk::Frame;.....$fra
0cc0	6d 65 2d 3e 73 65 74 5f 6c 61 62 65 6c 28 20 5f 28 22 44 65 74 65 63 74 65 64 20 68 61 72 64 77	me->set_label(._("Detected.hardw
0ce0	61 72 65 22 29 29 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 61 64 64 28 24 74 72 65 65 29 3b 0a	are"));.....$frame->add($tree);.
0d00	0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 31 28 20 24 66 72 61 6d 65 2c 20 30 2c 20	.....$widget->pack1(.$frame,.0,.
0d20	30 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 61 64 64 31 28 20 24 66 72 61 6d 65 20 20 29	0);.....$widget->add1(.$frame..)
0d40	3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 73	;.....$tree->show;.....$frame->s
0d60	68 6f 77 3b 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	how;......$vbox.=.new.Gtk::VBox;
0d80	0a 20 20 20 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	.....$vbox->show;.....$widget->p
0da0	61 63 6b 32 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	ack2(.$vbox,.1,.0);.....$widget-
0dc0	3e 61 64 64 32 28 20 24 76 62 6f 78 20 29 3b 0a 0a 20 20 20 20 24 66 72 61 6d 65 20 3d 20 6e 65	>add2(.$vbox.);......$frame.=.ne
0de0	77 20 47 74 6b 3a 3a 46 72 61 6d 65 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 73 65 74 5f 6c 61	w.Gtk::Frame;.....$frame->set_la
0e00	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
0e20	6f 78 2d 3e 61 64 64 28 24 66 72 61 6d 65 29 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 73 68 6f	ox->add($frame);.....$frame->sho
0e40	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 74 6b 3a 3a	w;...........$widget.=.new.Gtk::
0e60	48 42 6f 78 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 61 64 64 28 24 77 69 64 67 65 74 29 3b 0a	HBox;.....$frame->add($widget);.
0e80	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 78 74 20 3d 20 6e	....$widget->show;.....$text.=.n
0ea0	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 3e 61 64 64 28 24	ew.Gtk::Text;.....$widget->add($
0ec0	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 0a 20 20 20 20 24	text);.....$text->realize;.....$
0ee0	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 61 72 20 3d 20 6e	text->show;......$vscrollbar.=.n
0f00	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 3e 76 61 64 6a 20	ew.Gtk::VScrollbar(.$text->vadj.
0f20	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 28 20 24 76 73 63	);.....$widget->pack_start(.$vsc
0f40	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 73 63 72 6f 6c 6c	rollbar,.0,.0,.0.);.....$vscroll
0f60	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 62 75 74 74 6f 6e	bar->show();......$config_button
0f80	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 63 6f 6e 66 69 67	.=.new.Gtk::Button(_("Run.config
0fa0	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 63 6f 6e 66 69 67	.tool"));.....$vbox->add($config
0fc0	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 69 6c 64 5f 70	_button);.....$vbox->set_child_p
0fe0	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 30 2c 20 30 2c 20	acking($config_button,.0,.0,.0,.
1000	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 74 6f 6e 2d 3e 72	'start'.);.....$config_button->r
1020	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 6e 2d 3e 73 68 6f	ealize;.#....$config_button->sho
1040	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 20 3d 20 6e 65 77	w;......$module_cfg_button.=.new
1060	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 6d 6f 64 75 6c 65	.Gtk::Button(_("Configure.module
1080	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 65 5f 63 66 67 5f	"));.....$vbox->add($module_cfg_
10a0	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 69 6c 64 5f 70 61	button);.....$vbox->set_child_pa
10c0	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 30 2c 20 30 2c 20	cking($module_cfg_button,.0,.0,.
10e0	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 63 66 67 5f 62 75	0,.'start'.);.....$module_cfg_bu
1100	74 74 6f 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 20 20 25 72 65 76 65 72 73 65 5f 66 69 65	tton->realize;......%reverse_fie
1120	6c 64 73 20 3d 20 72 65 76 65 72 73 65 20 25 66 69 65 6c 64 73 3b 0a 0a 20 20 20 20 24 73 74 61	lds.=.reverse.%fields;......$sta
1140	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 3b 0a 20 20 20	tusbar.=.new.Gtk::Statusbar;....
1160	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 29 3b 0a 20 20	.$main_vbox->add($statusbar);...
1180	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 69 6e 5f 76 62	..$statusbar->show;.....$main_vb
11a0	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 75 73 62 61 72	ox->set_child_packing($statusbar
11c0	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 24 77 61 69 74	,.0,.0,.0,.'start'.);......$wait
11e0	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 61 73 65 20 77	.=.$in->wait_message(_("Please.w
1200	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 72 65 73 73 22	ait"),._("Detection.in.progress"
1220	29 29 3b 0a 0a 20 20 20 20 6d 79 20 24 72 6f 6f 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65	));......my.$root.=.new.Gtk::Tre
1240	65 49 74 65 6d 28 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 20 24 72 6f	eItem(.);.....$tree->append(.$ro
1260	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 20 20 24	ot.);.....$root->show();..#....$
1280	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 24 74 72	subtree=.new.Gtk::Tree;.#....$tr
12a0	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 23 20 20	ee->set_subtree(.$subtree.);.#..
12c0	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 78 2d 3e	..$subtree->show();.#....$hbox->
12e0	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 68 69 6c	add($vbox);.#....$hbox->set_chil
1300	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 61 72 74	d_packing($vbox,.1,.1,.0,.'start
1320	27 20 29 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 40 68 61 72 64 64 72 61 6b	'.);..........foreach.(@harddrak
1340	65 3a 3a 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 20	e::data::tree){.....my.($Ident,.
1360	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 64	$title,.$icon,.$configurator,.$d
1380	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 66	etector).=.@$_;.....next.if.(ref
13a0	28 24 64 65 74 65 63 74 6f 72 29 20 6e 65 20 22 43 4f 44 45 22 29 3b 20 23 73 6b 69 70 20 63 6c	($detector).ne."CODE");.#skip.cl
13c0	61 73 73 20 77 69 74 6f 75 74 68 20 64 65 74 65 63 74 6f 72 0a 09 20 20 20 6d 79 20 40 64 65 76	ass.witouth.detector.....my.@dev
13e0	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 69 66 20 28	ices.=.&$detector;.....next.if.(
1400	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 69 70 20 65	!listlength(@devices));.#.Skip.e
1420	6d 70 74 79 20 63 6c 61 73 73 20 28 6e 6f 20 64 65 76 69 63 65 73 29 0a 09 20 20 20 6d 79 20 28	mpty.class.(no.devices).....my.(
1440	24 73 75 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	$subitem,.$subsubtree).=.(new.Gt
1460	6b 3a 3a 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	k::TreeItem,.new.Gtk::Tree);....
1480	20 24 74 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	.$tree->append(.$subitem.);.....
14a0	24 73 75 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	$subitem->signal_connect(select.
14c0	20 3d 3e 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	.=>.sub.{.....$text->backward_de
14e0	6c 65 74 65 28 24 74 65 78 74 2d 3e 67 65 74 5f 70 6f 69 6e 74 29 3b 20 23 20 65 72 61 73 65 20	lete($text->get_point);.#.erase.
1500	61 6c 6c 20 70 72 65 76 69 6f 75 73 20 74 65 78 74 0a 09 09 20 20 24 63 6f 6e 66 69 67 5f 62 75	all.previous.text.....$config_bu
1520	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 75 74 74	tton->hide;.....$module_cfg_butt
1540	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 6d 79 20	on->hide;.....},.,."".);.....my.
1560	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 74 6b 3a	$gicon.=.new.Gtk::Pixmap(my_gtk:
1580	3a 67 74 6b 63 72 65 61 74 65 5f 70 6e 67 28 24 69 63 6f 6e 29 29 3b 0a 09 20 20 20 0a 09 20 20	:gtkcreate_png($icon));.........
15a0	20 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	.my.($hbox,.$label).=.(new.Gtk::
15c0	48 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	HBox(0,0).,new.Gtk::Label($title
15e0	29 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	));.....$hbox->pack_start($gicon
1600	2c 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	,0,.0,.5);.....$hbox->pack_start
1620	28 24 6c 61 62 65 6c 2c 30 2c 20 30 2c 20 35 29 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e	($label,0,.0,.5);.....$subitem->
1640	61 64 64 28 24 68 62 6f 78 29 3b 0a 09 20 20 20 66 6f 72 65 61 63 68 20 28 24 67 69 63 6f 6e 2c	add($hbox);.....foreach.($gicon,
1660	20 24 6c 61 62 65 6c 2c 20 24 68 62 6f 78 2c 20 24 73 75 62 69 74 65 6d 29 20 7b 20 24 5f 2d 3e	.$label,.$hbox,.$subitem).{.$_->
1680	73 68 6f 77 28 29 20 7d 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 73 65 74 5f 73 75 62 74	show().};.....$subitem->set_subt
16a0	72 65 65 28 24 73 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	ree($subsubtree);.....$subitem->
16c0	65 78 70 61 6e 64 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	expand.unless.($title.=~./Unknow
16e0	6e 2f 00 29 3b 0a 0a 09 20 20 20 24 53 49 47 7b 43 48 4c 44 7d 20 3d 20 73 75 62 20 7b 20 75 6e	n/.);......$SIG{CHLD}.=.sub.{.un
1700	64 65 66 20 24 70 69 64 3b 20 24 73 74 61 74 75 73 62 61 72 2d 3e 70 6f 70 28 24 73 69 67 5f 69	def.$pid;.$statusbar->pop($sig_i
1720	64 29 20 7d 3b 0a 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	d).};......foreach.(@devices).{.
1740	09 09 20 20 6d 79 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	....my.$i=.(defined($_->{device}
1760	29 3f 20 24 5f 2d 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	)?.$_->{device}:.....(defined($_
1780	2d 3e 7b 64 65 73 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	->{description})?$_->{descriptio
17a0	6e 7d 3a 24 74 69 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	n}:$title));.....my.$widget.=.ne
17c0	77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 24 69 29 3b 0a 09 09 20 20 69 66 20 28 65 78 69	w.Gtk::TreeItem($i);.....if.(exi
17e0	73 74 73 20 24 5f 2d 3e 7b 62 75 73 7d 20 26 26 20 24 5f 2d 3e 7b 62 75 73 7d 20 65 71 20 22 50	sts.$_->{bus}.&&.$_->{bus}.eq."P
1800	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 5f 2d 3e 7b 62 75	CI").{.....my.$i=$_;.....$_->{bu
1820	73 5f 69 64 7d 20 3d 20 6a 6f 69 6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 69 66 5f 28 24 69 2d 3e	s_id}.=.join.':',.map.{.if_($i->
1840	7b 24 5f 7d 20 6e 65 20 22 36 35 35 33 35 22 2c 20 20 73 70 72 69 6e 74 66 28 22 25 6c 78 22 2c	{$_}.ne."65535",..sprintf("%lx",
1860	20 24 69 2d 3e 7b 24 5f 7d 29 29 20 7d 20 71 77 28 76 65 6e 64 6f 72 20 69 64 20 73 75 62 76 65	.$i->{$_})).}.qw(vendor.id.subve
1880	6e 64 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	ndor.subid);.....$_->{bus_locati
18a0	6f 6e 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	on}.=.join.':',.map.{.sprintf("%
18c0	6c 78 22 2c 20 24 69 2d 3e 7b 24 5f 7d 20 29 20 7d 20 71 77 28 70 63 69 5f 62 75 73 20 70 63 69	lx",.$i->{$_}.).}.qw(pci_bus.pci
18e0	5f 64 65 76 69 63 65 20 70 63 69 5f 66 75 6e 63 74 69 6f 6e 29 3b 0a 09 09 20 20 7d 0a 09 09 20	_device.pci_function);.....}....
1900	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 6d 61 6e 75 66 61	.#.split.description.into.manufa
1920	63 74 75 72 65 72 2f 64 65 73 63 72 69 70 74 69 6f 6e 0a 09 09 20 20 28 24 5f 2d 3e 7b 56 65 6e	cturer/description.....($_->{Ven
1940	64 6f 72 7d 2c 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 3d 73 70 6c 69 74 28 2f 5c	dor},$_->{description})=split(/\
1960	7c 2f 2c 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 20 69 66 20 65 78 69 73 74 73 20	|/,$_->{description}).if.exists.
1980	24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 3b 0a 09 09 20 20 24 5f 2d 3e 7b 64 65 76 69	$_->{description};.....$_->{devi
19a0	63 65 7d 3d 27 2f 64 65 76 2f 27 2e 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 20 69 66 20 65 78 69 73	ce}='/dev/'.$_->{device}.if.exis
19c0	74 73 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3b 0a 09 09 20 20 23 20 45 49 44 45 20 64 65 74 65	ts.$_->{device};.....#.EIDE.dete
19e0	63 74 69 6f 6e 20 69 6e 63 6f 68 65 72 65 6e 63 79 3a 0a 09 09 20 20 69 66 20 28 65 78 69 73 74	ction.incoherency:.....if.(exist
1a00	73 20 24 5f 2d 3e 7b 69 6e 74 65 72 66 61 63 65 5f 74 79 70 65 7d 20 26 26 20 24 5f 2d 3e 7b 69	s.$_->{interface_type}.&&.$_->{i
1a20	6e 74 65 72 66 61 63 65 5f 74 79 70 65 7d 20 65 71 20 27 69 64 65 27 29 20 7b 0a 09 09 09 20 24	nterface_type}.eq.'ide').{.....$
1a40	5f 2d 3e 7b 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 7d 20 3d 20 5f 28 24 5f 2d 3e 7b 62 75 73 7d 20	_->{bus_location}.=._($_->{bus}.
1a60	3f 20 22 6d 61 73 74 65 72 22 20 3a 20 22 73 6c 61 76 65 22 29 3b 0a 09 09 09 20 24 5f 2d 3e 7b	?."master".:."slave");.....$_->{
1a80	62 75 73 7d 20 3d 20 27 49 44 45 27 3b 0a 09 09 09 20 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 69 6e	bus}.=.'IDE';.....delete.$_->{in
1aa0	74 65 72 66 61 63 65 5f 74 79 70 65 7d 3b 0a 09 09 20 20 7d 20 65 6c 73 69 66 20 28 65 78 69 73	terface_type};.....}.elsif.(exis
1ac0	74 73 20 24 5f 2d 3e 7b 69 64 7d 29 20 7b 0a 09 09 09 20 23 20 53 43 53 49 20 64 65 74 65 63 74	ts.$_->{id}).{.....#.SCSI.detect
1ae0	69 6f 6e 20 69 6e 63 6f 68 65 72 65 6e 63 79 3a 0a 09 09 09 20 6d 79 20 24 69 3d 24 5f 3b 0a 09	ion.incoherency:.....my.$i=$_;..
1b00	09 09 20 24 5f 2d 3e 7b 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 7d 20 3d 20 20 6a 6f 69 6e 20 27 3a	...$_->{bus_location}.=..join.':
1b20	27 2c 20 6d 61 70 20 7b 20 73 70 72 69 6e 74 66 28 22 25 6c 78 22 2c 20 24 69 2d 3e 7b 24 5f 7d	',.map.{.sprintf("%lx",.$i->{$_}
1b40	20 29 20 7d 20 71 77 28 62 75 73 20 69 64 29 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 7d 20 3d	.).}.qw(bus.id);.....$_->{bus}.=
1b60	20 27 53 43 53 49 27 3b 0a 09 09 20 20 7d 0a 09 09 20 20 66 6f 72 65 61 63 68 20 6d 79 20 24 69	.'SCSI';.....}.....foreach.my.$i
1b80	20 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	.(qw(vendor.id.subvendor.subid.p
1ba0	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 20 29	ci_bus.pci_device.pci_function.)
1bc0	29 20 7b 20 0a 09 09 09 20 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 24 69 7d 3b 0a 09 09 20 20 7d 0a	).{......delete.$_->{$i};.....}.
1be0	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 62 74 72	....$widget->show;.....$subsubtr
1c00	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 67 65 74	ee->append($widget);.....$widget
1c20	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 65 72 5f	->expand;.....$widget->set_user_
1c40	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 61 6c 5f	data(.$_.);.....$widget->signal_
1c60	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 65 74 2d	handlers_destroy();.....$widget-
1c80	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 20 7b 0a	>signal_connect(select.=>.sub.{.
1ca0	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 74 61 3b	....$_.=.$widget->get_user_data;
1cc0	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 62 61 63	.....$text->hide;.....$text->bac
1ce0	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 3b 0a	kward_delete($text->get_point);.
1d00	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 70 20 7b 20 28 24	....foreach.my.$i.(sort.map.{.($
1d20	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 24 5f 20 7d 20 6b	fields{$_})?$fields{$_}.:.$_.}.k
1d40	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 72 74 28 22 22 2c	eys.%$_).{.....$text->insert("",
1d60	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 65 76 65 72 73 65	"","",."\n$i.:."..$_->{($reverse
1d80	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 64 73 7b 24 69 7d	_fields{$i})?$reverse_fields{$i}
1da0	3a 24 69 7d 2e 22 5c 6e 22 20 29 3b 0a 09 09 09 09 0a 09 09 09 09 24 6d 6f 64 75 6c 65 5f 63 66	:$i}."\n".);..........$module_cf
1dc0	67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 64 69 73 63 6f 6e 6e 65 63 74 28 24 74 6f 6f	g_button->signal_disconnect($too
1de0	6c 5f 73 69 67 6e 61 6c 5f 69 64 29 20 69 66 28 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 29 3b	l_signal_id).if($mod_signal_id);
1e00	0a 09 09 09 09 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 3d 24 6d 6f 64 75 6c 65 5f 63 66 67 5f	.....$mod_signal_id=$module_cfg_
1e20	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 64 20 3d	button->signal_connect(clicked.=
1e40	3e 20 73 75 62 0a 09 09 09 09 09 09 09 09 09 09 09 09 09 09 7b 0a 09 09 09 09 09 09 09 09 09 09	>.sub...............{...........
1e60	09 09 09 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	........print."TOTO\n";.........
1e80	09 09 09 09 09 09 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	......}).if.($i.eq."Module".&&.$
1ea0	72 65 76 65 72 73 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	reverse_fields{$i});.....};.....
1ec0	24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 64 69 73 63 6f 6e 6e 65 63	$config_button->signal_disconnec
1ee0	74 28 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 29 20 69 66 28 24 74 6f 6f 6c 5f 73 69 67 6e	t($tool_signal_id).if($tool_sign
1f00	61 6c 5f 69 64 29 3b 0a 09 09 09 20 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 3d 24 63 6f 6e	al_id);.....$tool_signal_id=$con
1f20	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 69 63 6b	fig_button->signal_connect(click
1f40	65 64 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 09 69 66 20 28 64 65 66 69 6e 65 64 20 24 70 69 64	ed.=>.sub.{.....if.(defined.$pid
1f60	29 20 7b 72 65 74 75 72 6e 7d 0a 09 09 09 09 69 66 20 28 24 70 69 64 20 3d 20 66 6f 72 6b 28 29	).{return}.....if.($pid.=.fork()
1f80	29 20 7b 0a 09 09 09 09 20 20 20 20 6d 79 20 24 69 64 20 3d 20 24 73 74 61 74 75 73 62 61 72 2d	).{.........my.$id.=.$statusbar-
1fa0	3e 67 65 74 5f 63 6f 6e 74 65 78 74 5f 69 64 28 22 69 64 22 29 3b 0a 09 09 09 09 20 20 20 20 24	>get_context_id("id");.........$
1fc0	73 69 67 5f 69 64 3d 24 73 74 61 74 75 73 62 61 72 2d 3e 70 75 73 68 28 24 69 64 2c 20 5f 28 22	sig_id=$statusbar->push($id,._("
1fe0	52 75 6e 6e 69 6e 67 20 5c 22 25 73 5c 22 20 2e 2e 2e 22 2c 20 24 63 6f 6e 66 69 67 75 72 61 74	Running.\"%s\"....",.$configurat
2000	6f 72 29 29 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 20 20 20 20 65 78 65 63 28	or));.....}.else.{.........exec(
2020	24 63 6f 6e 66 69 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	$configurator).or.die."$configur
2040	61 74 6f 72 20 6d 69 73 73 69 6e 67 5c 6e 22 3b 0a 09 09 09 09 7d 0a 09 09 09 20 7d 29 20 20 69	ator.missing\n";.....}.....})..i
2060	66 20 28 2d 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	f.(-x.$configurator);.....$text-
2080	3e 73 68 6f 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	>show;.....$config_button->show;
20a0	0a 09 09 20 20 7d 20 29 3b 0a 09 20 20 20 7d 0a 20 20 20 20 7d 0a 23 20 20 20 20 75 6e 64 65 66	.....}.);.....}.....}.#....undef
20c0	20 24 77 61 69 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	.$wait;..........$main_win->sign
20e0	61 6c 5f 63 6f 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	al_connect.(.delete_event.=>.\&q
2100	75 69 74 5f 67 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	uit_global.);..........return.$m
2120	61 69 6e 5f 77 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	ain_win;....#.Return.the.constru
2140	63 74 65 64 20 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	cted.UI.}...sub.about_harddrake.
2160	7b 0a 20 20 20 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	{.....$in->ask_yesorno(_("About.
2180	48 61 72 64 64 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	Harddrake"),.......join.("",._("
21a0	54 68 69 73 20 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	This.is.HardDrake,.a.Mandrake.ha
21c0	72 64 77 61 72 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	rdware.configuration.tool.\nVers
21e0	69 6f 6e 3a 22 29 2c 20 22 20 24 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3a 3a 76 65 72 73	ion:"),.".$harddrake::data::vers
2200	69 6f 6e 5c 6e 22 2c 20 0a 09 09 09 09 09 20 20 5f 28 22 41 75 74 68 6f 72 3a 22 29 2c 22 20 54	ion\n",........._("Author:"),".T
2220	68 69 65 72 72 79 20 56 69 67 6e 61 75 64 20 3c 74 76 69 67 6e 61 75 64 5c 40 6d 61 6e 64 72 61	hierry.Vignaud.<tvignaud\@mandra
2240	6b 65 73 6f 66 74 2e 63 6f 6d 3e 20 5c 6e 5c 6e 22 20 2c 0a 09 09 09 09 09 20 20 66 6f 72 6d 61	kesoft.com>.\n\n".,........forma
2260	74 41 6c 61 54 65 58 28 24 6c 69 63 65 6e 73 65 29 29 2c 0a 09 09 09 09 20 5b 20 5f 28 22 4f 6b	tAlaTeX($license)),......[._("Ok
2280	22 29 20 5d 2c 20 22 4f 6b 22 29 3b 0a 0a 7d 0a 0a 73 75 62 20 68 65 6c 70 20 7b 0a 20 20 20 20	").],."Ok");..}..sub.help.{.....
22a0	24 69 6e 2d 3e 61 73 6b 5f 79 65 73 6f 72 6e 6f 28 5f 28 22 48 61 72 64 64 72 61 6b 65 20 68 65	$in->ask_yesorno(_("Harddrake.he
22c0	6c 70 22 29 2c 20 0a 09 09 09 09 20 5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68	lp"),......._("Description.of.th
22e0	65 20 66 69 65 6c 64 73 3a 0a 0a 42 75 73 3a 20 74 68 69 73 20 69 73 20 74 68 65 20 70 68 79 73	e.fields:..Bus:.this.is.the.phys
2300	69 63 61 6c 20 62 75 73 20 6f 6e 20 77 68 69 63 68 20 74 68 65 20 64 65 76 69 63 65 20 69 73 20	ical.bus.on.which.the.device.is.
2320	70 6c 75 67 67 65 64 20 28 65 67 3a 20 50 43 49 2c 20 55 53 42 2c 20 2e 2e 2e 29 0a 0a 42 75 73	plugged.(eg:.PCI,.USB,....)..Bus
2340	20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 3a 20 74 68 69 73 20 6c 69 73 74 20 74 68 65 20 76	.identification:.this.list.the.v
2360	65 6e 64 6f 72 2c 20 64 65 76 69 63 65 2c 20 73 75 62 76 65 6e 64 6f 72 20 61 6e 64 20 73 75 62	endor,.device,.subvendor.and.sub
2380	64 65 76 69 63 65 20 50 43 49 20 69 64 73 0a 0a 4c 6f 63 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20	device.PCI.ids..Location.on.the.
23a0	62 75 73 3a 20 74 68 69 73 20 67 69 76 65 73 20 74 68 65 20 50 43 49 20 73 6c 6f 74 2c 20 64 65	bus:.this.gives.the.PCI.slot,.de
23c0	76 69 63 65 20 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 63 61 72 64 0a 0a	vice.and.function.of.this.card..
23e0	4d 65 64 69 61 20 63 6c 61 73 73 3a 20 63 6c 61 73 73 20 6f 66 20 68 61 72 64 77 61 72 65 20 64	Media.class:.class.of.hardware.d
2400	65 76 69 63 65 0a 0a 4d 6f 64 75 6c 65 3a 20 74 68 65 20 6d 6f 64 75 6c 65 20 6f 66 20 74 68 65	evice..Module:.the.module.of.the
2420	20 47 4e 55 2f 4c 69 6e 75 78 20 6b 65 72 6e 65 6c 20 74 68 61 74 20 68 61 6e 64 6c 65 20 74 68	.GNU/Linux.kernel.that.handle.th
2440	61 74 20 64 65 76 69 63 65 0a 22 29 2c 0a 09 09 09 09 20 5b 20 5f 28 22 4f 6b 22 29 20 5d 2c 20	at.device."),......[._("Ok").],.
2460	22 4f 6b 22 29 3b 0a 0a 7d 0a 0a 0a 73 75 62 20 71 75 69 74 5f 67 6c 6f 62 61 6c 20 7b 0a 20 20	"Ok");..}...sub.quit_global.{...
2480	20 20 47 74 6b 2d 3e 65 78 69 74 28 30 29 3b 0a 7d 0a 0a 0a 5f 5f 45 4e 44 5f 5f 0a	..Gtk->exit(0);.}...__END__.