blob: 6eacab631871c0773567eff49ec70fa86bcb0968 (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 0a 0a 23 20 7b 20	k.qw(:helpers.:wrappers);...#.{.
0080	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
00a0	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 65 6c 64 73 20 3d	ll_description].#.}.my.%fields.=
00c0	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 64 65 6c 22 29 2c	......(.."Model".=>.[_("Model"),
00e0	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 63 68 61 6e 6e 65	._("hard.disk.model")],.."channe
0100	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 44 45 2f 53 43 53	l".=>.[_("Channel"),._("EIDE/SCS
0120	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 5b 20 5f 28 22 42	I.channel")],.."bus".=>...[._("B
0140	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 68 79 73 69 63 61	us"),....._("this.is.the.physica
0160	6c 20 62 75 73 20 6f 6e 20 77 68 69 63 68 20 74 68 65 20 64 65 76 69 63 65 20 69 73 20 70 6c 75	l.bus.on.which.the.device.is.plu
0180	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 5d 2c 0a 09 22 64	gged.(eg:.PCI,.USB,....)")],.."d
01a0	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 28 22 74 68 65 20	river".=>.[._("Module"),._("the.
01c0	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 72 6e 65 6c 20 74	module.of.the.GNU/Linux.kernel.t
01e0	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 0a 09 22 6d 65 64	hat.handle.that.device")],.."med
0200	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 73 73 22 29 2c 20	ia_type".=>.[._("Media.class"),.
0220	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 65 22 29 5d 2c 0a	_("class.of.hardware.device")],.
0240	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 63 72 69 70 74 69	."description".=>.[._("Descripti
0260	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 62 65 20 74 68 65	on"),._("this.field.describe.the
0280	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 09 5b 20 5f 28 22	.device")],.."bus_id".=>...[._("
02a0	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 5f 28 22 2d 20 50	Bus.identification"),....._("-.P
02c0	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 6c 69 73 74 20 74	CI.and.USB.devices.:.this.list.t
02e0	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 6f 72 20 61 6e 64	he.vendor,.device,.subvendor.and
0300	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 0a 09 22 62 75 73	.subdevice.PCI/USB.ids")],.."bus
0320	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 69 6f 6e 20 6f 6e	_location".=>...[._("Location.on
0340	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 65 76 69 63 65 73	.the.bus"),....._("-.pci.devices
0360	3a 20 74 68 69 73 20 67 69 76 65 73 20 74 68 65 20 50 43 49 20 73 6c 6f 74 2c 20 64 65 76 69 63	:.this.gives.the.PCI.slot,.devic
0380	65 20 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 63 61 72 64 0a 2d 20 65 69	e.and.function.of.this.card.-.ei
03a0	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 65 69 74 68 65 72	de.devices:.the.device.is.either
03c0	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 65 0a 2d 20 73 63	.a.slave.or.a.master.device.-.sc
03e0	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 6e 64 20 74 68 65	si.devices:.the.scsi.bus.and.the
0400	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 69 63 65 22 20 3d	.scsi.device.ids")],.."device".=
0420	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 09 09 09 20 20 20	>.[._("Old.device.file"),.......
0440	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 20 75 73 65 64 20	._("old.static.device.name.used.
0460	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 5f 64 65 76 69 63	in.dev.package")],.."devfs_devic
0480	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 65 22 29 2c 20 20	e".=>.[._("New.devfs.device"),..
04a0	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 65 20 6e 61 6d 65	......_("new.dinamic.device.name
04c0	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 6c 20 64 65 76 66	.generated.by.incore.kernel.devf
04e0	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 4e 75 6d 62 65 72	s")],.."nbuttons".=>.[._("Number
0500	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 20 6f 66 20 62 75	.of.buttons"),."the.number.of.bu
0520	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 56 65 6e 64 6f 72	ttons.the.mouse.have"],.."Vendor
0540	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 20 76 65 6e 64 6f	".=>.[._("Vendor"),._("the.vendo
0560	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 3b 0a 0a 0a 6d 79	r.name.of.the.device")]..);...my
0580	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 31 39 39 39 2d 32	.$license.='Copyright.(C).1999-2
05a0	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 75 64 40 6d 61 6e	002.MandrakeSoft.by.tvignaud@man
05c0	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 6d 20 69 73 20 66	drakesoft.com..This.program.is.f
05e0	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 73 74 72 69 62 75	ree.software;.you.can.redistribu
0600	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 65 72 20 74 68 65	te.it.and/or.modify.it.under.the
0620	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 50 75 62 6c 69 63	.terms.of.the.GNU.General.Public
0640	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 68 65 20 46 72 65	.License.as.published.by.the.Fre
0660	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 68 65 72 20 76 65	e.Software.Foundation;.either.ve
0680	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 6e 29 0a 61 6e 79	rsion.2,.or.(at.your.option).any
06a0	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 72 61 6d 20 69 73	.later.version...This.program.is
06c0	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 68 61 74 20 69 74	.distributed.in.the.hope.that.it
06e0	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 55 54 20 41 4e 59	.will.be.useful,.but.WITHOUT.ANY
0700	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 65 20 69 6d 70 6c	.WARRANTY;.without.even.the.impl
0720	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 49 4c 49 54 59 20	ied.warranty.of.MERCHANTABILITY.
0740	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 52 20 50 55 52 50	or.FITNESS.FOR.A.PARTICULAR.PURP
0760	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 50 75 62 6c 69 63	OSE...See.the.GNU.General.Public
0780	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 0a 0a 59 6f 75 20	.License.for.more.details...You.
07a0	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 79 20 6f 66 20 74	should.have.received.a.copy.of.t
07c0	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 0a 61 6c	he.GNU.General.Public.License.al
07e0	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 6e 6f 74 2c 20 77	ong.with.this.program;.if.not,.w
0800	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 46 6f 75 6e 64 61	rite.to.the.Free.Software.Founda
0820	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 65 20 2d 20 53 75	tion,.Inc.,.59.Temple.Place.-.Su
0840	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 31 33 30 37 2c 20	ite.330,.Boston,.MA.02111-1307,.
0860	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 5f 69 74 65 6d 73	USA..';..my.$in;..my.@menu_items
0880	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 2c 20 74 79 70 65	.=.(.{.path.=>._("/_File"),.type
08a0	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.
08c0	3d 3e 20 5f 28 22 2f 5f 46 69 6c 65 22 29 2e 5f 28 22 2f 5f 51 75 69 74 22 29 2c 20 61 63 63 65	=>._("/_File")._("/_Quit"),.acce
08e0	6c 65 72 61 74 6f 72 20 3d 3e 20 5f 28 22 3c 63 6f 6e 74 72 6f 6c 3e 51 22 29 2c 20 63 61 6c 6c	lerator.=>._("<control>Q"),.call
0900	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 09 09 20 20 20 20	back.=>.\&quit_global.},........
0920	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 20 3d 3e 20 27 3c	{.path.=>._("/_Help"),type.=>.'<
0940	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 28 22	Branch>'.},........{.path.=>._("
0960	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 61 6c 6c 62 61 63	/_Help")._("/_Help..."),.callbac
0980	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 5f 77 61 72 6e 28	k.=>.sub.{........$in->ask_warn(
09a0	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 09 09 09 20 20 5f	_("Harddrake.help"),..........._
09c0	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 73 3a 5c 6e 5c 6e	("Description.of.the.fields:\n\n
09e0	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 20 6d 61 70 20 7b	")............join("\n\n",.map.{
0a00	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 24 5f 7d 5b 31 5d	."$fields{$_}[0]:.$fields{$_}[1]
0a20	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 7d 0a 09 09 09 20	"}.keys.%fields));........}.....
0a40	20 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 48 65 6c 70 22 29	.},........{.path.=>._("/_Help")
0a60	2e 5f 28 22 2f 5f 41 62 6f 75 74 2e 2e 2e 22 29 2c 20 63 61 6c 6c 62 61 63 6b 20 3d 3e 20 73 75	._("/_About..."),.callback.=>.su
0a80	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 41 62 6f 75	b.{........$in->ask_warn(_("Abou
0aa0	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 6f 69 6e 20 28 22	t.Harddrake"),...........join.("
0ac0	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 20 4d 61 6e 64 72	",._("This.is.HardDrake,.a.Mandr
0ae0	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 20 74 6f 6f 6c 2e	ake.hardware.configuration.tool.
0b00	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 3a 3a 64 61 74 61	\nVersion:"),.".$harddrake::data
0b20	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 5f 28 22 41 75 74	::version\n",............._("Aut
0b40	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 74 76 69 67 6e 61	hor:"),".Thierry.Vignaud.<tvigna
0b60	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 22 20 2c 0a 09 09	ud\@mandrakesoft.com>.\n\n".,...
0b80	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 65 6e 73 65 29 29	.........formatAlaTeX($license))
0ba0	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 29 3b 0a 0a 73	);........}......},........);..s
0bc0	75 62 20 72 75 6e 20 7b 0a 20 20 20 20 6d 79 20 28 24 63 6c 61 73 73 29 20 3d 20 40 5f 3b 0a 20	ub.run.{.....my.($class).=.@_;..
0be0	20 20 20 69 66 20 28 22 40 41 52 47 56 22 20 3d 7e 20 2f 2d 2d 68 65 6c 70 7c 2d 68 2f 29 20 7b	...if.("@ARGV".=~./--help|-h/).{
0c00	0a 09 20 20 20 70 72 69 6e 74 20 22 48 61 72 64 64 72 61 6b 65 20 32 5c 6e 22 2c 20 24 6c 69 63	.....print."Harddrake.2\n",.$lic
0c20	65 6e 73 65 2c 20 22 5c 6e 55 73 61 67 65 3a 20 68 61 72 64 64 72 61 6b 65 20 5b 2d 68 7c 2d 2d	ense,."\nUsage:.harddrake.[-h|--
0c40	68 65 6c 70 5d 5c 6e 22 3b 0a 09 20 20 20 65 78 69 74 3b 0a 20 20 20 20 7d 0a 20 20 20 20 24 69	help]\n";.....exit;.....}.....$i
0c60	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 2c 20 27 64	n.=.'interactive'->vnew('su',.'d
0c80	65 66 61 75 6c 74 27 29 3b 0a 20 20 20 20 24 3a 3a 69 73 45 6d 62 65 64 64 65 64 20 3d 20 28 24	efault');.....$::isEmbedded.=.($
0ca0	3a 3a 58 49 44 2c 20 24 3a 3a 43 43 50 49 44 29 20 3d 20 22 40 41 52 47 56 22 20 3d 7e 20 2f 2d	::XID,.$::CCPID).=."@ARGV".=~./-
0cc0	2d 65 6d 62 65 64 64 65 64 20 28 5c 77 2b 29 20 28 5c 77 2b 29 2f 3b 0a 20 20 20 20 24 3a 3a 69	-embedded.(\w+).(\w+)/;.....$::i
0ce0	73 53 74 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	sStandalone=1;.....Gtk->init;...
0d00	20 20 6d 79 20 24 77 69 6e 64 6f 77 20 3d 20 24 63 6c 61 73 73 2d 3e 6e 65 77 3b 0a 20 20 20 20	..my.$window.=.$class->new;.....
0d20	47 74 6b 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	Gtk->main;.....$window->destroy;
0d40	0a 7d 0a 0a 0a 73 75 62 20 6e 65 77 20 7b 0a 20 20 20 20 6d 79 20 28 24 70 69 64 2c 20 24 6d 6f	.}...sub.new.{.....my.($pid,.$mo
0d60	64 5f 73 69 67 6e 61 6c 5f 69 64 2c 20 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 2c 20 24 73	d_signal_id,.$tool_signal_id,.$s
0d80	69 67 5f 69 64 29 3b 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	ig_id);......my_gtk::add_icon_pa
0da0	74 68 28 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	th('/usr/share/pixmaps/harddrake
0dc0	32 2f 27 29 3b 0a 20 20 20 20 6d 79 20 24 6d 61 69 6e 5f 77 69 6e 20 3d 20 24 3a 3a 69 73 45 6d	2/');.....my.$main_win.=.$::isEm
0de0	62 65 64 64 65 64 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	bedded.?.new.Gtk::Plug.($::XID).
0e00	3a 20 6e 65 77 20 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	:.new.Gtk::Window.-toplevel;....
0e20	20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 74 69 74 6c 65 28 5f 28 22 48 61 72 64 64 72 61	.$main_win->set_title(_("Harddra
0e40	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 65 3a 3a 64 61 74	ke2.version.")...$harddrake::dat
0e60	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 2d 3e 73 65 74 5f	a::version);.....$main_win->set_
0e80	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 37 36 30 20 73 68	default_size(760,.350);.#.760.sh
0ea0	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 38 30 30 78 36 30	ould.be.ok.for.most.wm.in.800x60
0ec0	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 79 28 30 2c 20 31	0.....$main_win->set_policy(0,.1
0ee0	2c 20 30 20 29 3b 0a 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	,.0.);.......my.$widget.=.new.Gt
0f00	6b 3a 3a 49 74 65 6d 46 61 63 74 6f 72 79 28 20 27 47 74 6b 3a 3a 4d 65 6e 75 42 61 72 27 2c 20	k::ItemFactory(.'Gtk::MenuBar',.
0f20	27 3c 6d 61 69 6e 3e 27 2c 20 6d 79 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 3d 20 6e 65 77 20	'<main>',.my.$accel_group.=.new.
0f40	47 74 6b 3a 3a 41 63 63 65 6c 47 72 6f 75 70 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 63	Gtk::AccelGroup);.....$widget->c
0f60	72 65 61 74 65 5f 69 74 65 6d 73 28 20 40 6d 65 6e 75 5f 69 74 65 6d 73 20 29 3b 0a 20 20 20 20	reate_items(.@menu_items.);.....
0f80	24 6d 61 69 6e 5f 77 69 6e 2d 3e 61 64 64 5f 61 63 63 65 6c 5f 67 72 6f 75 70 28 20 24 61 63 63	$main_win->add_accel_group(.$acc
0fa0	65 6c 5f 67 72 6f 75 70 20 29 3b 20 23 24 61 63 63 65 6c 5f 67 72 6f 75 70 2d 3e 61 74 74 61 63	el_group.);.#$accel_group->attac
0fc0	68 28 24 6d 61 69 6e 5f 77 69 6e 29 3b 0a 0a 20 20 20 20 67 74 6b 61 64 64 28 24 6d 61 69 6e 5f	h($main_win);......gtkadd($main_
0fe0	77 69 6e 2c 20 6d 79 20 24 6d 61 69 6e 5f 76 62 6f 78 20 3d 20 67 74 6b 61 64 64 28 67 74 6b 61	win,.my.$main_vbox.=.gtkadd(gtka
1000	64 64 28 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 20 29 2c 20	dd(gtkadd(new.Gtk::VBox(0,.0.),.
1020	6d 79 20 24 6d 65 6e 75 62 61 72 20 3d 20 24 77 69 64 67 65 74 2d 3e 67 65 74 5f 77 69 64 67 65	my.$menubar.=.$widget->get_widge
1040	74 28 20 27 3c 6d 61 69 6e 3e 27 20 29 29 2c 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74	t(.'<main>'.)),.$widget.=.new.Gt
1060	6b 3a 3a 48 50 61 6e 65 64 29 2c 20 6d 79 20 24 73 74 61 74 75 73 62 61 72 20 3d 20 6e 65 77 20	k::HPaned),.my.$statusbar.=.new.
1080	47 74 6b 3a 3a 53 74 61 74 75 73 62 61 72 29 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78	Gtk::Statusbar));.....$main_vbox
10a0	2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 73 74 61 74 75 73 62 61 72 2c 20	->set_child_packing($statusbar,.
10c0	30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62	0,.0,.0,.'start'.);.....$main_vb
10e0	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 72 2c 20	ox->set_child_packing($menubar,.
1100	30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 0a 20 20 20 20 24 77 69 64 67 65 74	0,.0,.0,.'start'.);......$widget
1120	2d 3e 70 61 63 6b 31 28 20 67 74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 46 72 61 6d 65 28 20	->pack1(.gtkadd(new.Gtk::Frame(.
1140	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 53	_("Detected.hardware")),.createS
1160	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 6b	crolledWindow(my.$tree.=.new.Gtk
1180	3a 3a 54 72 65 65 29 29 2c 20 31 2c 20 31 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61	::Tree)),.1,.1);.....$widget->pa
11a0	63 6b 32 28 20 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	ck2(.my.$vbox.=.gtkadd(gtkadd(gt
11c0	6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 2c 20 67 74 6b 61 64 64 28 6e 65 77 20 47	kadd(new.Gtk::VBox,.gtkadd(new.G
11e0	74 6b 3a 3a 46 72 61 6d 65 28 20 5f 28 22 49 6e 66 6f 72 6d 61 74 69 6f 6e 73 22 29 29 2c 20 67	tk::Frame(._("Informations")),.g
1200	74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 2c 20 63 72 65 61 74 65 53 63 72 6f 6c	tkadd(new.Gtk::HBox,.createScrol
1220	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 6b 3a 3a 54 65	ledWindow(my.$text.=.new.Gtk::Te
1240	78 74 29 29 29 29 2c 20 6d 79 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 20 3d 20	xt)))),.my.$module_cfg_button.=.
1260	6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 43 6f 6e 66 69 67 75 72 65 20 6d 6f 64	new.Gtk::Button(_("Configure.mod
1280	75 6c 65 22 29 29 29 2c 20 6d 79 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 20 3d 20 6e 65 77	ule"))),.my.$config_button.=.new
12a0	20 47 74 6b 3a 3a 42 75 74 74 6f 6e 28 5f 28 22 52 75 6e 20 63 6f 6e 66 69 67 20 74 6f 6f 6c 22	.Gtk::Button(_("Run.config.tool"
12c0	29 29 29 2c 31 2c 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	))),1,1);.....$vbox->set_child_p
12e0	61 63 6b 69 6e 67 28 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 20 30 2c 20 30 2c 20 30 2c 20	acking($config_button,.0,.0,.0,.
1300	27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f	'start'.);.....$vbox->set_child_
1320	70 61 63 6b 69 6e 67 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2c 20 30 2c 20 30	packing($module_cfg_button,.0,.0
1340	2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 0a 0a 20 20 20 20 6d 79 20 24 77 61 69 74 20 3d	,.0,.'start'.);.......my.$wait.=
1360	20 24 69 6e 2d 3e 77 61 69 74 5f 6d 65 73 73 61 67 65 28 5f 28 22 50 6c 65 61 73 65 20 77 61 69	.$in->wait_message(_("Please.wai
1380	74 22 29 2c 20 5f 28 22 44 65 74 65 63 74 69 6f 6e 20 69 6e 20 70 72 6f 67 72 65 73 73 22 29 29	t"),._("Detection.in.progress"))
13a0	3b 0a 0a 20 20 20 20 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 20 6d 79 20 24 72 6f 6f 74 20 3d	;......$tree->append(.my.$root.=
13c0	20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 20 29 3b 0a 0a 20 20 20 20 24 72 6f 6f 74	.new.Gtk::TreeItem.);......$root
13e0	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 62 74 72 65 65 3d 20	->set_subtree(my.$main_subtree=.
1400	6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 73 75 62 74 72 65	new.Gtk::Tree);.....$main_subtre
1420	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 61	e->show();..........foreach.(@ha
1440	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 49	rddrake::data::tree){.....my.($I
1460	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 74	dent,.$title,.$icon,.$configurat
1480	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 69	or,.$detector).=.@$_;.....next.i
14a0	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 73	f.(ref($detector).ne."CODE");.#s
14c0	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 6d	kip.class.witouth.detector.....m
14e0	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 78	y.@devices.=.&$detector;.....nex
1500	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 20	t.if.(!listlength(@devices));.#.
1520	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 20	Skip.empty.class.(no.devices)...
1540	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 5f	..my.($hw_class_item,.$hw_class_
1560	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 20	tree).=.(new.Gtk::TreeItem,.new.
1580	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 61	Gtk::Tree);.....$main_subtree->a
15a0	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 77	ppend(.$hw_class_item.);.....$hw
15c0	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 65	_class_item->signal_connect(sele
15e0	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 64	ct..=>.sub.{.....$text->backward
1600	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 61	_delete($text->get_point);.#.era
1620	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 67	se.all.previous.text.....$config
1640	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 62	_button->hide;.....$module_cfg_b
1660	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 20	utton->hide;.....},.,."".);.....
1680	0a 09 20 20 20 67 74 6b 70 61 63 6b 5f 5f 28 31 2c 20 6d 79 20 24 68 62 6f 78 20 3d 20 6e 65 77	.....gtkpack__(1,.my.$hbox.=.new
16a0	20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c 30 29 2c 20 67 74 6b 73 68 6f 77 28 67 74 6b 70 6e 67 28	.Gtk::HBox(0,0),.gtkshow(gtkpng(
16c0	24 69 63 6f 6e 29 29 2c 20 67 74 6b 73 68 6f 77 28 6e 65 77 20 47 74 6b 3a 3a 4c 61 62 65 6c 28	$icon)),.gtkshow(new.Gtk::Label(
16e0	24 74 69 74 6c 65 29 29 29 3b 0a 09 20 20 20 67 74 6b 61 64 64 28 24 68 77 5f 63 6c 61 73 73 5f	$title)));.....gtkadd($hw_class_
1700	69 74 65 6d 2c 20 67 74 6b 73 68 6f 77 28 24 68 62 6f 78 29 29 3b 0a 09 20 20 20 24 68 77 5f 63	item,.gtkshow($hbox));.....$hw_c
1720	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 77 5f 63 6c 61 73 73	lass_item->show();.....$hw_class
1740	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 61 73 73 5f 74 72 65	_item->set_subtree($hw_class_tre
1760	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 78 70 61 6e 64 20 75	e);.....$hw_class_item->expand.u
1780	6e 6c 65 73 73 20 28 24 74 69 74 6c 65 20 3d 7e 20 2f 55 6e 6b 6e 6f 77 6e 2f 00 29 3b 0a 0a 0a	nless.($title.=~./Unknown/.);...
17a0	09 20 20 20 66 6f 72 65 61 63 68 20 28 40 64 65 76 69 63 65 73 29 20 7b 0a 09 09 20 20 69 66 20	....foreach.(@devices).{.....if.
17c0	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 62 75 73 7d 20 65	(exists.$_->{bus}.&&.$_->{bus}.e
17e0	71 20 22 50 43 49 22 29 20 7b 0a 09 09 09 20 6d 79 20 24 69 3d 24 5f 3b 0a 09 09 09 20 24 5f 2d	q."PCI").{.....my.$i=$_;.....$_-
1800	3e 7b 62 75 73 5f 69 64 7d 20 3d 20 6a 6f 69 6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 69 66 5f 28	>{bus_id}.=.join.':',.map.{.if_(
1820	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 6e 74 66 28 22 25	$i->{$_}.ne."65535",..sprintf("%
1840	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 72 20 69 64 20 73	lx",.$i->{$_})).}.qw(vendor.id.s
1860	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 62 75 73 5f 6c 6f	ubvendor.subid);.....$_->{bus_lo
1880	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 73 70 72 69 6e 74	cation}.=.join.':',.map.{.sprint
18a0	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 63 69 5f 62 75 73	f("%lx",.$i->{$_}.).}.qw(pci_bus
18c0	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 0a 09 09 20 20 7d	.pci_device.pci_function);.....}
18e0	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 6e 74 6f 20 6d 61	.....#.split.description.into.ma
1900	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 20 28 24 5f 2d 3e	nufacturer/description.....($_->
1920	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 29 3d 73 70 6c 69	{Vendor},$_->{description})=spli
1940	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 69 66 20 65 78 69	t(/\|/,$_->{description}).if.exi
1960	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 20 0a 09 09 20 20	sts.$_->{description};..........
1980	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 53 63 61 6e 6e 65	if.(exists.$_->{val}).{.#.Scanne
19a0	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 6c 7d 3b 0a 09 09	r.?......my.$val.=.$_->{val};...
19c0	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
19e0	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 45 53 43 52 49 50	n}).=.split(/\|/,.$val->{DESCRIP
1a00	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 65 63 74 69 6f 6e	TION});...}.....#.EIDE.detection
1a20	20 69 6e 63 6f 68 65 72 65 6e 63 79 3a 0a 09 09 20 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d	.incoherency:.....if.(exists.$_-
1a40	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 65 27 29 20 7b 0a	>{bus}.&&.$_->{bus}.eq.'ide').{.
1a60	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 7b 63 68 61 6e 6e	....$_->{channel}.=._($_->{chann
1a80	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 72 79 22 29 3b 0a	el}.?."secondary".:."primary");.
1aa0	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 7d 20 65 6c 73 69	...delete.$_->{info};.....}.elsi
1ac0	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 5f 2d 3e 7b 62 75	f.((exists.$_->{id}).&&.($_->{bu
1ae0	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 20 64 65 74 65 63	s}.ne.'PCI')).{.....#.SCSI.detec
1b00	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 69 3d 24 5f 3b 0a	tion.incoherency:.....my.$i=$_;.
1b20	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 6a 6f 69 6e 20 27	....$_->{bus_location}.=..join.'
1b40	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 5f	:',.map.{.sprintf("%lx",.$i->{$_
1b60	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 20 20 66 6f 72 65	}.).}.qw(bus.id);.....}.....fore
1b80	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 62 76 65 6e 64 6f	ach.my.$i.(qw(vendor.id.subvendo
1ba0	72 20 73 75 62 69 64 20 70 63 69 5f 62 75 73 20 70 63 69 5f 64 65 76 69 63 65 20 70 63 69 5f 66	r.subid.pci_bus.pci_device.pci_f
1bc0	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 50 45 20 75 6e 73	unction.MOUSETYPE.XMOUSETYPE.uns
1be0	61 66 65 20 76 61 6c 20 64 65 76 66 73 5f 70 72 65 66 69 78 20 77 61 63 6f 6d 20 61 75 78 6d 6f	afe.val.devfs_prefix.wacom.auxmo
1c00	75 73 65 29 29 20 7b 20 0a 09 09 09 20 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 24 69 7d 3b 0a 09 09	use)).{......delete.$_->{$i};...
1c20	20 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 54	..}.....my.$hw_item.=.new.Gtk::T
1c40	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 3f 20 24	reeItem(defined($_->{device})?.$
1c60	5f 2d 3e 7b 64 65 76 69 63 65 7d 3a 0a 09 09 09 09 28 64 65 66 69 6e 65 64 28 24 5f 2d 3e 7b 64	_->{device}:.....(defined($_->{d
1c80	65 73 63 72 69 70 74 69 6f 6e 7d 29 3f 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 3a 24	escription})?$_->{description}:$
1ca0	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 3d 27 2f 64 65 76 2f	title));.....$_->{device}='/dev/
1cc0	27 2e 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 20 69 66 20 65 78 69 73 74 73 20 24 5f 2d 3e 7b 64 65	'.$_->{device}.if.exists.$_->{de
1ce0	76 69 63 65 7d 3b 0a 09 09 20 20 24 68 77 5f 63 6c 61 73 73 5f 74 72 65 65 2d 3e 61 70 70 65 6e	vice};.....$hw_class_tree->appen
1d00	64 28 24 68 77 5f 69 74 65 6d 29 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 65 78 70 61 6e	d($hw_item);.....$hw_item->expan
1d20	64 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 6d 79 20 24 64	d;.....$hw_item->show;.....my.$d
1d40	61 74 61 3d 24 5f 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f 68 61 6e	ata=$_;.....$hw_item->signal_han
1d60	64 6c 65 72 73 5f 64 65 73 74 72 6f 79 28 29 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 73	dlers_destroy();.....$hw_item->s
1d80	69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 73 65 6c 65 63 74 20 3d 3e 20 73 75 62 20 7b 0a 09 09	ignal_connect(select.=>.sub.{...
1da0	09 20 24 5f 20 3d 20 24 64 61 74 61 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 68 69 64 65 3b 0a 09	..$_.=.$data;.....$text->hide;..
1dc0	09 09 20 24 74 65 78 74 2d 3e 62 61 63 6b 77 61 72 64 5f 64 65 6c 65 74 65 28 24 74 65 78 74 2d	...$text->backward_delete($text-
1de0	3e 67 65 74 5f 70 6f 69 6e 74 29 3b 0a 09 09 09 20 6d 79 20 24 69 20 3d 20 24 5f 3b 0a 09 09 09	>get_point);.....my.$i.=.$_;....
1e00	20 24 74 65 78 74 2d 3e 69 6e 73 65 72 74 28 22 22 2c 22 22 2c 22 22 2c 20 6a 6f 69 6e 28 22 5c	.$text->insert("","","",.join("\
1e20	6e 22 2c 20 6d 61 70 20 7b 28 24 66 69 65 6c 64 73 7b 24 5f 7d 5b 30 5d 20 3f 20 24 66 69 65 6c	n",.map.{($fields{$_}[0].?.$fiel
1e40	64 73 7b 24 5f 7d 5b 30 5d 20 3a 20 24 5f 29 20 2e 20 22 3a 20 24 69 2d 3e 7b 24 5f 7d 5c 6e 22	ds{$_}[0].:.$_)...":.$i->{$_}\n"
1e60	7d 20 73 6f 72 74 20 6b 65 79 73 20 25 24 69 29 29 3b 0a 09 09 09 20 69 66 20 28 24 6d 6f 64 5f	}.sort.keys.%$i));.....if.($mod_
1e80	73 69 67 6e 61 6c 5f 69 64 29 20 7b 0a 09 09 09 09 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74	signal_id).{.....$module_cfg_but
1ea0	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
1ec0	61 6c 5f 69 64 29 3b 0a 09 09 09 09 75 6e 64 65 66 20 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64	al_id);.....undef.$mod_signal_id
1ee0	3b 0a 09 09 09 20 7d 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	;.....}.....if.(exists.$_->{driv
1f00	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 6e 6b 6e 6f 77 6e	er}.&&..$_->{driver}.ne."unknown
1f20	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 72 64 3a 2f 20 29	".&&..$_->{driver}.!~./^Card:/.)
1f40	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 3b	.{.....$module_cfg_button->show;
1f60	0a 09 09 09 09 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 3d 24 6d 6f 64 75 6c 65 5f 63 66 67 5f	.....$mod_signal_id=$module_cfg_
1f80	62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 63 6c 69 63 6b 65 64 20 3d	button->signal_connect(clicked.=
1fa0	3e 20 73 75 62 0a 09 09 09 09 09 09 09 7b 0a 09 09 09 09 09 09 09 20 20 20 20 72 65 71 75 69 72	>.sub........{............requir
1fc0	65 20 6d 6f 64 70 61 72 6d 3b 0a 09 09 09 09 09 09 09 20 20 20 20 6d 79 20 28 40 6c 2c 20 25 63	e.modparm;............my.(@l,.%c
1fe0	6f 6e 66 69 67 29 3b 0a 09 09 09 09 09 09 09 20 20 20 20 66 6f 72 65 61 63 68 20 28 6d 6f 64 70	onfig);............foreach.(modp
2000	61 72 6d 3a 3a 72 61 77 5f 70 61 72 61 6d 65 74 65 72 73 28 24 5f 2d 3e 7b 64 72 69 76 65 72 7d	arm::raw_parameters($_->{driver}
2020	29 29 20 7b 0a 09 09 09 09 09 09 09 09 20 20 20 6d 79 20 28 24 6e 61 6d 65 2c 20 75 6e 64 65 66	)).{............my.($name,.undef
2040	2c 20 24 64 65 73 63 72 69 70 74 69 6f 6e 2c 20 24 6d 69 6e 2c 20 24 6d 61 78 2c 20 24 69 73 5f	,.$description,.$min,.$max,.$is_
2060	61 5f 6e 75 6d 62 65 72 29 20 3d 20 40 24 5f 3b 0a 09 09 09 09 09 09 09 09 20 20 20 0a 09 09 09	a_number).=.@$_;................
2080	09 09 09 09 09 20 20 20 6d 79 20 24 66 6f 72 6d 61 74 20 3d 0a 09 09 09 09 09 09 09 09 09 20 20	........my.$format.=............
20a0	24 6d 69 6e 20 3d 3d 20 31 20 26 26 20 24 6d 61 78 20 3d 3d 20 31 20 3f 0a 09 09 09 09 09 09 09	$min.==.1.&&.$max.==.1.?........
20c0	09 09 20 20 28 24 69 73 5f 61 5f 6e 75 6d 62 65 72 20 3f 20 5f 28 22 61 20 6e 75 6d 62 65 72 22	....($is_a_number.?._("a.number"
20e0	29 20 3a 20 27 27 29 20 3a 0a 09 09 09 09 09 09 09 09 09 20 20 24 6d 69 6e 20 3d 3d 20 24 6d 61	).:.'').:............$min.==.$ma
2100	78 20 3f 20 0a 09 09 09 09 09 09 09 09 09 20 20 28 24 69 73 5f 61 5f 6e 75 6d 62 65 72 20 3f 20	x.?.............($is_a_number.?.
2120	5f 28 22 25 64 20 63 6f 6d 6d 61 20 73 65 70 61 72 61 74 65 64 20 6e 75 6d 62 65 72 73 22 2c 20	_("%d.comma.separated.numbers",.
2140	24 6d 69 6e 29 20 3a 20 5f 28 22 25 64 20 63 6f 6d 6d 61 20 73 65 70 61 72 61 74 65 64 20 73 74	$min).:._("%d.comma.separated.st
2160	72 69 6e 67 73 22 2c 20 24 6d 69 6e 29 29 20 3a 0a 09 09 09 09 09 09 09 09 09 20 20 24 6d 69 6e	rings",.$min)).:............$min
2180	20 3d 3d 20 31 20 3f 0a 09 09 09 09 09 09 09 09 09 20 20 28 24 69 73 5f 61 5f 6e 75 6d 62 65 72	.==.1.?............($is_a_number
21a0	20 3f 20 5f 28 22 63 6f 6d 6d 61 20 73 65 70 61 72 61 74 65 64 20 6e 75 6d 62 65 72 73 22 29 20	.?._("comma.separated.numbers").
21c0	3a 20 5f 28 22 63 6f 6d 6d 61 20 73 65 70 61 72 61 74 65 64 20 73 74 72 69 6e 67 73 22 29 29 20	:._("comma.separated.strings")).
21e0	3a 0a 09 09 09 09 09 09 09 09 09 20 20 27 27 3b 20 23 2d 20 74 6f 20 77 65 69 72 64 20 61 6e 64	:............'';.#-.to.weird.and
2200	20 62 75 67 67 79 2c 20 64 6f 20 6e 6f 74 20 64 69 73 70 6c 61 79 20 69 74 0a 09 09 09 09 09 09	.buggy,.do.not.display.it.......
2220	09 09 20 20 20 0a 09 09 09 09 09 09 09 09 20 20 20 0a 09 09 09 09 09 09 09 09 20 20 20 24 63 6f	.............................$co
2240	6e 66 69 67 7b 24 6e 61 6d 65 7d 20 3d 20 75 6e 64 65 66 3b 0a 09 09 09 09 09 09 09 09 20 20 20	nfig{$name}.=.undef;............
2260	6d 79 20 25 65 6c 74 20 3d 20 28 20 6c 61 62 65 6c 20 3d 3e 20 24 6e 61 6d 65 2c 20 68 65 6c 70	my.%elt.=.(.label.=>.$name,.help
2280	20 3d 3e 20 22 24 64 65 73 63 72 69 70 74 69 6f 6e 20 5b 24 66 6f 72 6d 61 74 5d 22 20 2c 20 76	.=>."$description.[$format]".,.v
22a0	61 6c 20 3d 3e 20 5c 24 63 6f 6e 66 69 67 7b 24 6e 61 6d 65 7d 20 29 3b 0a 09 09 09 09 09 09 09	al.=>.\$config{$name}.);........
22c0	09 20 20 20 69 66 20 28 24 69 73 5f 61 5f 6e 75 6d 62 65 72 29 20 7b 0a 09 09 09 09 09 09 09 09	....if.($is_a_number).{.........
22e0	09 20 20 69 66 20 28 24 6d 69 6e 20 6e 65 20 24 6d 61 78 29 20 7b 0a 09 09 09 09 09 09 09 09 09	...if.($min.ne.$max).{..........
2300	09 20 24 65 6c 74 7b 74 79 70 65 7d 3d 27 72 61 6e 67 65 27 3b 0a 09 09 09 09 09 09 09 09 09 09	..$elt{type}='range';...........
2320	20 24 65 6c 74 7b 6d 69 6e 7d 3d 24 6d 69 6e 3b 09 20 20 20 0a 09 09 09 09 09 09 09 09 09 09 20	.$elt{min}=$min;................
2340	24 65 6c 74 7b 6d 61 78 7d 3d 24 6d 61 78 3b 0a 09 09 09 09 09 09 09 09 09 20 20 7d 0a 09 09 09	$elt{max}=$max;............}....
2360	09 09 09 09 09 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 09 09 20 20 24 65 6c 74	........}.else.{............$elt
2380	7b 74 79 70 65 7d 3d 27 73 74 72 69 6e 67 27 3b 0a 09 09 09 09 09 09 09 09 20 20 20 7d 0a 09 09	{type}='string';............}...
23a0	09 09 09 09 09 09 20 20 20 70 75 73 68 20 40 6c 2c 20 5c 25 65 6c 74 3b 0a 09 09 09 09 09 09 09	.........push.@l,.\%elt;........
23c0	09 20 20 20 0a 09 09 09 09 09 09 09 20 20 20 20 7d 0a 09 09 09 09 09 09 09 20 20 20 20 75 73 65	................}............use
23e0	20 44 61 74 61 3a 3a 44 75 6d 70 65 72 3b 0a 09 09 09 09 09 09 09 20 20 20 20 70 72 69 6e 74 20	.Data::Dumper;............print.
2400	22 70 61 72 61 6d 65 74 65 72 65 73 3d 20 22 2c 20 44 75 6d 70 65 72 28 5c 40 6c 29 2c 22 5c 6e	"parameteres=.",.Dumper(\@l),"\n
2420	22 3b 0a 09 09 09 09 09 09 09 20 20 20 20 6d 79 20 24 69 6e 20 3d 20 27 69 6e 74 65 72 61 63 74	";............my.$in.=.'interact
2440	69 76 65 27 2d 3e 76 6e 65 77 28 29 3b 0a 09 09 09 09 09 09 09 20 20 20 20 69 66 20 28 24 69 6e	ive'->vnew();............if.($in
2460	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 69 6f 6e	->ask_from("Module.configuration
2480	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 70 61 72	",._("You.can.configure.each.par
24a0	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 0a 09 09	ameter.of.the.module.here."),...
24c0	09 09 09 09 09 09 09 09 09 20 20 5c 40 6c 29 29 0a 09 09 09 09 09 09 09 20 20 20 20 7b 0a 09 09	...........\@l))............{...
24e0	09 09 09 09 09 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	.........my.$options.=.join('.',
2500	20 6d 61 70 20 7b 20 69 66 5f 28 24 63 6f 6e 66 69 67 7b 24 5f 7d 2c 20 22 24 5f 3d 24 63 6f 6e	.map.{.if_($config{$_},."$_=$con
2520	66 69 67 7b 24 5f 7d 22 29 20 7d 20 6b 65 79 73 20 25 63 6f 6e 66 69 67 20 29 3b 0a 09 09 09 09	fig{$_}").}.keys.%config.);.....
2540	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 09 09 09 09 09 09	.......if.($options).{..........
2560	20 20 6d 6f 64 75 6c 65 73 3a 3a 72 65 61 64 5f 63 6f 6e 66 3b 0a 09 09 09 09 09 09 09 09 09 20	..modules::read_conf;...........
2580	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 72 69 76 65	.modules::set_options($_->{drive
25a0	72 7d 2c 20 24 6f 70 74 69 6f 6e 73 29 3b 0a 09 09 09 09 09 09 09 09 09 20 20 6d 6f 64 75 6c 65	r},.$options);............module
25c0	73 3a 3a 77 72 69 74 65 5f 63 6f 6e 66 3b 0a 09 09 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09	s::write_conf;..........}.......
25e0	09 20 20 20 20 7d 0a 09 09 09 09 09 09 09 7d 29 3b 0a 09 09 09 20 7d 20 65 6c 73 65 20 7b 24 6d	.....}........});.....}.else.{$m
2600	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 69 66 20	odule_cfg_button->hide.}.....if.
2620	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 6f 6e 66 69 67 5f	($tool_signal_id).{.....$config_
2640	62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 64 69 73 63 6f 6e 6e 65 63 74 28 24 74 6f 6f 6c 5f	button->signal_disconnect($tool_
2660	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 6c 5f 73 69 67 6e	signal_id);.....undef.$tool_sign
2680	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 6f 6e 66 69 67 75	al_id;.....}.....if.(-x.$configu
26a0	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 69 64 3d 24 63 6f	rator).{.....$tool_signal_id=$co
26c0	6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 28 63 6c 69 63	nfig_button->signal_connect(clic
26e0	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 65 66 69 6e 65 64	ked.=>.sub.{.........if.(defined
2700	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 20 28 24 70 69 64	.$pid).{return}.........if.($pid
2720	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 64 20 3d 20 24 73	.=.fork()).{.........my.$id.=.$s
2740	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 69 64 22 29 3b 0a	tatusbar->get_context_id("id");.
2760	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 2d 3e 70 75 73 68	........$sig_id=$statusbar->push
2780	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 2e 22 2c 20 24 63	($id,._("Running.\"%s\"....",.$c
27a0	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 6c 73 65 20 7b 0a	onfigurator));.........}.else.{.
27c0	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 29 20 6f 72 20 64	........exec($configurator).or.d
27e0	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 6e 22 3b 0a 09 09	ie."$configurator.missing\n";...
2800	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 69 67 5f 62 75 74	......}.....}).;.....$config_but
2820	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 6e 66 69 67 5f 62	ton->show;.....}.else.{$config_b
2840	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 68 6f 77 3b 0a 09	utton->hide.}.....$text->show;..
2860	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 20 20 20 24 53 49	...}.);.....}.....}..........$SI
2880	47 7b 43 48 4c 44 7d 20 3d 20 73 75 62 20 7b 20 75 6e 64 65 66 20 24 70 69 64 3b 20 24 73 74 61	G{CHLD}.=.sub.{.undef.$pid;.$sta
28a0	74 75 73 62 61 72 2d 3e 70 6f 70 28 24 73 69 67 5f 69 64 29 20 7d 3b 0a 20 20 20 20 24 6d 61 69	tusbar->pop($sig_id).};.....$mai
28c0	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 65 6c 65 74 65 5f 65	n_win->signal_connect.(.delete_e
28e0	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 20 20 20 20 24 6d 61	vent.=>.\&quit_global.);.....$ma
2900	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 6d 61 69 6e 5f 77 69	in_win->show_all();.....$main_wi
2920	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 3b 0a 0a 20 20 20 20	n->set_position('center');......
2940	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 20 24 63 6f	foreach.($module_cfg_button,.$co
2960	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 20 20 20 20 0a 20 20	nfig_button).{$_->hide};........
2980	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 52 65 74 75 72 6e 20	..return.$main_win;....#.Return.
29a0	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 74 72 6f 79 20 24 77	the.constructed.UI.&&.destroy.$w
29c0	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 0a 20 20 20 20 24 3a	ait.}...sub.quit_global.{.....$:
29e0	3a 69 73 45 6d 62 65 64 64 65 64 20 3f 20 6b 69 6c 6c 28 27 55 53 52 31 27 2c 20 24 3a 3a 43 43	:isEmbedded.?.kill('USR1',.$::CC
2a00	50 49 44 29 20 3a 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	PID).:.Gtk->exit(0);.....$in->ex
2a20	69 74 3b 0a 7d 0a 0a 5f 5f 45 4e 44 5f 5f 0a	it;.}..__END__.