2009-06-09 7 views
2

Avant de demander, "Pourquoi utilisez-vous cette ancienne version de Perl?", C'est hors de ma portée. Je dois utiliser les outils à ma disposition pour ce projet. Ma question est ce que quelqu'un sait s'il est possible, et si oui la syntaxe ressemble à utiliser gridRowconfigure comme suit:Existe-t-il un moyen d'utiliser gridRowconfigure dans Perl 5.004/Tk 400

$main_window->gridRowconfigure(1, -weight => 1, -minsize => 171, -pad => 0); 

dans, Perl 5,004, Tk 400. Merci.

+0

Pourquoi n'obtenez-vous pas les gens dans votre travail pour rejoindre le 21ème siècle? Aiment-ils tellement les années 90 qu'ils ne peuvent rien utiliser de moderne? –

+0

Perl 5.004_04 a été publié vers octobre 1997 (http://backpan.perl.org/authors/id/T/TI/TIMB/). Tk-400.200 a été publié en août 1997 (http://backpan.perl.org/authors/id/N/NI/NI-S/). C'est un code vraiment ancien. –

Répondre

2

Puisque vous utilisez Tk-400.202, il semble que 'perldoc Tk::grid' devrait vous dire ce que vous devez savoir. Vous aurez probablement besoin de lire une autre documentation, mais:

$master->gridRowconfigure(index?, -option=>value, ...?) 

requêtes ou définir les propriétés de ligne de la ligne d'index du maître géométrie , maître $. Les options valides sont -minsize, -weight et -pad. Si une ou plusieurs options sont fournies, l'index peut être donné sous la forme d'une liste des entrées de ligne [sic] sur lesquelles les options de configuration fonctionneront . L'option -minsize définit la taille minimale, en unités d'écran, qui sera autorisée pour cette ligne. L'option -weight (valeur entière ) définit le poids relatif pour la répartition des espaces supplémentaires parmi les lignes. Un poids de zéro (0) indique que la ligne ne s'écarte pas de la taille demandée. Une ligne dont le poids est de deux croîtra à deux fois le taux en tant que ligne de poids un lorsqu'un espace supplémentaire est attribué à la disposition. L'option -uniform, lorsqu'une valeur non vide est fournie, place la ligne dans un groupe uniforme avec d'autres lignes qui ont la même valeur pour -uniform. L'espace pour les rangées appartenant à un groupe uniforme est alloué de sorte que leurs tailles soient toujours en proportion stricte de leurs valeurs de poids. Voir l'ALGORITHME DE GRILLE ci-dessous pour plus de détails. L'option -pad spécifie le nombre d'unités d'écran qui seront ajoutées à la plus grande fenêtre contenue complètement dans cette ligne lorsque le gestionnaire de géométrie de grille demande une taille à partir de la fenêtre contenant. Si seule une option est spécifiée, sans valeur, la valeur actuelle de cette option est renvoyée. Si seule la fenêtre maître et l'index sont spécifiés, tous les paramètres actuels sont renvoyés dans une liste de paires "option-value" .

Comme je l'ai noté dans un commentaire à la question - c'est un logiciel antique qui devrait être mis à jour.

+1

Pour une raison quelconque sur la machine, je travaillais sur 'perldoc Tk :: grid' retourné avec 'aucune documentation pour Tk :: grid'. Cependant, cela m'a donné une idée de ce que commencer à chercher et je l'ai finalement trouvé dans Widget.pm et de la documentation dans le code a pu arriver à: $ main_window-> Tk :: grid ('rowconfigure' , 1, -poids => 1, -minsize => 171); qui a bien fonctionné. Merci pour l'aide! – Akers

0

Si cela signifie Tk 4.0, je suppose que vous ne pouvez pas. La grille a été ajoutée dans Tk 4.1.

Si la grille est présente, rowconfigure devrait l'être depuis son lancement. Quel problème/erreur obtenez-vous lorsque vous essayez ce que vous avez écrit ci-dessus?

+1

Dans Tk.pm, il est indiqué $ Tk :: VERSION = '400.202'. Je ne suis pas sûr de la version qui correspond à. Cependant, je connais les travaux de grille parce que je l'ai utilisé sur plusieurs autres petits projets, gridrowconfigure est ce que la question concerne.Grâce à l'expérience passée, gridrowconfigure vous permet de contrôler le comportement de redimensionnement de la fenêtre et de la grille. – Akers