|
Lines 16-22
Link Here
|
| 16 |
# 2005 Peter Rustler - qemuctl@rustlerit.de |
16 |
# 2005 Peter Rustler - qemuctl@rustlerit.de |
| 17 |
# with USB-Fix from mibraun |
17 |
# with USB-Fix from mibraun |
| 18 |
|
18 |
|
| 19 |
use Gtk2 qw/-init -threads-init/; |
19 |
use Gtk2 -init -threads-init; |
| 20 |
use Gtk2::GladeXML; |
20 |
use Gtk2::GladeXML; |
| 21 |
use IO::Handle; |
21 |
use IO::Handle; |
| 22 |
use IPC::Open3; |
22 |
use IPC::Open3; |
|
Lines 24-29
Link Here
|
| 24 |
use Fcntl; |
24 |
use Fcntl; |
| 25 |
use Getopt::Long qw(:config pass_through); |
25 |
use Getopt::Long qw(:config pass_through); |
| 26 |
|
26 |
|
|
|
27 |
use Gnome2; |
| 28 |
Gnome2::Program->init ($app_name, $version_string); |
| 29 |
|
| 27 |
$default_floppy_a = ""; |
30 |
$default_floppy_a = ""; |
| 28 |
$default_floppy_b = ""; |
31 |
$default_floppy_b = ""; |
| 29 |
$default_cdrom = ""; |
32 |
$default_cdrom = ""; |
