Menü mit Icons und Editbox (Graphische Oberflächen)

[thread]4685[/thread]

Menü mit Icons und Editbox

Robby

2003-12-01 11:34

User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]

Morgen!

Hat eigentlich inzwischen jemand ein Menü mit Icons + Text gefunden / geschrieben? (z.B. wie IE -> Favoriten)

Wäre es möglich in das menü auch eine Editbox reinzubekommen? Oder muß ich dafür mein eigenes Popup malen? *rätsel*

Gruß
Robby

Kaum macht man es richtig - schon funktioniert es!

Crian

2003-12-01 12:01

User since
2003-08-04
5878 Artikel
ModeratorIn

Zumindestens könntest Du es in ein Text-Widget packen ... aber eigentlich wäre es schöner, wenn es das als fertige Eintragsmöglichkeit bei den Menüs gäbe. Dazu habe ich aber leider nichts gefunden.

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

Robby

2003-12-01 12:19

User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]

Müsste man dann im Original TK:Menu abändern oder?
(Wenn das überhaupt machbar ist ;) )

Kaum macht man es richtig - schon funktioniert es!

ptk

2003-12-01 13:12

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Es gibt Tk::Compound, mit dem man on-the-fly Bilder und Text zu einem Bild zusammenfuegen kann. Dieses Bild kann man dann als Menuitem verwenden. Problematisch ist allerdings, dass das Highlightning dann nicht mehr wie erwartet funktioniert, ausserdem muss man sich um das Unterstreichen des Accelerators selbst kuemmern.

Ab Tk804.025 kann man die neue Option -compound verwenden. Das siehr dann so aus:

Code: (dl )

use Tk;
my $top = MainWindow->new;
$top->configure(-menu => $top->Menu(-menuitems => [
    [Cascade => "~File", -menuitems =>
     [
      [Button => "~Open", -image => $top->Photo(-file => Tk->findINC("srcfile.xpm")), -compound => "left"],
      [Button => "~Folder", -image => $top->Photo(-file => Tk->findINC("folder.xpm")), -compound => "left"],
     ]
    ]
]));
MainLoop;

Robby

2003-12-01 13:51

User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]

Bad option `-compound' at C:/Programme/Perl/site/lib/Tk.pm line 217.
at C:/Programme/Perl/site/lib/Tk/Menu/Item.pm line 47

??? *mmmh* geht wohl mit meinem Perl nicht so ganz :(

Kaum macht man es richtig - schon funktioniert es!

Crian

2003-12-01 14:53

User since
2003-08-04
5878 Artikel
ModeratorIn

Bei mir leider auch nicht :(

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

2003-12-01 14:57

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Ich schrieb auch Tk804.025. Wenn ihr Standard-ActivePerl habt, dann
seid ihr wahrscheinlich bei Tk800.024 oder so. Aber die Loesung mit
Tk::Compound muesste auch mit aelteren Tks funktionieren.

Robby

2003-12-01 15:24

User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]

eine compound.pm hab ich, aber irgendwas tut da nicht :(

Kaum macht man es richtig - schon funktioniert es!

ptk

2003-12-01 15:42

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Funktioniert compound_demo bei dir? Fuer das Skript entweder in der Perl/Tk-Source-Distribution nachgucken oder google bemuehen.

Robby

2003-12-01 16:02

User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]

ähm, ja, das hier tut...

Code: (dl )

#!/usr/local/bin/perl -w
use Tk;              
use Tk::Compound;
my $mw = MainWindow->new;
my $b  = $mw->Button(-command => [destroy => $mw])->pack;
my $i  = $b->Compound;
$i->Line;
$i->Text(-text => 'Line');
$i->Space(-width => '3m');
$i->Text(-text => 'one');
$i->Line;
$i->Bitmap(-bitmap => 'warning');
$i->Line;
$i->Text(-text => 'Line2');
$b->configure(-image => $i);

my $b2 = $mw->Button(-command => [destroy => $mw], -image => $i)->pack;

MainLoop;

coooool :)

Kaum macht man es richtig - schon funktioniert es!

View all threads created 2003-12-01 11:34.