diff options
| -rw-r--r-- | src/MTools.pm | 40 |
1 files changed, 28 insertions, 12 deletions
diff --git a/src/MTools.pm b/src/MTools.pm index e5fe52f..30698d2 100644 --- a/src/MTools.pm +++ b/src/MTools.pm @@ -1,4 +1,20 @@ package MTools; +# This program is free software; you can redistribute it and/or +# modify it under the terms of the GNU LGPL Libray General Public License +# as published by the Free Software Foundation; either version 2 +# of the License, or (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU Library General Public License for more details. +# +# You should have received a copy of the GNU Library General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA, +# or refer to http://www.gnu.org/copyleft/lgpl.html +# +################################################################## # MTools exporte des fonctions destinees principalement a : # - activer des fonctions propres a la librairie mtools @@ -7,7 +23,7 @@ package MTools; # Ainsi, d'une maniere generale, toutes fonctions exportees s'appliquent aussi bien a des objets # zinc qu'a des objets mtools. L'unique restriction est dans la methode d'appel : # - obligatoirement : fct ($obj, @parametres) pour un objet zinc -# - indefiremment $obj -> fct (@parametres). +# - indiferemment $obj -> fct (@parametres). # L'avantage de la premiere methode est qu'elle s'applique aussi bien a un objet zinc qu'a un objet MTools. # L'inconvenient est que l'on perd la possibilite de profiter de l'heritage et de la redefinition eventuelle de la fonction. # @@ -39,10 +55,10 @@ package MTools; # toutes les propriete prennent la valeur de property_1. # - executer : executer (callback); permet d'executer une callback du type predefini ci-dessus dans la section # "Les callbacks dans MTools" -# - binding : $obj -> binding ('evenement', callback) permet d'ecouter un evenement MTOOLS ou Tk survenant sur un objet. binding peut aussi etre redefini pour ecouter -# de nouvelle source d'evenement (par exemple MIvy ou WacomAdapter) +# - binding : $obj -> binding ('evenement', callback) permet d'ecouter un evenement MTOOLS ou Tk survenant sur un objet. +# binding peut aussi etre redefini pour ecouter de nouvelles sources d'evenements (par exemple MIvy ou WacomAdapter) # - unbinding : $obj -> unbinding ('evenement', callback) arrete l'ecoute d'un evenement -# - minstanciate : minstanciate ('definition', $parent) permet de retourner un objet MTools ? partir de la spec 'definition' +# - minstanciate : minstanciate ('definition', $parent) permet de retourner un objet MTools à partir de la spec 'definition' # si 'definition' est un path svg, minstanciate instancie le svg et retourne un objet MTools encapsulant le contenu # si 'definition' est un objet zinc, minstanciate retourne un objet MTools encapsulant l'objet zinc # si 'definition' est deja un objet MTools, minstanciate retourne l'objet lui-meme. @@ -108,13 +124,13 @@ sub new { $mw -> title($title); $mw->geometry ($geometry) if (defined $geometry); - $self -> {zinc} = $zinc = $mw -> Zinc ( - -width => $width, - -height => $height, - -borderwidth => 0, - -backcolor => 'white', - -render => 1, - ) -> pack (qw/-expand yes -fill both/); + $self -> {zinc} = $zinc = $mw -> Zinc ( + -width => $width, + -height => $height, + -borderwidth => 0, + -backcolor => 'white', + -render => 1, + ) -> pack (qw/-expand yes -fill both/); } else { @@ -123,7 +139,7 @@ sub new { $self -> {window} = $zinc->toplevel ; } - # Path for AUTOGEN : format the path + # Path for AUTOGEN: format the path if(defined $PathForAutogen){ $PathForAutogen =~ s/^\///g ; $PathForAutogen = "$PathForAutogen/" if not $PathForAutogen =~ /\/$/; |