diff options
author | didier | 2007-07-12 14:33:17 +0000 |
---|---|---|
committer | didier | 2007-07-12 14:33:17 +0000 |
commit | a42f4643a7f5b59e031a161f6724f39190375ff6 (patch) | |
tree | de43eee973919e624e5e9f7aaeb659509feb9531 /src/MTools.pm | |
parent | a289f9fe351493f187b98a30e5ef6bc10786b7b3 (diff) | |
download | mtc-a42f4643a7f5b59e031a161f6724f39190375ff6.zip mtc-a42f4643a7f5b59e031a161f6724f39190375ff6.tar.gz mtc-a42f4643a7f5b59e031a161f6724f39190375ff6.tar.bz2 mtc-a42f4643a7f5b59e031a161f6724f39190375ff6.tar.xz |
Ajout de parametres (optionnels) d'instanciation de MTools.
* Possibilite de fournir la widget zinc en parametre (et donc de la mainwindow)
* Possibilite de specifier le display surlequel afficher la mainwindow.
Diffstat (limited to 'src/MTools.pm')
-rw-r--r-- | src/MTools.pm | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/src/MTools.pm b/src/MTools.pm index fb7ff74..f4c7a67 100644 --- a/src/MTools.pm +++ b/src/MTools.pm @@ -111,13 +111,15 @@ our %fonts; my %gradients; sub new { - my ($class, $width, $height, $title) = @_; + my ($class, $width, $height, $title, $Zinc, $screen, $geometry) = @_; my $self = {}; bless $self, $class; - - $self -> {window} = my $mw = MainWindow -> new (); + if (!defined $Zinc) + { + $screen = ":0.0" if (!defined $screen); + $self -> {window} = my $mw = MainWindow -> new ('-screen' =>$screen); $mw -> title($title); - + $mw->geometry ($geometry) if (defined $geometry); $self -> {zinc} = $zinc = $mw -> Zinc ( -width => $width, -height => $height, @@ -125,7 +127,13 @@ sub new { -backcolor => 'white', -render => 1, ) -> pack (qw/-expand yes -fill both/); - + } + else + { + $self -> {zinc} = $zinc; + $zinc = $Zinc; + $self -> {window} = $zinc->toplevel ; + } return $self; } @@ -489,8 +497,8 @@ sub raise { } sub chggroup { - my ($obj, $parent) = @_; - $zinc -> chggroup (ref ($obj) eq '' ? $obj : $obj -> {instance}, ref ($parent) eq '' ? $parent : $parent -> {instance}); + my ($obj, $parent, $adjust) = @_; + $zinc -> chggroup (ref ($obj) eq '' ? $obj : $obj -> {instance}, ref ($parent) eq '' ? $parent : $parent -> {instance},$adjust); } sub clone { |