blob: 97d4fbaf4fa3b8c63b3d304cd9204dde4ddc7eb0 (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	0a 0a 23 20 7b 20 66 69 65 6c 64 20 3d 3e 20 5b 20 73 68 6f 72 74 5f 74 72 61 6e 73 6c 61 74 69	..#.{.field.=>.[.short_translati
0080	6f 6e 2c 20 66 75 6c 6c 5f 64 65 73 63 72 69 70 74 69 6f 6e 5d 0a 23 20 7d 0a 6d 79 20 25 66 69	on,.full_description].#.}.my.%fi
00a0	65 6c 64 73 20 3d 20 0a 20 20 20 20 28 0a 09 22 4d 6f 64 65 6c 22 20 3d 3e 20 5b 5f 28 22 4d 6f	elds.=......(.."Model".=>.[_("Mo
00c0	64 65 6c 22 29 2c 20 5f 28 22 68 61 72 64 20 64 69 73 6b 20 6d 6f 64 65 6c 22 29 5d 2c 0a 09 22	del"),._("hard.disk.model")],.."
00e0	63 68 61 6e 6e 65 6c 22 20 3d 3e 20 5b 5f 28 22 43 68 61 6e 6e 65 6c 22 29 2c 20 5f 28 22 45 49	channel".=>.[_("Channel"),._("EI
0100	44 45 2f 53 43 53 49 20 63 68 61 6e 6e 65 6c 22 29 5d 2c 0a 09 22 62 75 73 22 20 3d 3e 20 0a 09	DE/SCSI.channel")],.."bus".=>...
0120	5b 20 5f 28 22 42 75 73 22 29 2c 20 0a 09 20 20 5f 28 22 74 68 69 73 20 69 73 20 74 68 65 20 70	[._("Bus"),....._("this.is.the.p
0140	68 79 73 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	hysical.bus.on.which.the.device.
0160	69 73 20 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 22 29	is.plugged.(eg:.PCI,.USB,....)")
0180	5d 2c 0a 09 22 64 72 69 76 65 72 22 20 3d 3e 20 5b 20 5f 28 22 4d 6f 64 75 6c 65 22 29 2c 20 5f	],.."driver".=>.[._("Module"),._
01a0	28 22 74 68 65 20 6d 6f 64 75 6c 65 20 6f 66 20 74 68 65 20 47 4e 55 2f 4c 69 6e 75 78 20 6b 65	("the.module.of.the.GNU/Linux.ke
01c0	72 6e 65 6c 20 74 68 61 74 20 68 61 6e 64 6c 65 20 74 68 61 74 20 64 65 76 69 63 65 22 29 5d 2c	rnel.that.handle.that.device")],
01e0	0a 09 22 6d 65 64 69 61 5f 74 79 70 65 22 20 3d 3e 20 5b 20 5f 28 22 4d 65 64 69 61 20 63 6c 61	.."media_type".=>.[._("Media.cla
0200	73 73 22 29 2c 20 5f 28 22 63 6c 61 73 73 20 6f 66 20 68 61 72 64 77 61 72 65 20 64 65 76 69 63	ss"),._("class.of.hardware.devic
0220	65 22 29 5d 2c 0a 09 22 64 65 73 63 72 69 70 74 69 6f 6e 22 20 3d 3e 20 5b 20 5f 28 22 44 65 73	e")],.."description".=>.[._("Des
0240	63 72 69 70 74 69 6f 6e 22 29 2c 20 5f 28 22 74 68 69 73 20 66 69 65 6c 64 20 64 65 73 63 72 69	cription"),._("this.field.descri
0260	62 65 20 74 68 65 20 64 65 76 69 63 65 22 29 5d 2c 0a 09 22 62 75 73 5f 69 64 22 20 3d 3e 20 0a	be.the.device")],.."bus_id".=>..
0280	09 5b 20 5f 28 22 42 75 73 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 22 29 2c 20 0a 09 20 20	.[._("Bus.identification"),.....
02a0	5f 28 22 2d 20 50 43 49 20 61 6e 64 20 55 53 42 20 64 65 76 69 63 65 73 20 3a 20 74 68 69 73 20	_("-.PCI.and.USB.devices.:.this.
02c0	6c 69 73 74 20 74 68 65 20 76 65 6e 64 6f 72 2c 20 64 65 76 69 63 65 2c 20 73 75 62 76 65 6e 64	list.the.vendor,.device,.subvend
02e0	6f 72 20 61 6e 64 20 73 75 62 64 65 76 69 63 65 20 50 43 49 2f 55 53 42 20 69 64 73 22 29 5d 2c	or.and.subdevice.PCI/USB.ids")],
0300	0a 09 22 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 22 20 3d 3e 20 0a 09 5b 20 5f 28 22 4c 6f 63 61 74	.."bus_location".=>...[._("Locat
0320	69 6f 6e 20 6f 6e 20 74 68 65 20 62 75 73 22 29 2c 20 0a 09 20 20 5f 28 22 2d 20 70 63 69 20 64	ion.on.the.bus"),....._("-.pci.d
0340	65 76 69 63 65 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	evices:.this.gives.the.PCI.slot,
0360	20 64 65 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	.device.and.function.of.this.car
0380	64 0a 2d 20 65 69 64 65 20 64 65 76 69 63 65 73 3a 20 74 68 65 20 64 65 76 69 63 65 20 69 73 20	d.-.eide.devices:.the.device.is.
03a0	65 69 74 68 65 72 20 61 20 73 6c 61 76 65 20 6f 72 20 61 20 6d 61 73 74 65 72 20 64 65 76 69 63	either.a.slave.or.a.master.devic
03c0	65 0a 2d 20 73 63 73 69 20 64 65 76 69 63 65 73 3a 20 74 68 65 20 73 63 73 69 20 62 75 73 20 61	e.-.scsi.devices:.the.scsi.bus.a
03e0	6e 64 20 74 68 65 20 73 63 73 69 20 64 65 76 69 63 65 20 69 64 73 22 29 5d 2c 0a 09 22 64 65 76	nd.the.scsi.device.ids")],.."dev
0400	69 63 65 22 20 3d 3e 20 5b 20 5f 28 22 4f 6c 64 20 64 65 76 69 63 65 20 66 69 6c 65 22 29 2c 0a	ice".=>.[._("Old.device.file"),.
0420	09 09 09 20 20 20 20 5f 28 22 6f 6c 64 20 73 74 61 74 69 63 20 64 65 76 69 63 65 20 6e 61 6d 65	......._("old.static.device.name
0440	20 75 73 65 64 20 69 6e 20 64 65 76 20 70 61 63 6b 61 67 65 22 29 5d 2c 0a 09 22 64 65 76 66 73	.used.in.dev.package")],.."devfs
0460	5f 64 65 76 69 63 65 22 20 3d 3e 20 5b 20 5f 28 22 4e 65 77 20 64 65 76 66 73 20 64 65 76 69 63	_device".=>.[._("New.devfs.devic
0480	65 22 29 2c 20 20 0a 09 09 09 09 09 5f 28 22 6e 65 77 20 64 69 6e 61 6d 69 63 20 64 65 76 69 63	e"),........_("new.dinamic.devic
04a0	65 20 6e 61 6d 65 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 69 6e 63 6f 72 65 20 6b 65 72 6e 65	e.name.generated.by.incore.kerne
04c0	6c 20 64 65 76 66 73 22 29 5d 2c 0a 09 22 6e 62 75 74 74 6f 6e 73 22 20 3d 3e 20 5b 20 5f 28 22	l.devfs")],.."nbuttons".=>.[._("
04e0	4e 75 6d 62 65 72 20 6f 66 20 62 75 74 74 6f 6e 73 22 29 2c 20 22 74 68 65 20 6e 75 6d 62 65 72	Number.of.buttons"),."the.number
0500	20 6f 66 20 62 75 74 74 6f 6e 73 20 74 68 65 20 6d 6f 75 73 65 20 68 61 76 65 22 5d 2c 0a 09 22	.of.buttons.the.mouse.have"],.."
0520	56 65 6e 64 6f 72 22 20 3d 3e 20 5b 20 5f 28 22 56 65 6e 64 6f 72 22 29 2c 20 5f 28 22 74 68 65	Vendor".=>.[._("Vendor"),._("the
0540	20 76 65 6e 64 6f 72 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 65 76 69 63 65 22 29 5d 0a 09 29	.vendor.name.of.the.device")]..)
0560	3b 0a 0a 0a 6d 79 20 24 6c 69 63 65 6e 73 65 20 3d 27 43 6f 70 79 72 69 67 68 74 20 28 43 29 20	;...my.$license.='Copyright.(C).
0580	31 39 39 39 2d 32 30 30 32 20 4d 61 6e 64 72 61 6b 65 53 6f 66 74 20 62 79 20 74 76 69 67 6e 61	1999-2002.MandrakeSoft.by.tvigna
05a0	75 64 40 6d 61 6e 64 72 61 6b 65 73 6f 66 74 2e 63 6f 6d 0a 0a 54 68 69 73 20 70 72 6f 67 72 61	ud@mandrakesoft.com..This.progra
05c0	6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69	m.is.free.software;.you.can.redi
05e0	73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 69 74 20 75 6e 64	stribute.it.and/or.modify.it.und
0600	65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20	er.the.terms.of.the.GNU.General.
0620	50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 74	Public.License.as.published.by.t
0640	68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74	he.Free.Software.Foundation;.eit
0660	68 65 72 20 76 65 72 73 69 6f 6e 20 32 2c 20 6f 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f	her.version.2,.or.(at.your.optio
0680	6e 29 0a 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 54 68 69 73 20 70 72 6f 67	n).any.later.version...This.prog
06a0	72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74	ram.is.distributed.in.the.hope.t
06c0	68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 62 75 74 20 57 49 54 48 4f	hat.it.will.be.useful,.but.WITHO
06e0	55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68	UT.ANY.WARRANTY;.without.even.th
0700	65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 4d 45 52 43 48 41 4e 54 41 42	e.implied.warranty.of.MERCHANTAB
0720	49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41	ILITY.or.FITNESS.FOR.A.PARTICULA
0740	52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 47 4e 55 20 47 65 6e 65 72 61 6c 20	R.PURPOSE...See.the.GNU.General.
0760	50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e	Public.License.for.more.details.
0780	0a 0a 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70	..You.should.have.received.a.cop
07a0	79 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 69 63 65	y.of.the.GNU.General.Public.Lice
07c0	6e 73 65 0a 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 3b 20 69 66 20	nse.along.with.this.program;.if.
07e0	6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 0a	not,.write.to.the.Free.Software.
0800	46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 54 65 6d 70 6c 65 20 50 6c 61 63	Foundation,.Inc.,.59.Temple.Plac
0820	65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 20 42 6f 73 74 6f 6e 2c 20 4d 41 20 30 32 31 31 31 2d	e.-.Suite.330,.Boston,.MA.02111-
0840	31 33 30 37 2c 20 55 53 41 2e 0a 27 3b 0a 0a 6d 79 20 24 69 6e 3b 0a 0a 6d 79 20 40 6d 65 6e 75	1307,.USA..';..my.$in;..my.@menu
0860	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 65 22 29	_items.=.(.{.path.=>._("/_File")
0880	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 20 20 7b	,.type.=>.'<Branch>'.},........{
08a0	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 51 75 69 74 22 29	.path.=>._("/_File")._("/_Quit")
08c0	2c 20 61 63 63 65 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	,.accelerator.=>._("<control>Q")
08e0	2c 20 63 61 6c 6c 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 09	,.callback.=>.\&quit_global.},..
0900	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 2c 74 79 70 65	......{.path.=>._("/_Help"),type
0920	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 70 61 74 68 20	.=>.'<Branch>'.},........{.path.
0940	3d 3e 20 5f 28 22 2f 5f 48 65 6c 70 22 29 2e 5f 28 22 2f 5f 48 65 6c 70 2e 2e 2e 22 29 2c 20 63	=>._("/_Help")._("/_Help..."),.c
0960	61 6c 6c 62 61 63 6b 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 09 20 20 20 24 69 6e 2d 3e 61 73 6b	allback.=>.sub.{........$in->ask
0980	5f 77 61 72 6e 28 5f 28 22 48 61 72 64 64 72 61 6b 65 20 68 65 6c 70 22 29 2c 20 0a 09 09 09 09	_warn(_("Harddrake.help"),......
09a0	09 09 09 20 20 5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 65 6c 64	....._("Description.of.the.field
09c0	73 3a 5c 6e 5c 6e 22 29 0a 09 09 09 09 09 09 09 20 20 2e 20 6a 6f 69 6e 28 22 5c 6e 5c 6e 22 2c	s:\n\n")............join("\n\n",
09e0	20 6d 61 70 20 7b 20 22 24 66 69 65 6c 64 73 7b 24 5f 7d 5b 30 5d 3a 20 24 66 69 65 6c 64 73 7b	.map.{."$fields{$_}[0]:.$fields{
0a00	24 5f 7d 5b 31 5d 22 7d 20 6b 65 79 73 20 25 66 69 65 6c 64 73 29 29 3b 0a 09 09 09 20 20 20 20	$_}[1]"}.keys.%fields));........
0a20	7d 0a 09 09 09 20 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	}......},........{.path.=>._("/_
0a40	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 62 61 63 6b	Help")._("/_About..."),.callback
0a60	20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 09 20 20 20 24 69 6e 2d 3e 61 73 6b 5f 77 61 72 6e 28 5f	.=>.sub.{........$in->ask_warn(_
0a80	28 22 41 62 6f 75 74 20 48 61 72 64 64 72 61 6b 65 22 29 2c 20 0a 09 09 09 09 09 09 09 20 20 6a	("About.Harddrake"),...........j
0aa0	6f 69 6e 20 28 22 22 2c 20 5f 28 22 54 68 69 73 20 69 73 20 48 61 72 64 44 72 61 6b 65 2c 20 61	oin.("",._("This.is.HardDrake,.a
0ac0	20 4d 61 6e 64 72 61 6b 65 20 68 61 72 64 77 61 72 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e	.Mandrake.hardware.configuration
0ae0	20 74 6f 6f 6c 2e 5c 6e 56 65 72 73 69 6f 6e 3a 22 29 2c 20 22 20 24 68 61 72 64 64 72 61 6b 65	.tool.\nVersion:"),.".$harddrake
0b00	3a 3a 64 61 74 61 3a 3a 76 65 72 73 69 6f 6e 5c 6e 22 2c 20 0a 09 09 09 09 09 09 09 09 20 20 20	::data::version\n",.............
0b20	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.<
0b40	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
0b60	22 20 2c 0a 09 09 09 09 09 09 09 09 20 20 20 66 6f 72 6d 61 74 41 6c 61 54 65 58 28 24 6c 69 63	".,............formatAlaTeX($lic
0b80	65 6e 73 65 29 29 29 3b 0a 09 09 09 20 20 20 20 7d 0a 09 09 09 20 20 7d 2c 0a 09 09 09 20 20 20	ense)));........}......},.......
0ba0	20 29 3b 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	.);..sub.run.{.....my.($class).=
0bc0	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 2d 3e 76 6e	.@_;.....$in.=.'interactive'->vn
0be0	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 24 3a 3a 69 73 53 74	ew('su',.'default');.....$::isSt
0c00	61 6e 64 61 6c 6f 6e 65 3d 31 3b 0a 20 20 20 20 47 74 6b 2d 3e 69 6e 69 74 3b 0a 20 20 20 20 6d	andalone=1;.....Gtk->init;.....m
0c20	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 20 47 74 6b	y.$window.=.$class->new;.....Gtk
0c40	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 7d 0a	->main;.....$window->destroy;.}.
0c60	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 73 62 61 72 2c 20	..sub.new.{.....my.($statusbar,.
0c80	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 5f 77 69 6e 2c 20	$accel_group,.$menu,.$main_win,.
0ca0	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 20 20 20 24 6d 65	$widget,.$config_button,.....$me
0cc0	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 24 74 72 65 65 2c	nubar,.$main_vbox,.$vbox,.$tree,
0ce0	20 24 74 65 78 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	.$text,.....$frame,.$module_cfg_
0d00	62 75 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	button,.$vscrollbar,$pid,$mod_si
0d20	67 6e 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	gnal_id,.....$tool_signal_id,.$s
0d40	69 67 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	ig_id);......if.("@ARGV".=~./--h
0d60	65 6c 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	elp|-h/).{.....print."Harddrake.
0d80	32 5c 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	2\n",.$license,."\nUsage:.harddr
0da0	61 6b 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	ake.[-h|--help]\n";.....exit;...
0dc0	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 27	..}......my_gtk::add_icon_path('
0de0	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 29	/usr/share/pixmaps/harddrake2/')
0e00	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 6f	;.....$main_win.=.new.Gtk::Windo
0e20	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 48	w;.....$main_win->set_title(_("H
0e40	61 72 64 64 72 61 6b 65 32 20 76 65 72 73 69 6f 6e 20 22 29 20 2e 20 24 68 61 72 64 64 72 61 6b	arddrake2.version.")...$harddrak
0e60	65 3a 3a 64 61 74 61 3a 3a 76 65 72 73 69 6f 6e 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e	e::data::version);.....$main_win
0e80	2d 3e 73 65 74 5f 64 65 66 61 75 6c 74 5f 73 69 7a 65 28 37 36 30 2c 20 33 35 30 29 3b 20 23 20	->set_default_size(760,.350);.#.
0ea0	37 36 30 20 73 68 6f 75 6c 64 20 62 65 20 6f 6b 20 66 6f 72 20 6d 6f 73 74 20 77 6d 20 69 6e 20	760.should.be.ok.for.most.wm.in.
0ec0	38 30 30 78 36 30 30 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 70 6f 6c 69 63	800x600.....$main_win->set_polic
0ee0	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 6c	y(0,.1,.0.);.....$main_win->real
0f00	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 3a	ize;......$main_vbox.=.new.Gtk::
0f20	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 28	VBox(0,.0.);.....$main_win->add(
0f40	24 6d 61 69 6e 5f 76 62 6f 78 29 3b 0a 0a 20 20 20 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 3d	$main_vbox);......$accel_group.=
0f60	20 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	.new.Gtk::AccelGroup;.....$widge
0f80	74 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	t.=.new.Gtk::ItemFactory(.'Gtk::
0fa0	4d 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	MenuBar',.'<main>',.$accel_group
0fc0	20 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	.);.....$widget->create_items(.@
0fe0	6d 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	menu_items.);.....$main_win->add
1000	5f 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	_accel_group(.$accel_group.);.#$
1020	61 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	accel_group->attach($main_win);.
1040	20 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	....$menubar.=.$widget->get_widg
1060	65 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	et(.'<main>'.);......$main_vbox-
1080	3e 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	>add($menubar);.....$main_vbox->
10a0	73 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	set_child_packing($menubar,.0,.0
10c0	2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 0a 20 20 20 20 24 74 72 65 65 20 3d 20 6e 65 77	,.0,.'start'.);......$tree.=.new
10e0	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 65 63	.Gtk::Tree;.....$tree->set_selec
1100	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 65 2d	tion_mode('single'.);.....$tree-
1120	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 74 72	>set_view_mode('line'.);.....$tr
1140	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 69 64	ee->set_view_lines(1);......$wid
1160	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 69 6e	get.=.new.Gtk::HPaned;.....$main
1180	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 5f 76	_vbox->add($widget);.....$main_v
11a0	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 2c 20	box->set_child_packing($widget,.
11c0	31 2c 20 31 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 0a 20 20 20 20 24 66 72 61 6d 65 20	1,.1,.0,.'start'.);......$frame.
11e0	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 6d 65 2d 3e 73 65	=.new.Gtk::Frame;.....$frame->se
1200	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 61 72 65 22 29 29	t_label(._("Detected.hardware"))
1220	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 0a 20 20 20 20 24	;.....$frame->add($tree);......$
1240	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 30 29 3b 0a 20 20	widget->pack1(.$frame,.0,.0);...
1260	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 3b 0a 0a 20 20 20	..$widget->add1(.$frame..);.....
1280	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 20 24 77 69 64	.$vbox.=.new.Gtk::VBox;.....$wid
12a0	67 65 74 2d 3e 70 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	get->pack2(.$vbox,.1,.0);.....$w
12c0	69 64 67 65 74 2d 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	idget->add2(.$vbox.);......$fram
12e0	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 6d 65 2d 3e	e.=.new.Gtk::Frame;.....$frame->
1300	73 65 74 5f 6c 61 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	set_label(._("Informations"));..
1320	20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24 66 72 61 6d 65 29 3b 0a 0a 20 20 20 20 24 77 69 64	...$vbox->add($frame);......$wid
1340	67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d	get.=.new.Gtk::HBox;.....$frame-
1360	3e 61 64 64 28 24 77 69 64 67 65 74 29 3b 0a 20 20 20 20 24 74 65 78 74 20 3d 20 6e 65 77 20 47	>add($widget);.....$text.=.new.G
1380	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 74	tk::Text;.....$widget->add($text
13a0	29 3b 0a 20 20 20 20 24 74 65 78 74 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 20 20 24 76 73 63	);.....$text->realize;......$vsc
13c0	72 6f 6c 6c 62 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	rollbar.=.new.Gtk::VScrollbar(.$
13e0	74 65 78 74 2d 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	text->vadj.);.....$widget->pack_
1400	73 74 61 72 74 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 0a	start(.$vscrollbar,.0,.0,.0.);..
1420	20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 42 75	....$config_button.=.new.Gtk::Bu
1440	74 74 6f 6e 28 5f 28 22 52 75 6e 20 63 6f 6e 66 69 67 20 74 6f 6f 6c 22 29 29 3b 0a 20 20 20 20	tton(_("Run.config.tool"));.....
1460	24 76 62 6f 78 2d 3e 61 64 64 28 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 29 3b 0a 20 20 20 20	$vbox->add($config_button);.....
1480	24 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 63 6f 6e 66 69 67	$vbox->set_child_packing($config
14a0	5f 62 75 74 74 6f 6e 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20	_button,.0,.0,.0,.'start'.);....
14c0	20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 20 20 24	.$config_button->realize;......$
14e0	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 6b 3a 3a 42 75 74	module_cfg_button.=.new.Gtk::But
1500	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 3b 0a 20 20 20 20	ton(_("Configure.module"));.....
1520	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 74 6f 6e 29 3b 0a	$vbox->add($module_cfg_button);.
1540	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 6e 67 28 24 6d 6f	....$vbox->set_child_packing($mo
1560	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 27 73 74 61 72 74	dule_cfg_button,.0,.0,.0,.'start
1580	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 6e 2d 3e 72 65 61	'.);.....$module_cfg_button->rea
15a0	6c 69 7a 65 3b 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	lize;......$statusbar.=.new.Gtk:
15c0	3a 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	:Statusbar;.....$main_vbox->add(
15e0	24 73 74 61 74 75 73 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	$statusbar);.....$main_vbox->set
1600	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 2c 20 30 2c 20 30 2c	_child_packing($statusbar,.0,.0,
1620	20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 0a 20 20 20 20 6d 79 20 24 77 61 69 74 20 3d 20 24	.0,.'start'.);......my.$wait.=.$
1640	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 61 69 74 22	in->wait_message(_("Please.wait"
1660	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 29 29 3b 0a	),._("Detection.in.progress"));.
1680	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 65 49 74 65	.....my.$root.=.new.Gtk::TreeIte
16a0	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 6f 74 20 29	m(.);.....$tree->append(.$root.)
16c0	3b 0a 0a 20 20 20 20 6d 79 20 24 6d 61 69 6e 5f 73 75 62 74 72 65 65 3d 20 6e 65 77 20 47 74 6b	;......my.$main_subtree=.new.Gtk
16e0	3a 3a 54 72 65 65 3b 0a 20 20 20 20 24 72 6f 6f 74 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 20	::Tree;.....$root->set_subtree(.
1700	24 6d 61 69 6e 5f 73 75 62 74 72 65 65 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 73 75 62 74 72	$main_subtree.);.....$main_subtr
1720	65 65 2d 3e 73 68 6f 77 28 29 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 40 68	ee->show();..........foreach.(@h
1740	61 72 64 64 72 61 6b 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	arddrake::data::tree){.....my.($
1760	49 64 65 6e 74 2c 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	Ident,.$title,.$icon,.$configura
1780	74 6f 72 2c 20 24 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	tor,.$detector).=.@$_;.....next.
17a0	69 66 20 28 72 65 66 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	if.(ref($detector).ne."CODE");.#
17c0	73 6b 69 70 20 63 6c 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	skip.class.witouth.detector.....
17e0	6d 79 20 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	my.@devices.=.&$detector;.....ne
1800	78 74 20 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	xt.if.(!listlength(@devices));.#
1820	20 53 6b 69 70 20 65 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	.Skip.empty.class.(no.devices)..
1840	20 20 20 6d 79 20 28 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 2c 20 24 68 77 5f 63 6c 61 73 73	...my.($hw_class_item,.$hw_class
1860	5f 74 72 65 65 29 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	_tree).=.(new.Gtk::TreeItem,.new
1880	20 47 74 6b 3a 3a 54 72 65 65 29 3b 0a 09 20 20 20 24 6d 61 69 6e 5f 73 75 62 74 72 65 65 2d 3e	.Gtk::Tree);.....$main_subtree->
18a0	61 70 70 65 6e 64 28 20 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 20 29 3b 0a 09 20 20 20 24 68	append(.$hw_class_item.);.....$h
18c0	77 5f 63 6c 61 73 73 5f 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 73 65 6c	w_class_item->signal_connect(sel
18e0	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 61 63 6b 77 61 72	ect..=>.sub.{.....$text->backwar
1900	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 20 23 20 65 72	d_delete($text->get_point);.#.er
1920	61 73 65 20 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	ase.all.previous.text.....$confi
1940	67 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	g_button->hide;.....$module_cfg_
1960	62 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	button->hide;.....},.,."".);....
1980	20 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	.my.$gicon.=.new.Gtk::Pixmap(my_
19a0	67 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 09 20 20 20	gtk::gtkcreate_png($icon));.....
19c0	0a 09 20 20 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	.....my.($hbox,.$label).=.(new.G
19e0	74 6b 3a 3a 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	tk::HBox(0,0).,new.Gtk::Label($t
1a00	69 74 6c 65 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	itle));.....$hbox->pack_start($g
1a20	69 63 6f 6e 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	icon,0,.0,.5);.....$hbox->pack_s
1a40	74 61 72 74 28 24 6c 61 62 65 6c 2c 30 2c 20 30 2c 20 35 29 3b 0a 09 20 20 20 24 68 77 5f 63 6c	tart($label,0,.0,.5);.....$hw_cl
1a60	61 73 73 5f 69 74 65 6d 2d 3e 61 64 64 28 24 68 62 6f 78 29 3b 0a 09 20 20 20 66 6f 72 65 61 63	ass_item->add($hbox);.....foreac
1a80	68 20 28 24 67 69 63 6f 6e 2c 20 24 6c 61 62 65 6c 2c 20 24 68 62 6f 78 2c 20 24 68 77 5f 63 6c	h.($gicon,.$label,.$hbox,.$hw_cl
1aa0	61 73 73 5f 69 74 65 6d 29 20 7b 20 24 5f 2d 3e 73 68 6f 77 28 29 20 7d 3b 0a 09 20 20 20 24 68	ass_item).{.$_->show().};.....$h
1ac0	77 5f 63 6c 61 73 73 5f 69 74 65 6d 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 24 68 77 5f 63 6c	w_class_item->set_subtree($hw_cl
1ae0	61 73 73 5f 74 72 65 65 29 3b 0a 09 20 20 20 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 2d 3e 65	ass_tree);.....$hw_class_item->e
1b00	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 6e	xpand.unless.($title.=~./Unknown
1b20	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 64	/.);......$SIG{CHLD}.=.sub.{.und
1b40	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 64	ef.$pid;.$statusbar->pop($sig_id
1b60	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 09	).};......foreach.(@devices).{..
1b80	09 20 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 62 75 73 7d 20 26 26 20 24 5f 2d 3e 7b	...if.(exists.$_->{bus}.&&.$_->{
1ba0	62 75 73 7d 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	bus}.eq."PCI").{.....my.$i=$_;..
1bc0	09 09 20 24 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	...$_->{bus_id}.=.join.':',.map.
1be0	7b 20 69 66 5f 28 24 69 2d 3e 7b 24 5f 7d 20 6e 65 20 22 36 35 35 33 35 22 2c 20 20 73 70 72 69	{.if_($i->{$_}.ne."65535",..spri
1c00	6e 74 66 28 22 25 6c 78 22 2c 20 24 69 2d 3e 7b 24 5f 7d 29 29 20 7d 20 71 77 28 76 65 6e 64 6f	ntf("%lx",.$i->{$_})).}.qw(vendo
1c20	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 7b	r.id.subvendor.subid);.....$_->{
1c40	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 20	bus_location}.=.join.':',.map.{.
1c60	73 70 72 69 6e 74 66 28 22 25 6c 78 22 2c 20 24 69 2d 3e 7b 24 5f 7d 20 29 20 7d 20 71 77 28 70	sprintf("%lx",.$i->{$_}.).}.qw(p
1c80	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);
1ca0	0a 09 09 20 20 7d 0a 09 09 20 20 23 20 73 70 6c 69 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69	.....}.....#.split.description.i
1cc0	6e 74 6f 20 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 20	nto.manufacturer/description....
1ce0	20 28 24 5f 2d 3e 7b 56 65 6e 64 6f 72 7d 2c 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d	.($_->{Vendor},$_->{description}
1d00	29 3d 73 70 6c 69 74 28 2f 5c 7c 2f 2c 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 20	)=split(/\|/,$_->{description}).
1d20	69 66 20 65 78 69 73 74 73 20 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 3b 0a 09 09 20	if.exists.$_->{description};....
1d40	20 0a 09 09 20 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 76 61 6c 7d 29 20 7b 20 23 20	......if.(exists.$_->{val}).{.#.
1d60	53 63 61 6e 6e 65 72 20 3f 0a 09 09 09 20 20 6d 79 20 24 76 61 6c 20 3d 20 24 5f 2d 3e 7b 76 61	Scanner.?......my.$val.=.$_->{va
1d80	6c 7d 3b 0a 09 09 09 20 20 28 24 5f 2d 3e 7b 56 65 6e 64 6f 72 7d 2c 24 5f 2d 3e 7b 64 65 73 63	l};......($_->{Vendor},$_->{desc
1da0	72 69 70 74 69 6f 6e 7d 29 20 3d 20 73 70 6c 69 74 28 2f 5c 7c 2f 2c 20 24 76 61 6c 2d 3e 7b 44	ription}).=.split(/\|/,.$val->{D
1dc0	45 53 43 52 49 50 54 49 4f 4e 7d 29 3b 0a 09 09 7d 0a 09 09 20 20 23 20 45 49 44 45 20 64 65 74	ESCRIPTION});...}.....#.EIDE.det
1de0	65 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	ection.incoherency:.....if.(exis
1e00	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 27 69 64	ts.$_->{bus}.&&.$_->{bus}.eq.'id
1e20	65 27 29 20 7b 0a 09 09 09 20 24 5f 2d 3e 7b 63 68 61 6e 6e 65 6c 7d 20 3d 20 5f 28 24 5f 2d 3e	e').{.....$_->{channel}.=._($_->
1e40	7b 63 68 61 6e 6e 65 6c 7d 20 3f 20 22 73 65 63 6f 6e 64 61 72 79 22 20 3a 20 22 70 72 69 6d 61	{channel}.?."secondary".:."prima
1e60	72 79 22 29 3b 0a 09 09 09 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 69 6e 66 6f 7d 3b 0a 09 09 20 20	ry");....delete.$_->{info};.....
1e80	7d 20 65 6c 73 69 66 20 28 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 69 64 7d 29 20 26 26 20 28 24	}.elsif.((exists.$_->{id}).&&.($
1ea0	5f 2d 3e 7b 62 75 73 7d 20 6e 65 20 27 50 43 49 27 29 29 20 7b 0a 09 09 09 20 23 20 53 43 53 49	_->{bus}.ne.'PCI')).{.....#.SCSI
1ec0	20 64 65 74 65 63 74 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	.detection.incoherency:.....my.$
1ee0	69 3d 24 5f 3b 0a 09 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	i=$_;.....$_->{bus_location}.=..
1f00	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 24	join.':',.map.{.sprintf("%lx",.$
1f20	69 2d 3e 7b 24 5f 7d 20 29 20 7d 20 71 77 28 62 75 73 20 69 64 29 3b 0a 09 09 20 20 7d 0a 09 09	i->{$_}.).}.qw(bus.id);.....}...
1f40	20 20 66 6f 72 65 61 63 68 20 6d 79 20 24 69 20 28 71 77 28 76 65 6e 64 6f 72 20 69 64 20 73 75	..foreach.my.$i.(qw(vendor.id.su
1f60	62 76 65 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	bvendor.subid.pci_bus.pci_device
1f80	20 70 63 69 5f 66 75 6e 63 74 69 6f 6e 20 4d 4f 55 53 45 54 59 50 45 20 58 4d 4f 55 53 45 54 59	.pci_function.MOUSETYPE.XMOUSETY
1fa0	50 45 20 75 6e 73 61 66 65 20 76 61 6c 20 64 65 76 66 73 5f 70 72 65 66 69 78 29 29 20 7b 20 0a	PE.unsafe.val.devfs_prefix)).{..
1fc0	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 09 09 20 20 6d	....delete.$_->{$i};.....}.....m
1fe0	79 20 24 68 77 5f 69 74 65 6d 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 64	y.$hw_item.=.new.Gtk::TreeItem(d
2000	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 3e 7b 64 65 76 69 63	efined($_->{device})?.$_->{devic
2020	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 63 72 69 70 74 69 6f	e}:.....(defined($_->{descriptio
2040	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 74 6c 65 29 29 3b 0a	n})?$_->{description}:$title));.
2060	09 09 20 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3d 27 2f 64 65 76 2f 27 2e 24 5f 2d 3e 7b 64 65	....$_->{device}='/dev/'.$_->{de
2080	76 69 63 65 7d 20 69 66 20 65 78 69 73 74 73 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3b 0a 09 09	vice}.if.exists.$_->{device};...
20a0	20 20 24 68 77 5f 63 6c 61 73 73 5f 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 24 68 77 5f 69 74 65	..$hw_class_tree->append($hw_ite
20c0	6d 29 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 65 78 70 61 6e 64 3b 0a 09 09 20 20 24 68	m);.....$hw_item->expand;.....$h
20e0	77 5f 69 74 65 6d 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 6d 79 20 24 64 61 74 61 3d 24 5f 3b 0a 09	w_item->show;.....my.$data=$_;..
2100	09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f 68 61 6e 64 6c 65 72 73 5f 64 65 73	...$hw_item->signal_handlers_des
2120	74 72 6f 79 28 29 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e	troy();.....$hw_item->signal_con
2140	6e 65 63 74 28 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 64	nect(select.=>.sub.{.....$_.=.$d
2160	61 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	ata;.....$text->hide;.....$text-
2180	3e 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	>backward_delete($text->get_poin
21a0	74 29 3b 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 6b 65 79 73	t);.....foreach.my.$i.(sort.keys
21c0	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 22 22 2c	.%$_).{.....$text->insert("","",
21e0	22 22 2c 20 22 5c 6e 22 2e 20 28 24 66 69 65 6c 64 73 7b 24 69 7d 5b 30 5d 20 3f 20 24 66 69 65	"",."\n"..($fields{$i}[0].?.$fie
2200	6c 64 73 7b 24 69 7d 5b 30 5d 20 3a 20 24 69 29 20 2e 0a 09 09 09 09 09 09 20 20 20 20 22 3a 20	lds{$i}[0].:.$i).............":.
2220	24 5f 2d 3e 7b 24 69 7d 5c 6e 22 20 29 3b 0a 09 09 09 09 69 66 20 28 24 6d 6f 64 5f 73 69 67 6e	$_->{$i}\n".);.....if.($mod_sign
2240	61 6c 5f 69 64 29 20 7b 0a 09 09 09 09 20 20 20 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74	al_id).{.........$module_cfg_but
2260	74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 64 69 73 63 6f 6e 6e 65 63 74 28 24 6d 6f 64 5f 73 69 67 6e	ton->signal_disconnect($mod_sign
2280	61 6c 5f 69 64 29 3b 0a 09 09 09 09 20 20 20 20 75 6e 64 65 66 20 24 6d 6f 64 5f 73 69 67 6e 61	al_id);.........undef.$mod_signa
22a0	6c 5f 69 64 3b 0a 09 09 09 09 7d 0a 09 09 09 20 7d 3b 0a 09 09 09 20 24 6d 6f 64 5f 73 69 67 6e	l_id;.....}.....};.....$mod_sign
22c0	61 6c 5f 69 64 3d 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c	al_id=$module_cfg_button->signal
22e0	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 09 09 09 7b	_connect(clicked.=>.sub........{
2300	0a 09 09 09 09 09 09 09 20 20 20 20 72 65 71 75 69 72 65 20 6d 6f 64 70 61 72 6d 3b 0a 09 09 09	............require.modparm;....
2320	09 09 09 09 7d 29 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 20 7c	....}).if.(exists.$_->{driver}.|
2340	7c 20 20 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 20 6e 65 20 22 75 6e 6b 6e 6f 77 6e 22 29 3b 0a 09	|..$_->{driver}.ne."unknown");..
2360	09 09 20 69 66 20 28 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 29 20 7b 0a 09 09 09 09 24 63	...if.($tool_signal_id).{.....$c
2380	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 74 28	onfig_button->signal_disconnect(
23a0	24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 29 3b 0a 09 09 09 09 75 6e 64 65 66 20 24 74 6f 6f	$tool_signal_id);.....undef.$too
23c0	6c 5f 73 69 67 6e 61 6c 5f 69 64 3b 0a 09 09 09 20 7d 0a 09 09 09 20 69 66 20 28 2d 78 20 24 63	l_signal_id;.....}.....if.(-x.$c
23e0	6f 6e 66 69 67 75 72 61 74 6f 72 29 20 7b 0a 09 09 09 09 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f	onfigurator).{.....$tool_signal_
2400	69 64 3d 24 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	id=$config_button->signal_connec
2420	74 28 63 6c 69 63 6b 65 64 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 09 20 20 20 20 69 66 20 28 64	t(clicked.=>.sub.{.........if.(d
2440	65 66 69 6e 65 64 20 24 70 69 64 29 20 7b 72 65 74 75 72 6e 7d 0a 09 09 09 09 20 20 20 20 69 66	efined.$pid).{return}.........if
2460	20 28 24 70 69 64 20 3d 20 66 6f 72 6b 28 29 29 20 7b 0a 09 09 09 09 09 20 20 20 6d 79 20 24 69	.($pid.=.fork()).{.........my.$i
2480	64 20 3d 20 24 73 74 61 74 75 73 62 61 72 2d 3e 67 65 74 5f 63 6f 6e 74 65 78 74 5f 69 64 28 22	d.=.$statusbar->get_context_id("
24a0	69 64 22 29 3b 0a 09 09 09 09 09 20 20 20 24 73 69 67 5f 69 64 3d 24 73 74 61 74 75 73 62 61 72	id");.........$sig_id=$statusbar
24c0	2d 3e 70 75 73 68 28 24 69 64 2c 20 5f 28 22 52 75 6e 6e 69 6e 67 20 5c 22 25 73 5c 22 20 2e 2e	->push($id,._("Running.\"%s\"...
24e0	2e 22 2c 20 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 29 29 3b 0a 09 09 09 09 20 20 20 20 7d 20 65	.",.$configurator));.........}.e
2500	6c 73 65 20 7b 0a 09 09 09 09 09 20 20 20 65 78 65 63 28 24 63 6f 6e 66 69 67 75 72 61 74 6f 72	lse.{.........exec($configurator
2520	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\
2540	6e 22 3b 0a 09 09 09 09 20 20 20 20 7d 0a 09 09 09 09 7d 29 20 3b 0a 09 09 09 09 24 63 6f 6e 66	n";.........}.....}).;.....$conf
2560	69 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 3b 0a 09 09 09 20 7d 20 65 6c 73 65 20 7b 24 63 6f	ig_button->show;.....}.else.{$co
2580	6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 68 69 64 65 20 7d 0a 09 09 09 20 24 74 65 78 74 2d 3e 73	nfig_button->hide.}.....$text->s
25a0	68 6f 77 3b 0a 09 09 20 20 7d 20 29 3b 0a 09 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 0a 20	how;.....}.);.....}.....}.......
25c0	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 20 64	...$main_win->signal_connect.(.d
25e0	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 3b 0a	elete_event.=>.\&quit_global.);.
2600	20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 68 6f 77 5f 61 6c 6c 28 29 3b 0a 20 20 20 20 24	....$main_win->show_all();.....$
2620	6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 70 6f 73 69 74 69 6f 6e 28 27 63 65 6e 74 65 72 27 29	main_win->set_position('center')
2640	3b 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74	;......foreach.($module_cfg_butt
2660	6f 6e 2c 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 29 20 7b 24 5f 2d 3e 68 69 64 65 7d 3b 0a	on,.$config_button).{$_->hide};.
2680	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 23 20	.........return.$main_win;....#.
26a0	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 20 26 26 20 64 65 73	Return.the.constructed.UI.&&.des
26c0	74 72 6f 79 20 24 77 61 69 74 0a 7d 0a 0a 0a 73 75 62 20 71 75 69 74 5f 67 6c 6f 62 61 6c 20 7b	troy.$wait.}...sub.quit_global.{
26e0	0a 20 20 20 20 47 74 6b 2d 3e 65 78 69 74 28 30 29 3b 0a 20 20 20 20 24 69 6e 2d 3e 65 78 69 74	.....Gtk->exit(0);.....$in->exit
2700	3b 0a 7d 0a 0a 5f 5f 45 4e 44 5f 5f 0a	;.}..__END__.