home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 April / Chip_2003-04_cd1.bin / zkuste / phpgtk / url.php < prev   
PHP Script  |  2002-12-26  |  2KB  |  79 lines

  1. <?php
  2.  
  3. if (!class_exists('gtk')) {
  4.   if (strtoupper(substr(PHP_OS, 0,3) == 'WIN'))
  5.      dl('php_gtk.dll');
  6.    else
  7.      dl('php_gtk.so');
  8. }
  9.  
  10. function delete_event()
  11. {
  12.   return false;
  13. }
  14.  
  15. function destroy()
  16. {
  17.   gtk::main_quit();
  18. }
  19.  
  20. function create_shortcut()
  21. {
  22.   global $dir_entry, $name_entry, $adr_entry;
  23.  
  24.   $filename = $dir_entry->get_text().$name_entry->get_text();
  25.   $file = fopen($filename, "w") or die("\nSoubor nelze vytvorit!\n");
  26.  
  27.   fputs($file, "[DEFAULT]\nBASEURL=".$adr_entry->get_text()."\n");
  28.   fputs($file, "[InternetShortcut]\nURL=".$adr_entry->get_text()."\n");
  29.  
  30.   fclose($file) or die("Soubor nelze uzavrit!");
  31.  
  32.   $name_entry->set_text(".url");
  33.   $name_entry->set_position(0);
  34.   $adr_entry->set_text("http://");
  35. }
  36.  
  37. $window = &new GtkWindow();
  38. $window->connect("destroy","destroy");
  39. $window->connect("delete_event","delete_event");
  40. $window->set_usize(350, 150);
  41. $window->set_title("Novy zastupce URL");
  42. $window->set_border_width(4);
  43. $window->set_position(GTK_WIN_POS_CENTER);
  44.  
  45. $table = &new GtkTable(4, 2);
  46. $window->add($table);
  47.  
  48. $dir_label = &new GtkLabel("Adresar");
  49. $table->attach($dir_label, 0, 1, 0, 1);
  50. $name_label = &new GtkLabel("Jmeno");
  51. $table->attach($name_label, 0, 1, 1, 2);
  52. $adr_label = &new GtkLabel("URL adresa");
  53. $table->attach($adr_label, 0, 1, 2, 3);
  54.  
  55. $dir_entry = &new GtkEntry();
  56. $dir_entry->set_text("C:\\Documents and Settings\\petr\\Plocha\\");
  57. $table->attach($dir_entry, 1, 2, 0, 1);
  58. $name_entry = &new GtkEntry();
  59. $name_entry->set_text(".url");
  60. $name_entry->set_position(0);
  61. $table->attach($name_entry, 1, 2, 1, 2);
  62. $adr_entry = &new GtkEntry();
  63. $adr_entry->set_text("http://");
  64. $table->attach($adr_entry, 1, 2, 2, 3);
  65.  
  66. $button = &new GtkButton("Create!");
  67. $button->connect("clicked", "create_shortcut");
  68. $table->attach($button, 0, 2, 3, 4);
  69.  
  70. $tip = &new GtkTooltips();
  71. $tip->set_delay(200);
  72. $tip->set_tip($button, "Vytvori zastupce URL");
  73.  
  74. $window->set_focus($name_entry);
  75. $window->show_all();
  76.  
  77. gtk::main();
  78.  
  79. ?>