home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / doc / libgnome2-perl / examples / druid.pl next >
Encoding:
Perl Script  |  2003-11-03  |  3.7 KB  |  89 lines
  1. #!/usr/bin/perl -w
  2. #
  3. # $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2/examples/druid.pl,v 1.1 2003/11/03 21:41:54 kaffeetisch Exp $
  4. #
  5.  
  6. use Gnome2;
  7. use Cwd;
  8.  
  9. use constant TRUE => 1;
  10. use constant FALSE => 0;
  11.  
  12. $page_one_text = 
  13. "This is a simple test of the GnomeDruid.  If this had been an actual emergency, the attention signal you just heard would've been followed by sports, fashion, entertainment, and other critical information.  Remember, this is only a test.";
  14.  
  15. $end_page_text = 
  16. "Thank you for joining us, and thank you for reading this banal text.  I'm sorry it's so boring, but it's just filler, after all.";
  17.  
  18.  
  19. # this is intentionally incorrect --- spaces are not allowed in app_name,
  20. # because space isn't allowed in GConf keys.  this proves that the checking
  21. # works, and keeps from polluting the GConf database with crap from test apps.
  22. # it does, however, mean that the program will spit out lots of GConf-CRITICAL
  23. # warnings, and present the user with a warning that the app couldn't 
  24. # initialize properly. but this is a test, and we want to see things like that.
  25. #Gnome2::Program->init ('Druid Test', '1.0beta');
  26. ###Gnome2::Program->init ('Druid Test', '1.0beta', 'libgnomeui');
  27. Gnome2::Program->init ('Druid Test', '1.0beta', 'libgnomeui',
  28.                        show_crash_dialog => FALSE,
  29.                app_libdir => cwd);
  30.  
  31. print "app-libdir ".(Gnome2::Program->get_program->get ('app_libdir'))."\n";
  32.  
  33. #use Data::Dumper;
  34. #print Dumper([ Gnome2::Program->get_program->list_properties ]);
  35.  
  36. ($druid, $window) = Gnome2::Druid->new_with_window ("Test Druid", undef, TRUE);
  37.  
  38. $druid->finish->set_label ("_Finish");
  39. $druid->finish->signal_connect (clicked => sub { Gtk2->main_quit ; 1 });
  40.  
  41. $druid_page = Gnome2::DruidPageEdge->new_with_vals ('start', FALSE,
  42.                            "Welcome",
  43.                            $page_one_text,
  44.                            undef,
  45.                            undef,
  46.                            undef);
  47. $druid->append_page ($druid_page);
  48.  
  49.  
  50. $druid_page = Gnome2::DruidPageStandard->new_with_vals ("Page Two", undef, undef);
  51. $druid->append_page ($druid_page);
  52. $druid_page->append_item ("Test _one:", Gtk2::Entry->new, "Longer information here");
  53. $druid_page->append_item ("Test _two:", Gnome2::Entry->new ('fred'), "Longer information here");
  54. $druid_page->append_item ("Test t_hree:", Gnome2::FileEntry->new ('barney', 'wilma'), "Longer information here");
  55. $druid_page->append_item ("Test fou_r:", Gnome2::DateEdit->new (time, TRUE, FALSE), "Longer information here");
  56.  
  57.  
  58. $druid_page = Gnome2::DruidPageStandard->new_with_vals ("Another", undef, undef);
  59. $druid->append_page ($druid_page);
  60.  
  61. $druid_page->append_item ("For more information:", Gnome2::HRef->new ('http://gtk2-perl.sourceforge.net', 'the gtk2-perl homepage'), "click on it.  you know you want to.");
  62.  
  63. $button = Gtk2::Button->new ('play a sound');
  64. $button->signal_connect (clicked => sub {
  65.         Gnome2::Sound->play ('/usr/share/sounds/info.wav');
  66.         1; } );
  67. $druid_page->append_item ("test gnome_sound_play / Gnome2::Sound->play", $button, "sample filename is hard-coded");
  68.  
  69.  
  70. $button = Gtk2::Button->new ("About");
  71. # everything after authors may default on Gnome2::About->new.
  72. $button->signal_connect (clicked => sub { Gnome2::About->new ("Druid Test", "0.2", "(c) 2003 by muppet and the Gnome authors whose example he ported", "decreasingly simple example of using a Gnome2::Druid and other widgets", ['muppet', 'Gnome authors'])->show; 1 });
  73. $druid_page->append_item ("test gnome_sound_play / Gnome2::Sound->play", $button, "sample filename is hard-coded");
  74.  
  75.  
  76. $druid_page = Gnome2::DruidPageEdge->new_with_vals ('finish', FALSE,
  77.                            "Goodbye",
  78.                            $end_page_text,
  79.                            undef,
  80.                            undef,
  81.                            undef);
  82. $druid->append_page ($druid_page);
  83.  
  84. $window->show_all;
  85.  
  86. $window->signal_connect (destroy => sub { Gtk2->main_quit; 1 });
  87.  
  88. Gtk2->main;
  89.