Schrift
[thread]4810[/thread]

Tk Basics: ein A.. voll variablen (Seite 2)

Leser: 1


<< |< 1 2 >| >> 13 Einträge, 2 Seiten
Crian
 2004-08-09 12:25
#42413 #42413
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Ich mache den Tk-Kram immer (= in größeren Projekten) in gesonderten Funktionen und lege Widgets wie $mw, die ich in verschiedenen Funktionen brauche, im allgeimeinen Konfigurationshash ab. Das versteckt sie natürlich auch nur, aber man hat dadurch nur eine (oder nur wenige) globale Variablen, was ich als deutlichen Vorteil ansehe.

Oft kann man sich das Speichern von Widgets auch sparen, wenn man Variablen an die Werte bindet. Dafür muss man dann natürlich diese in seinen Hash aufnehmen, aber das empfinde ich trotzdem als etwas eleganter.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
ptk
 2004-08-09 13:42
#42414 #42414
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
[quote=FtR,07.08.2004, 22:36]Voraussetzung:
ein HoH unbekannter Natur.

Ziel:
den gesammten HoH darstellen uind jedes Fekd editieren können und das zurück in den Hash schreiben[/quote]
Das gibt es schon als fertiges CPAN-Widget: Tk::ObjEditor. Ich benutze dieses Widget zum Editieren von MLDBM-Datenbanken. Mindestens als Basis fuer eine eigene Implementation sollte das Widget schon genuegen.
FtR
 2004-08-09 14:21
#42415 #42415
User since
2003-08-20
39 Artikel
BenutzerIn
[default_avatar]
@ dubu
$parent->Entry (-textvariable => \$hashp->{$_})->pack(-anchor => 'w');
na klar variable als Ref reingeben hätt nicht gedacht das das tut

@ ptk
schau ich mir an

THX

FtR
Code: ()
1
2
print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg);
sub f{eval(@_?$_:"'$&+'x3");}
<< |< 1 2 >| >> 13 Einträge, 2 Seiten



View all threads created 2004-08-07 17:09.