diff options
Diffstat (limited to 'doc/manuel_utilisateur.txt')
| -rw-r--r-- | doc/manuel_utilisateur.txt | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/doc/manuel_utilisateur.txt b/doc/manuel_utilisateur.txt index 6fdb202..6f24b6a 100644 --- a/doc/manuel_utilisateur.txt +++ b/doc/manuel_utilisateur.txt @@ -735,6 +735,19 @@ d'utiliser start/stop. *** start et stop ne modifient pas la propriété visible, est-ce normal ? *** il n'y a pas de fonction isRunning. Faut-il en ajouter une ? +Exemple d'utilisation : +use MTools; +use MTools::GUI::MRect; +use MTools::MTimer; +new MTools (800, 600, "Exemple de timer"); +my $rect = new MTools::GUI::MRect (1, 300, 100, 300, 50, -filled => 1); +my $timer = new MTools::MTimer(200, 1, \&switch); +$timer->start(); +mrun; +sub switch { + $rect->mconfigure(-visible => !$rect->mget("-visible")); +} + ptkdb, MState, MIvy, WacomAdapter 2.8 L'utilisation de TkZinc |