home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _84c9791997131427e8c1144110639aca < prev    next >
Encoding:
Text File  |  2004-06-01  |  4.3 KB  |  86 lines
  1. # colors.pl
  2.  
  3. use vars qw/$TOP/;
  4.  
  5. sub colors {
  6.  
  7.     # Create a top-level window containing a listbox showing a bunch of
  8.     # colors from the X color database.
  9.  
  10.     my($demo) = @_;
  11.     $TOP = $MW->WidgetDemo(
  12.         -name     => $demo,
  13.         -text     => 'A listbox containing several color names is displayed below, along with a scrollbar.  You can scan the list either using the scrollbar or by dragging in the listbox window with button 2 pressed.  If you double-click button 1 on a color, then the application\'s color palette will be set to match that color.',
  14.         -title    => 'Listbox Demonstration (colors)',
  15.         -iconname => 'colors',
  16.     );
  17.  
  18.     my $list = $TOP->Scrolled(qw/Listbox -width 20 -height 16 -setgrid 1
  19.                   -scrollbars e/);
  20.     $list->pack(qw/-side left -fill y/);
  21.     $list->focus;
  22.  
  23.     $list->bind('<Double-1>' =>
  24.         sub  {
  25.         $_[0]->setPalette($_[0]->get('active'));
  26.     },
  27.     );
  28.  
  29.     $list->insert(0, qw/gray60 gray70 gray80 gray85 gray90
  30. gray95 snow1 snow2 snow3 snow4 seashell1 seashell2 seashell3 seashell4
  31. AntiqueWhite1 AntiqueWhite2 AntiqueWhite3 AntiqueWhite4 bisque1
  32. bisque2 bisque3 bisque4 PeachPuff1 PeachPuff2 PeachPuff3 PeachPuff4
  33. NavajoWhite1 NavajoWhite2 NavajoWhite3 NavajoWhite4 LemonChiffon1
  34. LemonChiffon2 LemonChiffon3 LemonChiffon4 cornsilk1 cornsilk2
  35. cornsilk3 cornsilk4 ivory1 ivory2 ivory3 ivory4 honeydew1 honeydew2
  36. honeydew3 honeydew4 LavenderBlush1 LavenderBlush2 LavenderBlush3
  37. LavenderBlush4 MistyRose1 MistyRose2 MistyRose3 MistyRose4 azure1
  38. azure2 azure3 azure4 SlateBlue1 SlateBlue2 SlateBlue3 SlateBlue4
  39. RoyalBlue1 RoyalBlue2 RoyalBlue3 RoyalBlue4 blue1 blue2 blue3 blue4
  40. DodgerBlue1 DodgerBlue2 DodgerBlue3 DodgerBlue4 SteelBlue1 SteelBlue2
  41. SteelBlue3 SteelBlue4 DeepSkyBlue1 DeepSkyBlue2 DeepSkyBlue3
  42. DeepSkyBlue4 SkyBlue1 SkyBlue2 SkyBlue3 SkyBlue4 LightSkyBlue1
  43. LightSkyBlue2 LightSkyBlue3 LightSkyBlue4 SlateGray1 SlateGray2
  44. SlateGray3 SlateGray4 LightSteelBlue1 LightSteelBlue2 LightSteelBlue3
  45. LightSteelBlue4 LightBlue1 LightBlue2 LightBlue3 LightBlue4 LightCyan1
  46. LightCyan2 LightCyan3 LightCyan4 PaleTurquoise1 PaleTurquoise2
  47. PaleTurquoise3 PaleTurquoise4 CadetBlue1 CadetBlue2 CadetBlue3
  48. CadetBlue4 turquoise1 turquoise2 turquoise3 turquoise4 cyan1 cyan2
  49. cyan3 cyan4 DarkSlateGray1 DarkSlateGray2 DarkSlateGray3
  50. DarkSlateGray4 aquamarine1 aquamarine2 aquamarine3 aquamarine4
  51. DarkSeaGreen1 DarkSeaGreen2 DarkSeaGreen3 DarkSeaGreen4 SeaGreen1
  52. SeaGreen2 SeaGreen3 SeaGreen4 PaleGreen1 PaleGreen2 PaleGreen3
  53. PaleGreen4 SpringGreen1 SpringGreen2 SpringGreen3 SpringGreen4 green1
  54. green2 green3 green4 chartreuse1 chartreuse2 chartreuse3 chartreuse4
  55. OliveDrab1 OliveDrab2 OliveDrab3 OliveDrab4 DarkOliveGreen1
  56. DarkOliveGreen2 DarkOliveGreen3 DarkOliveGreen4 khaki1 khaki2 khaki3
  57. khaki4 LightGoldenrod1 LightGoldenrod2 LightGoldenrod3 LightGoldenrod4
  58. LightYellow1 LightYellow2 LightYellow3 LightYellow4 yellow1 yellow2
  59. yellow3 yellow4 gold1 gold2 gold3 gold4 goldenrod1 goldenrod2
  60. goldenrod3 goldenrod4 DarkGoldenrod1 DarkGoldenrod2 DarkGoldenrod3
  61. DarkGoldenrod4 RosyBrown1 RosyBrown2 RosyBrown3 RosyBrown4 IndianRed1
  62. IndianRed2 IndianRed3 IndianRed4 sienna1 sienna2 sienna3 sienna4
  63. burlywood1 burlywood2 burlywood3 burlywood4 wheat1 wheat2 wheat3
  64. wheat4 tan1 tan2 tan3 tan4 chocolate1 chocolate2 chocolate3 chocolate4
  65. firebrick1 firebrick2 firebrick3 firebrick4 brown1 brown2 brown3
  66. brown4 salmon1 salmon2 salmon3 salmon4 LightSalmon1 LightSalmon2
  67. LightSalmon3 LightSalmon4 orange1 orange2 orange3 orange4 DarkOrange1
  68. DarkOrange2 DarkOrange3 DarkOrange4 coral1 coral2 coral3 coral4
  69. tomato1 tomato2 tomato3 tomato4 OrangeRed1 OrangeRed2 OrangeRed3
  70. OrangeRed4 red1 red2 red3 red4 DeepPink1 DeepPink2 DeepPink3 DeepPink4
  71. HotPink1 HotPink2 HotPink3 HotPink4 pink1 pink2 pink3 pink4 LightPink1
  72. LightPink2 LightPink3 LightPink4 PaleVioletRed1 PaleVioletRed2
  73. PaleVioletRed3 PaleVioletRed4 maroon1 maroon2 maroon3 maroon4
  74. VioletRed1 VioletRed2 VioletRed3 VioletRed4 magenta1 magenta2 magenta3
  75. magenta4 orchid1 orchid2 orchid3 orchid4 plum1 plum2 plum3 plum4
  76. MediumOrchid1 MediumOrchid2 MediumOrchid3 MediumOrchid4 DarkOrchid1
  77. DarkOrchid2 DarkOrchid3 DarkOrchid4 purple1 purple2 purple3 purple4
  78. MediumPurple1 MediumPurple2 MediumPurple3 MediumPurple4 thistle1
  79. thistle2 thistle3 thistle4/);
  80.  
  81.     $list->activate(0);
  82.  
  83. } # end colors
  84.  
  85. 1;
  86.