blob: 8844e62be42b5709e5570f976c565aa75350c1b4 (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 6d 79 5f 67 74	mmon;.use.interactive;.use.my_gt
0060	6b 20 71 77 28 3a 68 65 6c 70 65 72 73 20 3a 77 72 61 70 70 65 72 73 29 3b 0a 75 73 65 20 75 67	k.qw(:helpers.:wrappers);.use.ug
0080	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 6f 75	tk.qw(:helpers.:wrappers.:variou
00a0	73 29 3b 0a 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	s);...#.{.field.=>.[.short_trans
00c0	6c 61 74 69 6f 6e 2c 20 66 75 6c 6c 5f 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 7d 0a 6d 79 20 25	lation,.full_description].}.my.%
00e0	66 69 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	fields.=......(.."Model".=>.[_("
0100	4d 6f 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	Model"),._("hard.disk.model")],.
0120	09 22 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	."channel".=>.[_("Channel"),._("
0140	45 49 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	EIDE/SCSI.channel")],.."bus".=>.
0160	0a 09 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	..[._("Bus"),....._("this.is.the
0180	20 70 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	.physical.bus.on.which.the.devic
01a0	65 20 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	e.is.plugged.(eg:.PCI,.USB,....)
01c0	22 29 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	")],.."driver".=>.[._("Module"),
01e0	20 5f 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	._("the.module.of.the.GNU/Linux.
0200	6b 65 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	kernel.that.handle.that.device")
0220	5d 2c 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	],.."media_type".=>.[._("Media.c
0240	6c 61 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	lass"),._("class.of.hardware.dev
0260	69 63 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	ice")],.."description".=>.[._("D
0280	65 73 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	escription"),._("this.field.desc
02a0	72 69 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	ribe.the.device")],.."bus_id".=>
02c0	20 0a 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	...[._("Bus.identification"),...
02e0	20 20 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	.._("-.PCI.and.USB.devices.:.thi
0300	73 20 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	s.list.the.vendor,.device,.subve
0320	6e 64 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	ndor.and.subdevice.PCI/USB.ids")
0340	5d 2c 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	],.."bus_location".=>...[._("Loc
0360	61 74 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	ation.on.the.bus"),....._("-.pci
0380	20 64 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	.devices:.this.gives.the.PCI.slo
03a0	74 2c 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	t,.device.and.function.of.this.c
03c0	61 72 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	ard.-.eide.devices:.the.device.i
03e0	73 20 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	s.either.a.slave.or.a.master.dev
0400	69 63 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	ice.-.scsi.devices:.the.scsi.bus
0420	20 61 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	.and.the.scsi.device.ids")],.."d
0440	65 76 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	evice".=>.[._("Old.device.file")
0460	2c 0a 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	,........_("old.static.device.na
0480	6d 65 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	me.used.in.dev.package")],.."dev
04a0	66 73 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	fs_device".=>.[._("New.devfs.dev
04c0	69 63 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	ice"),........_("new.dinamic.dev
04e0	69 63 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	ice.name.generated.by.incore.ker
0500	6e 65 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	nel.devfs")],.."nbuttons".=>.[._
0520	28 22 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	("Number.of.buttons"),."the.numb
0540	65 72 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	er.of.buttons.the.mouse.have"],.
0560	09 22 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	."Vendor".=>.[._("Vendor"),._("t
0580	68 65 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	he.vendor.name.of.the.device")].
05a0	09 29 3b 0a 0a 0a 6f 75 72 20 24 6c 69 63 65 6e 73 65 20 3d 27 43 6f 70 79 72 69 67 68 74 20 28	.);...our.$license.='Copyright.(
05c0	43 29 20 31 39 39 39 2d 32 30 30 32 20 4d 61 6e 64 72 61 6b 65 53 6f 66 74 20 62 79 20 74 76 69	C).1999-2002.MandrakeSoft.by.tvi
05e0	67 6e 61 75 64 40 6d 61 6e 64 72 61 6b 65 73 6f 66 74 2e 63 6f 6d 0a 0a 54 68 69 73 20 70 72 6f	gnaud@mandrakesoft.com..This.pro
0600	67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72	gram.is.free.software;.you.can.r
0620	65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 69 74 20	edistribute.it.and/or.modify.it.
0640	75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72	under.the.terms.of.the.GNU.Gener
0660	61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62	al.Public.License.as.published.b
0680	79 0a 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20	y.the.Free.Software.Foundation;.
06a0	65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 2c 20 6f 72 20 28 61 74 20 79 6f 75 72 20 6f 70	either.version.2,.or.(at.your.op
06c0	74 69 6f 6e 29 0a 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 54 68 69 73 20 70	tion).any.later.version...This.p
06e0	72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70	rogram.is.distributed.in.the.hop
0700	65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 62 75 74 20 57 49	e.that.it.will.be.useful,.but.WI
0720	54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e	THOUT.ANY.WARRANTY;.without.even
0740	20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 4d 45 52 43 48 41 4e	.the.implied.warranty.of.MERCHAN
0760	54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43	TABILITY.or.FITNESS.FOR.A.PARTIC
0780	55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 47 4e 55 20 47 65 6e 65 72	ULAR.PURPOSE...See.the.GNU.Gener
07a0	61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69	al.Public.License.for.more.detai
07c0	6c 73 2e 0a 0a 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20	ls...You.should.have.received.a.
07e0	63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c	copy.of.the.GNU.General.Public.L
0800	69 63 65 6e 73 65 0a 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 3b 20	icense.along.with.this.program;.
0820	69 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61	if.not,.write.to.the.Free.Softwa
0840	72 65 0a 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 54 65 6d 70 6c 65 20 50	re.Foundation,.Inc.,.59.Temple.P
0860	6c 61 63 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 20 42 6f 73 74 6f 6e 2c 20 4d 41 20 30 32 31	lace.-.Suite.330,.Boston,.MA.021
0880	31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 27 3b 0a 0a 6d 79 20 28 24 69 6e 2c 20 24 6d 61 69 6e	11-1307,.USA..';..my.($in,.$main
08a0	5f 77 69 6e 2c 20 25 49 44 73 29 3b 0a 0a 6d 79 20 40 6d 65 6e 75 5f 69 74 65 6d 73 20 3d 20 28	_win,.%IDs);..my.@menu_items.=.(
08c0	20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 46 69 6c 65 22 29 2c 20 74 79 70 65 20 3d 3e 20	.{.path.=>._("/_File"),.type.=>.
08e0	27 3c 42 72 61 6e 63 68 3e 27 20 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f	'<Branch>'.},........{.path.=>._
0900	28 22 2f 5f 46 69 6c 65 22 29 2e 5f 28 22 2f 5f 51 75 69 74 22 29 2c 20 61 63 63 65 6c 65 72 61	("/_File")._("/_Quit"),.accelera
0920	74 6f 72 20 3d 3e 20 5f 28 22 3c 63 6f 6e 74 72 6f 6c 3e 51 22 29 2c 20 63 61 6c 6c 62 61 63 6b	tor.=>._("<control>Q"),.callback
0940	20 3d 3e 20 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	.=>.\&quit_global.},........{.pa
0960	74 68 20 3d 3e 20 5f 28 22 2f 5f 48 65 6c 70 22 29 2c 74 79 70 65 20 3d 3e 20 27 3c 42 72 61 6e	th.=>._("/_Help"),type.=>.'<Bran
0980	63 68 3e 27 20 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 48 65	ch>'.},........{.path.=>._("/_He
09a0	6c 70 22 29 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	lp")._("/_Help..."),.callback.=>
09c0	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 28 22 48	.sub.{........$in->ask_warn(_("H
09e0	61 72 64 64 72 61 6b 65 20 68 65 6c 70 22 29 2c 20 0a 09 09 09 09 09 09 09 20 20 5f 28 22 44 65	arddrake.help"),..........._("De
0a00	73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 65 6c 64 73 3a 5c 6e 5c 6e 22 29 0a 09	scription.of.the.fields:\n\n")..
0a20	09 09 09 09 09 09 20 20 2e 20 6a 6f 69 6e 28 22 5c 6e 5c 6e 22 2c 20 6d 61 70 20 7b 20 22 24 66	..........join("\n\n",.map.{."$f
0a40	69 65 6c 64 73 7b 24 5f 7d 5b 30 5d 3a 20 24 66 69 65 6c 64 73 7b 24 5f 7d 5b 31 5d 22 7d 20 6b	ields{$_}[0]:.$fields{$_}[1]"}.k
0a60	65 79 73 20 25 66 69 65 6c 64 73 29 29 3b 0a 09 09 09 20 20 20 20 7d 0a 09 09 09 20 20 7d 2c 0a	eys.%fields));........}......},.
0a80	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 2e 5f 28 22	.......{.path.=>._("/_Help")._("
0aa0	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 20 73 75 62 20 7b 0a	/_About..."),.callback.=>.sub.{.
0ac0	09 09 09 09 20 20 20 24 69 6e 2d 3e 61 73 6b 5f 77 61 72 6e 28 5f 28 22 41 62 6f 75 74 20 48 61	.......$in->ask_warn(_("About.Ha
0ae0	72 64 64 72 61 6b 65 22 29 2c 20 0a 09 09 09 09 09 09 09 20 20 6a 6f 69 6e 20 28 22 22 2c 20 5f	rddrake"),...........join.("",._
0b00	28 22 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	("This.is.HardDrake,.a.Mandrake.
0b20	68 61 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	hardware.configuration.tool.\nVe
0b40	72 73 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	rsion:"),.".$harddrake::data::ve
0b60	72 73 69 6f 6e 5c 6e 22 2c 20 0a 09 09 09 09 09 09 09 09 20 20 20 5f 28 22 41 75 74 68 6f 72 3a	rsion\n",............._("Author:
0b80	22 29 2c 22 20 54 68 69 65 72 72 79 20 56 69 67 6e 61 75 64 20 3c 74 76 69 67 6e 61 75 64 5c 40	"),".Thierry.Vignaud.<tvignaud\@
0ba0	6d 61 6e 64 72 61 6b 65 73 6f 66 74 2e 63 6f 6d 3e 20 5c 6e 5c 6e 22 20 2c 0a 09 09 09 09 09 09	mandrakesoft.com>.\n\n".,.......
0bc0	09 09 20 20 20 66 6f 72 6d 61 74 41 6c 61 54 65 58 28 24 6c 69 63 65 6e 73 65 29 29 29 3b 0a 09	.....formatAlaTeX($license)));..
0be0	09 09 20 20 20 20 7d 0a 09 09 09 20 20 7d 2c 0a 09 09 09 20 20 20 20 29 3b 0a 0a 73 75 62 20 6e	......}......},........);..sub.n
0c00	65 77 20 7b 0a 20 20 20 20 6d 79 20 28 24 70 69 64 2c 20 24 73 69 67 5f 69 64 29 3b 0a 0a 20 20	ew.{.....my.($pid,.$sig_id);....
0c20	20 20 24 69 6e 20 3d 20 27 69 6e 74 65 72 61 63 74 69 76 65 27 2d 3e 76 6e 65 77 28 27 73 75 27	..$in.=.'interactive'->vnew('su'
0c40	2c 20 27 64 65 66 61 75 6c 74 27 29 3b 0a 20 20 20 20 61 64 64 5f 69 63 6f 6e 5f 70 61 74 68 28	,.'default');.....add_icon_path(
0c60	27 2f 75 73 72 2f 73 68 61 72 65 2f 70 69 78 6d 61 70 73 2f 68 61 72 64 64 72 61 6b 65 32 2f 27	'/usr/share/pixmaps/harddrake2/'
0c80	29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 20 3d 20 24 3a 3a 69 73 45 6d 62 65 64 64 65 64	);.....$main_win.=.$::isEmbedded
0ca0	20 3f 20 6e 65 77 20 47 74 6b 3a 3a 50 6c 75 67 20 28 24 3a 3a 58 49 44 29 20 3a 20 6e 65 77 20	.?.new.Gtk::Plug.($::XID).:.new.
0cc0	47 74 6b 3a 3a 57 69 6e 64 6f 77 20 2d 74 6f 70 6c 65 76 65 6c 3b 0a 20 20 20 20 24 6d 61 69 6e	Gtk::Window.-toplevel;.....$main
0ce0	5f 77 69 6e 2d 3e 73 65 74 5f 74 69 74 6c 65 28 5f 28 22 48 61 72 64 64 72 61 6b 65 32 20 76 65	_win->set_title(_("Harddrake2.ve
0d00	72 73 69 6f 6e 20 22 29 20 2e 20 24 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3a 3a 76 65 72	rsion.")...$harddrake::data::ver
0d20	73 69 6f 6e 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 64 65 66 61 75 6c	sion);.....$main_win->set_defaul
0d40	74 5f 73 69 7a 65 28 37 36 30 2c 20 33 35 30 29 3b 20 23 20 37 36 30 20 73 68 6f 75 6c 64 20 62	t_size(760,.350);.#.760.should.b
0d60	65 20 6f 6b 20 66 6f 72 20 6d 6f 73 74 20 77 6d 20 69 6e 20 38 30 30 78 36 30 30 0a 20 20 20 20	e.ok.for.most.wm.in.800x600.....
0d80	24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 70 6f 6c 69 63 79 28 30 2c 20 31 2c 20 30 29 3b 0a	$main_win->set_policy(0,.1,.0);.
0da0	0a 0a 20 20 20 20 6d 79 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 49 74 65 6d	......my.$widget.=.new.Gtk::Item
0dc0	46 61 63 74 6f 72 79 28 27 47 74 6b 3a 3a 4d 65 6e 75 42 61 72 27 2c 20 27 3c 6d 61 69 6e 3e 27	Factory('Gtk::MenuBar',.'<main>'
0de0	2c 20 6d 79 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 41 63 63	,.my.$accel_group.=.new.Gtk::Acc
0e00	65 6c 47 72 6f 75 70 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	elGroup);.....$widget->create_it
0e20	65 6d 73 28 40 6d 65 6e 75 5f 69 74 65 6d 73 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d	ems(@menu_items);.....$main_win-
0e40	3e 61 64 64 5f 61 63 63 65 6c 5f 67 72 6f 75 70 28 24 61 63 63 65 6c 5f 67 72 6f 75 70 29 3b 20	>add_accel_group($accel_group);.
0e60	23 24 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	#$accel_group->attach($main_win)
0e80	3b 0a 0a 20 20 20 20 67 74 6b 61 64 64 28 24 6d 61 69 6e 5f 77 69 6e 2c 20 6d 79 20 24 6d 61 69	;......gtkadd($main_win,.my.$mai
0ea0	6e 5f 76 62 6f 78 20 3d 20 67 74 6b 61 64 64 28 67 74 6b 61 64 64 28 67 74 6b 61 64 64 28 6e 65	n_vbox.=.gtkadd(gtkadd(gtkadd(ne
0ec0	77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 20 30 29 2c 20 6d 79 20 24 6d 65 6e 75 62 61 72 20 3d	w.Gtk::VBox(0,.0),.my.$menubar.=
0ee0	20 24 77 69 64 67 65 74 2d 3e 67 65 74 5f 77 69 64 67 65 74 28 27 3c 6d 61 69 6e 3e 27 29 29 2c	.$widget->get_widget('<main>')),
0f00	20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 50 61 6e 65 64 29 2c 20 6d 79 20	.$widget.=.new.Gtk::HPaned),.my.
0f20	24 73 74 61 74 75 73 62 61 72 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 53 74 61 74 75 73 62 61 72 29	$statusbar.=.new.Gtk::Statusbar)
0f40	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 61 63	);.....$main_vbox->set_child_pac
0f60	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 72 74	king($statusbar,.0,.0,.0,.'start
0f80	27 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 61	');.....$main_vbox->set_child_pa
0fa0	63 6b 69 6e 67 28 24 6d 65 6e 75 62 61 72 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27	cking($menubar,.0,.0,.0,.'start'
0fc0	29 3b 0a 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 31 28 67 74 6b 61 64 64 28 6e 65	);......$widget->pack1(gtkadd(ne
0fe0	77 20 47 74 6b 3a 3a 46 72 61 6d 65 28 5f 28 22 44 65 74 65 63 74 65 64 20 68 61 72 64 77 61 72	w.Gtk::Frame(_("Detected.hardwar
1000	65 22 29 29 2c 20 63 72 65 61 74 65 53 63 72 6f 6c 6c 65 64 57 69 6e 64 6f 77 28 6d 79 20 24 74	e")),.createScrolledWindow(my.$t
1020	72 65 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 29 29 2c 20 31 2c 20 31 29 3b 0a 20 20	ree.=.new.Gtk::Tree)),.1,.1);...
1040	20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 32 28 6d 79 20 24 76 62 6f 78 20 3d 20 67 74 6b 61	..$widget->pack2(my.$vbox.=.gtka
1060	64 64 28 67 74 6b 61 64 64 28 67 74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 2c 20	dd(gtkadd(gtkadd(new.Gtk::VBox,.
1080	67 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	gtkadd(new.Gtk::Frame(_("Informa
10a0	74 69 6f 6e 73 22 29 29 2c 20 67 74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 2c 20	tions")),.gtkadd(new.Gtk::HBox,.
10c0	63 72 65 61 74 65 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	createScrolledWindow(my.$text.=.
10e0	6e 65 77 20 47 74 6b 3a 3a 54 65 78 74 29 29 29 29 2c 20 6d 79 20 24 6d 6f 64 75 6c 65 5f 63 66	new.Gtk::Text)))),.my.$module_cf
1100	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 6e 28 5f 28 22 43 6f	g_button.=.new.Gtk::Button(_("Co
1120	6e 66 69 67 75 72 65 20 6d 6f 64 75 6c 65 22 29 29 29 2c 20 6d 79 20 24 63 6f 6e 66 69 67 5f 62	nfigure.module"))),.my.$config_b
1140	75 74 74 6f 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 52 75 6e 20 63	utton.=.new.Gtk::Button(_("Run.c
1160	6f 6e 66 69 67 20 74 6f 6f 6c 22 29 29 29 2c 31 2c 31 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e	onfig.tool"))),1,1);.....$vbox->
1180	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 5f 62 75 74 74 6f 6e	set_child_packing($config_button
11a0	2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e	,.0,.0,.0,.'start');.....$vbox->
11c0	73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75	set_child_packing($module_cfg_bu
11e0	74 74 6f 6e 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 29 3b 0a 0a 0a 20 20 20 20 6d	tton,.0,.0,.0,.'start');.......m
1200	79 20 24 77 61 69 74 20 3d 20 24 69 6e 2d 3e 77 61 69 74 5f 6d 65 73 73 61 67 65 28 5f 28 22 50	y.$wait.=.$in->wait_message(_("P
1220	6c 65 61 73 65 20 77 61 69 74 22 29 2c 20 5f 28 22 44 65 74 65 63 74 69 6f 6e 20 69 6e 20 70 72	lease.wait"),._("Detection.in.pr
1240	6f 67 72 65 73 73 22 29 29 3b 0a 0a 20 20 20 20 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 6d 79	ogress"));......$tree->append(my
1260	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 6d 29 3b 0a 0a 20 20	.$root.=.new.Gtk::TreeItem);....
1280	20 20 24 72 6f 6f 74 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 6d 79 20 24 6d 61 69 6e 5f 73 75	..$root->set_subtree(my.$main_su
12a0	62 74 72 65 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 29 3b 0a 20 20 20 20 24 6d 61 69	btree.=.new.Gtk::Tree);.....$mai
12c0	6e 5f 73 75 62 74 72 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	n_subtree->show();..........fore
12e0	61 63 68 20 28 40 68 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	ach.(@harddrake::data::tree){...
1300	20 20 6d 79 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	..my.($Ident,.$title,.$icon,.$co
1320	6e 66 69 67 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	nfigurator,.$detector).=.@$_;...
1340	20 20 6e 65 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	..next.if.(ref($detector).ne."CO
1360	44 45 22 29 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	DE");.#skip.class.witouth.detect
1380	6f 72 0a 09 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	or.....my.@devices.=.&$detector;
13a0	0a 09 20 20 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	.....next.if.(!listlength(@devic
13c0	65 73 29 29 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	es));.#.Skip.empty.class.(no.dev
13e0	69 63 65 73 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	ices).....my.($hw_class_item,.$h
1400	77 5f 63 6c 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	w_class_tree).=.(new.Gtk::TreeIt
1420	65 6d 2c 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 29 3b 0a 09 20 20 20 24 6d 61 69 6e 5f 73 75	em,.new.Gtk::Tree);.....$main_su
1440	62 74 72 65 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	btree->append($hw_class_item);..
1460	20 20 20 24 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	...$hw_class_item->signal_connec
1480	74 28 73 65 6c 65 63 74 20 20 3d 3e 20 73 75 62 20 7b 0a 09 09 20 20 24 74 65 78 74 2d 3e 62 61	t(select..=>.sub.{.....$text->ba
14a0	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 3b	ckward_delete($text->get_point);
14c0	20 23 20 65 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	.#.erase.all.previous.text.....$
14e0	63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 68 69 64 65 3b 0a 09 09 20 20 24 6d 6f 64 75 6c 65	config_button->hide;.....$module
1500	5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 68 69 64 65 3b 0a 09 20 20 20 7d 2c 20 2c 20 22 22 29 3b	_cfg_button->hide;.....},.,."");
1520	0a 09 20 20 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 24 68	..........ugtk::tree_set_icon($h
1540	77 5f 63 6c 61 73 73 5f 69 74 65 6d 2c 20 24 74 69 74 6c 65 2c 20 24 69 63 6f 6e 29 3b 0a 09 20	w_class_item,.$title,.$icon);...
1560	20 20 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 2d 3e 73 68 6f 77 28 29 3b 0a 09 20 20 20 24 68	..$hw_class_item->show();.....$h
1580	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
15a0	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
15c0	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
15e0	2f 00 29 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).{..
1600	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}.&&.$_->{
1620	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 20 3d 20 24 5f 3b	bus}.eq."PCI").{.....my.$i.=.$_;
1640	0a 09 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	.....$_->{bus_id}.=.join.':',.ma
1660	70 20 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	p.{.if_($i->{$_}.ne."65535",..sp
1680	72 69 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	rintf("%lx",.$i->{$_})).}.qw(ven
16a0	64 6f 72 20 69 64 20 73 75 62 76 65 6e 64 6f 72 20 73 75 62 69 64 29 3b 0a 09 09 09 20 24 5f 2d	dor.id.subvendor.subid);.....$_-
16c0	3e 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	>{bus_location}.=.join.':',.map.
16e0	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 20 29 20 7d 20 71 77	{.sprintf("%lx",.$i->{$_}.).}.qw
1700	28 70 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	(pci_bus.pci_device.pci_function
1720	29 3b 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	);.....}.....#.split.description
1740	20 69 6e 74 6f 20 6d 61 6e 75 66 61 63 74 75 72 65 72 2f 64 65 73 63 72 69 70 74 69 6f 6e 0a 09	.into.manufacturer/description..
1760	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 72 69 70 74 69 6f	...($_->{Vendor},$_->{descriptio
1780	6e 7d 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	n})=split(/\|/,$_->{description}
17a0	29 20 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	).if.exists.$_->{description};..
17c0	09 20 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	........if.(exists.$_->{val}).{.
17e0	23 20 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	#.Scanner.?......my.$val.=.$_->{
1800	76 61 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	val};......($_->{Vendor},$_->{de
1820	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 20 24 76 61 6c 2d 3e	scription}).=.split(/\|/,.$val->
1840	7b 44 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	{DESCRIPTION});...}.....#.EIDE.d
1860	65 74 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	etection.incoherency:.....if.(ex
1880	69 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 27	ists.$_->{bus}.&&.$_->{bus}.eq.'
18a0	69 64 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	ide').{.....$_->{channel}.=._($_
18c0	2d 3e 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	->{channel}.?."secondary".:."pri
18e0	6d 61 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	mary");....delete.$_->{info};...
1900	20 20 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	..}.elsif.((exists.$_->{id}).&&.
1920	28 24 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	($_->{bus}.ne.'PCI')).{.....#.SC
1940	53 49 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	SI.detection.incoherency:.....my
1960	20 24 69 20 3d 20 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	.$i.=.$_;.....$_->{bus_location}
1980	20 3d 20 20 6a 6f 69 6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 73 70 72 69 6e 74 66 28 22 25 6c 78	.=..join.':',.map.{.sprintf("%lx
19a0	22 2c 20 24 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	",.$i->{$_}.).}.qw(bus.id);.....
19c0	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 69	}.....foreach.my.$i.(qw(vendor.i
19e0	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 65	d.subvendor.subid.pci_bus.pci_de
1a00	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 55	vice.pci_function.MOUSETYPE.XMOU
1a20	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 77	SETYPE.unsafe.val.devfs_prefix.w
1a40	61 63 6f 6d 20 61 75 78 6d 6f 75 73 65 29 29 20 7b 20 0a 09 09 09 20 64 65 6c 65 74 65 20 24 5f	acom.auxmouse)).{......delete.$_
1a60	2d 3e 7b 24 69 7d 3b 0a 09 09 20 20 7d 0a 09 09 20 20 6d 79 20 24 68 77 5f 69 74 65 6d 20 3d 20	->{$i};.....}.....my.$hw_item.=.
1a80	6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 64 65 66 69 6e 65 64 28 24 5f 2d 3e 7b 64	new.Gtk::TreeItem(defined($_->{d
1aa0	65 76 69 63 65 7d 29 3f 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3a 0a 09 09 09 09 28 64 65 66 69	evice})?.$_->{device}:.....(defi
1ac0	6e 65 64 28 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 3f 24 5f 2d 3e 7b 64 65 73 63	ned($_->{description})?$_->{desc
1ae0	72 69 70 74 69 6f 6e 7d 3a 24 74 69 74 6c 65 29 29 3b 0a 09 09 20 20 24 5f 2d 3e 7b 64 65 76 69	ription}:$title));.....$_->{devi
1b00	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
1b20	74 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	ts.$_->{device};.....$hw_class_t
1b40	72 65 65 2d 3e 61 70 70 65 6e 64 28 24 68 77 5f 69 74 65 6d 29 3b 0a 09 09 20 20 24 68 77 5f 69	ree->append($hw_item);.....$hw_i
1b60	74 65 6d 2d 3e 65 78 70 61 6e 64 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 73 68 6f 77 3b	tem->expand;.....$hw_item->show;
1b80	0a 09 09 20 20 6d 79 20 24 64 61 74 61 20 3d 20 24 5f 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d	.....my.$data.=.$_;.....$hw_item
1ba0	2d 3e 73 69 67 6e 61 6c 5f 68 61 6e 64 6c 65 72 73 5f 64 65 73 74 72 6f 79 28 29 3b 0a 09 09 20	->signal_handlers_destroy();....
1bc0	20 24 68 77 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 65 63 74	.$hw_item->signal_connect(select
1be0	20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 20 24 5f 20 3d 20 24 64 61 74 61 3b 0a 09 09 09 20 24 74	.=>.sub.{.....$_.=.$data;.....$t
1c00	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 6b 77 61 72 64 5f 64	ext->hide;.....$text->backward_d
1c20	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 09 09 09 20 6d 79 20	elete($text->get_point);.....my.
1c40	24 69 20 3d 20 24 5f 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 69 6e 73 65 72 74 28 22 22 2c 22 22	$i.=.$_;.....$text->insert("",""
1c60	2c 22 22 2c 20 6a 6f 69 6e 28 22 5c 6e 22 2c 20 6d 61 70 20 7b 20 28 24 66 69 65 6c 64 73 7b 24	,"",.join("\n",.map.{.($fields{$
1c80	5f 7d 5b 30 5d 20 3f 20 24 66 69 65 6c 64 73 7b 24 5f 7d 5b 30 5d 20 3a 20 24 5f 29 20 2e 20 22	_}[0].?.$fields{$_}[0].:.$_)..."
1ca0	3a 20 24 69 2d 3e 7b 24 5f 7d 5c 6e 22 7d 20 73 6f 72 74 20 6b 65 79 73 20 25 24 69 29 29 3b 0a	:.$i->{$_}\n"}.sort.keys.%$i));.
1cc0	09 09 09 20 64 69 73 63 6f 6e 6e 65 63 74 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f	....disconnect($module_cfg_butto
1ce0	6e 2c 20 27 6d 6f 64 75 6c 65 27 29 3b 0a 09 09 09 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d	n,.'module');.....if.(exists.$_-
1d00	3e 7b 64 72 69 76 65 72 7d 20 26 26 20 20 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 20 6e 65 20 22 75	>{driver}.&&..$_->{driver}.ne."u
1d20	6e 6b 6e 6f 77 6e 22 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	nknown".&&..$_->{driver}.!~./^Ca
1d40	72 64 3a 2f 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	rd:/).{.....$module_cfg_button->
1d60	73 68 6f 77 3b 0a 09 09 09 09 20 24 49 44 73 7b 6d 6f 64 75 6c 65 7d 20 3d 20 24 6d 6f 64 75 6c	show;......$IDs{module}.=.$modul
1d80	65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 63 6c 69	e_cfg_button->signal_connect(cli
1da0	63 6b 65 64 20 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	cked.=>.sub.{.........require.mo
1dc0	64 75 6c 65 73 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	dules;.........modules::mergein_
1de0	63 6f 6e 66 28 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	conf('/etc/modules.conf');......
1e00	20 20 20 6d 79 20 28 40 6c 2c 20 25 63 6f 6e 66 29 3b 0a 09 09 09 09 20 20 20 20 66 6f 72 65 61	...my.(@l,.%conf);.........forea
1e20	63 68 20 28 73 70 6c 69 74 28 27 20 27 2c 6d 6f 64 75 6c 65 73 3a 3a 67 65 74 5f 6f 70 74 69 6f	ch.(split('.',modules::get_optio
1e40	6e 73 28 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 29 29 29 20 7b 0a 09 09 09 09 09 20 20 20 2f 28 2e	ns($_->{driver}))).{........./(.
1e60	2a 29 3d 28 2e 2a 29 2f 3b 0a 09 09 09 09 09 20 20 20 24 63 6f 6e 66 7b 24 31 7d 20 3d 20 24 32	*)=(.*)/;.........$conf{$1}.=.$2
1e80	3b 0a 09 09 09 09 20 20 20 20 7d 3b 0a 09 09 09 09 20 20 20 20 72 65 71 75 69 72 65 20 6d 6f 64	;.........};.........require.mod
1ea0	70 61 72 6d 3b 0a 09 09 09 09 20 20 20 20 66 6f 72 65 61 63 68 20 28 6d 6f 64 70 61 72 6d 3a 3a	parm;.........foreach.(modparm::
1ec0	70 61 72 61 6d 65 74 65 72 73 28 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 29 29 20 7b 0a 09 09 09 09	parameters($_->{driver})).{.....
1ee0	09 20 20 20 6d 79 20 28 24 6e 61 6d 65 2c 20 24 66 6f 72 6d 61 74 2c 20 24 64 65 73 63 72 69 70	....my.($name,.$format,.$descrip
1f00	74 69 6f 6e 29 20 3d 20 40 24 5f 3b 0a 09 09 09 09 09 20 20 20 70 75 73 68 20 40 6c 2c 20 7b 6c	tion).=.@$_;.........push.@l,.{l
1f20	61 62 65 6c 20 3d 3e 20 24 6e 61 6d 65 2c 20 68 65 6c 70 20 3d 3e 20 22 24 64 65 73 63 72 69 70	abel.=>.$name,.help.=>."$descrip
1f40	74 69 6f 6e 5c 6e 5b 24 66 6f 72 6d 61 74 5d 22 20 2c 20 76 61 6c 20 3d 3e 20 5c 24 63 6f 6e 66	tion\n[$format]".,.val.=>.\$conf
1f60	7b 24 6e 61 6d 65 7d 7d 3b 0a 09 09 09 09 20 20 20 20 7d 0a 09 09 09 09 20 20 20 20 69 66 20 28	{$name}};.........}.........if.(
1f80	24 69 6e 2d 3e 61 73 6b 5f 66 72 6f 6d 28 22 4d 6f 64 75 6c 65 20 63 6f 6e 66 69 67 75 72 61 74	$in->ask_from("Module.configurat
1fa0	69 6f 6e 22 2c 20 5f 28 22 59 6f 75 20 63 61 6e 20 63 6f 6e 66 69 67 75 72 65 20 65 61 63 68 20	ion",._("You.can.configure.each.
1fc0	70 61 72 61 6d 65 74 65 72 20 6f 66 20 74 68 65 20 6d 6f 64 75 6c 65 20 68 65 72 65 2e 22 29 2c	parameter.of.the.module.here."),
1fe0	20 5c 40 6c 29 29 0a 09 09 09 09 20 20 20 20 7b 0a 09 09 09 09 09 20 20 20 6d 79 20 24 6f 70 74	.\@l)).........{.........my.$opt
2000	69 6f 6e 73 20 3d 20 6a 6f 69 6e 28 27 20 27 2c 20 6d 61 70 20 7b 20 69 66 5f 28 24 63 6f 6e 66	ions.=.join('.',.map.{.if_($conf
2020	7b 24 5f 7d 2c 20 22 24 5f 3d 24 63 6f 6e 66 7b 24 5f 7d 22 29 20 7d 20 6b 65 79 73 20 25 63 6f	{$_},."$_=$conf{$_}").}.keys.%co
2040	6e 66 29 3b 0a 09 09 09 09 09 20 20 20 69 66 20 28 24 6f 70 74 69 6f 6e 73 29 20 7b 0a 09 09 09	nf);.........if.($options).{....
2060	09 09 09 20 20 6d 6f 64 75 6c 65 73 3a 3a 73 65 74 5f 6f 70 74 69 6f 6e 73 28 24 5f 2d 3e 7b 64	.....modules::set_options($_->{d
2080	72 69 76 65 72 7d 2c 20 24 6f 70 74 69 6f 6e 73 29 3b 0a 09 09 09 09 09 09 20 20 6d 6f 64 75 6c	river},.$options);.........modul
20a0	65 73 3a 3a 77 72 69 74 65 5f 63 6f 6e 66 3b 0a 09 09 09 09 09 20 20 20 7d 0a 09 09 09 09 20 20	es::write_conf;.........}.......
20c0	20 20 7d 0a 09 09 09 09 20 20 20 20 67 74 6b 73 65 74 5f 6d 6f 75 73 65 63 75 72 73 6f 72 5f 6e	..}.........gtkset_mousecursor_n
20e0	6f 72 6d 61 6c 28 29 3b 0a 09 09 09 09 7d 29 3b 0a 09 09 09 20 7d 20 65 6c 73 65 20 7b 20 24 6d	ormal();.....});.....}.else.{.$m
2100	6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 68 69 64 65 20 7d 0a 09 09 09 20 64 69 73	odule_cfg_button->hide.}.....dis
2120	63 6f 6e 6e 65 63 74 28 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 20 27 74 6f 6f 6c 27 29 3b	connect($config_button,.'tool');
2140	0a 09 09 09 20 69 66 20 28 2d 78 20 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 29 20 7b 0a 09 09 09	.....if.(-x.$configurator).{....
2160	09 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 73 69	.$IDs{tool}.=.$config_button->si
2180	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 09 09	gnal_connect(clicked.=>.sub.{...
21a0	09 09 20 20 20 20 69 66 20 28 64 65 66 69 6e 65 64 20 24 70 69 64 29 20 7b 20 72 65 74 75 72 6e	......if.(defined.$pid).{.return
21c0	20 7d 0a 09 09 09 09 20 20 20 20 69 66 20 28 24 70 69 64 20 3d 20 66 6f 72 6b 28 29 29 20 7b 0a	.}.........if.($pid.=.fork()).{.
21e0	09 09 09 09 09 20 20 20 6d 79 20 24 69 64 20 3d 20 24 73 74 61 74 75 73 62 61 72 2d 3e 67 65 74	........my.$id.=.$statusbar->get
2200	5f 63 6f 6e 74 65 78 74 5f 69 64 28 22 69 64 22 29 3b 0a 09 09 09 09 09 20 20 20 24 73 69 67 5f	_context_id("id");.........$sig_
2220	69 64 20 3d 20 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 52 75	id.=.$statusbar->push($id,._("Ru
2240	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 6f 72	nning.\"%s\"....",.$configurator
2260	29 29 3b 0a 09 09 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 20 20 20 65 78 65	));.........}.else.{.........exe
2280	63 28 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	c($configurator).or.die."$config
22a0	75 72 61 74 6f 72 20 6d 69 73 73 69 6e 67 5c 6e 22 3b 0a 09 09 09 09 20 20 20 20 7d 0a 09 09 09	urator.missing\n";.........}....
22c0	09 7d 29 20 3b 0a 09 09 09 09 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 3b 0a	.}).;.....$config_button->show;.
22e0	09 09 09 20 7d 20 65 6c 73 65 20 7b 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 68 69 64	....}.else.{.$config_button->hid
2300	65 20 7d 0a 09 09 09 20 24 74 65 78 74 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 7d 29 3b 0a 09 20 20	e.}.....$text->show;.....});....
2320	20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 0a 20 20 20 20 24 53 49 47 7b 43 48 4c 44 7d 20 3d 20 73	.}.....}..........$SIG{CHLD}.=.s
2340	75 62 20 7b 20 75 6e 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	ub.{.undef.$pid;.$statusbar->pop
2360	28 24 73 69 67 5f 69 64 29 20 7d 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 69 67 6e	($sig_id).};.....$main_win->sign
2380	61 6c 5f 63 6f 6e 6e 65 63 74 20 28 64 65 6c 65 74 65 5f 65 76 65 6e 74 20 3d 3e 20 5c 26 71 75	al_connect.(delete_event.=>.\&qu
23a0	69 74 5f 67 6c 6f 62 61 6c 29 3b 0a 20 20 20 20 75 6e 64 65 66 20 24 77 61 69 74 3b 0a 20 20 20	it_global);.....undef.$wait;....
23c0	20 67 74 6b 73 65 74 5f 6d 6f 75 73 65 63 75 72 73 6f 72 5f 6e 6f 72 6d 61 6c 28 29 3b 0a 20 20	.gtkset_mousecursor_normal();...
23e0	20 20 24 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	..$main_win->set_position('cente
2400	72 27 29 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 29 3b 0a	r');.....$main_win->show_all();.
2420	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 6f 6e 2c	....foreach.($module_cfg_button,
2440	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 3b 0a 20	.$config_button).{.$_->hide.};..
2460	20 20 20 47 74 6b 2d 3e 6d 61 69 6e 3b 0a 7d 0a 0a 0a 73 75 62 20 71 75 69 74 5f 67 6c 6f 62 61	...Gtk->main;.}...sub.quit_globa
2480	6c 20 7b 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	l.{.....$main_win->destroy;.....
24a0	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.{..
24c0	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
24e0	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
2500	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 75	nal_disconnect($IDs{$id});.....u
2520	6e 64 65 66 20 24 49 44 73 7b 24 69 64 7d 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 31 3b 0a	ndef.$IDs{$id};.....}.}..1;.