Lancer une impression en perl/TK

Marsh Posté le 10-10-2002 à 11:08:08

Je voudrais lancer une impression d'un canvas ou d'une frame,
dans lequel j'ai des courbes,
quelle commande puis je lancer,

sinon qui connait la commande pour ouvrir une fentre en plein ecran en perl/TK,

Merci d'avance pour vos reponses.

Reply

Marsh Posté le 10-10-2002 à 11:08:08

Reply

Marsh Posté le 10-10-2002 à 13:30:40

leguijo a écrit a écrit :

Je voudrais lancer une impression d'un canvas ou d'une frame,
dans lequel j'ai des courbes,
quelle commande puis je lancer,

Je ne connais pas de commande toute faite en Tk pour imprimer. Par contre, si tu peux récupérer le contenu de ton canvas ou de ta frame dans un fichier, tu devrais au moins imprimer ce fichier, j'sais pas trop.

leguijo a écrit a écrit :

sinon qui connait la commande pour ouvrir une fentre en plein ecran en perl/TK

Tu peux être + précis ici ? Tu veux ouvrir quoi comme fenêtre en plein écran ? Une fenêtre Dos ? Une autre widget ?

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

Reply

Marsh Posté le 10-10-2002 à 14:02:55

Salut Aricoh,

en fait je souhaite ouvrir une fentre en TK(la fenetre principale),
en plein ecran cad dans un etat ou elle peut etre iconiser ou reduite.

Pour l'impression: j'ai en fait des courbes qui sont tracer dans un canvas et je souhaiterais les imprimer,
seulement si je passe par un fichier intermediaire je ne retrouverai pas le format de mes courbes.

Merci d'avance

Reply

Marsh Posté le 10-10-2002 à 14:08:27

Pour la taille de la fenêtre, j'ai fait ceci dans un code :

Code :

$Hauteur = 600;
$Largeur = 800;
$mw = MainWindow->new(); # $mw = ma Widget
$mw->maxsize($Largeur, $Hauteur);
$mw->minsize($Largeur, $Hauteur);

De cette manière, la fenêtre qui s'affiche a une taille prédéfinie qui ne peut changer, ici 800*600

A mon avis, si tu veux que la taille de la widget soit configurable en plein écran selon la résolution de l'écran, il va sans doute falloir utiliser des API de Win32 pour connaître la résolution écran par défaut ? J'sais pas, à moins qu'il existe une fonction sous Tk mais je l'ignore.

De toutes façons, la gestion graphique de Tk sous Windows, c'est jamais la joie : une fois t'as la fenêtre qui apparait au milieu, d'autres fois sur la gauche, des fois tu n'as même pas le focus, le truc bien gavant

Sinon, pour ton impression de canvas, je sèche complètement, sorry

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

Reply

Marsh Posté le 10-10-2002 à 14:23:32

Merci tout de meme!

Reply

Marsh Posté le 25-10-2002 à 11:54:47

Aricoh a écrit a écrit :

Je ne connais pas de commande toute faite en Tk pour imprimer. Par contre, si tu peux récupérer le contenu de ton canvas ou de ta frame dans un fichier, tu devrais au moins imprimer ce fichier, j'sais pas trop.

Tu peux être + précis ici ? Tu veux ouvrir quoi comme fenêtre en plein écran ? Une fenêtre Dos ? Une autre widget ?

salut les amis,
j'ai moi aussi un probleme pour imprimer un canvas

j'ai trouvé ca sur perltk.org

Citation :

Hi Roderick,
I "cheated" my way into doing this a while back when writing something
for my wife. I used the "postscript()" canvas function to write the data
out to a postscript file which I then fed into GhostScript to send to my
Windows printer. Not the prettiest thing in the world, granted, but it did
get the job done. The code I had looked something like this:
-------------

$canvas->postscript( -colormode=>'mono', -file=>'master.ps', -x=>0, -y=>0, -
height=>'11i', -width=>'8i';

open( GS, "|gswin32c -sDEVICE=mswinpr2 - >NUL:" ) || die "Couldn't open the
printer!\n";
print GS "(master.ps) run\n";
for( 1..$copies)
{
print GS "(output.ps) run\n";
}

print GS "quit\n";
close GS;

mais ce n'est pas folichon
y a pas moyen en win32 d'utiliser la boite de dialogue par defaut de windows?

Reply

Marsh Posté le 25-10-2002 à 14:34:56

va voir sur http://www.le-berre.com/perl/perlxtd.htm

ils indiquent comment utiliser les MsgBox de Windows sous Perl

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO

Reply

Lancer une impression en perl/TK

Sujets relatifs:

Leave a Replay