[Wx] EventHandler aktiv nur wenn PopUpMenü geöffnet ist (gelöst) (Graphische Oberflächen)

[thread]16992[/thread]

[Wx] EventHandler aktiv nur wenn PopUpMenü geöffnet ist [gelöst]

Tags: perl5 GUI WxPerl events Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+11 replies

XimPerl

2011-12-16 02:41

User since
2011-10-12
6 Artikel
BenutzerIn
[default_avatar]

Kurz zur Erklärung:

Ich habe ein WxGrid Objekt das mit Einträgen aus einem XML Dokument gefüllt wird.

Bei Rechtsklick auf einen Eintrag des Grids bzw. Zelle öffnet sich ein PopupMenu für die jeweilige Reihe bzw. den Eintrag.

Das Event habe ich bereits vorher statisch mappen müssen, was mir schonmal nicht gefällt da ich das Event dadurch auch nicht mehr deaktivieren kann.
Es soll ja eigentlich nur verfügbar sein wenn das PopUpMenü der jeweiligen Reihe geöffnet ist. Zumal ich beim klicken innerhalb des PopUpMenüs die Reihe also den Ursprung des Events verliere.

Ich habe mal die wichtigsten Bestandteile zusammengefasst.
Vielleicht kann mir auch jemand einen besseren Weg erklären wie ich die Events dynamisch connecten und disconnecten kann, anhand simpler code Beispiele.

Vielen Dank im voraus!

Code: (dl )

		# Parse ein XML Document
		use XML::Simple;
		my $xml = new XML::Simple;
		my $doc = $xml->XMLin("file.xml");
		
		# Zähle Anzahl Einträge
		my $rowCount=0;
		foreach my $key (keys (%{$doc->{item}})){
			$rowCount++;
		}
		
		# Erstelle Grid
		$self->{grid} = Wx::Grid->new($self->{tab}, -1);
		$self->{grid}->CreateGrid($rowCount,4);
		$self->{grid}->SetColLabelValue(0,"A");
 
		# Füge dem Grid anhand der XML Datei die Einträge hinzu
		my $row=0;
		foreach my $key (keys (%{$doc->{item}})){
			my $name = $doc->{item}->{$key}->{'name'};
			$self->{grid}->SetCellValue($row,1, $name);
			
			# Erstelle statisches Event für Eintrag für PopUp Menü Event
			Wx::Event::EVT_MENU($self, "01".$row."", \&onSelect);
			$row++;
		}
		
		# Füge Rechtsklick-Event hinzu für Grid Zellen
		Wx::Event::EVT_GRID_CELL_RIGHT_CLICK($self, \&showPopupMenu); 

	# Das PopUp Menü an sich
    sub showPopupMenu {
		my ($self,$event) = @_;
		my $pos = $event->GetPosition();
		my $row = $event->GetRow();
        my $menu = Wx::Menu->new();
		my $download = Wx::MenuItem->new($menu, "01".$row."","Select");
        $menu->AppendItem($download);
        $menu->Append($loeschen);
        $menu->Append($neustart);
        $self->PopupMenu($menu, $pos);
        $menu->Destroy();
	}
	
	# Die Methode bei PopUp Menü Event
	# Nur woher weiß ich jetzt für welchen Eintrag bzw. Reihe des Grids der Event ausgelöst wurde?
	sub onSelect {
		my ($self,$event) = @_;
		
		my $row = ????; # Woher nehmen wenn nicht stehlen?
		$self->{grid}->SetCellValue($row,1, "Text");
	}

Last edited: 2011-12-16 08:39:35 +0100 (CET)

+6 replies
lichtkind

2011-12-16 12:36
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
Quote
Das Event habe ich bereits vorher statisch mappen müssen,

Den eindruck kann die dokumentation erwecken und ich werde im übernächsten oder letzten teil meines tutorials drauf eingehen. schau mal in die Quellen von Wx::Event

http://wxperl.svn.sourceforge.net/viewvc/wxperl/wx...

da steht nicht Wx::Event::EVT_GRID_CELL_RIGHT_CLICK drin weil er in der erweiterung (ext) grid ist aber schema ist das selbe. du kannst den connect-befehl in diesen subroutinen jederzeit wieder aufrufen und die eventverbindung dadurch ändern oder eleganter mit $widget->disconnect auflösen.

siehe: http://docs.wxwidgets.org/trunk/classwx_evt_handle...

brute force wäre, was eigentlich das selbe nur für dich einfacher machen müsste. so genau weiss ich das auch nicht
Code (perl): (dl )

Wx::Event::EVT_GRID_CELL_RIGHT_CLICK($self, sub {} );
Last edited: 2011-12-16 12:48:35 +0100 (CET)
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
- +5 replies
- XimPerl
  
  2011-12-19 11:43
  
  User since
  2011-10-12
  6 Artikel
  BenutzerIn
  
  Die unschöne Variante wäre also das Event zu überschreiben wenn es nicht mehr gebraucht wird, mit:
  Wx::Event::EVT_GRID_CELL_RIGHT_CLICK($self, sub {} );
  
  Bzw. mit $panel->disconnect(); Alle Events platt machen.
  - +4 replies
  - XimPerl
    
    2011-12-19 11:50
    User since
    2011-10-12
    6 Artikel
    BenutzerIn
    
    Wäre schön wenns das ganze etwas einfacher geben würde:
    
    A la:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    $self->{events}->{EVT_GRID_CELL_RIGHT_CLICK} = Wx::Event::EVT_GRID_CELL_RIGHT_CLICK($self, \&showPopupMenu); $self->{events}->{EVT_GRID_CELL_RIGHT_CLICK}->connect(); $self->{events}->{EVT_GRID_CELL_RIGHT_CLICK}->disconnect();
    
    Somit wäre jedes einzelne Event in jeder Objektmethode verfügbar und steuerbar.
    Gibt es sowas nicht irgentwie?
    - +3 replies
    - lichtkind
      
      2011-12-19 12:41
      
      User since
      2004-03-22
      5697 Artikel
      ModeratorIn + EditorIn
      
      es ist jedes einzelne event steuerbar, connect bekommt ja noch parameter. ich hab dir doch den link dazugegeben wo beschrieben steht wie sie benutzt werden.
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
      - +2 replies
      - XimPerl
        
        2011-12-19 14:06
        
        User since
        2011-10-12
        6 Artikel
        BenutzerIn
        
        Ah soweit hab ich es verstanden
        
        Code (perl): (dl )
        
        $self->Connect(10101,10101, EVT_GRID_CELL_RIGHT_CLICK, \&showPopupMenu);
        
        Aber woher bekomme ich EVT_GRID_CELL_RIGHT_CLICK?
        
        per (use Wx::Grid) gehts nicht
        
        Code (perl): (dl )
        
        $self->Connect(10101,10101, Wx::Event::EVT_GRID_CELL_RIGHT_CLICK, \&showPopupMenu);
        
        und
        
        Code (perl): (dl )
        
        $self->Connect(10101,10101, Wx::Grid::EVT_GRID_CELL_RIGHT_CLICK, \&showPopupMenu);
        
        geht auch nicht oO
        Last edited: 2011-12-19 14:08:02 +0100 (CET)
        
        lichtkind
        
        2011-12-19 14:58
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        da würd ich auch nur suchen oder mailingliste fragen, wxperl-users ät perl org
        
        wenn ich was finde, poste ich es
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
+4 replies

XimPerl

2011-12-19 16:46

User since
2011-10-12
6 Artikel
BenutzerIn
[default_avatar]

Und so funktionierts.
Vielen Dank

Code (perl): (dl )

# Parse ein XML Document
use XML::Simple;
my $xml = new XML::Simple;
my $doc = $xml->XMLin("file.xml");
                
# Zähle Anzahl Einträge
my $rowCount=0;
foreach my $key (keys (%{$doc->{item}})){
        $rowCount++;
}

# Erstelle Grid
$self->{grid} = Wx::Grid->new($self->{tab}, -1);
$self->{grid}->CreateGrid($rowCount,4);
$self->{grid}->SetColLabelValue(0,"A");
 
# Füge dem Grid anhand der XML Datei die Einträge hinzu
my $row=0;
foreach my $key (keys (%{$doc->{item}})){
        my $name = $doc->{item}->{$key}->{'name'};
        $self->{grid}->SetCellValue($row,1, $name);
        $row++;
}
                
# Füge Rechtsklick-Event hinzu für Grid Zellen
Wx::Event::EVT_GRID_CELL_RIGHT_CLICK($self, \&showPopupMenu); 

# Das PopUp Menü an sich
sub showPopupMenu {
        my ($self,$event) = @_;
        my $pos = $event->GetPosition();
        my $row = $event->GetRow();
        
        # Connect Event
        Wx::Event::EVT_MENU($self, "101", sub {
                $self->onSelect($event);
        });
        
        my $menu = Wx::Menu->new();
        my $download = Wx::MenuItem->new($menu, "101","Select");
        $menu->AppendItem($download);
        $menu->Append($loeschen);
        $menu->Append($neustart);
        $self->PopupMenu($menu, $pos);
        $menu->Destroy();
}
        
sub onSelect {
        my ($self,$event) = @_;
        my $row = $event->GetRow();
        $self->{grid}->SetCellValue($row,1, "Text");
        # Disconnect Event
        Wx::Event::EVT_MENU($self, "101","");
}

Letztes Problem wäre wenn kein PopUpMenü Eintrag ausgewählt wird.
Das Event würde dann nicht disconnected werden.
Last edited: 2011-12-19 16:52:15 +0100 (CET)

lichtkind

2011-12-19 17:13

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

was genau willst du machen?
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
+2 replies

Gast wer

2011-12-19 17:52

ein paar allgemeine sachen:

Code (perl): (dl )

# Zähle Anzahl Einträge
my $rowCount=0;
foreach my $key (keys (%{$doc->{item}})){
        $rowCount++;
}

einfacher:

Code (perl): (dl )

1
2

# Zähle Anzahl Einträge
my $rowCount= keys (%{$doc->{item}});

Code (perl): (dl )

# Füge dem Grid anhand der XML Datei die Einträge hinzu
my $row=0;
foreach my $key (keys (%{$doc->{item}})){
        my $name = $doc->{item}->{$key}->{'name'};
        $self->{grid}->SetCellValue($row,1, $name);
        $row++;
}

kürzer:

Code (perl): (dl )

# Füge dem Grid anhand der XML Datei die Einträge hinzu
my $row=0;
foreach my $val (values(%{$doc->{item}})){
        $self->{grid}->SetCellValue($row++,1, $val->{'name'});
}

Last edited: 2011-12-19 17:57:09 +0100 (CET)

XimPerl

2011-12-20 12:49

User since
2011-10-12
6 Artikel
BenutzerIn

danke für die Verkürzungen oO

View all threads created 2011-12-16 02:41.