blob: a99dad9fe400e94dca4e8816854cfd29d0607c2a (plain)

ofs	hex dump	ascii
0000	70 61 63 6b 61 67 65 20 68 61 72 64 64 72 61 6b 65 3a 3a 75 69 3b 0a 0a 75 73 65 20 73 74 72 69	package.harddrake::ui;..use.stri
0020	63 74 3b 0a 0a 75 73 65 20 68 61 72 64 64 72 61 6b 65 3a 3a 64 61 74 61 3b 0a 75 73 65 20 63 6f	ct;..use.harddrake::data;.use.co
0040	6d 6d 6f 6e 3b 0a 75 73 65 20 69 6e 74 65 72 61 63 74 69 76 65 3b 0a 75 73 65 20 47 74 6b 3b 0a	mmon;.use.interactive;.use.Gtk;.
0060	23 75 73 65 20 4d 44 4b 3a 3a 43 6f 6d 6d 6f 6e 3b 0a 0a 6d 79 20 40 6d 65 6e 75 5f 69 74 65 6d	#use.MDK::Common;..my.@menu_item
0080	73 20 3d 20 28 20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 46 69 6c 65 22 29 2c 20 74 79 70	s.=.(.{.path.=>._("/_File"),.typ
00a0	65 20 3d 3e 20 27 3c 42 72 61 6e 63 68 3e 27 20 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68	e.=>.'<Branch>'.},........{.path
00c0	20 3d 3e 20 5f 28 22 2f 5f 46 69 6c 65 22 29 2e 5f 28 22 2f 5f 51 75 69 74 22 29 2c 20 61 63 63	.=>._("/_File")._("/_Quit"),.acc
00e0	65 6c 65 72 61 74 6f 72 20 3d 3e 20 5f 28 22 3c 63 6f 6e 74 72 6f 6c 3e 51 22 29 2c 20 63 61 6c	elerator.=>._("<control>Q"),.cal
0100	6c 62 61 63 6b 20 3d 3e 20 5c 26 71 75 69 74 5f 67 6c 6f 62 61 6c 09 7d 2c 0a 09 09 09 20 20 20	lback.=>.\&quit_global.},.......
0120	20 7b 20 70 61 74 68 20 3d 3e 20 5f 28 22 2f 5f 48 65 6c 70 22 29 2c 74 79 70 65 20 3d 3e 20 27	.{.path.=>._("/_Help"),type.=>.'
0140	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 28	<Branch>'.},........{.path.=>._(
0160	22 2f 5f 48 65 6c 70 22 29 2e 5f 28 22 2f 5f 48 65 6c 70 2e 2e 2e 22 29 2c 20 63 61 6c 6c 62 61	"/_Help")._("/_Help..."),.callba
0180	63 6b 20 3d 3e 20 5c 26 68 65 6c 70 20 7d 2c 0a 09 09 09 20 20 20 20 7b 20 70 61 74 68 20 3d 3e	ck.=>.\&help.},........{.path.=>
01a0	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 22 29 2c 20 63 61	._("/_Help")._("/_About..."),.ca
01c0	6c 6c 62 61 63 6b 20 3d 3e 20 5c 26 61 62 6f 75 74 5f 68 61 72 64 64 72 61 6b 65 20 7d 2c 0a 09	llback.=>.\&about_harddrake.},..
01e0	09 09 20 20 20 20 29 3b 0a 0a 6d 79 20 25 66 69 65 6c 64 73 20 3d 20 28 20 22 62 75 73 22 20 3d	......);..my.%fields.=.(."bus".=
0200	3e 20 5f 28 22 42 75 73 22 29 2c 0a 09 09 09 22 64 72 69 76 65 72 22 20 3d 3e 20 5f 28 22 4d 6f	>._("Bus"),...."driver".=>._("Mo
0220	64 75 6c 65 22 29 2c 0a 09 09 09 22 6d 65 64 69 61 5f 74 79 70 65 22 20 3d 3e 20 5f 28 22 4d 65	dule"),...."media_type".=>._("Me
0240	64 69 61 20 63 6c 61 73 73 22 29 2c 0a 09 09 09 22 64 65 73 63 72 69 70 74 69 6f 6e 22 20 3d 3e	dia.class"),...."description".=>
0260	20 5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e 22 29 2c 0a 09 09 09 22 62 75 73 5f 69 64 22 20 3d	._("Description"),...."bus_id".=
0280	3e 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 0a 09 09 09 22 62	>._("Bus.identification"),...."b
02a0	75 73 5f 6c 6f 63 61 74 69 6f 6e 22 20 3d 3e 20 5f 28 22 4c 6f 63 61 74 69 6f 6e 20 6f 6e 20 74	us_location".=>._("Location.on.t
02c0	68 65 20 62 75 73 22 29 2c 0a 09 09 09 22 69 6e 66 6f 22 20 3d 3e 20 22 48 61 72 64 77 61 72 65	he.bus"),...."info".=>."Hardware
02e0	20 69 64 22 2c 0a 09 09 09 22 64 65 76 69 63 65 22 20 3d 3e 20 22 44 65 76 69 63 65 20 66 69 6c	.id",...."device".=>."Device.fil
0300	65 22 2c 0a 09 09 09 29 3b 0a 0a 0a 6d 79 20 25 65 69 64 65 5f 68 64 73 20 3d 0a 20 20 20 20 28	e",....);...my.%eide_hds.=.....(
0320	0a 09 22 41 53 55 53 20 22 20 3d 3e 20 22 41 73 75 73 22 2c 0a 09 22 43 44 2d 52 4f 4d 20 43 44	.."ASUS.".=>."Asus",.."CD-ROM.CD
0340	55 22 20 3d 3e 20 22 53 6f 6e 79 22 2c 0a 09 22 43 44 2d 52 4f 4d 20 44 72 69 76 65 2f 46 35 44	U".=>."Sony",.."CD-ROM.Drive/F5D
0360	22 20 3d 3e 20 22 41 53 55 53 54 65 4b 22 2c 0a 09 22 43 6f 6d 70 61 71 22 20 3d 3e 20 22 43 6f	".=>."ASUSTeK",.."Compaq".=>."Co
0380	6d 70 61 71 22 2c 0a 09 22 43 4f 4e 4e 45 52 22 20 3d 3e 20 22 43 6f 6e 6e 65 72 20 50 65 72 69	mpaq",.."CONNER".=>."Conner.Peri
03a0	70 68 65 72 61 6c 73 22 2c 0a 09 22 49 42 4d 2d 22 20 3d 3e 20 22 49 42 4d 22 2c 0a 09 22 46 55	pherals",.."IBM-".=>."IBM",.."FU
03c0	4a 49 54 53 55 22 20 3d 3e 20 22 46 75 6a 69 74 73 75 22 2c 0a 09 22 48 49 54 41 43 48 49 22 20	JITSU".=>."Fujitsu",.."HITACHI".
03e0	3d 3e 20 22 48 69 74 61 63 68 69 22 2c 0a 09 22 4c 69 74 65 2d 4f 6e 22 20 3d 3e 20 22 4c 69 74	=>."Hitachi",.."Lite-On".=>."Lit
0400	65 2d 4f 6e 20 54 65 63 68 6e 6f 6c 6f 67 79 20 43 6f 72 70 2e 22 2c 0a 09 22 4c 54 4e 22 20 3d	e-On.Technology.Corp.",.."LTN".=
0420	3e 20 22 4c 69 74 65 2d 4f 6e 20 54 65 63 68 6e 6f 6c 6f 67 79 20 43 6f 72 70 2e 22 2c 0a 09 22	>."Lite-On.Technology.Corp.",.."
0440	49 4f 4d 45 47 41 20 22 20 3d 3e 20 22 49 6f 6d 65 67 61 22 2c 0a 09 22 4d 41 58 54 4f 52 20 22	IOMEGA.".=>."Iomega",.."MAXTOR."
0460	20 3d 3e 20 22 4d 61 78 74 6f 72 22 2c 0a 09 22 4d 61 78 74 6f 72 20 22 20 3d 3e 20 22 4d 61 78	.=>."Maxtor",.."Maxtor.".=>."Max
0480	74 6f 72 22 2c 0a 09 22 4d 69 63 72 6f 70 6f 6c 69 73 22 20 3d 3e 20 22 4d 69 63 72 6f 70 6f 6c	tor",.."Micropolis".=>."Micropol
04a0	69 73 22 2c 0a 09 22 50 4c 45 58 54 4f 52 22 20 3d 3e 20 22 50 6c 65 78 74 6f 72 22 2c 0a 09 22	is",.."PLEXTOR".=>."Plextor",.."
04c0	51 55 41 4e 54 55 4d 22 20 3d 3e 20 22 51 75 61 6e 74 75 6d 22 2c 20 0a 09 22 53 41 4d 53 55 4e	QUANTUM".=>."Quantum",..."SAMSUN
04e0	47 22 20 3d 3e 20 22 53 61 6d 73 75 6e 67 22 2c 0a 09 22 53 65 61 67 61 74 65 20 22 20 3d 3e 20	G".=>."Samsung",.."Seagate.".=>.
0500	22 53 65 61 67 61 74 65 20 54 65 63 68 6e 6f 6c 6f 67 79 22 2c 0a 09 22 53 54 33 22 20 3d 3e 20	"Seagate.Technology",.."ST3".=>.
0520	22 53 65 61 67 61 74 65 20 54 65 63 68 6e 6f 6c 6f 67 79 22 2c 0a 09 22 54 45 41 43 22 20 3d 3e	"Seagate.Technology",.."TEAC".=>
0540	20 22 54 65 61 63 22 2c 0a 09 22 54 4f 53 48 49 42 41 22 20 3d 3e 20 22 54 6f 73 68 69 62 61 22	."Teac",.."TOSHIBA".=>."Toshiba"
0560	2c 0a 09 22 57 44 43 22 20 3d 3e 20 22 57 65 73 74 65 72 6e 20 44 69 67 69 74 61 6c 20 43 6f 72	,.."WDC".=>."Western.Digital.Cor
0580	70 2e 22 2c 0a 09 29 3b 0a 0a 6d 79 20 24 69 6e 3b 0a 0a 73 75 62 20 72 75 6e 20 7b 0a 20 20 20	p.",..);..my.$in;..sub.run.{....
05a0	20 6d 79 20 28 24 63 6c 61 73 73 29 20 3d 20 40 5f 3b 0a 20 20 20 20 24 69 6e 20 3d 20 27 69 6e	.my.($class).=.@_;.....$in.=.'in
05c0	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 65 66 61 75 6c 74 27	teractive'->vnew('su',.'default'
05e0	29 3b 0a 20 20 20 20 47 74 6b 2d 3e 69 6e 69 74 3b 0a 20 20 20 20 6d 79 20 24 77 69 6e 64 6f 77	);.....Gtk->init;.....my.$window
0600	20 3d 20 24 63 6c 61 73 73 2d 3e 6e 65 77 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77 2d 3e 73 68 6f	.=.$class->new;.....$window->sho
0620	77 3b 0a 20 20 20 20 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	w;.....Gtk->main;.....$window->d
0640	65 73 74 72 6f 79 3b 0a 7d 0a 0a 6d 79 20 24 6c 69 63 65 6e 73 65 20 3d 27 43 6f 70 79 72 69 67	estroy;.}..my.$license.='Copyrig
0660	68 74 20 28 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	ht.(C).1999-2002.MandrakeSoft.by
0680	20 74 76 69 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	.tvignaud@mandrakesoft.com..This
06a0	20 70 72 6f 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	.program.is.free.software;.you.c
06c0	61 6e 20 72 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	an.redistribute.it.and/or.modify
06e0	0a 69 74 20 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	.it.under.the.terms.of.the.GNU.G
0700	65 6e 65 72 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	eneral.Public.License.as.publish
0720	65 64 20 62 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	ed.by.the.Free.Software.Foundati
0740	6f 6e 3b 20 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	on;.either.version.2,.or.(at.you
0760	72 20 6f 70 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	r.option).any.later.version...Th
0780	69 73 20 70 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	is.program.is.distributed.in.the
07a0	20 68 6f 70 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	.hope.that.it.will.be.useful,.bu
07c0	74 20 57 49 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	t.WITHOUT.ANY.WARRANTY;.without.
07e0	65 76 65 6e 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	even.the.implied.warranty.of.MER
0800	43 48 41 4e 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	CHANTABILITY.or.FITNESS.FOR.A.PA
0820	52 54 49 43 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	RTICULAR.PURPOSE...See.the.GNU.G
0840	65 6e 65 72 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	eneral.Public.License.for.more.d
0860	65 74 61 69 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	etails...You.should.have.receive
0880	64 20 61 20 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	d.a.copy.of.the.GNU.General.Publ
08a0	69 63 20 4c 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	ic.License.along.with.this.progr
08c0	61 6d 3b 20 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	am;.if.not,.write.to.the.Free.So
08e0	66 74 77 61 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	ftware.Foundation,.Inc.,.59.Temp
0900	6c 65 20 50 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	le.Place.-.Suite.330,.Boston,.MA
0920	20 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 27 3b 0a 0a 0a 73 75 62 20 6e 65 77 20 7b	.02111-1307,.USA..';...sub.new.{
0940	0a 20 20 20 20 6d 79 20 28 24 73 74 61 74 75 73 62 61 72 2c 20 24 61 63 63 65 6c 5f 67 72 6f 75	.....my.($statusbar,.$accel_grou
0960	70 2c 20 24 6d 65 6e 75 2c 20 24 6d 61 69 6e 5f 77 69 6e 2c 20 24 77 69 64 67 65 74 2c 20 24 63	p,.$menu,.$main_win,.$widget,.$c
0980	6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 0a 09 20 20 20 24 6d 65 6e 75 62 61 72 2c 20 24 6d 61 69	onfig_button,.....$menubar,.$mai
09a0	6e 5f 76 62 6f 78 2c 20 24 76 62 6f 78 2c 20 24 74 72 65 65 2c 20 24 74 65 78 74 2c 20 25 72 65	n_vbox,.$vbox,.$tree,.$text,.%re
09c0	76 65 72 73 65 5f 66 69 65 6c 64 73 2c 20 24 77 61 69 74 2c 0a 09 20 20 20 24 66 72 61 6d 65 2c	verse_fields,.$wait,.....$frame,
09e0	20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2c 20 24 76 73 63 72 6f 6c 6c 62 61 72	.$module_cfg_button,.$vscrollbar
0a00	2c 24 70 69 64 2c 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 2c 0a 09 20 20 20 24 74 6f 6f 6c 5f	,$pid,$mod_signal_id,.....$tool_
0a20	73 69 67 6e 61 6c 5f 69 64 2c 20 24 73 69 67 5f 69 64 29 3b 0a 0a 20 20 20 20 69 66 20 28 22 40	signal_id,.$sig_id);......if.("@
0a40	41 52 47 56 22 20 3d 7e 20 2f 2d 2d 68 65 6c 70 7c 2d 68 2f 29 20 7b 0a 09 20 20 20 70 72 69 6e	ARGV".=~./--help|-h/).{.....prin
0a60	74 20 22 48 61 72 64 64 72 61 6b 65 20 32 5c 6e 22 2c 20 24 6c 69 63 65 6e 73 65 2c 20 22 5c 6e	t."Harddrake.2\n",.$license,."\n
0a80	55 73 61 67 65 3a 20 68 61 72 64 64 72 61 6b 65 20 5b 2d 68 7c 2d 2d 68 65 6c 70 5d 5c 6e 22 3b	Usage:.harddrake.[-h|--help]\n";
0aa0	0a 09 20 20 20 65 78 69 74 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 79 5f 67 74 6b 3a 3a 61 64	.....exit;.....}......my_gtk::ad
0ac0	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 70 73 2f	d_icon_path('/usr/share/pixmaps/
0ae0	68 61 72 64 64 72 61 6b 65 32 2f 27 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 20 3d 20 6e	harddrake2/');.....$main_win.=.n
0b00	65 77 20 47 74 6b 3a 3a 57 69 6e 64 6f 77 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73	ew.Gtk::Window;.....$main_win->s
0b20	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 72 73 69 6f 6e 20 22	et_title(_("Harddrake2.version."
0b40	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));.
0b60	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 2c 20	....$main_win->set_policy(0,.1,.
0b80	30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20	0.);.....$main_win->realize;....
0ba0	20 20 24 6d 61 69 6e 5f 76 62 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 20	..$main_vbox.=.new.Gtk::VBox(0,.
0bc0	30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 61 64 64 28 24 6d 61 69 6e 5f 76 62	0.);.....$main_win->add($main_vb
0be0	6f 78 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20	ox);.....$main_vbox->show;......
0c00	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 65 6c 47 72 6f	$accel_group.=.new.Gtk::AccelGro
0c20	75 70 3b 0a 20 20 20 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 49 74 65 6d 46	up;.....$widget.=.new.Gtk::ItemF
0c40	61 63 74 6f 72 79 28 20 27 47 74 6b 3a 3a 4d 65 6e 75 42 61 72 27 2c 20 27 3c 6d 61 69 6e 3e 27	actory(.'Gtk::MenuBar',.'<main>'
0c60	2c 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 63	,.$accel_group.);.....$widget->c
0c80	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.);.....
0ca0	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
0cc0	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
0ce0	68 28 24 6d 61 69 6e 5f 77 69 6e 29 3b 0a 20 20 20 20 24 6d 65 6e 75 62 61 72 20 3d 20 24 77 69	h($main_win);.....$menubar.=.$wi
0d00	64 67 65 74 2d 3e 67 65 74 5f 77 69 64 67 65 74 28 20 27 3c 6d 61 69 6e 3e 27 20 29 3b 0a 0a 20	dget->get_widget(.'<main>'.);...
0d20	20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 6d 65 6e 75 62 61 72 29 3b 0a 20 20	...$main_vbox->add($menubar);...
0d40	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 6b 69 6e 67 28	..$main_vbox->set_child_packing(
0d60	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 20 29 3b 0a 20 20	$menubar,.0,.0,.0,.'start'.);...
0d80	20 20 24 6d 65 6e 75 62 61 72 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 74 72 65 65 20 3d 20 6e	..$menubar->show;......$tree.=.n
0da0	65 77 20 47 74 6b 3a 3a 54 72 65 65 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 73 65 6c	ew.Gtk::Tree;.....$tree->set_sel
0dc0	65 63 74 69 6f 6e 5f 6d 6f 64 65 28 27 73 69 6e 67 6c 65 27 20 29 3b 0a 20 20 20 20 24 74 72 65	ection_mode('single'.);.....$tre
0de0	65 2d 3e 73 65 74 5f 76 69 65 77 5f 6d 6f 64 65 28 27 6c 69 6e 65 27 20 29 3b 0a 20 20 20 20 24	e->set_view_mode('line'.);.....$
0e00	74 72 65 65 2d 3e 73 65 74 5f 76 69 65 77 5f 6c 69 6e 65 73 28 31 29 3b 0a 0a 20 20 20 20 24 77	tree->set_view_lines(1);......$w
0e20	69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 50 61 6e 65 64 3b 0a 20 20 20 20 24 6d 61	idget.=.new.Gtk::HPaned;.....$ma
0e40	69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 77 69 64 67 65 74 29 3b 0a 20 20 20 20 24 6d 61 69 6e	in_vbox->add($widget);.....$main
0e60	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 77 69 64 67 65 74	_vbox->set_child_packing($widget
0e80	2c 20 31 2c 20 31 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 77 69 64 67 65	,.1,.1,.0,.'start'.);.....$widge
0ea0	74 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 66 72 61 6d 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a	t->show;......$frame.=.new.Gtk::
0ec0	46 72 61 6d 65 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 73 65 74 5f 6c 61 62 65 6c 28 20 5f 28	Frame;.....$frame->set_label(._(
0ee0	22 44 65 74 65 63 74 65 64 20 68 61 72 64 77 61 72 65 22 29 29 3b 0a 20 20 20 20 24 66 72 61 6d	"Detected.hardware"));.....$fram
0f00	65 2d 3e 61 64 64 28 24 74 72 65 65 29 3b 0a 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63	e->add($tree);......$widget->pac
0f20	6b 31 28 20 24 66 72 61 6d 65 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e	k1(.$frame,.0,.0);.....$widget->
0f40	61 64 64 31 28 20 24 66 72 61 6d 65 20 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 68 6f 77	add1(.$frame..);.....$tree->show
0f60	3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 76 62 6f 78 20 3d	;.....$frame->show;......$vbox.=
0f80	20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 68 6f 77 3b	.new.Gtk::VBox;.....$vbox->show;
0fa0	0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 32 28 20 24 76 62 6f 78 2c 20 31 2c 20 30	.....$widget->pack2(.$vbox,.1,.0
0fc0	29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 61 64 64 32 28 20 24 76 62 6f 78 20 29 3b 0a 0a	);.....$widget->add2(.$vbox.);..
0fe0	20 20 20 20 24 66 72 61 6d 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 46 72 61 6d 65 3b 0a 20 20 20	....$frame.=.new.Gtk::Frame;....
1000	20 24 66 72 61 6d 65 2d 3e 73 65 74 5f 6c 61 62 65 6c 28 20 5f 28 22 49 6e 66 6f 72 6d 61 74 69	.$frame->set_label(._("Informati
1020	6f 6e 73 22 29 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24 66 72 61 6d 65 29 3b 0a	ons"));.....$vbox->add($frame);.
1040	20 20 20 20 24 66 72 61 6d 65 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 0a 20 20 20 20 24 77 69 64	....$frame->show;...........$wid
1060	67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d	get.=.new.Gtk::HBox;.....$frame-
1080	3e 61 64 64 28 24 77 69 64 67 65 74 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77	>add($widget);.....$widget->show
10a0	3b 0a 20 20 20 20 24 74 65 78 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 65 78 74 3b 0a 20 20 20	;.....$text.=.new.Gtk::Text;....
10c0	20 24 77 69 64 67 65 74 2d 3e 61 64 64 28 24 74 65 78 74 29 3b 0a 20 20 20 20 24 74 65 78 74 2d	.$widget->add($text);.....$text-
10e0	3e 72 65 61 6c 69 7a 65 3b 0a 20 20 20 20 24 74 65 78 74 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20	>realize;.....$text->show;......
1100	24 76 73 63 72 6f 6c 6c 62 61 72 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 53 63 72 6f 6c 6c 62 61	$vscrollbar.=.new.Gtk::VScrollba
1120	72 28 20 24 74 65 78 74 2d 3e 76 61 64 6a 20 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70	r(.$text->vadj.);.....$widget->p
1140	61 63 6b 5f 73 74 61 72 74 28 20 24 76 73 63 72 6f 6c 6c 62 61 72 2c 20 30 2c 20 30 2c 20 30 20	ack_start(.$vscrollbar,.0,.0,.0.
1160	29 3b 0a 20 20 20 20 24 76 73 63 72 6f 6c 6c 62 61 72 2d 3e 73 68 6f 77 28 29 3b 0a 0a 20 20 20	);.....$vscrollbar->show();.....
1180	20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 6f	.$config_button.=.new.Gtk::Butto
11a0	6e 28 5f 28 22 52 75 6e 20 63 6f 6e 66 69 67 20 74 6f 6f 6c 22 29 29 3b 0a 20 20 20 20 24 76 62	n(_("Run.config.tool"));.....$vb
11c0	6f 78 2d 3e 61 64 64 28 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 29 3b 0a 20 20 20 20 24 76 62	ox->add($config_button);.....$vb
11e0	6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 63 6f 6e 66 69 67 5f 62 75	ox->set_child_packing($config_bu
1200	74 74 6f 6e 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 63	tton,.0,.0,.0,.'start'.);.....$c
1220	6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 23 20 20 20 20 24 63 6f 6e	onfig_button->realize;.#....$con
1240	66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 6d 6f 64 75 6c 65 5f 63	fig_button->show;......$module_c
1260	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 6e 28 5f 28 22 43	fg_button.=.new.Gtk::Button(_("C
1280	6f 6e 66 69 67 75 72 65 20 6d 6f 64 75 6c 65 22 29 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61	onfigure.module"));.....$vbox->a
12a0	64 64 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 29 3b 0a 20 20 20 20 24 76 62 6f	dd($module_cfg_button);.....$vbo
12c0	78 2d 3e 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	x->set_child_packing($module_cfg
12e0	5f 62 75 74 74 6f 6e 2c 20 30 2c 20 30 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20	_button,.0,.0,.0,.'start'.);....
1300	20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20	.$module_cfg_button->realize;...
1320	20 20 20 25 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 20 3d 20 72 65 76 65 72 73 65 20 25 66 69	...%reverse_fields.=.reverse.%fi
1340	65 6c 64 73 3b 0a 0a 20 20 20 20 24 73 74 61 74 75 73 62 61 72 20 3d 20 6e 65 77 20 47 74 6b 3a	elds;......$statusbar.=.new.Gtk:
1360	3a 53 74 61 74 75 73 62 61 72 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28	:Statusbar;.....$main_vbox->add(
1380	24 73 74 61 74 75 73 62 61 72 29 3b 0a 20 20 20 20 24 73 74 61 74 75 73 62 61 72 2d 3e 73 68 6f	$statusbar);.....$statusbar->sho
13a0	77 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	w;.....$main_vbox->set_child_pac
13c0	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
13e0	27 20 29 3b 0a 0a 20 20 20 20 24 77 61 69 74 20 3d 20 24 69 6e 2d 3e 77 61 69 74 5f 6d 65 73 73	'.);......$wait.=.$in->wait_mess
1400	61 67 65 28 5f 28 22 50 6c 65 61 73 65 20 77 61 69 74 22 29 2c 20 5f 28 22 44 65 74 65 63 74 69	age(_("Please.wait"),._("Detecti
1420	6f 6e 20 69 6e 20 70 72 6f 67 72 65 73 73 22 29 29 3b 0a 0a 20 20 20 20 6d 79 20 24 72 6f 6f 74	on.in.progress"));......my.$root
1440	20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 20 29 3b 0a 20 20 20 20 24 74 72	.=.new.Gtk::TreeItem(.);.....$tr
1460	65 65 2d 3e 61 70 70 65 6e 64 28 20 24 72 6f 6f 74 20 29 3b 0a 20 20 20 20 24 72 6f 6f 74 2d 3e	ee->append(.$root.);.....$root->
1480	73 68 6f 77 28 29 3b 0a 0a 23 20 20 20 20 24 73 75 62 74 72 65 65 3d 20 6e 65 77 20 47 74 6b 3a	show();..#....$subtree=.new.Gtk:
14a0	3a 54 72 65 65 3b 0a 23 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 20	:Tree;.#....$tree->set_subtree(.
14c0	24 73 75 62 74 72 65 65 20 29 3b 0a 23 20 20 20 20 24 73 75 62 74 72 65 65 2d 3e 73 68 6f 77 28	$subtree.);.#....$subtree->show(
14e0	29 3b 0a 23 20 20 20 20 24 68 62 6f 78 2d 3e 61 64 64 28 24 76 62 6f 78 29 3b 0a 23 20 20 20 20	);.#....$hbox->add($vbox);.#....
1500	24 68 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 76 62 6f 78 2c 20	$hbox->set_child_packing($vbox,.
1520	31 2c 20 31 2c 20 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72	1,.1,.0,.'start'.);..........for
1540	65 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	each.(@harddrake::data::tree){..
1560	20 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	...my.($Ident,.$title,.$icon,.$c
1580	6f 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	onfigurator,.$detector).=.@$_;..
15a0	20 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	...next.if.(ref($detector).ne."C
15c0	4f 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	ODE");.#skip.class.witouth.detec
15e0	74 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	tor.....my.@devices.=.&$detector
1600	3b 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	;.....next.if.(!listlength(@devi
1620	63 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	ces));.#.Skip.empty.class.(no.de
1640	76 69 63 65 73 29 0a 09 20 20 20 6d 79 20 28 24 73 75 62 69 74 65 6d 2c 20 24 73 75 62 73 75 62	vices).....my.($subitem,.$subsub
1660	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.
1680	47 74 6b 3a 3a 54 72 65 65 29 3b 0a 09 20 20 20 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 20 24	Gtk::Tree);.....$tree->append(.$
16a0	73 75 62 69 74 65 6d 20 29 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f	subitem.);.....$subitem->signal_
16c0	63 6f 6e 6e 65 63 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	connect(select..=>.sub.{.....$te
16e0	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 3e 67 65 74 5f 70	xt->backward_delete($text->get_p
1700	6f 69 6e 74 29 3b 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	oint);.#.erase.all.previous.text
1720	0a 09 09 20 20 24 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	.....$config_button->hide;.....$
1740	6d 6f 64 75 6c 65 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	module_cfg_button->hide;.....},.
1760	2c 20 22 22 20 29 3b 0a 09 20 20 20 6d 79 20 24 67 69 63 6f 6e 20 3d 20 6e 65 77 20 47 74 6b 3a	,."".);.....my.$gicon.=.new.Gtk:
1780	3a 50 69 78 6d 61 70 28 6d 79 5f 67 74 6b 3a 3a 67 74 6b 63 72 65 61 74 65 5f 70 6e 67 28 24 69	:Pixmap(my_gtk::gtkcreate_png($i
17a0	63 6f 6e 29 29 3b 0a 09 20 20 20 0a 09 20 20 20 6d 79 20 28 24 68 62 6f 78 2c 20 24 6c 61 62 65	con));..........my.($hbox,.$labe
17c0	6c 29 20 3d 20 28 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c 30 29 20 2c 6e 65 77 20 47 74	l).=.(new.Gtk::HBox(0,0).,new.Gt
17e0	6b 3a 3a 4c 61 62 65 6c 28 24 74 69 74 6c 65 29 29 3b 0a 09 20 20 20 24 68 62 6f 78 2d 3e 70 61	k::Label($title));.....$hbox->pa
1800	63 6b 5f 73 74 61 72 74 28 24 67 69 63 6f 6e 2c 30 2c 20 30 2c 20 35 29 3b 0a 09 20 20 20 24 68	ck_start($gicon,0,.0,.5);.....$h
1820	62 6f 78 2d 3e 70 61 63 6b 5f 73 74 61 72 74 28 24 6c 61 62 65 6c 2c 30 2c 20 30 2c 20 35 29 3b	box->pack_start($label,0,.0,.5);
1840	0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 61 64 64 28 24 68 62 6f 78 29 3b 0a 09 20 20 20 66	.....$subitem->add($hbox);.....f
1860	6f 72 65 61 63 68 20 28 24 67 69 63 6f 6e 2c 20 24 6c 61 62 65 6c 2c 20 24 68 62 6f 78 2c 20 24	oreach.($gicon,.$label,.$hbox,.$
1880	73 75 62 69 74 65 6d 29 20 7b 20 24 5f 2d 3e 73 68 6f 77 28 29 20 7d 3b 0a 09 20 20 20 24 73 75	subitem).{.$_->show().};.....$su
18a0	62 69 74 65 6d 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 24 73 75 62 73 75 62 74 72 65 65 29 3b	bitem->set_subtree($subsubtree);
18c0	0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 65 78 70 61 6e 64 20 75 6e 6c 65 73 73 20 28 24 74	.....$subitem->expand.unless.($t
18e0	69 74 6c 65 20 3d 7e 20 2f 55 6e 6b 6e 6f 77 6e 2f 00 29 3b 0a 0a 09 20 20 20 24 53 49 47 7b 43	itle.=~./Unknown/.);......$SIG{C
1900	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 74 75 73	HLD}.=.sub.{.undef.$pid;.$status
1920	62 61 72 2d 3e 70 6f 70 28 24 73 69 67 5f 69 64 29 20 7d 3b 0a 0a 09 20 20 20 66 6f 72 65 61 63	bar->pop($sig_id).};......foreac
1940	68 20 28 40 64 65 76 69 63 65 73 29 20 7b 0a 09 09 20 20 6d 79 20 24 69 3d 20 28 64 65 66 69 6e	h.(@devices).{.....my.$i=.(defin
1960	65 64 28 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 29 3f 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3a 0a	ed($_->{device})?.$_->{device}:.
1980	09 09 09 09 28 64 65 66 69 6e 65 64 28 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 3f	....(defined($_->{description})?
19a0	24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 3a 24 74 69 74 6c 65 29 29 3b 0a 09 09 20 20	$_->{description}:$title));.....
19c0	6d 79 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 24	my.$widget.=.new.Gtk::TreeItem($
19e0	69 29 3b 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	i);.....if.(exists.$_->{bus}.&&.
1a00	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 20 24 69 3d	$_->{bus}.eq."PCI").{.....my.$i=
1a20	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 6e 20 27 3a 27 2c	$_;.....$_->{bus_id}.=.join.':',
1a40	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 35 33 35 22 2c 20	.map.{.if_($i->{$_}.ne."65535",.
1a60	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 20 7d 20 71 77 28	.sprintf("%lx",.$i->{$_})).}.qw(
1a80	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 3b 0a 09 09 09 20	vendor.id.subvendor.subid);.....
1aa0	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 27 3a 27 2c 20 6d	$_->{bus_location}.=.join.':',.m
1ac0	61 70 20 7b 20 73 70 72 69 6e 74 66 28 22 25 6c 78 22 2c 20 24 69 2d 3e 7b 24 5f 7d 20 29 20 7d	ap.{.sprintf("%lx",.$i->{$_}.).}
1ae0	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 5f 66 75 6e 63 74	.qw(pci_bus.pci_device.pci_funct
1b00	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 73 63 72 69 70 74	ion);.....}.....#.split.descript
1b20	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 72 69 70 74 69 6f	ion.into.manufacturer/descriptio
1b40	6e 0a 09 09 20 20 28 24 5f 2d 3e 7b 56 65 6e 64 6f 72 7d 2c 24 5f 2d 3e 7b 64 65 73 63 72 69 70	n.....($_->{Vendor},$_->{descrip
1b60	74 69 6f 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	tion})=split(/\|/,$_->{descripti
1b80	6f 6e 7d 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	on}).if.exists.$_->{description}
1ba0	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 27 2e 24 5f 2d 3e 7b	;.....$_->{device}='/dev/'.$_->{
1bc0	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 76 69 63 65 7d 3b 0a	device}.if.exists.$_->{device};.
1be0	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 63 79	....#.EIDE.detection.incoherency
1c00	3a 0a 09 09 20 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 69 6e 74 65 72 66 61 63 65 5f	:.....if.(exists.$_->{interface_
1c20	74 79 70 65 7d 20 26 26 20 24 5f 2d 3e 7b 69 6e 74 65 72 66 61 63 65 5f 74 79 70 65 7d 20 65 71	type}.&&.$_->{interface_type}.eq
1c40	20 27 69 64 65 27 29 20 7b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 7d	.'ide').{.....$_->{bus_location}
1c60	20 3d 20 5f 28 24 5f 2d 3e 7b 62 75 73 7d 20 3f 20 22 73 6c 61 76 65 22 20 3a 20 22 6d 61 73 74	.=._($_->{bus}.?."slave".:."mast
1c80	65 72 22 29 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 7d 20 3d 20 27 49 44 45 27 3b 0a 09 09 09	er");.....$_->{bus}.=.'IDE';....
1ca0	20 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 69 6e 74 65 72 66 61 63 65 5f 74 79 70 65 7d 3b 0a 09 09	.delete.$_->{interface_type};...
1cc0	09 20 66 6f 72 65 61 63 68 20 6d 79 20 24 68 64 20 28 6b 65 79 73 20 25 65 69 64 65 5f 68 64 73	..foreach.my.$hd.(keys.%eide_hds
1ce0	29 20 7b 0a 09 09 09 09 69 66 20 28 24 5f 2d 3e 7b 69 6e 66 6f 7d 20 3d 7e 20 2f 5e 24 68 64 2f	).{.....if.($_->{info}.=~./^$hd/
1d00	29 20 7b 0a 09 09 09 09 20 20 20 20 24 5f 2d 3e 7b 56 65 6e 64 6f 72 7d 20 3d 20 24 65 69 64 65	).{.........$_->{Vendor}.=.$eide
1d20	5f 68 64 73 7b 24 68 64 7d 3b 0a 09 09 09 09 20 20 20 20 24 5f 2d 3e 7b 4d 6f 64 65 6c 7d 20 3d	_hds{$hd};.........$_->{Model}.=
1d40	20 24 5f 2d 3e 7b 69 6e 66 6f 7d 3b 0a 09 09 09 09 20 20 20 20 24 5f 2d 3e 7b 4d 6f 64 65 6c 7d	.$_->{info};.........$_->{Model}
1d60	20 3d 7e 20 73 2f 5e 24 68 64 2f 2f 3b 0a 09 09 09 09 20 20 20 20 64 65 6c 65 74 65 20 24 5f 2d	.=~.s/^$hd//;.........delete.$_-
1d80	3e 7b 69 6e 66 6f 7d 3b 0a 09 09 09 09 20 20 20 20 6c 61 73 74 3b 0a 09 09 09 09 7d 0a 09 09 09	>{info};.........last;.....}....
1da0	20 7d 0a 09 09 20 20 7d 20 65 6c 73 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 69 64 7d 29	.}.....}.elsif.(exists.$_->{id})
1dc0	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 65 72 65	.{.....#.SCSI.detection.incohere
1de0	6e 63 79 3a 0a 09 09 09 20 6d 79 20 24 69 3d 24 5f 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f	ncy:.....my.$i=$_;.....$_->{bus_
1e00	6c 6f 63 61 74 69 6f 6e 7d 20 3d 20 20 6a 6f 69 6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 73 70 72	location}.=..join.':',.map.{.spr
1e20	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 62 75 73 20	intf("%lx",.$i->{$_}.).}.qw(bus.
1e40	69 64 29 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 7d 20 3d 20 27 53 43 53 49 27 3b 0a 09 09 20	id);.....$_->{bus}.=.'SCSI';....
1e60	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.
1e80	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
1ea0	65 76 69 63 65 20 70 63 69 5f 66 75 6e 63 74 69 6f 6e 20 29 29 20 7b 20 0a 09 09 09 20 64 65 6c	evice.pci_function.)).{......del
1ec0	65 74 65 20 24 5f 2d 3e 7b 24 69 7d 3b 0a 09 09 20 20 7d 0a 09 09 20 20 24 77 69 64 67 65 74 2d	ete.$_->{$i};.....}.....$widget-
1ee0	3e 73 68 6f 77 3b 0a 09 09 20 20 24 73 75 62 73 75 62 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 24	>show;.....$subsubtree->append($
1f00	77 69 64 67 65 74 29 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 65 78 70 61 6e 64 3b 0a 09 09	widget);.....$widget->expand;...
1f20	20 20 24 77 69 64 67 65 74 2d 3e 73 65 74 5f 75 73 65 72 5f 64 61 74 61 28 20 24 5f 20 29 3b 0a	..$widget->set_user_data(.$_.);.
1f40	09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 69 67 6e 61 6c 5f 68 61 6e 64 6c 65 72 73 5f 64 65 73	....$widget->signal_handlers_des
1f60	74 72 6f 79 28 29 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e	troy();.....$widget->signal_conn
1f80	65 63 74 28 73 65 6c 65 63 74 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 20 24 5f 20 3d 20 24 77 69	ect(select.=>.sub.{.....$_.=.$wi
1fa0	64 67 65 74 2d 3e 67 65 74 5f 75 73 65 72 5f 64 61 74 61 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e	dget->get_user_data;.....$text->
1fc0	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 65 6c 65 74 65	hide;.....$text->backward_delete
1fe0	28 24 74 65 78 74 2d 3e 67 65 74 5f 70 6f 69 6e 74 29 3b 0a 09 09 09 20 66 6f 72 65 61 63 68 20	($text->get_point);.....foreach.
2000	6d 79 20 24 69 20 28 73 6f 72 74 20 6d 61 70 20 7b 20 28 24 66 69 65 6c 64 73 7b 24 5f 7d 29 3f	my.$i.(sort.map.{.($fields{$_})?
2020	24 66 69 65 6c 64 73 7b 24 5f 7d 20 3a 20 24 5f 20 7d 20 6b 65 79 73 20 25 24 5f 29 20 7b 0a 09	$fields{$_}.:.$_.}.keys.%$_).{..
2040	09 09 09 24 74 65 78 74 2d 3e 69 6e 73 65 72 74 28 22 22 2c 22 22 2c 22 22 2c 20 22 5c 6e 24 69	...$text->insert("","","",."\n$i
2060	20 3a 20 22 2e 20 24 5f 2d 3e 7b 28 24 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 7b 24 69 7d 29	.:."..$_->{($reverse_fields{$i})
2080	3f 24 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 7b 24 69 7d 3a 24 69 7d 2e 22 5c 6e 22 20 29 3b	?$reverse_fields{$i}:$i}."\n".);
20a0	0a 09 09 09 09 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 69	..........$module_cfg_button->si
20c0	67 6e 61 6c 5f 64 69 73 63 6f 6e 6e 65 63 74 28 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 29	gnal_disconnect($tool_signal_id)
20e0	20 69 66 28 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 29 3b 0a 09 09 09 09 24 6d 6f 64 5f 73 69	.if($mod_signal_id);.....$mod_si
2100	67 6e 61 6c 5f 69 64 3d 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e	gnal_id=$module_cfg_button->sign
2120	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 0a 09 09 09 09 09 09	al_connect(clicked.=>.sub.......
2140	09 09 09 09 09 09 09 09 7b 0a 09 09 09 09 09 09 09 09 09 09 09 09 09 09 20 20 20 20 70 72 69 6e	........{...................prin
2160	74 20 22 54 4f 54 4f 5c 6e 22 3b 0a 09 09 09 09 09 09 09 09 09 09 09 09 09 09 7d 29 20 69 66 20	t."TOTO\n";...............}).if.
2180	28 24 69 20 65 71 20 22 4d 6f 64 75 6c 65 22 20 26 26 20 24 72 65 76 65 72 73 65 5f 66 69 65 6c	($i.eq."Module".&&.$reverse_fiel
21a0	64 73 7b 24 69 7d 29 3b 0a 09 09 09 20 7d 3b 0a 09 09 09 20 24 63 6f 6e 66 69 67 5f 62 75 74 74	ds{$i});.....};.....$config_butt
21c0	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 73 69 67 6e	on->signal_disconnect($tool_sign
21e0	61 6c 5f 69 64 29 20 69 66 28 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 29 3b 0a 09 09 09 20	al_id).if($tool_signal_id);.....
2200	24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 3d 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e	$tool_signal_id=$config_button->
2220	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.{.
2240	09 09 09 09 69 66 20 28 64 65 66 69 6e 65 64 20 24 70 69 64 29 20 7b 72 65 74 75 72 6e 7d 0a 09	....if.(defined.$pid).{return}..
2260	09 09 09 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	...if.($pid.=.fork()).{.........
2280	6d 79 20 24 69 64 20 3d 20 24 73 74 61 74 75 73 62 61 72 2d 3e 67 65 74 5f 63 6f 6e 74 65 78 74	my.$id.=.$statusbar->get_context
22a0	5f 69 64 28 22 69 64 22 29 3b 0a 09 09 09 09 20 20 20 20 24 73 69 67 5f 69 64 3d 24 73 74 61 74	_id("id");.........$sig_id=$stat
22c0	75 73 62 61 72 2d 3e 70 75 73 68 28 24 69 64 2c 20 5f 28 22 52 75 6e 6e 69 6e 67 20 5c 22 25 73	usbar->push($id,._("Running.\"%s
22e0	5c 22 20 2e 2e 2e 22 2c 20 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 29 29 3b 0a 09 09 09 09 7d 20	\"....",.$configurator));.....}.
2300	65 6c 73 65 20 7b 0a 09 09 09 09 20 20 20 20 65 78 65 63 28 24 63 6f 6e 66 69 67 75 72 61 74 6f	else.{.........exec($configurato
2320	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 67	r).or.die."$configurator.missing
2340	5c 6e 22 3b 0a 09 09 09 09 7d 0a 09 09 09 20 7d 29 20 20 69 66 20 28 2d 78 20 24 63 6f 6e 66 69	\n";.....}.....})..if.(-x.$confi
2360	67 75 72 61 74 6f 72 29 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 73 68 6f 77 3b 0a 09 09 09 20 24	gurator);.....$text->show;.....$
2380	63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 7d 20 29 3b 0a 09 20	config_button->show;.....}.);...
23a0	20 20 7d 0a 20 20 20 20 7d 0a 23 20 20 20 20 75 6e 64 65 66 20 24 77 61 69 74 3b 0a 20 20 20 20	..}.....}.#....undef.$wait;.....
23c0	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 28	.....$main_win->signal_connect.(
23e0	20 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 20 29	.delete_event.=>.\&quit_global.)
2400	3b 0a 20 20 20 20 0a 20 20 20 20 72 65 74 75 72 6e 20 24 6d 61 69 6e 5f 77 69 6e 3b 20 20 20 20	;..........return.$main_win;....
2420	23 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 73 74 72 75 63 74 65 64 20 55 49 0a 7d 0a 0a 0a	#.Return.the.constructed.UI.}...
2440	73 75 62 20 61 62 6f 75 74 5f 68 61 72 64 64 72 61 6b 65 20 7b 0a 20 20 20 20 24 69 6e 2d 3e 61	sub.about_harddrake.{.....$in->a
2460	73 6b 5f 79 65 73 6f 72 6e 6f 28 5f 28 22 41 62 6f 75 74 20 48 61 72 64 64 72 61 6b 65 22 29 2c	sk_yesorno(_("About.Harddrake"),
2480	20 0a 09 09 09 09 20 6a 6f 69 6e 20 28 22 22 2c 20 5f 28 22 54 68 69 73 20 69 73 20 48 61 72 64	.......join.("",._("This.is.Hard
24a0	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 6f 6e 66 69	Drake,.a.Mandrake.hardware.confi
24c0	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 22 20 24 68	guration.tool.\nVersion:"),.".$h
24e0	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 0a 09 09 09	arddrake::data::version\n",.....
2500	09 09 20 20 5f 28 22 41 75 74 68 6f 72 3a 22 29 2c 22 20 54 68 69 65 72 72 79 20 56 69 67 6e 61	...._("Author:"),".Thierry.Vigna
2520	75 64 20 3c 74 76 69 67 6e 61 75 64 5c 40 6d 61 6e 64 72 61 6b 65 73 6f 66 74 2e 63 6f 6d 3e 20	ud.<tvignaud\@mandrakesoft.com>.
2540	5c 6e 5c 6e 22 20 2c 0a 09 09 09 09 09 20 20 66 6f 72 6d 61 74 41 6c 61 54 65 58 28 24 6c 69 63	\n\n".,........formatAlaTeX($lic
2560	65 6e 73 65 29 29 2c 0a 09 09 09 09 20 5b 20 5f 28 22 4f 6b 22 29 20 5d 2c 20 22 4f 6b 22 29 3b	ense)),......[._("Ok").],."Ok");
2580	0a 0a 7d 0a 0a 73 75 62 20 68 65 6c 70 20 7b 0a 20 20 20 20 24 69 6e 2d 3e 61 73 6b 5f 79 65 73	..}..sub.help.{.....$in->ask_yes
25a0	6f 72 6e 6f 28 5f 28 22 48 61 72 64 64 72 61 6b 65 20 68 65 6c 70 22 29 2c 20 0a 09 09 09 09 20	orno(_("Harddrake.help"),.......
25c0	5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 65 6c 64 73 3a 0a 0a 42	_("Description.of.the.fields:..B
25e0	75 73 3a 20 74 68 69 73 20 69 73 20 74 68 65 20 70 68 79 73 69 63 61 6c 20 62 75 73 20 6f 6e 20	us:.this.is.the.physical.bus.on.
2600	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 65 64 20 28 65 67 3a	which.the.device.is.plugged.(eg:
2620	20 50 43 49 2c 20 55 53 42 2c 20 2e 2e 2e 29 0a 0a 42 75 73 20 69 64 65 6e 74 69 66 69 63 61 74	.PCI,.USB,....)..Bus.identificat
2640	69 6f 6e 3a 20 0a 2d 20 70 63 69 20 64 65 76 69 63 65 73 20 3a 20 74 68 69 73 20 6c 69 73 74 20	ion:..-.pci.devices.:.this.list.
2660	74 68 65 20 76 65 6e 64 6f 72 2c 20 64 65 76 69 63 65 2c 20 73 75 62 76 65 6e 64 6f 72 20 61 6e	the.vendor,.device,.subvendor.an
2680	64 20 73 75 62 64 65 76 69 63 65 20 50 43 49 20 69 64 73 0a 0a 44 65 73 63 72 69 70 74 69 6f 6e	d.subdevice.PCI.ids..Description
26a0	3a 20 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 65 76 69 63 65	:.this.field.describe.the.device
26c0	0a 0a 4c 6f 63 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 62 75 73 3a 20 0a 2d 20 70 63 69 20 64 65	..Location.on.the.bus:..-.pci.de
26e0	76 69 63 65 73 3a 20 74 68 69 73 20 67 69 76 65 73 20 74 68 65 20 50 43 49 20 73 6c 6f 74 2c 20	vices:.this.gives.the.PCI.slot,.
2700	64 65 76 69 63 65 20 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 63 61 72 64	device.and.function.of.this.card
2720	0a 2d 20 65 69 64 65 20 64 65 76 69 63 65 73 3a 20 74 68 65 20 64 65 76 69 63 65 20 69 73 20 65	.-.eide.devices:.the.device.is.e
2740	69 74 68 65 72 20 61 20 73 6c 61 76 65 20 6f 72 20 61 20 6d 61 73 74 65 72 20 64 65 76 69 63 65	ither.a.slave.or.a.master.device
2760	0a 2d 20 73 63 73 69 20 64 65 76 69 63 65 73 3a 20 74 68 65 20 73 63 73 69 20 62 75 73 20 61 6e	.-.scsi.devices:.the.scsi.bus.an
2780	64 20 74 68 65 20 73 63 73 69 20 64 65 76 69 63 65 20 69 64 73 0a 0a 4d 65 64 69 61 20 63 6c 61	d.the.scsi.device.ids..Media.cla
27a0	73 73 3a 20 63 6c 61 73 73 20 6f 66 20 68 61 72 64 77 61 72 65 20 64 65 76 69 63 65 0a 0a 4d 6f	ss:.class.of.hardware.device..Mo
27c0	64 75 6c 65 3a 20 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	dule:.the.module.of.the.GNU/Linu
27e0	78 20 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	x.kernel.that.handle.that.device
2800	0a 0a 56 65 6e 64 6f 72 3a 20 74 68 65 20 76 65 6e 64 6f 72 20 6e 61 6d 65 20 6f 66 20 74 68 65	..Vendor:.the.vendor.name.of.the
2820	20 64 65 76 69 63 65 0a 22 29 2c 0a 09 09 09 09 20 5b 20 5f 28 22 4f 6b 22 29 20 5d 2c 20 22 4f	.device."),......[._("Ok").],."O
2840	6b 22 29 3b 0a 0a 7d 0a 0a 0a 73 75 62 20 71 75 69 74 5f 67 6c 6f 62 61 6c 20 7b 0a 20 20 20 20	k");..}...sub.quit_global.{.....
2860	47 74 6b 2d 3e 65 78 69 74 28 30 29 3b 0a 7d 0a 0a 0a 5f 5f 45 4e 44 5f 5f 0a	Gtk->exit(0);.}...__END__.