summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake/ui.pm
blob: 4eaaefad890a51d3e0a17d465942b6a9b0c07007 (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 6d 79 5f 67 74 mmon;.use.interactive;.use.my_gt
0060 6b 20 71 77 28 3a 68 65 6c 70 65 72 73 20 3a 77 72 61 70 70 65 72 73 29 3b 0a 75 73 65 20 75 67 k.qw(:helpers.:wrappers);.use.ug
0080 74 6b 20 71 77 28 3a 76 61 72 69 6f 75 73 29 3b 0a 0a 0a 23 20 7b 20 66 69 65 6c 64 20 3d 3e 20 tk.qw(:various);...#.{.field.=>.
00a0 5b 20 73 68 6f 72 74 5f 74 72 61 6e 73 6c 61 74 69 6f 6e 2c 20 66 75 6c 6c 5f 64 65 73 63 72 69 [.short_translation,.full_descri
00c0 70 74 69 6f 6e 5d 20 7d 0a 6d 79 20 25 66 69 65 6c 64 73 20 3d 20 0a 20 20 20 20 28 0a 09 22 4d ption].}.my.%fields.=......(.."M
00e0 6f 64 65 6c 22 20 3d 3e 20 5b 5f 28 22 4d 6f 64 65 6c 22 29 2c 20 5f 28 22 68 61 72 64 20 64 69 odel".=>.[_("Model"),._("hard.di
0100 73 6b 20 6d 6f 64 65 6c 22 29 5d 2c 0a 09 22 63 68 61 6e 6e 65 6c 22 20 3d 3e 20 5b 5f 28 22 43 sk.model")],.."channel".=>.[_("C
0120 68 61 6e 6e 65 6c 22 29 2c 20 5f 28 22 45 49 44 45 2f 53 43 53 49 20 63 68 61 6e 6e 65 6c 22 29 hannel"),._("EIDE/SCSI.channel")
0140 5d 2c 0a 09 22 62 75 73 22 20 3d 3e 20 0a 09 5b 20 5f 28 22 42 75 73 22 29 2c 20 0a 09 20 20 5f ],.."bus".=>...[._("Bus"),....._
0160 28 22 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 77 68 ("this.is.the.physical.bus.on.wh
0180 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 20 50 ich.the.device.is.plugged.(eg:.P
01a0 43 49 2c 20 55 53 42 2c 20 2e 2e 2e 29 22 29 5d 2c 0a 09 22 64 72 69 76 65 72 22 20 3d 3e 20 5b CI,.USB,....)")],.."driver".=>.[
01c0 20 5f 28 22 4d 6f 64 75 6c 65 22 29 2c 20 5f 28 22 74 68 65 20 6d 6f 64 75 6c 65 20 6f 66 20 74 ._("Module"),._("the.module.of.t
01e0 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.
0200 74 68 61 74 20 64 65 76 69 63 65 22 29 5d 2c 0a 09 22 6d 65 64 69 61 5f 74 79 70 65 22 20 3d 3e that.device")],.."media_type".=>
0220 20 5b 20 5f 28 22 4d 65 64 69 61 20 63 6c 61 73 73 22 29 2c 20 5f 28 22 63 6c 61 73 73 20 6f 66 .[._("Media.class"),._("class.of
0240 20 68 61 72 64 77 61 72 65 20 64 65 76 69 63 65 22 29 5d 2c 0a 09 22 64 65 73 63 72 69 70 74 69 .hardware.device")],.."descripti
0260 6f 6e 22 20 3d 3e 20 5b 20 5f 28 22 44 65 73 63 72 69 70 74 69 6f 6e 22 29 2c 20 5f 28 22 74 68 on".=>.[._("Description"),._("th
0280 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 22 29 5d 2c is.field.describe.the.device")],
02a0 0a 09 22 62 75 73 5f 69 64 22 20 3d 3e 20 0a 09 5b 20 5f 28 22 42 75 73 20 69 64 65 6e 74 69 66 .."bus_id".=>...[._("Bus.identif
02c0 69 63 61 74 69 6f 6e 22 29 2c 20 0a 09 20 20 5f 28 22 2d 20 50 43 49 20 61 6e 64 20 55 53 42 20 ication"),....._("-.PCI.and.USB.
02e0 64 65 76 69 63 65 73 20 3a 20 74 68 69 73 20 6c 69 73 74 20 74 68 65 20 76 65 6e 64 6f 72 2c 20 devices.:.this.list.the.vendor,.
0300 64 65 76 69 63 65 2c 20 73 75 62 76 65 6e 64 6f 72 20 61 6e 64 20 73 75 62 64 65 76 69 63 65 20 device,.subvendor.and.subdevice.
0320 50 43 49 2f 55 53 42 20 69 64 73 22 29 5d 2c 0a 09 22 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 22 20 PCI/USB.ids")],.."bus_location".
0340 3d 3e 20 0a 09 5b 20 5f 28 22 4c 6f 63 61 74 69 6f 6e 20 6f 6e 20 74 68 65 20 62 75 73 22 29 2c =>...[._("Location.on.the.bus"),
0360 20 0a 09 20 20 5f 28 22 2d 20 70 63 69 20 64 65 76 69 63 65 73 3a 20 74 68 69 73 20 67 69 76 65 ....._("-.pci.devices:.this.give
0380 73 20 74 68 65 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 s.the.PCI.slot,.device.and.funct
03a0 69 6f 6e 20 6f 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 ion.of.this.card.-.eide.devices:
03c0 20 74 68 65 20 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 .the.device.is.either.a.slave.or
03e0 20 61 20 6d 61 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 .a.master.device.-.scsi.devices:
0400 20 74 68 65 20 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 .the.scsi.bus.and.the.scsi.devic
0420 65 20 69 64 73 22 29 5d 2c 0a 09 22 64 65 76 69 63 65 22 20 3d 3e 20 5b 20 5f 28 22 4f 6c 64 20 e.ids")],.."device".=>.[._("Old.
0440 64 65 76 69 63 65 20 66 69 6c 65 22 29 2c 0a 09 09 09 20 20 20 20 5f 28 22 6f 6c 64 20 73 74 61 device.file"),........_("old.sta
0460 74 69 63 20 64 65 76 69 63 65 20 6e 61 6d 65 20 75 73 65 64 20 69 6e 20 64 65 76 20 70 61 63 6b tic.device.name.used.in.dev.pack
0480 61 67 65 22 29 5d 2c 0a 09 22 64 65 76 66 73 5f 64 65 76 69 63 65 22 20 3d 3e 20 5b 20 5f 28 22 age")],.."devfs_device".=>.[._("
04a0 4e 65 77 20 64 65 76 66 73 20 64 65 76 69 63 65 22 29 2c 20 20 0a 09 09 09 09 09 5f 28 22 6e 65 New.devfs.device"),........_("ne
04c0 77 20 64 69 6e 61 6d 69 63 20 64 65 76 69 63 65 20 6e 61 6d 65 20 67 65 6e 65 72 61 74 65 64 20 w.dinamic.device.name.generated.
04e0 62 79 20 69 6e 63 6f 72 65 20 6b 65 72 6e 65 6c 20 64 65 76 66 73 22 29 5d 2c 0a 09 22 6e 62 75 by.incore.kernel.devfs")],.."nbu
0500 74 74 6f 6e 73 22 20 3d 3e 20 5b 20 5f 28 22 4e 75 6d 62 65 72 20 6f 66 20 62 75 74 74 6f 6e 73 ttons".=>.[._("Number.of.buttons
0520 22 29 2c 20 22 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 75 74 74 6f 6e 73 20 74 68 65 20 6d "),."the.number.of.buttons.the.m
0540 6f 75 73 65 20 68 61 76 65 22 5d 2c 0a 09 22 56 65 6e 64 6f 72 22 20 3d 3e 20 5b 20 5f 28 22 56 ouse.have"],.."Vendor".=>.[._("V
0560 65 6e 64 6f 72 22 29 2c 20 5f 28 22 74 68 65 20 76 65 6e 64 6f 72 20 6e 61 6d 65 20 6f 66 20 74 endor"),._("the.vendor.name.of.t
0580 68 65 20 64 65 76 69 63 65 22 29 5d 0a 09 29 3b 0a 0a 0a 6f 75 72 20 24 6c 69 63 65 6e 73 65 20 he.device")]..);...our.$license.
05a0 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 20 4d 61 6e 64 72 61 ='Copyright.(C).1999-2002.Mandra
05c0 6b 65 53 6f 66 74 20 62 79 20 74 76 69 67 6e 61 75 64 40 6d 61 6e 64 72 61 6b 65 73 6f 66 74 2e keSoft.by.tvignaud@mandrakesoft.
05e0 63 6f 6d 0a 0a 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 com..This.program.is.free.softwa
0600 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f re;.you.can.redistribute.it.and/
0620 6f 72 20 6d 6f 64 69 66 79 0a 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 or.modify.it.under.the.terms.of.
0640 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 the.GNU.General.Public.License.a
0660 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 s.published.by.the.Free.Software
0680 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 32 2c 20 6f .Foundation;.either.version.2,.o
06a0 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 0a 61 6e 79 20 6c 61 74 65 72 20 76 65 72 r.(at.your.option).any.later.ver
06c0 73 69 6f 6e 2e 0a 0a 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 sion...This.program.is.distribut
06e0 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 ed.in.the.hope.that.it.will.be.u
0700 73 65 66 75 6c 2c 0a 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b seful,.but.WITHOUT.ANY.WARRANTY;
0720 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e .without.even.the.implied.warran
0740 74 79 20 6f 66 0a 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 ty.of.MERCHANTABILITY.or.FITNESS
0760 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 .FOR.A.PARTICULAR.PURPOSE...See.
0780 74 68 65 0a 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 the.GNU.General.Public.License.f
07a0 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 or.more.details...You.should.hav
07c0 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e e.received.a.copy.of.the.GNU.Gen
07e0 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 61 6c 6f 6e 67 20 77 69 74 68 20 74 eral.Public.License.along.with.t
0800 68 69 73 20 70 72 6f 67 72 61 6d 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 his.program;.if.not,.write.to.th
0820 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 0a 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e e.Free.Software.Foundation,.Inc.
0840 2c 20 35 39 20 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 75 69 74 65 20 33 33 30 2c 20 42 ,.59.Temple.Place.-.Suite.330,.B
0860 6f 73 74 6f 6e 2c 20 4d 41 20 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41 2e 0a 27 3b 0a 0a 6d oston,.MA.02111-1307,.USA..';..m
0880 79 20 28 24 69 6e 2c 20 24 6d 61 69 6e 5f 77 69 6e 29 3b 0a 0a 6d 79 20 40 6d 65 6e 75 5f 69 74 y.($in,.$main_win);..my.@menu_it
08a0 65 6d 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 ems.=.(.{.path.=>._("/_File"),.t
08c0 79 70 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 ype.=>.'<Branch>'.},........{.pa
08e0 74 68 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 th.=>._("/_File")._("/_Quit"),.a
0900 63 63 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 ccelerator.=>._("<control>Q"),.c
0920 61 6c 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 allback.=>.\&quit_global.},.....
0940 20 20 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 ...{.path.=>._("/_Help"),type.=>
0960 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 3d 3e 20 .'<Branch>'.},........{.path.=>.
0980 5f 28 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 _("/_Help")._("/_Help..."),.call
09a0 62 61 63 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 back.=>.sub.{........$in->ask_wa
09c0 72 6e 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 09 09 09 rn(_("Harddrake.help"),.........
09e0 20 20 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 5c .._("Description.of.the.fields:\
0a00 6e 5c 6e 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 n\n")............join("\n\n",.ma
0a20 70 20 7b 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 p.{."$fields{$_}[0]:.$fields{$_}
0a40 5b 31 5d 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 [1]"}.keys.%fields));........}..
0a60 09 09 20 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 ....},........{.path.=>._("/_Hel
0a80 70 22 29 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 p")._("/_About..."),.callback.=>
0aa0 20 73 75 62 20 7b 0a 09 09 09 09 20 20 20 24 69 6e 2d 3e 61 73 6b 5f 77 61 72 6e 28 5f 28 22 41 .sub.{........$in->ask_warn(_("A
0ac0 62 6f 75 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 bout.Harddrake"),...........join
0ae0 20 28 22 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 .("",._("This.is.HardDrake,.a.Ma
0b00 6e 64 72 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 ndrake.hardware.configuration.to
0b20 6f 6c 2e 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 ol.\nVersion:"),.".$harddrake::d
0b40 61 74 61 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 ata::version\n",............._("
0b60 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 75 64 20 3c 74 76 69 Author:"),".Thierry.Vignaud.<tvi
0b80 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 5c 6e 5c 6e 22 20 2c gnaud\@mandrakesoft.com>.\n\n".,
0ba0 0a 09 09 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 ............formatAlaTeX($licens
0bc0 65 29 29 29 3b 0a 09 09 09 20 20 20 20 7d 0a 09 09 09 20 20 7d 2c 0a 09 09 09 20 20 20 20 29 3b e)));........}......},........);
0be0 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 64 5f 73 ..sub.new.{.....my.($pid,.$mod_s
0c00 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 69 67 5f ignal_id,.$tool_signal_id,.$sig_
0c20 69 64 29 3b 0a 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 id);......$in.=.'interactive'->v
0c40 6e 65 77 28 27 73 75 27 2c 20 27 64 65 66 61 75 6c 74 27 29 3b 0a 20 20 20 20 61 64 64 5f 69 63 new('su',.'default');.....add_ic
0c60 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 68 61 72 64 on_path('/usr/share/pixmaps/hard
0c80 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 24 3a 3a 69 73 drake2/');.....$main_win.=.$::is
0ca0 45 6d 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 Embedded.?.new.Gtk::Plug.($::XID
0cc0 29 20 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 ).:.new.Gtk::Window.-toplevel;..
0ce0 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 64 ...$main_win->set_title(_("Hardd
0d00 72 61 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 rake2.version.")...$harddrake::d
0d20 61 74 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 ata::version);.....$main_win->se
0d40 74 5f 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 t_default_size(760,.350);.#.760.
0d60 73 68 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 should.be.ok.for.most.wm.in.800x
0d80 36 30 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 600.....$main_win->set_policy(0,
0da0 20 31 2c 20 30 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 .1,.0);.......my.$widget.=.new.G
0dc0 74 6b 3a 3a 49 74 65 6d 46 61 63 74 6f 72 79 28 27 47 74 6b 3a 3a 4d 65 6e 75 42 61 72 27 2c 20 tk::ItemFactory('Gtk::MenuBar',.
0de0 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.
0e00 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
0e20 72 65 61 74 65 5f 69 74 65 6d 73 28 40 6d 65 6e 75 5f 69 74 65 6d 73 29 3b 0a 20 20 20 20 24 6d reate_items(@menu_items);.....$m
0e40 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 24 61 63 63 65 6c 5f ain_win->add_accel_group($accel_
0e60 67 72 6f 75 70 29 3b 20 23 24 61 63 63 65 6c 5f 67 72 6f 75 70 2d 3e 61 74 74 61 63 68 28 24 6d group);.#$accel_group->attach($m
0e80 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 77 69 6e 2c ain_win);......gtkadd($main_win,
0ea0 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 64 64 28 67 .my.$main_vbox.=.gtkadd(gtkadd(g
0ec0 74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 56 42 6f 78 28 30 2c 20 30 29 2c 20 6d 79 20 24 6d tkadd(new.Gtk::VBox(0,.0),.my.$m
0ee0 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 28 27 3c 6d enubar.=.$widget->get_widget('<m
0f00 61 69 6e 3e 27 29 29 2c 20 24 77 69 64 67 65 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 50 61 6e ain>')),.$widget.=.new.Gtk::HPan
0f20 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 47 74 6b 3a 3a 53 74 ed),.my.$statusbar.=.new.Gtk::St
0f40 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 2d 3e 73 65 74 5f 63 atusbar));.....$main_vbox->set_c
0f60 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 30 2c 20 30 2c 20 30 hild_packing($statusbar,.0,.0,.0
0f80 2c 20 27 73 74 61 72 74 27 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 76 62 6f 78 2d 3e 73 65 74 5f ,.'start');.....$main_vbox->set_
0fa0 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 30 2c child_packing($menubar,.0,.0,.0,
0fc0 20 27 73 74 61 72 74 27 29 3b 0a 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 31 28 67 .'start');......$widget->pack1(g
0fe0 74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 46 72 61 6d 65 28 5f 28 22 44 65 74 65 63 74 65 64 tkadd(new.Gtk::Frame(_("Detected
1000 20 68 61 72 64 77 61 72 65 22 29 29 2c 20 63 72 65 61 74 65 53 63 72 6f 6c 6c 65 64 57 69 6e 64 .hardware")),.createScrolledWind
1020 6f 77 28 6d 79 20 24 74 72 65 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 29 29 2c 20 31 ow(my.$tree.=.new.Gtk::Tree)),.1
1040 2c 20 31 29 3b 0a 20 20 20 20 24 77 69 64 67 65 74 2d 3e 70 61 63 6b 32 28 6d 79 20 24 76 62 6f ,.1);.....$widget->pack2(my.$vbo
1060 78 20 3d 20 67 74 6b 61 64 64 28 67 74 6b 61 64 64 28 67 74 6b 61 64 64 28 6e 65 77 20 47 74 6b x.=.gtkadd(gtkadd(gtkadd(new.Gtk
1080 3a 3a 56 42 6f 78 2c 20 67 74 6b 61 64 64 28 6e 65 77 20 47 74 6b 3a 3a 46 72 61 6d 65 28 5f 28 ::VBox,.gtkadd(new.Gtk::Frame(_(
10a0 22 49 6e 66 6f 72 6d 61 74 69 6f 6e 73 22 29 29 2c 20 67 74 6b 61 64 64 28 6e 65 77 20 47 74 6b "Informations")),.gtkadd(new.Gtk
10c0 3a 3a 48 42 6f 78 2c 20 63 72 65 61 74 65 53 63 72 6f 6c 6c 65 64 57 69 6e 64 6f 77 28 6d 79 20 ::HBox,.createScrolledWindow(my.
10e0 24 74 65 78 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 65 78 74 29 29 29 29 2c 20 6d 79 20 24 6d $text.=.new.Gtk::Text)))),.my.$m
1100 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 74 6f 6e 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 42 75 74 74 odule_cfg_button.=.new.Gtk::Butt
1120 6f 6e 28 5f 28 22 43 6f 6e 66 69 67 75 72 65 20 6d 6f 64 75 6c 65 22 29 29 29 2c 20 6d 79 20 24 on(_("Configure.module"))),.my.$
1140 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 6e 28 config_button.=.new.Gtk::Button(
1160 5f 28 22 52 75 6e 20 63 6f 6e 66 69 67 20 74 6f 6f 6c 22 29 29 29 2c 31 2c 31 29 3b 0a 20 20 20 _("Run.config.tool"))),1,1);....
1180 20 24 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 63 6f 6e 66 69 .$vbox->set_child_packing($confi
11a0 67 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 29 3b 0a 20 20 20 g_button,.0,.0,.0,.'start');....
11c0 20 24 76 62 6f 78 2d 3e 73 65 74 5f 63 68 69 6c 64 5f 70 61 63 6b 69 6e 67 28 24 6d 6f 64 75 6c .$vbox->set_child_packing($modul
11e0 65 5f 63 66 67 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 29 3b e_cfg_button,.0,.0,.0,.'start');
1200 0a 0a 0a 20 20 20 20 6d 79 20 24 77 61 69 74 20 3d 20 24 69 6e 2d 3e 77 61 69 74 5f 6d 65 73 73 .......my.$wait.=.$in->wait_mess
1220 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
1240 6f 6e 20 69 6e 20 70 72 6f 67 72 65 73 73 22 29 29 3b 0a 0a 20 20 20 20 24 74 72 65 65 2d 3e 61 on.in.progress"));......$tree->a
1260 70 70 65 6e 64 28 6d 79 20 24 72 6f 6f 74 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 ppend(my.$root.=.new.Gtk::TreeIt
1280 65 6d 29 3b 0a 0a 20 20 20 20 24 72 6f 6f 74 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 6d 79 20 em);......$root->set_subtree(my.
12a0 24 6d 61 69 6e 5f 73 75 62 74 72 65 65 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 29 3b 0a $main_subtree.=.new.Gtk::Tree);.
12c0 20 20 20 20 24 6d 61 69 6e 5f 73 75 62 74 72 65 65 2d 3e 73 68 6f 77 28 29 3b 0a 20 20 20 20 0a ....$main_subtree->show();......
12e0 20 20 20 20 66 6f 72 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 ....foreach.(@harddrake::data::t
1300 72 65 65 29 7b 0a 09 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 ree){.....my.($Ident,.$title,.$i
1320 63 6f 6e 2c 20 24 63 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 con,.$configurator,.$detector).=
1340 20 40 24 5f 3b 0a 09 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 .@$_;.....next.if.(ref($detector
1360 29 20 6e 65 20 22 43 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 ).ne."CODE");.#skip.class.witout
1380 68 20 64 65 74 65 63 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 h.detector.....my.@devices.=.&$d
13a0 65 74 65 63 74 6f 72 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 etector;.....next.if.(!listlengt
13c0 68 28 40 64 65 76 69 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 h(@devices));.#.Skip.empty.class
13e0 20 28 6e 6f 20 64 65 76 69 63 65 73 29 0a 09 20 20 20 6d 79 20 28 24 68 77 5f 63 6c 61 73 73 5f .(no.devices).....my.($hw_class_
1400 69 74 65 6d 2c 20 24 68 77 5f 63 6c 61 73 73 5f 74 72 65 65 29 20 3d 20 28 6e 65 77 20 47 74 6b item,.$hw_class_tree).=.(new.Gtk
1420 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);.....
1440 24 6d 61 69 6e 5f 73 75 62 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 24 68 77 5f 63 6c 61 73 73 5f $main_subtree->append($hw_class_
1460 69 74 65 6d 29 3b 0a 09 20 20 20 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 2d 3e 73 69 67 6e 61 item);.....$hw_class_item->signa
1480 6c 5f 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 l_connect(select..=>.sub.{.....$
14a0 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 3e 67 65 74 text->backward_delete($text->get
14c0 5f 70 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 _point);.#.erase.all.previous.te
14e0 78 74 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 xt.....$config_button->hide;....
1500 20 24 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 .$module_cfg_button->hide;.....}
1520 2c 20 2c 20 22 22 29 3b 0a 09 20 20 20 0a 09 20 20 20 67 74 6b 70 61 63 6b 5f 5f 28 31 2c 20 6d ,.,."");..........gtkpack__(1,.m
1540 79 20 24 68 62 6f 78 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 48 42 6f 78 28 30 2c 30 29 2c 20 67 74 y.$hbox.=.new.Gtk::HBox(0,0),.gt
1560 6b 73 68 6f 77 28 67 74 6b 70 6e 67 28 24 69 63 6f 6e 29 29 2c 20 67 74 6b 73 68 6f 77 28 6e 65 kshow(gtkpng($icon)),.gtkshow(ne
1580 77 20 47 74 6b 3a 3a 4c 61 62 65 6c 28 24 74 69 74 6c 65 29 29 29 3b 0a 09 20 20 20 67 74 6b 61 w.Gtk::Label($title)));.....gtka
15a0 64 64 28 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 2c 20 67 74 6b 73 68 6f 77 28 24 68 62 6f 78 dd($hw_class_item,.gtkshow($hbox
15c0 29 29 3b 0a 09 20 20 20 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 2d 3e 73 68 6f 77 28 29 3b 0a ));.....$hw_class_item->show();.
15e0 09 20 20 20 24 68 77 5f 63 6c 61 73 73 5f 69 74 65 6d 2d 3e 73 65 74 5f 73 75 62 74 72 65 65 28 ....$hw_class_item->set_subtree(
1600 24 68 77 5f 63 6c 61 73 73 5f 74 72 65 65 29 3b 0a 09 20 20 20 24 68 77 5f 63 6c 61 73 73 5f 69 $hw_class_tree);.....$hw_class_i
1620 74 65 6d 2d 3e 65 78 70 61 6e 64 20 75 6e 6c 65 73 73 20 28 24 74 69 74 6c 65 20 3d 7e 20 2f 55 tem->expand.unless.($title.=~./U
1640 6e 6b 6e 6f 77 6e 2f 00 29 3b 0a 0a 0a 09 20 20 20 66 6f 72 65 61 63 68 20 28 40 64 65 76 69 63 nknown/.);.......foreach.(@devic
1660 65 73 29 20 7b 0a 09 09 20 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 62 75 73 7d 20 26 es).{.....if.(exists.$_->{bus}.&
1680 26 20 24 5f 2d 3e 7b 62 75 73 7d 20 65 71 20 22 50 43 49 22 29 20 7b 0a 09 09 09 20 6d 79 20 24 &.$_->{bus}.eq."PCI").{.....my.$
16a0 69 20 3d 20 24 5f 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f 69 64 7d 20 3d 20 6a 6f 69 6e 20 i.=.$_;.....$_->{bus_id}.=.join.
16c0 27 3a 27 2c 20 6d 61 70 20 7b 20 69 66 5f 28 24 69 2d 3e 7b 24 5f 7d 20 6e 65 20 22 36 35 35 33 ':',.map.{.if_($i->{$_}.ne."6553
16e0 35 22 2c 20 20 73 70 72 69 6e 74 66 28 22 25 6c 78 22 2c 20 24 69 2d 3e 7b 24 5f 7d 29 29 20 7d 5",..sprintf("%lx",.$i->{$_})).}
1700 20 71 77 28 76 65 6e 64 6f 72 20 69 64 20 73 75 62 76 65 6e 64 6f 72 20 73 75 62 69 64 29 3b 0a .qw(vendor.id.subvendor.subid);.
1720 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f 6c 6f 63 61 74 69 6f 6e 7d 20 3d 20 6a 6f 69 6e 20 27 3a ....$_->{bus_location}.=.join.':
1740 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 7d ',.map.{.sprintf("%lx",.$i->{$_}
1760 20 29 20 7d 20 71 77 28 70 63 69 5f 62 75 73 20 70 63 69 5f 64 65 76 69 63 65 20 70 63 69 5f 66 .).}.qw(pci_bus.pci_device.pci_f
1780 75 6e 63 74 69 6f 6e 29 3b 0a 09 09 20 20 7d 0a 09 09 20 20 23 20 73 70 6c 69 74 20 64 65 73 63 unction);.....}.....#.split.desc
17a0 72 69 70 74 69 6f 6e 20 69 6e 74 6f 20 6d 61 6e 75 66 61 63 74 75 72 65 72 2f 64 65 73 63 72 69 ription.into.manufacturer/descri
17c0 70 74 69 6f 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 ption.....($_->{Vendor},$_->{des
17e0 63 72 69 70 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 cription})=split(/\|/,$_->{descr
1800 69 70 74 69 6f 6e 7d 29 20 69 66 20 65 78 69 73 74 73 20 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 iption}).if.exists.$_->{descript
1820 69 6f 6e 7d 3b 0a 09 09 20 20 0a 09 09 20 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 76 ion};..........if.(exists.$_->{v
1840 61 6c 7d 29 20 7b 20 23 20 53 63 61 6e 6e 65 72 20 3f 0a 09 09 09 20 20 6d 79 20 24 76 61 6c 20 al}).{.#.Scanner.?......my.$val.
1860 3d 20 24 5f 2d 3e 7b 76 61 6c 7d 3b 0a 09 09 09 20 20 28 24 5f 2d 3e 7b 56 65 6e 64 6f 72 7d 2c =.$_->{val};......($_->{Vendor},
1880 24 5f 2d 3e 7b 64 65 73 63 72 69 70 74 69 6f 6e 7d 29 20 3d 20 73 70 6c 69 74 28 2f 5c 7c 2f 2c $_->{description}).=.split(/\|/,
18a0 20 24 76 61 6c 2d 3e 7b 44 45 53 43 52 49 50 54 49 4f 4e 7d 29 3b 0a 09 09 7d 0a 09 09 20 20 23 .$val->{DESCRIPTION});...}.....#
18c0 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 3a 0a 09 09 20 .EIDE.detection.incoherency:....
18e0 20 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 62 75 73 7d 20 26 26 20 24 5f 2d 3e 7b 62 75 .if.(exists.$_->{bus}.&&.$_->{bu
1900 73 7d 20 65 71 20 27 69 64 65 27 29 20 7b 0a 09 09 09 20 24 5f 2d 3e 7b 63 68 61 6e 6e 65 6c 7d s}.eq.'ide').{.....$_->{channel}
1920 20 3d 20 5f 28 24 5f 2d 3e 7b 63 68 61 6e 6e 65 6c 7d 20 3f 20 22 73 65 63 6f 6e 64 61 72 79 22 .=._($_->{channel}.?."secondary"
1940 20 3a 20 22 70 72 69 6d 61 72 79 22 29 3b 0a 09 09 09 64 65 6c 65 74 65 20 24 5f 2d 3e 7b 69 6e .:."primary");....delete.$_->{in
1960 66 6f 7d 3b 0a 09 09 20 20 7d 20 65 6c 73 69 66 20 28 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 69 fo};.....}.elsif.((exists.$_->{i
1980 64 7d 29 20 26 26 20 28 24 5f 2d 3e 7b 62 75 73 7d 20 6e 65 20 27 50 43 49 27 29 29 20 7b 0a 09 d}).&&.($_->{bus}.ne.'PCI')).{..
19a0 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 6e 63 79 3a ...#.SCSI.detection.incoherency:
19c0 0a 09 09 09 20 6d 79 20 24 69 20 3d 20 24 5f 3b 0a 09 09 09 20 24 5f 2d 3e 7b 62 75 73 5f 6c 6f .....my.$i.=.$_;.....$_->{bus_lo
19e0 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 69 6e cation}.=..join.':',.map.{.sprin
1a00 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 69 64 tf("%lx",.$i->{$_}.).}.qw(bus.id
1a20 29 3b 0a 09 09 20 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 );.....}.....foreach.my.$i.(qw(v
1a40 65 6e 64 6f 72 20 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 endor.id.subvendor.subid.pci_bus
1a60 20 70 63 69 5f 64 65 76 69 63 65 20 70 63 69 5f 66 75 6e 63 74 69 6f 6e 20 4d 4f 55 53 45 54 59 .pci_device.pci_function.MOUSETY
1a80 50 45 20 58 4d 4f 55 53 45 54 59 50 45 20 75 6e 73 61 66 65 20 76 61 6c 20 64 65 76 66 73 5f 70 PE.XMOUSETYPE.unsafe.val.devfs_p
1aa0 72 65 66 69 78 20 77 61 63 6f 6d 20 61 75 78 6d 6f 75 73 65 29 29 20 7b 20 0a 09 09 09 20 64 65 refix.wacom.auxmouse)).{......de
1ac0 6c 65 74 65 20 24 5f 2d 3e 7b 24 69 7d 3b 0a 09 09 20 20 7d 0a 09 09 20 20 6d 79 20 24 68 77 5f lete.$_->{$i};.....}.....my.$hw_
1ae0 69 74 65 6d 20 3d 20 6e 65 77 20 47 74 6b 3a 3a 54 72 65 65 49 74 65 6d 28 64 65 66 69 6e 65 64 item.=.new.Gtk::TreeItem(defined
1b00 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 09 09 ($_->{device})?.$_->{device}:...
1b20 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 24 5f ..(defined($_->{description})?$_
1b40 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 24 5f ->{description}:$title));.....$_
1b60 2d 3e 7b 64 65 76 69 63 65 7d 3d 27 2f 64 65 76 2f 27 2e 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 20 ->{device}='/dev/'.$_->{device}.
1b80 69 66 20 65 78 69 73 74 73 20 24 5f 2d 3e 7b 64 65 76 69 63 65 7d 3b 0a 09 09 20 20 24 68 77 5f if.exists.$_->{device};.....$hw_
1ba0 63 6c 61 73 73 5f 74 72 65 65 2d 3e 61 70 70 65 6e 64 28 24 68 77 5f 69 74 65 6d 29 3b 0a 09 09 class_tree->append($hw_item);...
1bc0 20 20 24 68 77 5f 69 74 65 6d 2d 3e 65 78 70 61 6e 64 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d ..$hw_item->expand;.....$hw_item
1be0 2d 3e 73 68 6f 77 3b 0a 09 09 20 20 6d 79 20 24 64 61 74 61 20 3d 20 24 5f 3b 0a 09 09 20 20 24 ->show;.....my.$data.=.$_;.....$
1c00 68 77 5f 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f 68 61 6e 64 6c 65 72 73 5f 64 65 73 74 72 6f 79 hw_item->signal_handlers_destroy
1c20 28 29 3b 0a 09 09 20 20 24 68 77 5f 69 74 65 6d 2d 3e 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 ();.....$hw_item->signal_connect
1c40 28 73 65 6c 65 63 74 20 3d 3e 20 73 75 62 20 7b 0a 09 09 09 20 24 5f 20 3d 20 24 64 61 74 61 3b (select.=>.sub.{.....$_.=.$data;
1c60 0a 09 09 09 20 24 74 65 78 74 2d 3e 68 69 64 65 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 62 61 63 .....$text->hide;.....$text->bac
1c80 6b 77 61 72 64 5f 64 65 6c 65 74 65 28 24 74 65 78 74 2d 3e 67 65 74 5f 70 6f 69 6e 74 29 3b 0a kward_delete($text->get_point);.
1ca0 09 09 09 20 6d 79 20 24 69 20 3d 20 24 5f 3b 0a 09 09 09 20 24 74 65 78 74 2d 3e 69 6e 73 65 72 ....my.$i.=.$_;.....$text->inser
1cc0 74 28 22 22 2c 22 22 2c 22 22 2c 20 6a 6f 69 6e 28 22 5c 6e 22 2c 20 6d 61 70 20 7b 20 28 24 66 t("","","",.join("\n",.map.{.($f
1ce0 69 65 6c 64 73 7b 24 5f 7d 5b 30 5d 20 3f 20 24 66 69 65 6c 64 73 7b 24 5f 7d 5b 30 5d 20 3a 20 ields{$_}[0].?.$fields{$_}[0].:.
1d00 24 5f 29 20 2e 20 22 3a 20 24 69 2d 3e 7b 24 5f 7d 5c 6e 22 7d 20 73 6f 72 74 20 6b 65 79 73 20 $_)...":.$i->{$_}\n"}.sort.keys.
1d20 25 24 69 29 29 3b 0a 09 09 09 20 69 66 20 28 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 29 20 7b %$i));.....if.($mod_signal_id).{
1d40 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 67 6e 61 6c 5f .....$module_cfg_button->signal_
1d60 64 69 73 63 6f 6e 6e 65 63 74 28 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 29 3b 0a 09 09 09 09 disconnect($mod_signal_id);.....
1d80 75 6e 64 65 66 20 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 3b 0a 09 09 09 20 7d 0a 09 09 09 20 undef.$mod_signal_id;.....}.....
1da0 69 66 20 28 65 78 69 73 74 73 20 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 20 26 26 20 20 24 5f 2d 3e if.(exists.$_->{driver}.&&..$_->
1dc0 7b 64 72 69 76 65 72 7d 20 6e 65 20 22 75 6e 6b 6e 6f 77 6e 22 20 26 26 20 20 24 5f 2d 3e 7b 64 {driver}.ne."unknown".&&..$_->{d
1de0 72 69 76 65 72 7d 20 21 7e 20 2f 5e 43 61 72 64 3a 2f 29 20 7b 0a 09 09 09 09 24 6d 6f 64 75 6c river}.!~./^Card:/).{.....$modul
1e00 65 5f 63 66 67 5f 62 75 74 74 6f 6e 2d 3e 73 68 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 e_cfg_button->show;.............
1e20 24 6d 6f 64 5f 73 69 67 6e 61 6c 5f 69 64 20 3d 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 $mod_signal_id.=.$module_cfg_but
1e40 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 20 73 ton->signal_connect(clicked.=>.s
1e60 75 62 20 7b 0a 09 09 09 09 09 09 09 20 20 20 20 72 65 71 75 69 72 65 20 6d 6f 64 70 61 72 6d 3b ub.{............require.modparm;
1e80 0a 09 09 09 09 09 09 09 20 20 20 20 6d 79 20 28 40 6c 2c 20 25 63 6f 6e 66 69 67 29 3b 0a 09 09 ............my.(@l,.%config);...
1ea0 09 09 09 09 09 20 20 20 20 66 6f 72 65 61 63 68 20 28 6d 6f 64 70 61 72 6d 3a 3a 72 61 77 5f 70 .........foreach.(modparm::raw_p
1ec0 61 72 61 6d 65 74 65 72 73 28 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 29 29 20 7b 0a 09 09 09 09 09 arameters($_->{driver})).{......
1ee0 09 09 09 20 20 20 6d 79 20 28 24 6e 61 6d 65 2c 20 75 6e 64 65 66 2c 20 24 64 65 73 63 72 69 70 ......my.($name,.undef,.$descrip
1f00 74 69 6f 6e 2c 20 24 6d 69 6e 2c 20 24 6d 61 78 2c 20 24 69 73 5f 61 5f 6e 75 6d 62 65 72 29 20 tion,.$min,.$max,.$is_a_number).
1f20 3d 20 40 24 5f 3b 0a 09 09 09 09 09 09 09 09 20 20 20 0a 09 09 09 09 09 09 09 09 20 20 20 6d 79 =.@$_;........................my
1f40 20 24 66 6f 72 6d 61 74 20 3d 0a 09 09 09 09 09 09 09 09 09 20 20 24 6d 69 6e 20 3d 3d 20 31 20 .$format.=............$min.==.1.
1f60 26 26 20 24 6d 61 78 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 &&.$max.==.1.?............($is_a
1f80 5f 6e 75 6d 62 65 72 20 3f 20 5f 28 22 61 20 6e 75 6d 62 65 72 22 29 20 3a 20 27 27 29 20 3a 0a _number.?._("a.number").:.'').:.
1fa0 09 09 09 09 09 09 09 09 09 20 20 24 6d 69 6e 20 3d 3d 20 24 6d 61 78 20 3f 20 0a 09 09 09 09 09 ...........$min.==.$max.?.......
1fc0 09 09 09 09 20 20 28 24 69 73 5f 61 5f 6e 75 6d 62 65 72 20 3f 20 5f 28 22 25 64 20 63 6f 6d 6d ......($is_a_number.?._("%d.comm
1fe0 61 20 73 65 70 61 72 61 74 65 64 20 6e 75 6d 62 65 72 73 22 2c 20 24 6d 69 6e 29 20 3a 20 5f 28 a.separated.numbers",.$min).:._(
2000 22 25 64 20 63 6f 6d 6d 61 20 73 65 70 61 72 61 74 65 64 20 73 74 72 69 6e 67 73 22 2c 20 24 6d "%d.comma.separated.strings",.$m
2020 69 6e 29 29 20 3a 0a 09 09 09 09 09 09 09 09 09 20 20 24 6d 69 6e 20 3d 3d 20 31 20 3f 0a 09 09 in)).:............$min.==.1.?...
2040 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 5f 28 22 63 6f 6d 6d .........($is_a_number.?._("comm
2060 61 20 73 65 70 61 72 61 74 65 64 20 6e 75 6d 62 65 72 73 22 29 20 3a 20 5f 28 22 63 6f 6d 6d 61 a.separated.numbers").:._("comma
2080 20 73 65 70 61 72 61 74 65 64 20 73 74 72 69 6e 67 73 22 29 29 20 3a 0a 09 09 09 09 09 09 09 09 .separated.strings")).:.........
20a0 09 20 20 27 27 3b 20 23 2d 20 74 6f 20 77 65 69 72 64 20 61 6e 64 20 62 75 67 67 79 2c 20 64 6f ...'';.#-.to.weird.and.buggy,.do
20c0 20 6e 6f 74 20 64 69 73 70 6c 61 79 20 69 74 0a 09 09 09 09 09 09 09 09 20 20 20 0a 09 09 09 09 .not.display.it.................
20e0 09 09 09 09 20 20 20 24 63 6f 6e 66 69 67 7b 24 6e 61 6d 65 7d 20 3d 20 75 6e 64 65 66 3b 0a 09 .......$config{$name}.=.undef;..
2100 09 09 09 09 09 09 09 20 20 20 6d 79 20 25 65 6c 74 20 3d 20 28 6c 61 62 65 6c 20 3d 3e 20 24 6e ..........my.%elt.=.(label.=>.$n
2120 61 6d 65 2c 20 68 65 6c 70 20 3d 3e 20 22 24 64 65 73 63 72 69 70 74 69 6f 6e 20 5b 24 66 6f 72 ame,.help.=>."$description.[$for
2140 6d 61 74 5d 22 20 2c 20 76 61 6c 20 3d 3e 20 5c 24 63 6f 6e 66 69 67 7b 24 6e 61 6d 65 7d 29 3b mat]".,.val.=>.\$config{$name});
2160 0a 09 09 09 09 09 09 09 09 20 20 20 69 66 20 28 24 69 73 5f 61 5f 6e 75 6d 62 65 72 29 20 7b 0a ............if.($is_a_number).{.
2180 09 09 09 09 09 09 09 09 09 20 20 69 66 20 28 24 6d 69 6e 20 6e 65 20 24 6d 61 78 29 20 7b 0a 09 ...........if.($min.ne.$max).{..
21a0 09 09 09 09 09 09 09 09 09 20 24 65 6c 74 7b 74 79 70 65 7d 3d 27 72 61 6e 67 65 27 3b 0a 09 09 ..........$elt{type}='range';...
21c0 09 09 09 09 09 09 09 09 20 24 65 6c 74 7b 6d 69 6e 7d 3d 24 6d 69 6e 3b 09 20 20 20 0a 09 09 09 .........$elt{min}=$min;........
21e0 09 09 09 09 09 09 09 20 24 65 6c 74 7b 6d 61 78 7d 3d 24 6d 61 78 3b 0a 09 09 09 09 09 09 09 09 ........$elt{max}=$max;.........
2200 09 20 20 7d 0a 09 09 09 09 09 09 09 09 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 ...}............}.else.{........
2220 09 09 20 20 24 65 6c 74 7b 74 79 70 65 7d 3d 27 73 74 72 69 6e 67 27 3b 0a 09 09 09 09 09 09 09 ....$elt{type}='string';........
2240 09 20 20 20 7d 0a 09 09 09 09 09 09 09 09 20 20 20 70 75 73 68 20 40 6c 2c 20 5c 25 65 6c 74 3b ....}............push.@l,.\%elt;
2260 0a 09 09 09 09 09 09 09 09 20 20 20 0a 09 09 09 09 09 09 09 20 20 20 20 7d 0a 09 09 09 09 09 09 ........................}.......
2280 09 20 20 20 20 6d 79 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 .....my.$in.=.'interactive'->vne
22a0 77 28 29 3b 0a 09 09 09 09 09 09 09 20 20 20 20 69 66 20 28 24 69 6e 2d 3e 61 73 6b 5f 66 72 6f w();............if.($in->ask_fro
22c0 6d 28 22 4d 6f 64 75 6c 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 2c 20 5f 28 22 59 6f 75 m("Module.configuration",._("You
22e0 20 63 61 6e 20 63 6f 6e 66 69 67 75 72 65 20 65 61 63 68 20 70 61 72 61 6d 65 74 65 72 20 6f 66 .can.configure.each.parameter.of
2300 20 74 68 65 20 6d 6f 64 75 6c 65 20 68 65 72 65 2e 22 29 2c 0a 09 09 09 09 09 09 09 09 09 09 09 .the.module.here."),............
2320 20 20 5c 40 6c 29 29 0a 09 09 09 09 09 09 09 20 20 20 20 7b 0a 09 09 09 09 09 09 09 09 20 20 20 ..\@l))............{............
2340 6d 79 20 24 6f 70 74 69 6f 6e 73 20 3d 20 6a 6f 69 6e 28 27 20 27 2c 20 6d 61 70 20 7b 20 69 66 my.$options.=.join('.',.map.{.if
2360 5f 28 24 63 6f 6e 66 69 67 7b 24 5f 7d 2c 20 22 24 5f 3d 24 63 6f 6e 66 69 67 7b 24 5f 7d 22 29 _($config{$_},."$_=$config{$_}")
2380 20 7d 20 6b 65 79 73 20 25 63 6f 6e 66 69 67 29 3b 0a 09 09 09 09 09 09 09 09 20 20 20 69 66 20 .}.keys.%config);............if.
23a0 28 24 6f 70 74 69 6f 6e 73 29 20 7b 0a 09 09 09 09 09 09 09 09 09 20 20 72 65 71 75 69 72 65 20 ($options).{............require.
23c0 6d 6f 64 75 6c 65 73 3b 0a 09 09 09 09 09 09 09 09 09 20 20 6d 6f 64 75 6c 65 73 3a 3a 72 65 61 modules;............modules::rea
23e0 64 5f 63 6f 6e 66 3b 0a 09 09 09 09 09 09 09 09 09 20 20 6d 6f 64 75 6c 65 73 3a 3a 73 65 74 5f d_conf;............modules::set_
2400 6f 70 74 69 6f 6e 73 28 24 5f 2d 3e 7b 64 72 69 76 65 72 7d 2c 20 24 6f 70 74 69 6f 6e 73 29 3b options($_->{driver},.$options);
2420 0a 09 09 09 09 09 09 09 09 09 20 20 6d 6f 64 75 6c 65 73 3a 3a 77 72 69 74 65 5f 63 6f 6e 66 3b ............modules::write_conf;
2440 0a 09 09 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 20 20 20 20 7d 0a 09 09 09 09 09 09 09 ..........}............}........
2460 7d 29 3b 0a 09 09 09 20 7d 20 65 6c 73 65 20 7b 20 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 });.....}.else.{.$module_cfg_but
2480 74 6f 6e 2d 3e 68 69 64 65 20 7d 0a 09 09 09 20 69 66 20 28 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c ton->hide.}.....if.($tool_signal
24a0 5f 69 64 29 20 7b 0a 09 09 09 09 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d 3e 73 69 67 6e 61 _id).{.....$config_button->signa
24c0 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 3b 0a 09 l_disconnect($tool_signal_id);..
24e0 09 09 09 75 6e 64 65 66 20 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 3b 0a 09 09 09 20 7d 0a ...undef.$tool_signal_id;.....}.
2500 09 09 09 20 69 66 20 28 2d 78 20 24 63 6f 6e 66 69 67 75 72 61 74 6f 72 29 20 7b 0a 09 09 09 09 ....if.(-x.$configurator).{.....
2520 24 74 6f 6f 6c 5f 73 69 67 6e 61 6c 5f 69 64 20 3d 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e $tool_signal_id.=.$config_button
2540 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 20 73 75 62 20 ->signal_connect(clicked.=>.sub.
2560 7b 0a 09 09 09 09 20 20 20 20 69 66 20 28 64 65 66 69 6e 65 64 20 24 70 69 64 29 20 7b 20 72 65 {.........if.(defined.$pid).{.re
2580 74 75 72 6e 20 7d 0a 09 09 09 09 20 20 20 20 69 66 20 28 24 70 69 64 20 3d 20 66 6f 72 6b 28 29 turn.}.........if.($pid.=.fork()
25a0 29 20 7b 0a 09 09 09 09 09 20 20 20 6d 79 20 24 69 64 20 3d 20 24 73 74 61 74 75 73 62 61 72 2d ).{.........my.$id.=.$statusbar-
25c0 3e 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 09 20 20 20 24 >get_context_id("id");.........$
25e0 73 69 67 5f 69 64 20 3d 20 24 73 74 61 74 75 73 62 61 72 2d 3e 70 75 73 68 28 24 69 64 2c 20 5f sig_id.=.$statusbar->push($id,._
2600 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 6f 6e 66 69 67 75 72 ("Running.\"%s\"....",.$configur
2620 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 09 09 09 09 09 20 20 ator));.........}.else.{........
2640 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 69 65 20 22 24 63 6f .exec($configurator).or.die."$co
2660 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 09 09 20 20 20 20 7d nfigurator.missing\n";.........}
2680 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 74 6f 6e 2d 3e 73 68 .....}).;.....$config_button->sh
26a0 6f 77 3b 0a 09 09 09 20 7d 20 65 6c 73 65 20 7b 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 2d ow;.....}.else.{.$config_button-
26c0 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 09 20 20 7d 29 3b >hide.}.....$text->show;.....});
26e0 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 47 7b 43 48 4c 44 7d .....}.....}..........$SIG{CHLD}
2700 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 62 61 72 2d .=.sub.{.undef.$pid;.$statusbar-
2720 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 6e 5f 77 69 6e 2d 3e >pop($sig_id).};.....$main_win->
2740 73 69 67 6e 61 6c 5f 63 6f 6e 6e 65 63 74 20 28 64 65 6c 65 74 65 5f 65 76 65 6e 74 20 3d 3e 20 signal_connect.(delete_event.=>.
2760 5c 26 71 75 69 74 5f 67 6c 6f 62 61 6c 29 3b 0a 20 20 20 20 75 6e 64 65 66 20 24 77 61 69 74 3b \&quit_global);.....undef.$wait;
2780 0a 20 20 20 20 67 74 6b 73 65 74 5f 6d 6f 75 73 65 63 75 72 73 6f 72 5f 6e 6f 72 6d 61 6c 28 29 .....gtkset_mousecursor_normal()
27a0 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 65 74 5f 70 6f 73 69 74 69 6f 6e 28 27 63 ;.....$main_win->set_position('c
27c0 65 6e 74 65 72 27 29 3b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 73 68 6f 77 5f 61 6c 6c enter');.....$main_win->show_all
27e0 28 29 3b 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 24 6d 6f 64 75 6c 65 5f 63 66 67 5f 62 75 74 ();.....foreach.($module_cfg_but
2800 74 6f 6e 2c 20 24 63 6f 6e 66 69 67 5f 62 75 74 74 6f 6e 29 20 7b 20 24 5f 2d 3e 68 69 64 65 20 ton,.$config_button).{.$_->hide.
2820 7d 3b 0a 20 20 20 20 47 74 6b 2d 3e 6d 61 69 6e 3b 0a 7d 0a 0a 0a 73 75 62 20 71 75 69 74 5f 67 };.....Gtk->main;.}...sub.quit_g
2840 6c 6f 62 61 6c 20 7b 0a 20 20 20 20 24 6d 61 69 6e 5f 77 69 6e 2d 3e 64 65 73 74 72 6f 79 3b 0a lobal.{.....$main_win->destroy;.
2860 20 20 20 20 24 69 6e 2d 3e 65 78 69 74 3b 0a 7d 0a 0a 5f 5f 45 4e 44 5f 5f 0a ....$in->exit;.}..__END__.