blob: e6287d51323f716c325316e8f788a57e009f3c2d (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 68 61	ct;..use.harddrake::data;.use.ha
0040	72 64 64 72 61 6b 65 3a 3a 73 6f 75 6e 64 3b 0a 75 73 65 20 63 6f 6d 6d 6f 6e 3b 0a 75 73 65 20	rddrake::sound;.use.common;.use.
0060	75 67 74 6b 20 71 77 28 3a 68 65 6c 70 65 72 73 20 3a 77 72 61 70 70 65 72 73 20 3a 76 61 72 69	ugtk.qw(:helpers.:wrappers.:vari
0080	6f 75 73 29 3b 0a 75 73 65 20 6d 79 5f 67 74 6b 20 71 77 28 3a 68 65 6c 70 65 72 73 20 3a 77 72	ous);.use.my_gtk.qw(:helpers.:wr
00a0	61 70 70 65 72 73 29 3b 0a 75 73 65 20 69 6e 74 65 72 61 63 74 69 76 65 3b 0a 0a 0a 23 20 7b 20	appers);.use.interactive;...#.{.
00c0	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 6f 6e 2c 20 66 75	field.=>.[.short_translation,.fu
00e0	6c 6c 5f 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 7d 0a 6d 79 20 25 66 69 65 6c 64 73 20 3d 20 0a	ll_description].}.my.%fields.=..
0100	20 20 20 20 28 0a 09 22 4d 6f 64 65 6c 22 20 3d 3e 20 5b 5f 28 22 4d 6f 64 65 6c 22 29 2c 20 5f	....(.."Model".=>.[_("Model"),._
0120	28 22 68 61 72 64 20 64 69 73 6b 20 6d 6f 64 65 6c 22 29 5d 2c 0a 09 22 63 68 61 6e 6e 65 6c 22	("hard.disk.model")],.."channel"
0140	20 3d 3e 20 5b 5f 28 22 43 68 61 6e 6e 65 6c 22 29 2c 20 5f 28 22 45 49 44 45 2f 53 43 53 49 20	.=>.[_("Channel"),._("EIDE/SCSI.
0160	63 68 61 6e 6e 65 6c 22 29 5d 2c 0a 09 22 62 75 73 22 20 3d 3e 20 0a 09 5b 20 5f 28 22 42 75 73	channel")],.."bus".=>...[._("Bus
0180	22 29 2c 20 0a 09 20 20 5f 28 22 74 68 69 73 20 69 73 20 74 68 65 20 70 68 79 73 69 63 61 6c 20	"),....._("this.is.the.physical.
01a0	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 70 6c 75 67 67	bus.on.which.the.device.is.plugg
01c0	65 64 20 28 65 67 3a 20 50 43 49 2c 20 55 53 42 2c 20 2e 2e 2e 29 22 29 5d 2c 0a 09 22 64 72 69	ed.(eg:.PCI,.USB,....)")],.."dri
01e0	76 65 72 22 20 3d 3e 20 5b 20 5f 28 22 4d 6f 64 75 6c 65 22 29 2c 20 5f 28 22 74 68 65 20 6d 6f	ver".=>.[._("Module"),._("the.mo
0200	64 75 6c 65 20 6f 66 20 74 68 65 20 47 4e 55 2f 4c 69 6e 75 78 20 6b 65 72 6e 65 6c 20 74 68 61	dule.of.the.GNU/Linux.kernel.tha
0220	74 20 68 61 6e 64 6c 65 20 74 68 61 74 20 64 65 76 69 63 65 22 29 5d 2c 0a 09 22 6d 65 64 69 61	t.handle.that.device")],.."media
0240	5f 74 79 70 65 22 20 3d 3e 20 5b 20 5f 28 22 4d 65 64 69 61 20 63 6c 61 73 73 22 29 2c 20 5f 28	_type".=>.[._("Media.class"),._(
0260	22 63 6c 61 73 73 20 6f 66 20 68 61 72 64 77 61 72 65 20 64 65 76 69 63 65 22 29 5d 2c 0a 09 22	"class.of.hardware.device")],.."
0280	64 65 73 63 72 69 70 74 69 6f 6e 22 20 3d 3e 20 5b 20 5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e	description".=>.[._("Description
02a0	22 29 2c 20 5f 28 22 74 68 69 73 20 66 69 65 6c 64 20 64 65 73 63 72 69 62 65 20 74 68 65 20 64	"),._("this.field.describe.the.d
02c0	65 76 69 63 65 22 29 5d 2c 0a 09 22 62 75 73 5f 69 64 22 20 3d 3e 20 0a 09 5b 20 5f 28 22 42 75	evice")],.."bus_id".=>...[._("Bu
02e0	73 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 22 29 2c 20 0a 09 20 20 5f 28 22 2d 20 50 43 49	s.identification"),....._("-.PCI
0300	20 61 6e 64 20 55 53 42 20 64 65 76 69 63 65 73 3a 20 74 68 69 73 20 6c 69 73 74 20 74 68 65 20	.and.USB.devices:.this.list.the.
0320	76 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	vendor,.device,.subvendor.and.su
0340	62 64 65 76 69 63 65 20 50 43 49 2f 55 53 42 20 69 64 73 22 29 5d 2c 0a 09 22 62 75 73 5f 6c 6f	bdevice.PCI/USB.ids")],.."bus_lo
0360	63 61 74 69 6f 6e 22 20 3d 3e 20 0a 09 5b 20 5f 28 22 4c 6f 63 61 74 69 6f 6e 20 6f 6e 20 74 68	cation".=>...[._("Location.on.th
0380	65 20 62 75 73 22 29 2c 20 0a 09 20 20 5f 28 22 2d 20 70 63 69 20 64 65 76 69 63 65 73 3a 20 74	e.bus"),....._("-.pci.devices:.t
03a0	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 76 69 63 65 20 61	his.gives.the.PCI.slot,.device.a
03c0	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 2d 20 65 69 64 65 20	nd.function.of.this.card.-.eide.
03e0	64 65 76 69 63 65 73 3a 20 74 68 65 20 64 65 76 69 63 65 20 69 73 20 65 69 74 68 65 72 20 61 20	devices:.the.device.is.either.a.
0400	73 6c 61 76 65 20 6f 72 20 61 20 6d 61 73 74 65 72 20 64 65 76 69 63 65 0a 2d 20 73 63 73 69 20	slave.or.a.master.device.-.scsi.
0420	64 65 76 69 63 65 73 3a 20 74 68 65 20 73 63 73 69 20 62 75 73 20 61 6e 64 20 74 68 65 20 73 63	devices:.the.scsi.bus.and.the.sc
0440	73 69 20 64 65 76 69 63 65 20 69 64 73 22 29 5d 2c 0a 09 22 64 65 76 69 63 65 22 20 3d 3e 20 5b	si.device.ids")],.."device".=>.[
0460	20 5f 28 22 4f 6c 64 20 64 65 76 69 63 65 20 66 69 6c 65 22 29 2c 0a 09 09 09 20 20 20 20 5f 28	._("Old.device.file"),........_(
0480	22 6f 6c 64 20 73 74 61 74 69 63 20 64 65 76 69 63 65 20 6e 61 6d 65 20 75 73 65 64 20 69 6e 20	"old.static.device.name.used.in.
04a0	64 65 76 20 70 61 63 6b 61 67 65 22 29 5d 2c 0a 09 22 64 65 76 66 73 5f 64 65 76 69 63 65 22 20	dev.package")],.."devfs_device".
04c0	3d 3e 20 5b 20 5f 28 22 4e 65 77 20 64 65 76 66 73 20 64 65 76 69 63 65 22 29 2c 20 20 0a 09 09	=>.[._("New.devfs.device"),.....
04e0	09 09 09 5f 28 22 6e 65 77 20 64 69 6e 61 6d 69 63 20 64 65 76 69 63 65 20 6e 61 6d 65 20 67 65	..._("new.dinamic.device.name.ge
0500	6e 65 72 61 74 65 64 20 62 79 20 69 6e 63 6f 72 65 20 6b 65 72 6e 65 6c 20 64 65 76 66 73 22 29	nerated.by.incore.kernel.devfs")
0520	5d 2c 0a 09 22 6e 62 75 74 74 6f 6e 73 22 20 3d 3e 20 5b 20 5f 28 22 4e 75 6d 62 65 72 20 6f 66	],.."nbuttons".=>.[._("Number.of
0540	20 62 75 74 74 6f 6e 73 22 29 2c 20 22 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 75 74 74 6f	.buttons"),."the.number.of.butto
0560	6e 73 20 74 68 65 20 6d 6f 75 73 65 20 68 61 76 65 22 5d 2c 0a 09 22 56 65 6e 64 6f 72 22 20 3d	ns.the.mouse.have"],.."Vendor".=
0580	3e 20 5b 20 5f 28 22 56 65 6e 64 6f 72 22 29 2c 20 5f 28 22 74 68 65 20 76 65 6e 64 6f 72 20 6e	>.[._("Vendor"),._("the.vendor.n
05a0	61 6d 65 20 6f 66 20 74 68 65 20 64 65 76 69 63 65 22 29 5d 2c 0a 09 22 61 6c 74 65 72 6e 61 74	ame.of.the.device")],.."alternat
05c0	69 76 65 5f 64 72 69 76 65 72 73 22 20 3d 3e 20 5b 20 5f 28 22 41 6c 74 65 72 6e 61 74 69 76 65	ive_drivers".=>.[._("Alternative
05e0	20 64 72 69 76 65 72 73 22 29 2c 0a 09 09 09 09 09 09 20 20 5f 28 22 74 68 65 20 6c 69 73 74 20	.drivers"),........._("the.list.
0600	6f 66 20 61 6c 74 65 72 6e 61 74 69 76 65 20 64 72 69 76 65 72 73 20 66 6f 72 20 74 68 69 73 20	of.alternative.drivers.for.this.
0620	73 6f 75 6e 64 20 63 61 72 64 22 29 5d 0a 09 29 3b 0a 0a 0a 6f 75 72 20 24 6c 69 63 65 6e 73 65	sound.card")]..);...our.$license
0640	20 3d 20 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	.=.'Copyright.(C).1999-2002.Mand
0660	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 61 6b 65 73 6f 66	rakeSoft.by.tvignaud@mandrakesof
0680	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 65 20 73 6f 66 74	t.com..This.program.is.free.soft
06a0	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 20 69 74 20 61 6e	ware;.you.can.redistribute.it.an
06c0	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 65 72 6d 73 20 6f	d/or.modify.it.under.the.terms.o
06e0	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 6e 73 65	f.the.GNU.General.Public.License
0700	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 53 6f 66 74 77 61	.as.published.by.the.Free.Softwa
0720	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 69 6f 6e 20 32 2c	re.Foundation;.either.version.2,
0740	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 61 74 65 72 20 76	.or.(at.your.option).any.later.v
0760	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 69 73 74 72 69 62	ersion...This.program.is.distrib
0780	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 69 6c 6c 20 62 65	uted.in.the.hope.that.it.will.be
07a0	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 41 52 52 41 4e 54	.useful,.but.WITHOUT.ANY.WARRANT
07c0	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 64 20 77 61 72 72	Y;.without.even.the.implied.warr
07e0	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 20 46 49 54 4e 45	anty.of.MERCHANTABILITY.or.FITNE
0800	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 45 2e 20 20 53 65	SS.FOR.A.PARTICULAR.PURPOSE...Se
0820	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 69 63 65 6e 73 65	e.the.GNU.General.Public.License
0840	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 6f 75 6c 64 20 68	.for.more.details...You.should.h
0860	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 20 47 4e 55 20 47	ave.received.a.copy.of.the.GNU.G
0880	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 67 20 77 69 74 68	eneral.Public.License.along.with
08a0	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 74 65 20 74 6f 20	.this.program;.if.not,.write.to.
08c0	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 6f 6e 2c 20 49 6e	the.Free.Software.Foundation,.In
08e0	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 65 20 33 33 30 2c	c.,.59.Temple.Place.-.Suite.330,
0900	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 41 2e 0a 27 3b 0a	.Boston,.MA.02111-1307,.USA..';.
0920	0a 6d 79 20 28 24 69 6e 2c 20 24 6d 61 69 6e 5f 77 69 6e 2c 20 25 49 44 73 2c 20 24 70 69 64 29	.my.($in,.$main_win,.%IDs,.$pid)
0940	3b 0a 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 20	;..my.@menu_items.=.(.{.path.=>.
0960	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 20	_("/_File"),.type.=>.'<Branch>'.
0980	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 2e	},........{.path.=>._("/_File").
09a0	5f 28 22 2f 5f 51 75 69 74 22 29 2c 20 61 63 63 65 6c 65 72 61 74 6f 72 20 3d 3e 20 5f 28 22 3c	_("/_Quit"),.accelerator.=>._("<
09c0	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_
09e0	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 3e 20 5f 28 22 2f 5f	global.},........{.path.=>._("/_
0a00	48 65 6c 70 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	Help"),.type.=>.'<Branch>'.},...
0a20	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 2e 5f 28 22 2f 5f	.....{.path.=>._("/_Help")._("/_
0a40	48 65 6c 70 2e 2e 2e 22 29 2c 20 63 61 6c 6c 62 61 63 6b 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09	Help..."),.callback.=>.sub.{....
0a60	09 20 20 20 24 69 6e 2d 3e 61 73 6b 5f 77 61 72 6e 28 5f 28 22 48 61 72 64 64 72 61 6b 65 20 68	....$in->ask_warn(_("Harddrake.h
0a80	65 6c 70 22 29 2c 20 0a 09 09 09 09 09 09 09 20 20 5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e 20	elp"),..........._("Description.
0aa0	6f 66 20 74 68 65 20 66 69 65 6c 64 73 3a 5c 6e 5c 6e 22 29 0a 09 09 09 09 09 09 09 20 20 2e 20	of.the.fields:\n\n")............
0ac0	6a 6f 69 6e 28 22 5c 6e 5c 6e 22 2c 20 6d 61 70 20 7b 20 22 24 66 69 65 6c 64 73 7b 24 5f 7d 5b	join("\n\n",.map.{."$fields{$_}[
0ae0	30 5d 3a 20 24 66 69 65 6c 64 73 7b 24 5f 7d 5b 31 5d 22 7d 20 6b 65 79 73 20 25 66 69 65 6c 64	0]:.$fields{$_}[1]"}.keys.%field
0b00	73 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 20 7b 20 70	s));........}......},........{.p
0b20	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 2e	ath.=>._("/_Help")._("/_About...
0b40	22 29 2c 20 63 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	"),.callback.=>.sub.{........$in
0b60	2d 3e 61 73 6b 5f 77 61 72 6e 28 5f 28 22 41 62 6f 75 74 20 48 61 72 64 64 72 61 6b 65 22 29 2c	->ask_warn(_("About.Harddrake"),
0b80	20 0a 09 09 09 09 09 09 09 20 20 6a 6f 69 6e 20 28 22 22 2c 20 5f 28 22 54 68 69 73 20 69 73 20	...........join.("",._("This.is.
0ba0	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 65 20 63	HardDrake,.a.Mandrake.hardware.c
0bc0	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 29 2c 20	onfiguration.tool.\nVersion:"),.
0be0	22 20 24 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3a 3a 76 65 72 73 69 6f 6e 5c 6e 22 2c 20	".$harddrake::data::version\n",.
0c00	0a 09 09 09 09 09 09 09 09 20 20 20 5f 28 22 41 75 74 68 6f 72 3a 22 29 2c 20 22 20 54 68 69 65	............_("Author:"),.".Thie
0c20	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 6b 65 73	rry.Vignaud.<tvignaud\@mandrakes
0c40	6f 66 74 2e 63 6f 6d 3e 20 5c 6e 5c 6e 22 20 2c 0a 09 09 09 09 09 09 09 09 20 20 20 66 6f 72 6d	oft.com>.\n\n".,............form
0c60	61 74 41 6c 61 54 65 58 28 24 6c 69 63 65 6e 73 65 29 29 29 3b 0a 09 09 09 20 20 20 20 7d 0a 09	atAlaTeX($license)));........}..
0c80	09 09 20 20 7d 2c 0a 09 09 09 20 20 20 20 29 3b 0a 0a 73 75 62 20 6e 65 77 20 7b 0a 20 20 20 20	....},........);..sub.new.{.....
0ca0	6d 79 20 24 73 69 67 5f 69 64 3b 0a 0a 20 20 20 20 24 69 6e 20 3d 20 27 69 6e 74 65 72 61 63 74	my.$sig_id;......$in.=.'interact
0cc0	69 76 65 27 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	ive'->vnew('su',.'default');....
0ce0	20 61 64 64 5f 69 63 6f 6e 5f 70 61 74 68 28 27 2f 75 73 72 2f 73 68 61 72 65 2f 70 69 78 6d 61	.add_icon_path('/usr/share/pixma
0d00	70 73 2f 68 61 72 64 64 72 61 6b 65 32 2f 27 29 3b 0a 20 20 20 20 24 77 20 3d 20 6d 79 5f 67 74	ps/harddrake2/');.....$w.=.my_gt
0d20	6b 2d 3e 6e 65 77 28 28 5f 28 22 48 61 72 64 64 72 61 6b 65 32 20 76 65 72 73 69 6f 6e 20 22 29	k->new((_("Harddrake2.version.")
0d40	20 2e 20 24 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3a 3a 76 65 72 73 69 6f 6e 29 29 3b 0a	...$harddrake::data::version));.
0d60	20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 20 3d 20 24 77 2d 3e 7b 72 77 69 6e 64 6f 77 7d 3b 0a 20	....$main_win.=.$w->{rwindow};..
0d80	20 20 20 24 77 2d 3e 7b 77 69 6e 64 6f 77 7d 2d 3e 73 65 74 5f 75 73 69 7a 65 28 37 36 30 2c 20	...$w->{window}->set_usize(760,.
0da0	35 35 30 29 20 75 6e 6c 65 73 73 20 24 3a 3a 69 73 45 6d 62 65 64 64 65 64 3b 0a 20 20 20 20 24	550).unless.$::isEmbedded;.....$
0dc0	77 2d 3e 7b 77 69 6e 64 6f 77 7d 2d 3e 61 64 64 28 20 0a 09 09 20 6d 79 20 24 6d 61 69 6e 5f 76	w->{window}->add(.....my.$main_v
0de0	62 6f 78 20 3d 20 67 74 6b 61 64 64 28 67 74 6b 61 64 64 28 24 3a 3a 69 73 45 6d 62 65 64 64 65	box.=.gtkadd(gtkadd($::isEmbedde
0e00	64 20 3f 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 20 30 29 20 3a 0a 09 09 09 09 09 09	d.?.new.Gtk::VBox(0,.0).:.......
0e20	09 09 20 67 74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 20 30 29 2c 0a 09	...gtkadd(new.Gtk::VBox(0,.0),..
0e40	09 09 09 09 09 09 09 09 20 20 20 6d 79 20 24 6d 65 6e 75 62 61 72 20 3d 20 75 67 74 6b 3a 3a 63	...........my.$menubar.=.ugtk::c
0e60	72 65 61 74 65 5f 66 61 63 74 6f 72 79 5f 6d 65 6e 75 28 24 6d 61 69 6e 5f 77 69 6e 2c 20 40 6d	reate_factory_menu($main_win,.@m
0e80	65 6e 75 5f 69 74 65 6d 73 29 29 2c 0a 09 09 09 09 09 09 09 09 20 6d 79 20 24 68 70 61 6e 65 64	enu_items)),..........my.$hpaned
0ea0	20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 50 61 6e 65 64 29 2c 0a 09 09 09 09 09 09 20 20 20 20 6d	.=.new.Gtk::HPaned),...........m
0ec0	79 20 24 73 74 61 74 75 73 62 61 72 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 53 74 61 74 75 73 62 61	y.$statusbar.=.new.Gtk::Statusba
0ee0	72 29 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 5f 70	r));.....$main_vbox->set_child_p
0f00	61 63 6b 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	acking($statusbar,.0,.0,.0,.'sta
0f20	72 74 27 29 3b 0a 20 20 20 20 69 66 20 28 24 3a 3a 69 73 45 6d 62 65 64 64 65 64 29 20 7b 0a 09	rt');.....if.($::isEmbedded).{..
0f40	20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 67 74 6b 73 69 67 6e 61 6c 5f 63 6f 6e	...$main_vbox->add(gtksignal_con
0f60	6e 65 63 74 28 6d 79 20 24 62 75 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f	nect(my.$but.=.new.Gtk::Button(_
0f80	28 22 51 75 69 74 22 29 29 2c 0a 09 09 09 09 09 09 09 09 20 20 27 63 6c 69 63 6b 65 64 27 20 3d	("Quit")),...........'clicked'.=
0fa0	3e 20 5c 26 71 75 69 74 5f 67 6c 6f 62 61 6c 29 29 3b 0a 09 20 20 20 24 6d 61 69 6e 5f 76 62 6f	>.\&quit_global));.....$main_vbo
0fc0	78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 62 75 74 2c 20 30 2c 20 30 2c	x->set_child_packing($but,.0,.0,
0fe0	20 30 2c 20 27 73 74 61 72 74 27 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 20 24 6d 61 69 6e	.0,.'start');.....}.else.{.$main
1000	5f 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 6d 65 6e 75 62 61	_vbox->set_child_packing($menuba
1020	72 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 29 20 7d 0a 0a 20 20 20 20 24 68 70 61	r,.0,.0,.0,.'start').}......$hpa
1040	6e 65 64 2d 3e 70 61 63 6b 31 28 67 74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 46 72 61 6d 65	ned->pack1(gtkadd(new.Gtk::Frame
1060	28 5f 28 22 44 65 74 65 63 74 65 64 20 68 61 72 64 77 61 72 65 22 29 29 2c 20 63 72 65 61 74 65	(_("Detected.hardware")),.create
1080	53 63 72 6f 6c 6c 65 64 57 69 6e 64 6f 77 28 6d 79 20 24 74 72 65 65 20 3d 20 6e 65 77 20 47 74	ScrolledWindow(my.$tree.=.new.Gt
10a0	6b 3a 3a 54 72 65 65 29 29 2c 20 31 2c 20 31 29 3b 0a 20 20 20 20 24 68 70 61 6e 65 64 2d 3e 70	k::Tree)),.1,.1);.....$hpaned->p
10c0	61 63 6b 32 28 6d 79 20 24 76 62 6f 78 20 3d 20 67 74 6b 61 64 64 28 67 74 6b 61 64 64 28 67 74	ack2(my.$vbox.=.gtkadd(gtkadd(gt
10e0	6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 2c 0a 09 09 09 09 09 09 09 09 09 09 20 67	kadd(new.Gtk::VBox,............g
1100	74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 46 72 61 6d 65 28 5f 28 22 49 6e 66 6f 72 6d 61 74	tkadd(new.Gtk::Frame(_("Informat
1120	69 6f 6e 22 29 29 2c 0a 09 09 09 09 09 09 09 09 09 09 09 20 20 20 67 74 6b 61 64 64 28 6e 65 77	ion")),...............gtkadd(new
1140	20 47 74 6b 3a 3a 48 42 6f 78 2c 20 0a 09 09 09 09 09 09 09 09 09 09 09 09 09 63 72 65 61 74 65	.Gtk::HBox,...............create
1160	53 63 72 6f 6c 6c 65 64 57 69 6e 64 6f 77 28 6d 79 20 24 74 65 78 74 20 3d 20 6e 65 77 20 47 74	ScrolledWindow(my.$text.=.new.Gt
1180	6b 3a 3a 54 65 78 74 29 29 29 29 2c 20 0a 09 09 09 09 09 09 09 09 20 20 20 20 6d 79 20 24 6d 6f	k::Text)))),..............my.$mo
11a0	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 74 6f	dule_cfg_button.=.new.Gtk::Butto
11c0	6e 28 5f 28 22 43 6f 6e 66 69 67 75 72 65 20 6d 6f 64 75 6c 65 22 29 29 29 2c 0a 09 09 09 09 09	n(_("Configure.module"))),......
11e0	09 09 20 20 6d 79 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	....my.$config_button.=.new.Gtk:
1200	3a 42 75 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 29 2c 20	:Button(_("Run.config.tool"))),.
1220	31 2c 20 31 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b	1,.1);.....$vbox->set_child_pack
1240	69 6e 67 28 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74	ing($config_button,.0,.0,.0,.'st
1260	61 72 74 27 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b	art');.....$vbox->set_child_pack
1280	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 30 2c	ing($module_cfg_button,.0,.0,.0,
12a0	20 27 73 74 61 72 74 27 29 3b 0a 0a 20 20 20 20 6d 79 20 24 77 61 69 74 20 3d 20 24 69 6e 2d 3e	.'start');......my.$wait.=.$in->
12c0	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 29 2c 20 5f	wait_message(_("Please.wait"),._
12e0	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 0a 20 20 20	("Detection.in.progress"));.....
1300	20 6d 79 20 24 63 6d 61 70 20 3d 20 47 74 6b 3a 3a 47 64 6b 3a 3a 43 6f 6c 6f 72 6d 61 70 2d 3e	.my.$cmap.=.Gtk::Gdk::Colormap->
1320	67 65 74 5f 73 79 73 74 65 6d 3b 0a 20 20 20 20 6d 79 20 24 63 6f 6c 6f 72 20 3d 20 7b 20 27 72	get_system;.....my.$color.=.{.'r
1340	65 64 27 20 3d 3e 20 30 78 33 31 30 30 2c 20 27 67 72 65 65 6e 27 20 3d 3e 20 30 78 36 34 30 30	ed'.=>.0x3100,.'green'.=>.0x6400
1360	2c 20 27 62 6c 75 65 27 20 3d 3e 20 30 78 62 63 30 30 20 7d 3b 0a 20 20 20 20 24 63 6d 61 70 2d	,.'blue'.=>.0xbc00.};.....$cmap-
1380	3e 63 6f 6c 6f 72 5f 61 6c 6c 6f 63 28 24 63 6f 6c 6f 72 29 3b 0a 20 20 20 20 6d 79 20 24 77 63	>color_alloc($color);.....my.$wc
13a0	6f 6c 6f 72 20 3d 20 7b 20 27 72 65 64 27 20 3d 3e 20 30 78 46 46 46 46 2c 20 27 67 72 65 65 6e	olor.=.{.'red'.=>.0xFFFF,.'green
13c0	27 20 3d 3e 20 30 78 36 34 30 30 2c 20 27 62 6c 75 65 27 20 3d 3e 20 30 78 36 34 30 30 20 7d 3b	'.=>.0x6400,.'blue'.=>.0x6400.};
13e0	0a 20 20 20 20 24 63 6d 61 70 2d 3e 63 6f 6c 6f 72 5f 61 6c 6c 6f 63 28 24 77 63 6f 6c 6f 72 29	.....$cmap->color_alloc($wcolor)
1400	3b 0a 0a 20 20 20 20 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 6d 79 20 24 72 6f 6f 74 20 3d 20	;......$tree->append(my.$root.=.
1420	6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 29 3b 0a 20 20 20 20 24 72 6f 6f 74 2d 3e 73	new.Gtk::TreeItem);.....$root->s
1440	65 74 5f 73 75 62 74 72 65 65 28 6d 79 20 24 6d 61 69 6e 5f 73 75 62 74 72 65 65 20 3d 20 6e 65	et_subtree(my.$main_subtree.=.ne
1460	77 20 47 74 6b 3a 3a 54 72 65 65 29 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28	w.Gtk::Tree);..........foreach.(
1480	40 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3a 3a 74 72 65 65 29 20 7b 0a 09 20 20 20 6d 79	@harddrake::data::tree).{.....my
14a0	20 28 24 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	.($Ident,.$title,.$icon,.$config
14c0	75 72 61 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	urator,.$detector).=.@$_;.....ne
14e0	78 74 20 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	xt.if.(ref($detector).ne."CODE")
1500	3b 20 23 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	;.#skip.class.witouth.detector..
1520	20 20 20 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	...my.@devices.=.&$detector;....
1540	20 6e 65 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	.next.if.(!listlength(@devices))
1560	3b 20 23 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	;.#.Skip.empty.class.(no.devices
1580	29 0a 09 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	).....my.($hw_class_item,.$hw_cl
15a0	61 73 73 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	ass_tree).=.(new.Gtk::TreeItem,.
15c0	6e 65 77 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	new.Gtk::Tree);.....$main_subtre
15e0	65 2d 3e 61 70 70 65 6e 64 28 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 29 3b 0a 09 20 20 20 24	e->append($hw_class_item);.....$
1600	68 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	hw_class_item->signal_connect(se
1620	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 61 63 6b 77 61	lect..=>.sub.{.....$text->backwa
1640	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 20 23 20 65	rd_delete($text->get_point);.#.e
1660	72 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	rase.all.previous.text.....$conf
1680	69 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	ig_button->hide;.....$module_cfg
16a0	5f 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 29 3b 0a 09 20 20	_button->hide;.....},.,."");....
16c0	20 0a 09 20 20 20 75 67 74 6b 3a 3a 74 72 65 65 5f 73 65 74 5f 69 63 6f 6e 28 67 74 6b 73 68 6f	......ugtk::tree_set_icon(gtksho
16e0	77 28 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 29 2c 20 24 74 69 74 6c 65 2c 20 24 69 63 6f 6e	w($hw_class_item),.$title,.$icon
1700	29 3b 0a 09 20 20 20 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 2d 3e 73 65 74 5f 73 75 62 74 72	);.....$hw_class_item->set_subtr
1720	65 65 28 24 68 77 5f 63 6c 61 73 73 5f 74 72 65 65 29 3b 0a 09 20 20 20 24 68 77 5f 63 6c 61 73	ee($hw_class_tree);.....$hw_clas
1740	73 5f 69 74 65 6d 2d 3e 65 78 70 61 6e 64 20 75 6e 6c 65 73 73 20 28 24 74 69 74 6c 65 20 3d 7e	s_item->expand.unless.($title.=~
1760	20 2f 55 6e 6b 6e 6f 77 6e 2f 00 29 3b 0a 0a 09 20 20 20 66 6f 72 65 61 63 68 20 28 40 64 65 76	./Unknown/.);......foreach.(@dev
1780	69 63 65 73 29 20 7b 0a 09 09 20 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 62 75 73 7d	ices).{.....if.(exists.$_->{bus}
17a0	20 26 26 20 24 5f 2d 3e 7b 62 75 73 7d 20 65 71 20 22 50 43 49 22 29 20 7b 0a 09 09 09 20 6d 79	.&&.$_->{bus}.eq."PCI").{.....my
17c0	20 24 69 20 3d 20 24 5f 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f 69 64 7d 20 3d 20 6a 6f 69	.$i.=.$_;.....$_->{bus_id}.=.joi
17e0	6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 69 66 5f 28 24 69 2d 3e 7b 24 5f 7d 20 6e 65 20 22 36 35	n.':',.map.{.if_($i->{$_}.ne."65
1800	35 33 35 22 2c 20 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 29	535",..sprintf("%lx",.$i->{$_}))
1820	20 7d 20 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 29	.}.qw(vendor.id.subvendor.subid)
1840	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 6a 6f 69 6e 20	;.....$_->{bus_location}.=.join.
1860	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 69 2d 3e 7b 24	':',.map.{.sprintf("%lx",.$i->{$
1880	5f 7d 20 29 20 7d 20 71 77 28 70 63 69 5f 62 75 73 20 70 63 69 5f 64 65 76 69 63 65 20 70 63 69	_}.).}.qw(pci_bus.pci_device.pci
18a0	5f 66 75 6e 63 74 69 6f 6e 29 3b 0a 09 09 20 20 7d 0a 09 09 20 20 23 20 73 70 6c 69 74 20 64 65	_function);.....}.....#.split.de
18c0	73 63 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	scription.into.manufacturer/desc
18e0	72 69 70 74 69 6f 6e 0a 09 09 20 20 28 24 5f 2d 3e 7b 56 65 6e 64 6f 72 7d 2c 20 24 5f 2d 3e 7b	ription.....($_->{Vendor},.$_->{
1900	64 65 73 63 72 69 70 74 69 6f 6e 7d 29 20 3d 20 73 70 6c 69 74 28 2f 5c 7c 2f 2c 24 5f 2d 3e 7b	description}).=.split(/\|/,$_->{
1920	64 65 73 63 72 69 70 74 69 6f 6e 7d 29 20 69 66 20 65 78 69 73 74 73 20 24 5f 2d 3e 7b 64 65 73	description}).if.exists.$_->{des
1940	63 72 69 70 74 69 6f 6e 7d 3b 0a 09 09 20 20 0a 09 09 20 20 69 66 20 28 65 78 69 73 74 73 20 24	cription};..........if.(exists.$
1960	5f 2d 3e 7b 76 61 6c 7d 29 20 7b 20 23 20 53 63 61 6e 6e 65 72 20 3f 0a 09 09 09 20 20 6d 79 20	_->{val}).{.#.Scanner.?......my.
1980	24 76 61 6c 20 3d 20 24 5f 2d 3e 7b 76 61 6c 7d 3b 0a 09 09 09 20 20 28 24 5f 2d 3e 7b 56 65 6e	$val.=.$_->{val};......($_->{Ven
19a0	64 6f 72 7d 2c 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 20 3d 20 73 70 6c 69 74 28	dor},$_->{description}).=.split(
19c0	2f 5c 7c 2f 2c 20 24 76 61 6c 2d 3e 7b 44 45 53 43 52 49 50 54 49 4f 4e 7d 29 3b 0a 09 09 20 20	/\|/,.$val->{DESCRIPTION});.....
19e0	7d 0a 09 09 20 20 23 20 45 49 44 45 20 64 65 74 65 63 74 69 6f 6e 20 69 6e 63 6f 68 65 72 65 6e	}.....#.EIDE.detection.incoheren
1a00	63 79 3a 0a 09 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	cy:.....if.(exists.$_->{bus}.&&.
1a20	24 5f 2d 3e 7b 62 75 73 7d 20 65 71 20 27 69 64 65 27 29 20 7b 0a 09 09 09 20 24 5f 2d 3e 7b 63	$_->{bus}.eq.'ide').{.....$_->{c
1a40	68 61 6e 6e 65 6c 7d 20 3d 20 5f 28 24 5f 2d 3e 7b 63 68 61 6e 6e 65 6c 7d 20 3f 20 22 73 65 63	hannel}.=._($_->{channel}.?."sec
1a60	6f 6e 64 61 72 79 22 20 3a 20 22 70 72 69 6d 61 72 79 22 29 3b 0a 09 09 09 64 65 6c 65 74 65 20	ondary".:."primary");....delete.
1a80	24 5f 2d 3e 7b 69 6e 66 6f 7d 3b 0a 09 09 20 20 7d 20 65 6c 73 69 66 20 28 28 65 78 69 73 74 73	$_->{info};.....}.elsif.((exists
1aa0	20 24 5f 2d 3e 7b 69 64 7d 29 20 26 26 20 28 24 5f 2d 3e 7b 62 75 73 7d 20 6e 65 20 27 50 43 49	.$_->{id}).&&.($_->{bus}.ne.'PCI
1ac0	27 29 29 20 7b 0a 09 09 09 20 23 20 53 43 53 49 20 64 65 74 65 63 74 69 6f 6e 20 69 6e 63 6f 68	')).{.....#.SCSI.detection.incoh
1ae0	65 72 65 6e 63 79 3a 0a 09 09 09 20 6d 79 20 24 69 20 3d 20 24 5f 3b 0a 09 09 09 20 24 5f 2d 3e	erency:.....my.$i.=.$_;.....$_->
1b00	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.{
1b20	20 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	.sprintf("%lx",.$i->{$_}.).}.qw(
1b40	62 75 73 20 69 64 29 3b 0a 09 09 20 20 7d 0a 09 09 20 20 69 66 20 28 24 49 64 65 6e 74 20 65 71	bus.id);.....}.....if.($Ident.eq
1b60	20 22 41 55 44 49 4f 22 29 20 7b 0a 09 09 09 20 6d 79 20 24 61 6c 74 65 72 20 3d 20 68 61 72 64	."AUDIO").{.....my.$alter.=.hard
1b80	64 72 61 6b 65 3a 3a 73 6f 75 6e 64 3a 3a 67 65 74 5f 61 6c 74 65 72 6e 61 74 69 76 65 28 24 5f	drake::sound::get_alternative($_
1ba0	2d 3e 7b 64 72 69 76 65 72 7d 29 3b 0a 09 09 09 20 24 5f 2d 3e 7b 61 6c 74 65 72 6e 61 74 69 76	->{driver});.....$_->{alternativ
1bc0	65 5f 64 72 69 76 65 72 73 7d 20 3d 20 6a 6f 69 6e 28 27 3a 27 2c 20 40 24 61 6c 74 65 72 29 20	e_drivers}.=.join(':',.@$alter).
1be0	69 66 20 24 61 6c 74 65 72 2d 3e 5b 30 5d 20 6e 65 20 27 75 6e 6b 6e 6f 77 6e 27 3b 0a 09 09 20	if.$alter->[0].ne.'unknown';....
1c00	20 7d 0a 09 09 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	.}.....foreach.my.$i.(qw(vendor.
1c20	69 64 20 73 75 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	id.subvendor.subid.pci_bus.pci_d
1c40	65 76 69 63 65 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	evice.pci_function.MOUSETYPE.XMO
1c60	55 53 45 54 59 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 20	USETYPE.unsafe.val.devfs_prefix.
1c80	77 61 63 6f 6d 20 61 75 78 6d 6f 75 73 65 29 29 20 7b 20 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 24	wacom.auxmouse)).{.delete.$_->{$
1ca0	69 7d 20 7d 0a 09 09 20 20 6d 79 20 24 68 77 5f 69 74 65 6d 20 3d 20 6e 65 77 20 47 74 6b 3a 3a	i}.}.....my.$hw_item.=.new.Gtk::
1cc0	54 72 65 65 49 74 65 6d 28 64 65 66 69 6e 65 64 28 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 29 20 3f	TreeItem(defined($_->{device}).?
1ce0	20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 20 3a 0a 09 09 09 09 28 64 65 66 69 6e 65 64 28 24 5f 2d	.$_->{device}.:.....(defined($_-
1d00	3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 20 3f 20 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69	>{description}).?.$_->{descripti
1d20	6f 6e 7d 20 3a 20 24 74 69 74 6c 65 29 29 3b 0a 09 09 20 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d	on}.:.$title));.....$_->{device}
1d40	20 3d 20 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 74	.=.'/dev/'.$_->{device}.if.exist
1d60	73 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3b 0a 09 09 20 20 24 68 77 5f 63 6c 61 73 73 5f 74 72	s.$_->{device};.....$hw_class_tr
1d80	65 65 2d 3e 61 70 70 65 6e 64 28 67 74 6b 65 78 70 61 6e 64 28 67 74 6b 73 68 6f 77 28 24 68 77	ee->append(gtkexpand(gtkshow($hw
1da0	5f 69 74 65 6d 29 29 29 3b 0a 09 09 20 20 6d 79 20 24 64 61 74 61 20 3d 20 24 5f 3b 0a 09 09 20	_item)));.....my.$data.=.$_;....
1dc0	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 74 72	.$hw_item->signal_handlers_destr
1de0	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 6e 65	oy();.....$hw_item->signal_conne
1e00	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 61 74	ct(select.=>.sub.{.....$_.=.$dat
1e20	61 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 68 69 64 65 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 62	a;.....$text->hide;.....$text->b
1e40	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)
1e60	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 20 25	;.....foreach.my.$i.(sort.keys.%
1e80	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 20 24 74 65 78	$_).{.....$text->insert("",.$tex
1ea0	74 2d 3e 73 74 79 6c 65 2d 3e 62 6c 61 63 6b 2c 20 22 22 2c 20 28 24 66 69 65 6c 64 73 7b 24 69	t->style->black,."",.($fields{$i
1ec0	7d 5b 30 5d 20 3f 20 24 66 69 65 6c 64 73 7b 24 69 7d 5b 30 5d 20 3a 20 24 69 29 20 2e 20 22 3a	}[0].?.$fields{$i}[0].:.$i)...":
1ee0	20 22 29 3b 0a 09 09 09 09 69 66 20 28 24 69 20 65 71 20 27 64 72 69 76 65 72 27 20 26 26 20 24	.");.....if.($i.eq.'driver'.&&.$
1f00	5f 2d 3e 7b 24 69 7d 20 65 71 20 27 75 6e 6b 6e 6f 77 6e 27 29 20 7b 0a 09 09 09 09 20 20 20 20	_->{$i}.eq.'unknown').{.........
1f20	24 74 65 78 74 2d 3e 69 6e 73 65 72 74 28 22 22 2c 20 24 77 63 6f 6c 6f 72 2c 20 22 22 2c 20 22	$text->insert("",.$wcolor,."",."
1f40	24 5f 2d 3e 7b 24 69 7d 5c 6e 5c 6e 22 29 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 20 24 74 65	$_->{$i}\n\n");.....}.else.{.$te
1f60	78 74 2d 3e 69 6e 73 65 72 74 28 22 22 2c 20 24 63 6f 6c 6f 72 2c 20 22 22 2c 20 22 24 5f 2d 3e	xt->insert("",.$color,."",."$_->
1f80	7b 24 69 7d 5c 6e 5c 6e 22 29 20 7d 0a 09 09 09 20 7d 0a 09 09 09 20 64 69 73 63 6f 6e 6e 65 63	{$i}\n\n").}.....}.....disconnec
1fa0	74 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2c 20 27 6d 6f 64 75 6c 65 27 29 3b	t($module_cfg_button,.'module');
1fc0	0a 09 09 09 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 26 26 20	.....if.(exists.$_->{driver}.&&.
1fe0	20 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 20 21 7e 20 2f 28 75 6e 6b 6e 6f 77 6e 7c 2e 2a 5c 7c 2e	.$_->{driver}.!~./(unknown|.*\|.
2000	2a 29 2f 20 26 26 20 20 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 20 21 7e 20 2f 5e 43 61 72 64 3a 2f	*)/.&&..$_->{driver}.!~./^Card:/
2020	29 20 7b 0a 09 09 09 09 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77	).{.....$module_cfg_button->show
2040	3b 0a 09 09 09 09 24 49 44 73 7b 6d 6f 64 75 6c 65 7d 20 3d 20 24 6d 6f 64 75 6c 65 5f 63 66 67	;.....$IDs{module}.=.$module_cfg
2060	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 64 20	_button->signal_connect(clicked.
2080	3d 3e 20 73 75 62 20 7b 0a 09 09 09 09 20 20 20 20 72 65 71 75 69 72 65 20 6d 6f 64 75 6c 65 73	=>.sub.{.........require.modules
20a0	3b 0a 09 09 09 09 20 20 20 20 6d 6f 64 75 6c 65 73 3a 3a 6d 65 72 67 65 69 6e 5f 63 6f 6e 66 28	;.........modules::mergein_conf(
20c0	27 2f 65 74 63 2f 6d 6f 64 75 6c 65 73 2e 63 6f 6e 66 27 29 3b 0a 09 09 09 09 20 20 20 20 6d 79	'/etc/modules.conf');.........my
20e0	20 25 63 6f 6e 66 20 3d 20 6d 6f 64 75 6c 65 73 3a 3a 67 65 74 5f 70 61 72 61 6d 65 74 65 72 73	.%conf.=.modules::get_parameters
2100	28 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 29 3b 0a 09 09 09 09 20 20 20 20 72 65 71 75 69 72 65 20	($_->{driver});.........require.
2120	6d 6f 64 70 61 72 6d 3b 0a 09 09 09 09 20 20 20 20 6d 79 20 40 6c 3b 0a 09 09 09 09 20 20 20 20	modparm;.........my.@l;.........
2140	66 6f 72 65 61 63 68 20 28 6d 6f 64 70 61 72 6d 3a 3a 70 61 72 61 6d 65 74 65 72 73 28 24 5f 2d	foreach.(modparm::parameters($_-
2160	3e 7b 64 72 69 76 65 72 7d 29 29 20 7b 0a 09 09 09 09 09 20 20 20 6d 79 20 28 24 6e 61 6d 65 2c	>{driver})).{.........my.($name,
2180	20 24 66 6f 72 6d 61 74 2c 20 24 64 65 73 63 72 69 70 74 69 6f 6e 29 20 3d 20 40 24 5f 3b 0a 09	.$format,.$description).=.@$_;..
21a0	09 09 09 09 20 20 20 70 75 73 68 20 40 6c 2c 20 7b 20 6c 61 62 65 6c 20 3d 3e 20 24 6e 61 6d 65	.......push.@l,.{.label.=>.$name
21c0	2c 20 68 65 6c 70 20 3d 3e 20 22 24 64 65 73 63 72 69 70 74 69 6f 6e 5c 6e 5b 24 66 6f 72 6d 61	,.help.=>."$description\n[$forma
21e0	74 5d 22 2c 20 76 61 6c 20 3d 3e 20 5c 24 63 6f 6e 66 7b 24 6e 61 6d 65 7d 20 7d 3b 0a 09 09 09	t]",.val.=>.\$conf{$name}.};....
2200	09 20 20 20 20 7d 0a 09 09 09 09 20 20 20 20 69 66 20 28 24 69 6e 2d 3e 61 73 6b 5f 66 72 6f 6d	.....}.........if.($in->ask_from
2220	28 22 4d 6f 64 75 6c 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 2c 20 5f 28 22 59 6f 75 20	("Module.configuration",._("You.
2240	63 61 6e 20 63 6f 6e 66 69 67 75 72 65 20 65 61 63 68 20 70 61 72 61 6d 65 74 65 72 20 6f 66 20	can.configure.each.parameter.of.
2260	74 68 65 20 6d 6f 64 75 6c 65 20 68 65 72 65 2e 22 29 2c 20 5c 40 6c 29 29 20 7b 0a 09 09 09 09	the.module.here."),.\@l)).{.....
2280	09 20 20 20 6d 79 20 24 6f 70 74 69 6f 6e 73 20 3d 20 6a 6f 69 6e 28 27 20 27 2c 20 6d 61 70 20	....my.$options.=.join('.',.map.
22a0	7b 20 69 66 5f 28 24 63 6f 6e 66 7b 24 5f 7d 2c 20 22 24 5f 3d 24 63 6f 6e 66 7b 24 5f 7d 22 29	{.if_($conf{$_},."$_=$conf{$_}")
22c0	20 7d 20 6b 65 79 73 20 25 63 6f 6e 66 29 3b 0a 09 09 09 09 09 20 20 20 69 66 20 28 24 6f 70 74	.}.keys.%conf);.........if.($opt
22e0	69 6f 6e 73 29 20 7b 0a 09 09 09 09 09 09 20 20 6d 6f 64 75 6c 65 73 3a 3a 73 65 74 5f 6f 70 74	ions).{.........modules::set_opt
2300	69 6f 6e 73 28 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 2c 20 24 6f 70 74 69 6f 6e 73 29 3b 0a 09 09	ions($_->{driver},.$options);...
2320	09 09 09 09 20 20 6d 6f 64 75 6c 65 73 3a 3a 77 72 69 74 65 5f 63 6f 6e 66 3b 0a 09 09 09 09 09	......modules::write_conf;......
2340	20 20 20 7d 0a 09 09 09 09 20 20 20 20 7d 0a 09 09 09 09 20 20 20 20 67 74 6b 73 65 74 5f 6d 6f	...}.........}.........gtkset_mo
2360	75 73 65 63 75 72 73 6f 72 5f 6e 6f 72 6d 61 6c 28 29 3b 0a 09 09 09 09 7d 29 3b 0a 09 09 09 20	usecursor_normal();.....});.....
2380	7d 0a 09 09 09 20 64 69 73 63 6f 6e 6e 65 63 74 28 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c	}.....disconnect($config_button,
23a0	20 27 74 6f 6f 6c 27 29 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 73 68 6f 77 3b 0a 09 09 09 20 72	.'tool');.....$text->show;.....r
23c0	65 74 75 72 6e 20 75 6e 6c 65 73 73 20 2d 78 20 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 3b 0a 09	eturn.unless.-x.$configurator;..
23e0	09 09 20 24 49 44 73 7b 74 6f 6f 6c 7d 20 3d 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e	...$IDs{tool}.=.$config_button->
2400	73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 63 6c 69 63 6b 65 64 20 3d 3e 20 73 75 62 20 7b 0a	signal_connect(clicked.=>.sub.{.
2420	09 09 09 09 72 65 74 75 72 6e 20 69 66 20 64 65 66 69 6e 65 64 20 24 70 69 64 3b 0a 09 09 09 09	....return.if.defined.$pid;.....
2440	69 66 20 28 24 70 69 64 20 3d 20 66 6f 72 6b 28 29 29 20 7b 0a 09 09 09 09 20 20 20 20 24 73 69	if.($pid.=.fork()).{.........$si
2460	67 5f 69 64 20 3d 20 24 73 74 61 74 75 73 62 61 72 2d 3e 70 75 73 68 28 24 73 74 61 74 75 73 62	g_id.=.$statusbar->push($statusb
2480	61 72 2d 3e 67 65 74 5f 63 6f 6e 74 65 78 74 5f 69 64 28 22 69 64 22 29 2c 20 5f 28 22 52 75 6e	ar->get_context_id("id"),._("Run
24a0	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 6f 72 29	ning.\"%s\"....",.$configurator)
24c0	29 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 20 65 78 65 63 28 24 63 6f 6e 66 69 67 75 72 61 74	);.....}.else.{.exec($configurat
24e0	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 69 73 73 69 6e	or).or.die."$configurator.missin
2500	67 5c 6e 22 20 7d 0a 09 09 09 20 7d 29 20 3b 0a 09 09 09 20 24 63 6f 6e 66 69 67 5f 62 75 74 74	g\n".}.....}).;.....$config_butt
2520	6f 6e 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 7d 29 3b 0a 09 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20	on->show;.....});.....}.....}...
2540	20 20 0a 20 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 65 66 20	.......$SIG{CHLD}.=.sub.{.undef.
2560	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 29 20 7d	$pid;.$statusbar->pop($sig_id).}
2580	3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 20	;.....$main_win->signal_connect.
25a0	28 64 65 6c 65 74 65 5f 65 76 65 6e 74 20 3d 3e 20 5c 26 71 75 69 74 5f 67 6c 6f 62 61 6c 29 3b	(delete_event.=>.\&quit_global);
25c0	0a 20 20 20 20 75 6e 64 65 66 20 24 77 61 69 74 3b 0a 20 20 20 20 67 74 6b 73 65 74 5f 6d 6f 75	.....undef.$wait;.....gtkset_mou
25e0	73 65 63 75 72 73 6f 72 5f 6e 6f 72 6d 61 6c 28 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e	secursor_normal();.....$main_win
2600	2d 3e 73 65 74 5f 70 6f 73 69 74 69 6f 6e 28 27 63 65 6e 74 65 72 27 29 20 75 6e 6c 65 73 73 20	->set_position('center').unless.
2620	24 3a 3a 69 73 45 6d 62 65 64 64 65 64 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 73 75 62 74 72 65 65	$::isEmbedded;.....$main_subtree
2640	2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 68 6f 77 5f 61 6c 6c 28	->show;.....$main_win->show_all(
2660	29 3b 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
2680	6f 6e 2c 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 29 20 7b 20 24 5f 2d 3e 68 69 64 65 20 7d	on,.$config_button).{.$_->hide.}
26a0	3b 0a 20 20 20 20 24 77 2d 3e 6d 61 69 6e 3b 0a 7d 0a 0a 0a 73 75 62 20 71 75 69 74 5f 67 6c 6f	;.....$w->main;.}...sub.quit_glo
26c0	62 61 6c 20 7b 0a 20 20 20 20 6b 69 6c 6c 28 31 35 2c 20 24 70 69 64 29 20 69 66 20 28 24 70 69	bal.{.....kill(15,.$pid).if.($pi
26e0	64 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 64 65 73 74 72 6f 79 3b 0a 20 20 20 20	d);.....$main_win->destroy;.....
2700	24 69 6e 2d 3e 65 78 69 74 3b 0a 7d 0a 0a 73 75 62 20 64 69 73 63 6f 6e 6e 65 63 74 20 7b 0a 20	$in->exit;.}..sub.disconnect.{..
2720	20 20 20 6d 79 20 28 24 62 75 74 74 6f 6e 2c 20 24 69 64 29 20 3d 20 40 5f 3b 0a 20 20 20 20 69	...my.($button,.$id).=.@_;.....i
2740	66 20 28 24 49 44 73 7b 24 69 64 7d 29 20 7b 0a 09 20 20 20 24 62 75 74 74 6f 6e 2d 3e 73 69 67	f.($IDs{$id}).{.....$button->sig
2760	6e 61 6c 5f 64 69 73 63 6f 6e 6e 65 63 74 28 24 49 44 73 7b 24 69 64 7d 29 3b 0a 09 20 20 20 24	nal_disconnect($IDs{$id});.....$
2780	62 75 74 74 6f 6e 2d 3e 68 69 64 65 3b 0a 09 20 20 20 75 6e 64 65 66 20 24 49 44 73 7b 24 69 64	button->hide;.....undef.$IDs{$id
27a0	7d 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 31 3b 0a	};.....}.}..1;.