summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake/ui.pm
blob: e8035cb3fbbfa355a92a99414a3761d1d163f4f9 (plain)
ofshex dumpascii
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 22 6e 62 75 74 74 6f 6e 73 22 20 3d 3e 20 22 4e 75 6d 62 65 72 20 6f 66 20 e",...."nbuttons".=>."Number.of.
0320 62 75 74 74 6f 6e 73 22 2c 0a 23 09 09 09 22 4d 4f 55 53 45 54 59 50 45 22 20 3d 3e 20 22 54 79 buttons",.#..."MOUSETYPE".=>."Ty
0340 70 65 20 6f 66 20 6d 6f 75 73 65 20 28 67 70 6d 29 22 2c 0a 23 09 09 09 22 58 4d 4f 55 53 45 54 pe.of.mouse.(gpm)",.#..."XMOUSET
0360 59 50 45 22 20 3d 3e 20 22 54 79 70 65 20 6f 66 20 6d 6f 75 73 65 20 28 58 31 31 29 22 2c 0a 09 YPE".=>."Type.of.mouse.(X11)",..
0380 09 09 22 6e 61 6d 65 22 20 3d 3e 20 22 4e 61 6d 65 22 2c 0a 09 09 09 29 3b 0a 0a 0a 6d 79 20 25 .."name".=>."Name",....);...my.%
03a0 65 69 64 65 5f 68 64 73 20 3d 0a 20 20 20 20 28 0a 09 22 41 53 55 53 20 22 20 3d 3e 20 22 41 73 eide_hds.=.....(.."ASUS.".=>."As
03c0 75 73 22 2c 0a 09 22 43 44 2d 52 4f 4d 20 43 44 55 22 20 3d 3e 20 22 53 6f 6e 79 22 2c 0a 09 22 us",.."CD-ROM.CDU".=>."Sony",.."
03e0 43 44 2d 52 4f 4d 20 44 72 69 76 65 2f 46 35 44 22 20 3d 3e 20 22 41 53 55 53 54 65 4b 22 2c 0a CD-ROM.Drive/F5D".=>."ASUSTeK",.
0400 09 22 43 6f 6d 70 61 71 22 20 3d 3e 20 22 43 6f 6d 70 61 71 22 2c 0a 09 22 43 4f 4e 4e 45 52 22 ."Compaq".=>."Compaq",.."CONNER"
0420 20 3d 3e 20 22 43 6f 6e 6e 65 72 20 50 65 72 69 70 68 65 72 61 6c 73 22 2c 0a 09 22 49 42 4d 2d .=>."Conner.Peripherals",.."IBM-
0440 22 20 3d 3e 20 22 49 42 4d 22 2c 0a 09 22 46 55 4a 49 54 53 55 22 20 3d 3e 20 22 46 75 6a 69 74 ".=>."IBM",.."FUJITSU".=>."Fujit
0460 73 75 22 2c 0a 09 22 48 49 54 41 43 48 49 22 20 3d 3e 20 22 48 69 74 61 63 68 69 22 2c 0a 09 22 su",.."HITACHI".=>."Hitachi",.."
0480 4c 69 74 65 2d 4f 6e 22 20 3d 3e 20 22 4c 69 74 65 2d 4f 6e 20 54 65 63 68 6e 6f 6c 6f 67 79 20 Lite-On".=>."Lite-On.Technology.
04a0 43 6f 72 70 2e 22 2c 0a 09 22 4c 54 4e 22 20 3d 3e 20 22 4c 69 74 65 2d 4f 6e 20 54 65 63 68 6e Corp.",.."LTN".=>."Lite-On.Techn
04c0 6f 6c 6f 67 79 20 43 6f 72 70 2e 22 2c 0a 09 22 49 4f 4d 45 47 41 20 22 20 3d 3e 20 22 49 6f 6d ology.Corp.",.."IOMEGA.".=>."Iom
04e0 65 67 61 22 2c 0a 09 22 4d 41 58 54 4f 52 20 22 20 3d 3e 20 22 4d 61 78 74 6f 72 22 2c 0a 09 22 ega",.."MAXTOR.".=>."Maxtor",.."
0500 4d 61 78 74 6f 72 20 22 20 3d 3e 20 22 4d 61 78 74 6f 72 22 2c 0a 09 22 4d 69 63 72 6f 70 6f 6c Maxtor.".=>."Maxtor",.."Micropol
0520 69 73 22 20 3d 3e 20 22 4d 69 63 72 6f 70 6f 6c 69 73 22 2c 0a 09 22 50 4c 45 58 54 4f 52 22 20 is".=>."Micropolis",.."PLEXTOR".
0540 3d 3e 20 22 50 6c 65 78 74 6f 72 22 2c 0a 09 22 51 55 41 4e 54 55 4d 22 20 3d 3e 20 22 51 75 61 =>."Plextor",.."QUANTUM".=>."Qua
0560 6e 74 75 6d 22 2c 20 0a 09 22 53 41 4d 53 55 4e 47 22 20 3d 3e 20 22 53 61 6d 73 75 6e 67 22 2c ntum",..."SAMSUNG".=>."Samsung",
0580 0a 09 22 53 65 61 67 61 74 65 20 22 20 3d 3e 20 22 53 65 61 67 61 74 65 20 54 65 63 68 6e 6f 6c .."Seagate.".=>."Seagate.Technol
05a0 6f 67 79 22 2c 0a 09 22 53 54 33 22 20 3d 3e 20 22 53 65 61 67 61 74 65 20 54 65 63 68 6e 6f 6c ogy",.."ST3".=>."Seagate.Technol
05c0 6f 67 79 22 2c 0a 09 22 54 45 41 43 22 20 3d 3e 20 22 54 65 61 63 22 2c 0a 09 22 54 4f 53 48 49 ogy",.."TEAC".=>."Teac",.."TOSHI
05e0 42 41 22 20 3d 3e 20 22 54 6f 73 68 69 62 61 22 2c 0a 09 22 57 44 43 22 20 3d 3e 20 22 57 65 73 BA".=>."Toshiba",.."WDC".=>."Wes
0600 74 65 72 6e 20 44 69 67 69 74 61 6c 20 43 6f 72 70 2e 22 2c 0a 09 29 3b 0a 0a 6d 79 20 24 69 6e tern.Digital.Corp.",..);..my.$in
0620 3b 0a 0a 73 75 62 20 72 75 6e 20 7b 0a 20 20 20 20 6d 79 20 28 24 63 6c 61 73 73 29 20 3d 20 40 ;..sub.run.{.....my.($class).=.@
0640 5f 3b 0a 20 20 20 20 24 69 6e 20 3d 20 27 69 6e 74 65 72 61 63 74 69 76 65 27 2d 3e 76 6e 65 77 _;.....$in.=.'interactive'->vnew
0660 28 27 73 75 27 2c 20 27 64 65 66 61 75 6c 74 27 29 3b 0a 20 20 20 20 47 74 6b 2d 3e 69 6e 69 74 ('su',.'default');.....Gtk->init
0680 3b 0a 20 20 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 ;.....my.$window.=.$class->new;.
06a0 20 20 20 20 24 77 69 6e 64 6f 77 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 47 74 6b 2d 3e 6d 61 69 6e ....$window->show;.....Gtk->main
06c0 3b 0a 20 20 20 20 24 77 69 6e 64 6f 77 2d 3e 64 65 73 74 72 6f 79 3b 0a 7d 0a 0a 6d 79 20 24 6c ;.....$window->destroy;.}..my.$l
06e0 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 30 30 32 icense.='Copyright.(C).1999-2002
0700 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 64 72 61 .MandrakeSoft.by.tvignaud@mandra
0720 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 72 65 65 kesoft.com..This.program.is.free
0740 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 74 65 20 .software;.you.can.redistribute.
0760 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 20 74 65 it.and/or.modify.it.under.the.te
0780 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 20 4c 69 rms.of.the.GNU.General.Public.Li
07a0 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 65 20 53 cense.as.published.by.the.Free.S
07c0 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 72 73 69 oftware.Foundation;.either.versi
07e0 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 20 6c 61 on.2,.or.(at.your.option).any.la
0800 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 20 64 69 ter.version...This.program.is.di
0820 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 20 77 69 stributed.in.the.hope.that.it.wi
0840 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 20 57 41 ll.be.useful,.but.WITHOUT.ANY.WA
0860 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 69 65 64 RRANTY;.without.even.the.implied
0880 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 6f 72 20 .warranty.of.MERCHANTABILITY.or.
08a0 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 4f 53 45 FITNESS.FOR.A.PARTICULAR.PURPOSE
08c0 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 20 4c 69 ...See.the.GNU.General.Public.Li
08e0 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 73 68 6f cense.for.more.details...You.sho
0900 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 68 65 20 uld.have.received.a.copy.of.the.
0920 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 6f 6e 67 GNU.General.Public.License.along
0940 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 72 69 74 .with.this.program;.if.not,.writ
0960 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 74 69 6f e.to.the.Free.Software.Foundatio
0980 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 69 74 65 n,.Inc.,.59.Temple.Place.-.Suite
09a0 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 55 53 41 .330,.Boston,.MA.02111-1307,.USA
09c0 2e 0a 27 3b 0a 0a 0a 73 75 62 20 6e 65 77 20 7b 0a 20 20 20 20 6d 79 20 28 24 73 74 61 74 75 73 ..';...sub.new.{.....my.($status
09e0 62 61 72 2c 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 2c 20 24 6d 65 6e 75 2c 20 24 6d 61 69 6e 5f bar,.$accel_group,.$menu,.$main_
0a00 77 69 6e 2c 20 24 77 69 64 67 65 74 2c 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2c 0a 09 20 win,.$widget,.$config_button,...
0a20 20 20 24 6d 65 6e 75 62 61 72 2c 20 24 6d 61 69 6e 5f 76 62 6f 78 2c 20 24 76 62 6f 78 2c 20 24 ..$menubar,.$main_vbox,.$vbox,.$
0a40 74 72 65 65 2c 20 24 74 65 78 74 2c 20 25 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 2c 20 24 77 tree,.$text,.%reverse_fields,.$w
0a60 61 69 74 2c 0a 09 20 20 20 24 66 72 61 6d 65 2c 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 ait,.....$frame,.$module_cfg_but
0a80 74 6f 6e 2c 20 24 76 73 63 72 6f 6c 6c 62 61 72 2c 24 70 69 64 2c 24 6d 6f 64 5f 73 69 67 6e 61 ton,.$vscrollbar,$pid,$mod_signa
0aa0 6c 5f 69 64 2c 0a 09 20 20 20 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 2c 20 24 73 69 67 5f l_id,.....$tool_signal_id,.$sig_
0ac0 69 64 29 3b 0a 0a 20 20 20 20 69 66 20 28 22 40 41 52 47 56 22 20 3d 7e 20 2f 2d 2d 68 65 6c 70 id);......if.("@ARGV".=~./--help
0ae0 7c 2d 68 2f 29 20 7b 0a 09 20 20 20 70 72 69 6e 74 20 22 48 61 72 64 64 72 61 6b 65 20 32 5c 6e |-h/).{.....print."Harddrake.2\n
0b00 22 2c 20 24 6c 69 63 65 6e 73 65 2c 20 22 5c 6e 55 73 61 67 65 3a 20 68 61 72 64 64 72 61 6b 65 ",.$license,."\nUsage:.harddrake
0b20 20 5b 2d 68 7c 2d 2d 68 65 6c 70 5d 5c 6e 22 3b 0a 09 20 20 20 65 78 69 74 3b 0a 20 20 20 20 7d .[-h|--help]\n";.....exit;.....}
0b40 0a 0a 20 20 20 20 6d 79 5f 67 74 6b 3a 3a 61 64 64 5f 69 63 6f 6e 5f 70 61 74 68 28 27 2f 75 73 ......my_gtk::add_icon_path('/us
0b60 72 2f 73 68 61 72 65 2f 70 69 78 6d 61 70 73 2f 68 61 72 64 64 72 61 6b 65 32 2f 27 29 3b 0a 20 r/share/pixmaps/harddrake2/');..
0b80 20 20 20 24 6d 61 69 6e 5f 77 69 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 57 69 6e 64 6f 77 3b 0a ...$main_win.=.new.Gtk::Window;.
0ba0 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 74 69 74 6c 65 28 5f 28 22 48 61 72 64 ....$main_win->set_title(_("Hard
0bc0 64 72 61 6b 65 32 20 76 65 72 73 69 6f 6e 20 22 20 2e 20 24 68 61 72 64 64 72 61 6b 65 3a 3a 64 drake2.version."...$harddrake::d
0be0 61 74 61 3a 3a 76 65 72 73 69 6f 6e 29 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 ata::version));.....$main_win->s
0c00 65 74 5f 70 6f 6c 69 63 79 28 30 2c 20 31 2c 20 30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 et_policy(0,.1,.0.);.....$main_w
0c20 69 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 20 3d 20 6e in->realize;......$main_vbox.=.n
0c40 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 20 30 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 ew.Gtk::VBox(0,.0.);.....$main_w
0c60 69 6e 2d 3e 61 64 64 28 24 6d 61 69 6e 5f 76 62 6f 78 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 in->add($main_vbox);.....$main_v
0c80 62 6f 78 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 3d 20 6e box->show;......$accel_group.=.n
0ca0 65 77 20 47 74 6b 3a 3a 41 63 63 65 6c 47 72 6f 75 70 3b 0a 20 20 20 20 24 77 69 64 67 65 74 20 ew.Gtk::AccelGroup;.....$widget.
0cc0 3d 20 6e 65 77 20 47 74 6b 3a 3a 49 74 65 6d 46 61 63 74 6f 72 79 28 20 27 47 74 6b 3a 3a 4d 65 =.new.Gtk::ItemFactory(.'Gtk::Me
0ce0 6e 75 42 61 72 27 2c 20 27 3c 6d 61 69 6e 3e 27 2c 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 29 nuBar',.'<main>',.$accel_group.)
0d00 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 63 72 65 61 74 65 5f 69 74 65 6d 73 28 20 40 6d 65 ;.....$widget->create_items(.@me
0d20 6e 75 5f 69 74 65 6d 73 20 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 61 64 64 5f 61 nu_items.);.....$main_win->add_a
0d40 63 63 65 6c 5f 67 72 6f 75 70 28 20 24 61 63 63 65 6c 5f 67 72 6f 75 70 20 29 3b 20 23 24 61 63 ccel_group(.$accel_group.);.#$ac
0d60 63 65 6c 5f 67 72 6f 75 70 2d 3e 61 74 74 61 63 68 28 24 6d 61 69 6e 5f 77 69 6e 29 3b 0a 20 20 cel_group->attach($main_win);...
0d80 20 20 24 6d 65 6e 75 62 61 72 20 3d 20 24 77 69 64 67 65 74 2d 3e 67 65 74 5f 77 69 64 67 65 74 ..$menubar.=.$widget->get_widget
0da0 28 20 27 3c 6d 61 69 6e 3e 27 20 29 3b 0a 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 (.'<main>'.);......$main_vbox->a
0dc0 64 64 28 24 6d 65 6e 75 62 61 72 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 73 65 dd($menubar);.....$main_vbox->se
0de0 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 6d 65 6e 75 62 61 72 2c 20 30 2c 20 30 2c 20 t_child_packing($menubar,.0,.0,.
0e00 30 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 6d 65 6e 75 62 61 72 2d 3e 73 68 6f 77 0,.'start'.);.....$menubar->show
0e20 3b 0a 0a 20 20 20 20 24 74 72 65 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 3b 0a 20 20 ;......$tree.=.new.Gtk::Tree;...
0e40 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 73 65 6c 65 63 74 69 6f 6e 5f 6d 6f 64 65 28 27 73 69 6e ..$tree->set_selection_mode('sin
0e60 67 6c 65 27 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 76 69 65 77 5f 6d 6f 64 65 gle'.);.....$tree->set_view_mode
0e80 28 27 6c 69 6e 65 27 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 65 74 5f 76 69 65 77 5f 6c ('line'.);.....$tree->set_view_l
0ea0 69 6e 65 73 28 31 29 3b 0a 0a 20 20 20 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a ines(1);......$widget.=.new.Gtk:
0ec0 3a 48 50 61 6e 65 64 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 77 69 :HPaned;.....$main_vbox->add($wi
0ee0 64 67 65 74 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 dget);.....$main_vbox->set_child
0f00 5f 70 61 63 6b 69 6e 67 28 24 77 69 64 67 65 74 2c 20 31 2c 20 31 2c 20 30 2c 20 27 73 74 61 72 _packing($widget,.1,.1,.0,.'star
0f20 74 27 20 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 66 t'.);.....$widget->show;......$f
0f40 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 20 24 66 72 61 6d rame.=.new.Gtk::Frame;.....$fram
0f60 65 2d 3e 73 65 74 5f 6c 61 62 65 6c 28 20 5f 28 22 44 65 74 65 63 74 65 64 20 68 61 72 64 77 61 e->set_label(._("Detected.hardwa
0f80 72 65 22 29 29 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 61 64 64 28 24 74 72 65 65 29 3b 0a 0a re"));.....$frame->add($tree);..
0fa0 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 31 28 20 24 66 72 61 6d 65 2c 20 30 2c 20 30 ....$widget->pack1(.$frame,.0,.0
0fc0 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 61 64 64 31 28 20 24 66 72 61 6d 65 20 20 29 3b );.....$widget->add1(.$frame..);
0fe0 0a 20 20 20 20 24 74 72 65 65 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 73 68 .....$tree->show;.....$frame->sh
1000 6f 77 3b 0a 0a 20 20 20 20 24 76 62 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 3b 0a ow;......$vbox.=.new.Gtk::VBox;.
1020 20 20 20 20 24 76 62 6f 78 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 ....$vbox->show;.....$widget->pa
1040 63 6b 32 28 20 24 76 62 6f 78 2c 20 31 2c 20 30 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e ck2(.$vbox,.1,.0);.....$widget->
1060 61 64 64 32 28 20 24 76 62 6f 78 20 29 3b 0a 0a 20 20 20 20 24 66 72 61 6d 65 20 3d 20 6e 65 77 add2(.$vbox.);......$frame.=.new
1080 20 47 74 6b 3a 3a 46 72 61 6d 65 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 73 65 74 5f 6c 61 62 .Gtk::Frame;.....$frame->set_lab
10a0 65 6c 28 20 5f 28 22 49 6e 66 6f 72 6d 61 74 69 6f 6e 73 22 29 29 3b 0a 20 20 20 20 24 76 62 6f el(._("Informations"));.....$vbo
10c0 78 2d 3e 61 64 64 28 24 66 72 61 6d 65 29 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 73 68 6f 77 x->add($frame);.....$frame->show
10e0 3b 0a 0a 20 20 20 20 0a 20 20 20 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 ;...........$widget.=.new.Gtk::H
1100 42 6f 78 3b 0a 20 20 20 20 24 66 72 61 6d 65 2d 3e 61 64 64 28 24 77 69 64 67 65 74 29 3b 0a 20 Box;.....$frame->add($widget);..
1120 20 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 74 65 78 74 20 3d 20 6e 65 ...$widget->show;.....$text.=.ne
1140 77 20 47 74 6b 3a 3a 54 65 78 74 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 61 64 64 28 24 74 w.Gtk::Text;.....$widget->add($t
1160 65 78 74 29 3b 0a 20 20 20 20 24 74 65 78 74 2d 3e 72 65 61 6c 69 7a 65 3b 0a 20 20 20 20 24 74 ext);.....$text->realize;.....$t
1180 65 78 74 2d 3e 73 68 6f 77 3b 0a 0a 20 20 20 20 24 76 73 63 72 6f 6c 6c 62 61 72 20 3d 20 6e 65 ext->show;......$vscrollbar.=.ne
11a0 77 20 47 74 6b 3a 3a 56 53 63 72 6f 6c 6c 62 61 72 28 20 24 74 65 78 74 2d 3e 76 61 64 6a 20 29 w.Gtk::VScrollbar(.$text->vadj.)
11c0 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 5f 73 74 61 72 74 28 20 24 76 73 63 72 ;.....$widget->pack_start(.$vscr
11e0 6f 6c 6c 62 61 72 2c 20 30 2c 20 30 2c 20 30 20 29 3b 0a 20 20 20 20 24 76 73 63 72 6f 6c 6c 62 ollbar,.0,.0,.0.);.....$vscrollb
1200 61 72 2d 3e 73 68 6f 77 28 29 3b 0a 0a 20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 20 ar->show();......$config_button.
1220 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 6f 6e 66 69 67 20 =.new.Gtk::Button(_("Run.config.
1240 74 6f 6f 6c 22 29 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24 63 6f 6e 66 69 67 5f tool"));.....$vbox->add($config_
1260 62 75 74 74 6f 6e 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 button);.....$vbox->set_child_pa
1280 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 27 cking($config_button,.0,.0,.0,.'
12a0 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 72 65 start'.);.....$config_button->re
12c0 61 6c 69 7a 65 3b 0a 23 20 20 20 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 alize;.#....$config_button->show
12e0 3b 0a 0a 20 20 20 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 20 3d 20 6e 65 77 20 ;......$module_cfg_button.=.new.
1300 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 75 6c 65 22 Gtk::Button(_("Configure.module"
1320 29 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 61 64 64 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 ));.....$vbox->add($module_cfg_b
1340 75 74 74 6f 6e 29 3b 0a 20 20 20 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 utton);.....$vbox->set_child_pac
1360 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 2c 20 30 king($module_cfg_button,.0,.0,.0
1380 2c 20 27 73 74 61 72 74 27 20 29 3b 0a 20 20 20 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 ,.'start'.);.....$module_cfg_but
13a0 74 6f 6e 2d 3e 72 65 61 6c 69 7a 65 3b 0a 0a 20 20 20 20 25 72 65 76 65 72 73 65 5f 66 69 65 6c ton->realize;......%reverse_fiel
13c0 64 73 20 3d 20 72 65 76 65 72 73 65 20 25 66 69 65 6c 64 73 3b 0a 0a 20 20 20 20 24 73 74 61 74 ds.=.reverse.%fields;......$stat
13e0 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 3b 0a 20 20 20 20 usbar.=.new.Gtk::Statusbar;.....
1400 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 61 64 64 28 24 73 74 61 74 75 73 62 61 72 29 3b 0a 20 20 20 $main_vbox->add($statusbar);....
1420 20 24 73 74 61 74 75 73 62 61 72 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f .$statusbar->show;.....$main_vbo
1440 78 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 x->set_child_packing($statusbar,
1460 20 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 61 69 74 20 .0,.0,.0,.'start'.);......$wait.
1480 3d 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 =.$in->wait_message(_("Please.wa
14a0 69 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 it"),._("Detection.in.progress")
14c0 29 3b 0a 0a 20 20 20 20 6d 79 20 24 72 6f 6f 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 );......my.$root.=.new.Gtk::Tree
14e0 49 74 65 6d 28 20 29 3b 0a 20 20 20 20 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 20 24 72 6f 6f Item(.);.....$tree->append(.$roo
1500 74 20 29 3b 0a 20 20 20 20 24 72 6f 6f 74 2d 3e 73 68 6f 77 28 29 3b 0a 0a 23 20 20 20 20 24 73 t.);.....$root->show();..#....$s
1520 75 62 74 72 65 65 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 3b 0a 23 20 20 20 20 24 74 72 65 ubtree=.new.Gtk::Tree;.#....$tre
1540 65 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 20 24 73 75 62 74 72 65 65 20 29 3b 0a 23 20 20 20 e->set_subtree(.$subtree.);.#...
1560 20 24 73 75 62 74 72 65 65 2d 3e 73 68 6f 77 28 29 3b 0a 23 20 20 20 20 24 68 62 6f 78 2d 3e 61 .$subtree->show();.#....$hbox->a
1580 64 64 28 24 76 62 6f 78 29 3b 0a 23 20 20 20 20 24 68 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 dd($vbox);.#....$hbox->set_child
15a0 5f 70 61 63 6b 69 6e 67 28 24 76 62 6f 78 2c 20 31 2c 20 31 2c 20 30 2c 20 27 73 74 61 72 74 27 _packing($vbox,.1,.1,.0,.'start'
15c0 20 29 3b 0a 20 20 20 20 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 40 68 61 72 64 64 72 61 6b 65 .);..........foreach.(@harddrake
15e0 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 64 65 6e 74 2c 20 24 ::data::tree){.....my.($Ident,.$
1600 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 6f 72 2c 20 24 64 65 title,.$icon,.$configurator,.$de
1620 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 66 20 28 72 65 66 28 tector).=.@$_;.....next.if.(ref(
1640 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 6b 69 70 20 63 6c 61 $detector).ne."CODE");.#skip.cla
1660 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 79 20 40 64 65 76 69 ss.witouth.detector.....my.@devi
1680 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 74 20 69 66 20 28 21 ces.=.&$detector;.....next.if.(!
16a0 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 53 6b 69 70 20 65 6d listlength(@devices));.#.Skip.em
16c0 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 20 20 6d 79 20 28 24 pty.class.(no.devices).....my.($
16e0 73 75 62 69 74 65 6d 2c 20 24 73 75 62 73 75 62 74 72 65 65 29 20 3d 20 28 6e 65 77 20 47 74 6b subitem,.$subsubtree).=.(new.Gtk
1700 3a 3a 54 72 65 65 49 74 65 6d 2c 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 29 3b 0a 09 20 20 20 ::TreeItem,.new.Gtk::Tree);.....
1720 24 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 20 24 73 75 62 69 74 65 6d 20 29 3b 0a 09 20 20 20 24 $tree->append(.$subitem.);.....$
1740 73 75 62 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 20 20 subitem->signal_connect(select..
1760 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 5f 64 65 6c =>.sub.{.....$text->backward_del
1780 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 73 65 20 61 ete($text->get_point);.#.erase.a
17a0 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 5f 62 75 74 ll.previous.text.....$config_but
17c0 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 75 74 74 6f ton->hide;.....$module_cfg_butto
17e0 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 6d 79 20 24 n->hide;.....},.,."".);.....my.$
1800 67 69 63 6f 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 50 69 78 6d 61 70 28 6d 79 5f 67 74 6b 3a 3a gicon.=.new.Gtk::Pixmap(my_gtk::
1820 67 74 6b 63 72 65 61 74 65 5f 70 6e 67 28 24 69 63 6f 6e 29 29 3b 0a 09 20 20 20 0a 09 20 20 20 gtkcreate_png($icon));..........
1840 6d 79 20 28 24 68 62 6f 78 2c 20 24 6c 61 62 65 6c 29 20 3d 20 28 6e 65 77 20 47 74 6b 3a 3a 48 my.($hbox,.$label).=.(new.Gtk::H
1860 42 6f 78 28 30 2c 30 29 20 2c 6e 65 77 20 47 74 6b 3a 3a 4c 61 62 65 6c 28 24 74 69 74 6c 65 29 Box(0,0).,new.Gtk::Label($title)
1880 29 3b 0a 09 20 20 20 24 68 62 6f 78 2d 3e 70 61 63 6b 5f 73 74 61 72 74 28 24 67 69 63 6f 6e 2c );.....$hbox->pack_start($gicon,
18a0 30 2c 20 30 2c 20 35 29 3b 0a 09 20 20 20 24 68 62 6f 78 2d 3e 70 61 63 6b 5f 73 74 61 72 74 28 0,.0,.5);.....$hbox->pack_start(
18c0 24 6c 61 62 65 6c 2c 30 2c 20 30 2c 20 35 29 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 61 $label,0,.0,.5);.....$subitem->a
18e0 64 64 28 24 68 62 6f 78 29 3b 0a 09 20 20 20 66 6f 72 65 61 63 68 20 28 24 67 69 63 6f 6e 2c 20 dd($hbox);.....foreach.($gicon,.
1900 24 6c 61 62 65 6c 2c 20 24 68 62 6f 78 2c 20 24 73 75 62 69 74 65 6d 29 20 7b 20 24 5f 2d 3e 73 $label,.$hbox,.$subitem).{.$_->s
1920 68 6f 77 28 29 20 7d 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 73 65 74 5f 73 75 62 74 72 how().};.....$subitem->set_subtr
1940 65 65 28 24 73 75 62 73 75 62 74 72 65 65 29 3b 0a 09 20 20 20 24 73 75 62 69 74 65 6d 2d 3e 65 ee($subsubtree);.....$subitem->e
1960 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
1980 2f 00 29 3b 0a 0a 09 20 20 20 24 53 49 47 7b 43 48 4c 44 7d 20 3d 20 73 75 62 20 7b 20 75 6e 64 /.);......$SIG{CHLD}.=.sub.{.und
19a0 65 66 20 24 70 69 64 3b 20 24 73 74 61 74 75 73 62 61 72 2d 3e 70 6f 70 28 24 73 69 67 5f 69 64 ef.$pid;.$statusbar->pop($sig_id
19c0 29 20 7d 3b 0a 0a 09 20 20 20 66 6f 72 65 61 63 68 20 28 40 64 65 76 69 63 65 73 29 20 7b 0a 09 ).};......foreach.(@devices).{..
19e0 09 20 20 6d 79 20 24 69 3d 20 28 64 65 66 69 6e 65 64 28 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 29 ...my.$i=.(defined($_->{device})
1a00 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 6e 65 64 28 24 5f 2d ?.$_->{device}:.....(defined($_-
1a20 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 72 69 70 74 69 6f 6e >{description})?$_->{description
1a40 7d 3a 24 74 69 74 6c 65 29 29 3b 0a 09 09 20 20 6d 79 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 }:$title));.....my.$widget.=.new
1a60 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 24 69 29 3b 0a 09 09 20 20 69 66 20 28 65 78 69 73 .Gtk::TreeItem($i);.....if.(exis
1a80 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 22 50 43 ts.$_->{bus}.&&.$_->{bus}.eq."PC
1aa0 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 3e 7b 62 75 73 I").{.....my.$i=$_;.....$_->{bus
1ac0 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 24 69 2d 3e 7b _id}.=.join.':',.map.{.if_($i->{
1ae0 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 6c 78 22 2c 20 $_}.ne."65535",..sprintf("%lx",.
1b00 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 75 62 76 65 6e $i->{$_})).}.qw(vendor.id.subven
1b20 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 63 61 74 69 6f dor.subid);.....$_->{bus_locatio
1b40 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 66 28 22 25 6c n}.=.join.':',.map.{.sprintf("%l
1b60 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 20 70 63 69 5f x",.$i->{$_}.).}.qw(pci_bus.pci_
1b80 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 0a 09 09 20 20 device.pci_function);.....}.....
1ba0 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 6e 75 66 61 63 #.split.description.into.manufac
1bc0 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 7b 56 65 6e 64 turer/description.....($_->{Vend
1be0 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 74 28 2f 5c 7c or},$_->{description})=split(/\|
1c00 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 73 74 73 20 24 /,$_->{description}).if.exists.$
1c20 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 3b 0a 09 09 20 20 24 5f 2d 3e 7b 64 65 76 69 63 _->{description};.....$_->{devic
1c40 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 74 e}='/dev/'.$_->{device}.if.exist
1c60 73 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3b 0a 09 09 20 20 23 20 45 49 44 45 20 64 65 74 65 63 s.$_->{device};.....#.EIDE.detec
1c80 74 69 6f 6e 20 69 6e 63 6f 68 65 72 65 6e 63 79 3a 0a 09 09 20 20 69 66 20 28 65 78 69 73 74 73 tion.incoherency:.....if.(exists
1ca0 20 24 5f 2d 3e 7b 69 6e 74 65 72 66 61 63 65 5f 74 79 70 65 7d 20 26 26 20 24 5f 2d 3e 7b 69 6e .$_->{interface_type}.&&.$_->{in
1cc0 74 65 72 66 61 63 65 5f 74 79 70 65 7d 20 65 71 20 27 69 64 65 27 29 20 7b 0a 09 09 09 20 24 5f terface_type}.eq.'ide').{.....$_
1ce0 2d 3e 7b 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 7d 20 3d 20 5f 28 24 5f 2d 3e 7b 62 75 73 7d 20 3f ->{bus_location}.=._($_->{bus}.?
1d00 20 22 73 6c 61 76 65 22 20 3a 20 22 6d 61 73 74 65 72 22 29 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 ."slave".:."master");.....$_->{b
1d20 75 73 7d 20 3d 20 27 49 44 45 27 3b 0a 09 09 09 20 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 69 6e 74 us}.=.'IDE';.....delete.$_->{int
1d40 65 72 66 61 63 65 5f 74 79 70 65 7d 3b 0a 09 09 09 20 66 6f 72 65 61 63 68 20 6d 79 20 24 68 64 erface_type};.....foreach.my.$hd
1d60 20 28 6b 65 79 73 20 25 65 69 64 65 5f 68 64 73 29 20 7b 0a 09 09 09 09 69 66 20 28 24 5f 2d 3e .(keys.%eide_hds).{.....if.($_->
1d80 7b 69 6e 66 6f 7d 20 3d 7e 20 2f 5e 24 68 64 2f 29 20 7b 0a 09 09 09 09 20 20 20 20 24 5f 2d 3e {info}.=~./^$hd/).{.........$_->
1da0 7b 56 65 6e 64 6f 72 7d 20 3d 20 24 65 69 64 65 5f 68 64 73 7b 24 68 64 7d 3b 0a 09 09 09 09 20 {Vendor}.=.$eide_hds{$hd};......
1dc0 20 20 20 24 5f 2d 3e 7b 4d 6f 64 65 6c 7d 20 3d 20 24 5f 2d 3e 7b 69 6e 66 6f 7d 3b 0a 09 09 09 ...$_->{Model}.=.$_->{info};....
1de0 09 20 20 20 20 24 5f 2d 3e 7b 4d 6f 64 65 6c 7d 20 3d 7e 20 73 2f 5e 24 68 64 2f 2f 3b 0a 09 09 .....$_->{Model}.=~.s/^$hd//;...
1e00 09 09 20 20 20 20 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 69 6e 66 6f 7d 3b 0a 09 09 09 09 20 20 20 ......delete.$_->{info};........
1e20 20 6c 61 73 74 3b 0a 09 09 09 09 7d 0a 09 09 09 20 7d 0a 09 09 20 20 7d 20 65 6c 73 69 66 20 28 .last;.....}.....}.....}.elsif.(
1e40 65 78 69 73 74 73 20 24 5f 2d 3e 7b 69 64 7d 29 20 7b 0a 09 09 09 20 23 20 53 43 53 49 20 64 65 exists.$_->{id}).{.....#.SCSI.de
1e60 74 65 63 74 69 6f 6e 20 69 6e 63 6f 68 65 72 65 6e 63 79 3a 0a 09 09 09 20 6d 79 20 24 69 3d 24 tection.incoherency:.....my.$i=$
1e80 5f 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 7d 20 3d 20 20 6a 6f 69 _;.....$_->{bus_location}.=..joi
1ea0 6e 20 27 3a 27 2c 20 6d 61 70 20 7b 20 73 70 72 69 6e 74 66 28 22 25 6c 78 22 2c 20 24 69 2d 3e n.':',.map.{.sprintf("%lx",.$i->
1ec0 7b 24 5f 7d 20 29 20 7d 20 71 77 28 62 75 73 20 69 64 29 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 {$_}.).}.qw(bus.id);.....$_->{bu
1ee0 73 7d 20 3d 20 27 53 43 53 49 27 3b 0a 09 09 20 20 7d 0a 09 09 20 20 66 6f 72 65 61 63 68 20 6d s}.=.'SCSI';.....}.....foreach.m
1f00 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 72 20 73 75 62 y.$i.(qw(vendor.id.subvendor.sub
1f20 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 75 6e 63 74 69 id.pci_bus.pci_device.pci_functi
1f40 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 61 66 65 29 29 on.MOUSETYPE.XMOUSETYPE.unsafe))
1f60 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 20 20 7d 0a 09 .{......delete.$_->{$i};.....}..
1f80 09 20 20 24 77 69 64 67 65 74 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 24 73 75 62 73 75 62 74 72 65 ...$widget->show;.....$subsubtre
1fa0 65 2d 3e 61 70 70 65 6e 64 28 24 77 69 64 67 65 74 29 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d e->append($widget);.....$widget-
1fc0 3e 65 78 70 61 6e 64 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 65 74 5f 75 73 65 72 5f 64 >expand;.....$widget->set_user_d
1fe0 61 74 61 28 20 24 5f 20 29 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e 73 69 67 6e 61 6c 5f 68 ata(.$_.);.....$widget->signal_h
2000 61 6e 64 6c 65 72 73 5f 64 65 73 74 72 6f 79 28 29 3b 0a 09 09 20 20 24 77 69 64 67 65 74 2d 3e andlers_destroy();.....$widget->
2020 73 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 signal_connect(select.=>.sub.{..
2040 09 09 20 24 5f 20 3d 20 24 77 69 64 67 65 74 2d 3e 67 65 74 5f 75 73 65 72 5f 64 61 74 61 3b 0a ...$_.=.$widget->get_user_data;.
2060 09 09 09 20 24 74 65 78 74 2d 3e 68 69 64 65 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 62 61 63 6b ....$text->hide;.....$text->back
2080 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 0a 09 ward_delete($text->get_point);..
20a0 09 09 20 66 6f 72 65 61 63 68 20 6d 79 20 24 69 20 28 73 6f 72 74 20 6d 61 70 20 7b 20 28 24 66 ...foreach.my.$i.(sort.map.{.($f
20c0 69 65 6c 64 73 7b 24 5f 7d 29 3f 24 66 69 65 6c 64 73 7b 24 5f 7d 20 3a 20 24 5f 20 7d 20 6b 65 ields{$_})?$fields{$_}.:.$_.}.ke
20e0 79 73 20 25 24 5f 29 20 7b 0a 09 09 09 09 24 74 65 78 74 2d 3e 69 6e 73 65 72 74 28 22 22 2c 22 ys.%$_).{.....$text->insert("","
2100 22 2c 22 22 2c 20 22 5c 6e 24 69 20 3a 20 22 2e 20 24 5f 2d 3e 7b 28 24 72 65 76 65 72 73 65 5f ","",."\n$i.:."..$_->{($reverse_
2120 66 69 65 6c 64 73 7b 24 69 7d 29 3f 24 72 65 76 65 72 73 65 5f 66 69 65 6c 64 73 7b 24 69 7d 3a fields{$i})?$reverse_fields{$i}:
2140 24 69 7d 2e 22 5c 6e 22 20 29 3b 0a 09 09 09 09 0a 09 09 09 09 24 6d 6f 64 75 6c 65 5f 63 66 67 $i}."\n".);..........$module_cfg
2160 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 64 69 73 63 6f 6e 6e 65 63 74 28 24 74 6f 6f 6c _button->signal_disconnect($tool
2180 5f 73 69 67 6e 61 6c 5f 69 64 29 20 69 66 28 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 29 3b 0a _signal_id).if($mod_signal_id);.
21a0 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 62 ....$mod_signal_id=$module_cfg_b
21c0 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 3e utton->signal_connect(clicked.=>
21e0 20 73 75 62 0a 09 09 09 09 09 09 09 09 09 09 09 09 09 09 7b 0a 09 09 09 09 09 09 09 09 09 09 09 .sub...............{............
2200 09 09 09 20 20 20 20 70 72 69 6e 74 20 22 54 4f 54 4f 5c 6e 22 3b 0a 09 09 09 09 09 09 09 09 09 .......print."TOTO\n";..........
2220 09 09 09 09 09 7d 29 20 69 66 20 28 24 69 20 65 71 20 22 4d 6f 64 75 6c 65 22 20 26 26 20 24 72 .....}).if.($i.eq."Module".&&.$r
2240 65 76 65 72 73 65 5f 66 69 65 6c 64 73 7b 24 69 7d 29 3b 0a 09 09 09 20 7d 3b 0a 09 09 09 20 24 everse_fields{$i});.....};.....$
2260 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 6c 5f 64 69 73 63 6f 6e 6e 65 63 74 config_button->signal_disconnect
2280 28 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 29 20 69 66 28 24 74 6f 6f 6c 5f 73 69 67 6e 61 ($tool_signal_id).if($tool_signa
22a0 6c 5f 69 64 29 3b 0a 09 09 09 20 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 3d 24 63 6f 6e 66 l_id);.....$tool_signal_id=$conf
22c0 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 6b 65 ig_button->signal_connect(clicke
22e0 64 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 09 69 66 20 28 64 65 66 69 6e 65 64 20 24 70 69 64 29 d.=>.sub.{.....if.(defined.$pid)
2300 20 7b 72 65 74 75 72 6e 7d 0a 09 09 09 09 69 66 20 28 24 70 69 64 20 3d 20 66 6f 72 6b 28 29 29 .{return}.....if.($pid.=.fork())
2320 20 7b 0a 09 09 09 09 20 20 20 20 6d 79 20 24 69 64 20 3d 20 24 73 74 61 74 75 73 62 61 72 2d 3e .{.........my.$id.=.$statusbar->
2340 67 65 74 5f 63 6f 6e 74 65 78 74 5f 69 64 28 22 69 64 22 29 3b 0a 09 09 09 09 20 20 20 20 24 73 get_context_id("id");.........$s
2360 69 67 5f 69 64 3d 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 ig_id=$statusbar->push($id,._("R
2380 75 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 unning.\"%s\"....",.$configurato
23a0 72 29 29 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 20 20 20 20 65 78 65 63 28 24 r));.....}.else.{.........exec($
23c0 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 75 72 61 configurator).or.die."$configura
23e0 74 6f 72 20 6d 69 73 73 69 6e 67 5c 6e 22 3b 0a 09 09 09 09 7d 0a 09 09 09 20 7d 29 20 20 69 66 tor.missing\n";.....}.....})..if
2400 20 28 2d 78 20 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 29 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e .(-x.$configurator);.....$text->
2420 73 68 6f 77 3b 0a 09 09 09 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 3b 0a show;.....$config_button->show;.
2440 09 09 20 20 7d 20 29 3b 0a 09 20 20 20 7d 0a 20 20 20 20 7d 0a 23 20 20 20 20 75 6e 64 65 66 20 ....}.);.....}.....}.#....undef.
2460 24 77 61 69 74 3b 0a 20 20 20 20 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 69 67 6e 61 $wait;..........$main_win->signa
2480 6c 5f 63 6f 6e 6e 65 63 74 20 28 20 64 65 6c 65 74 65 5f 65 76 65 6e 74 20 3d 3e 20 5c 26 71 75 l_connect.(.delete_event.=>.\&qu
24a0 69 74 5f 67 6c 6f 62 61 6c 20 29 3b 0a 20 20 20 20 0a 20 20 20 20 72 65 74 75 72 6e 20 24 6d 61 it_global.);..........return.$ma
24c0 69 6e 5f 77 69 6e 3b 20 20 20 20 23 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6e 73 74 72 75 63 in_win;....#.Return.the.construc
24e0 74 65 64 20 55 49 0a 7d 0a 0a 0a 73 75 62 20 61 62 6f 75 74 5f 68 61 72 64 64 72 61 6b 65 20 7b ted.UI.}...sub.about_harddrake.{
2500 0a 20 20 20 20 24 69 6e 2d 3e 61 73 6b 5f 79 65 73 6f 72 6e 6f 28 5f 28 22 41 62 6f 75 74 20 48 .....$in->ask_yesorno(_("About.H
2520 61 72 64 64 72 61 6b 65 22 29 2c 20 0a 09 09 09 09 20 6a 6f 69 6e 20 28 22 22 2c 20 5f 28 22 54 arddrake"),.......join.("",._("T
2540 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 68 61 72 his.is.HardDrake,.a.Mandrake.har
2560 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 72 73 69 dware.configuration.tool.\nVersi
2580 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 72 73 69 on:"),.".$harddrake::data::versi
25a0 6f 6e 5c 6e 22 2c 20 0a 09 09 09 09 09 20 20 5f 28 22 41 75 74 68 6f 72 3a 22 29 2c 22 20 54 68 on\n",........._("Author:"),".Th
25c0 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 6d 61 6e 64 72 61 6b ierry.Vignaud.<tvignaud\@mandrak
25e0 65 73 6f 66 74 2e 63 6f 6d 3e 20 5c 6e 5c 6e 22 20 2c 0a 09 09 09 09 09 20 20 66 6f 72 6d 61 74 esoft.com>.\n\n".,........format
2600 41 6c 61 54 65 58 28 24 6c 69 63 65 6e 73 65 29 29 2c 0a 09 09 09 09 20 5b 20 5f 28 22 4f 6b 22 AlaTeX($license)),......[._("Ok"
2620 29 20 5d 2c 20 22 4f 6b 22 29 3b 0a 0a 7d 0a 0a 73 75 62 20 68 65 6c 70 20 7b 0a 20 20 20 20 24 ).],."Ok");..}..sub.help.{.....$
2640 69 6e 2d 3e 61 73 6b 5f 79 65 73 6f 72 6e 6f 28 5f 28 22 48 61 72 64 64 72 61 6b 65 20 68 65 6c in->ask_yesorno(_("Harddrake.hel
2660 70 22 29 2c 20 0a 09 09 09 09 20 5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 p"),......._("Description.of.the
2680 20 66 69 65 6c 64 73 3a 0a 0a 42 75 73 3a 20 74 68 69 73 20 69 73 20 74 68 65 20 70 68 79 73 69 .fields:..Bus:.this.is.the.physi
26a0 63 61 6c 20 62 75 73 20 6f 6e 20 77 68 69 63 68 20 74 68 65 20 64 65 76 69 63 65 20 69 73 20 70 cal.bus.on.which.the.device.is.p
26c0 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 0a 0a 42 75 73 20 lugged.(eg:.PCI,.USB,....)..Bus.
26e0 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 3a 20 0a 2d 20 70 63 69 20 64 65 76 69 63 65 73 20 3a identification:..-.pci.devices.:
2700 20 74 68 69 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 .this.list.the.vendor,.device,.s
2720 75 62 76 65 6e 64 6f 72 20 61 6e 64 20 73 75 62 64 65 76 69 63 65 20 50 43 49 20 69 64 73 0a 0a ubvendor.and.subdevice.PCI.ids..
2740 44 65 73 63 72 69 70 74 69 6f 6e 3a 20 74 68 69 73 20 66 69 65 6c 64 20 64 65 73 63 72 69 62 65 Description:.this.field.describe
2760 20 74 68 65 20 64 65 76 69 63 65 0a 0a 4c 6f 63 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 62 75 73 .the.device..Location.on.the.bus
2780 3a 20 0a 2d 20 70 63 69 20 64 65 76 69 63 65 73 3a 20 74 68 69 73 20 67 69 76 65 73 20 74 68 65 :..-.pci.devices:.this.gives.the
27a0 20 50 43 49 20 73 6c 6f 74 2c 20 64 65 76 69 63 65 20 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6f .PCI.slot,.device.and.function.o
27c0 66 20 74 68 69 73 20 63 61 72 64 0a 2d 20 65 69 64 65 20 64 65 76 69 63 65 73 3a 20 74 68 65 20 f.this.card.-.eide.devices:.the.
27e0 64 65 76 69 63 65 20 69 73 20 65 69 74 68 65 72 20 61 20 73 6c 61 76 65 20 6f 72 20 61 20 6d 61 device.is.either.a.slave.or.a.ma
2800 73 74 65 72 20 64 65 76 69 63 65 0a 2d 20 73 63 73 69 20 64 65 76 69 63 65 73 3a 20 74 68 65 20 ster.device.-.scsi.devices:.the.
2820 73 63 73 69 20 62 75 73 20 61 6e 64 20 74 68 65 20 73 63 73 69 20 64 65 76 69 63 65 20 69 64 73 scsi.bus.and.the.scsi.device.ids
2840 0a 0a 4d 65 64 69 61 20 63 6c 61 73 73 3a 20 63 6c 61 73 73 20 6f 66 20 68 61 72 64 77 61 72 65 ..Media.class:.class.of.hardware
2860 20 64 65 76 69 63 65 0a 0a 4d 6f 64 75 6c 65 3a 20 74 68 65 20 6d 6f 64 75 6c 65 20 6f 66 20 74 .device..Module:.the.module.of.t
2880 68 65 20 47 4e 55 2f 4c 69 6e 75 78 20 6b 65 72 6e 65 6c 20 74 68 61 74 20 68 61 6e 64 6c 65 20 he.GNU/Linux.kernel.that.handle.
28a0 74 68 61 74 20 64 65 76 69 63 65 0a 0a 56 65 6e 64 6f 72 3a 20 74 68 65 20 76 65 6e 64 6f 72 20 that.device..Vendor:.the.vendor.
28c0 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 65 76 69 63 65 0a 22 29 2c 0a 09 09 09 09 20 5b 20 5f 28 name.of.the.device."),......[._(
28e0 22 4f 6b 22 29 20 5d 2c 20 22 4f 6b 22 29 3b 0a 0a 7d 0a 0a 0a 73 75 62 20 71 75 69 74 5f 67 6c "Ok").],."Ok");..}...sub.quit_gl
2900 6f 62 61 6c 20 7b 0a 20 20 20 20 47 74 6b 2d 3e 65 78 69 74 28 30 29 3b 0a 7d 0a 0a 0a 5f 5f 45 obal.{.....Gtk->exit(0);.}...__E
2920 4e 44 5f 5f 0a ND__.