Changeset 4754 for extensions/pLoader

Timestamp:

Jan 26, 2010, 10:47:25 AM (14 years ago)

Author:

ronosman

Message:

Bug fixed : Global settings panels do not collapse. Only on GTK.

File:

• extensions/pLoader/trunk/src/Uploader/GUI/wxGlobalSettings.pm (modified) (5 diffs)

extensions/pLoader/trunk/src/Uploader/GUI/wxGlobalSettings.pm

@@ -125 +125 @@
     
     Wx::Event::EVT_BUTTON( $self, $self->{gs_close}, \&OnClose );
+    # Required for GTK
+    Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_thumbnail}, \&OnPaneChanged );
+    Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_resize}, \&OnPaneChanged );
+    Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_resize_advanced}, \&OnPaneChanged );
+    Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_hd}, \&OnPaneChanged );
+    Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_hd_advanced}, \&OnPaneChanged );
+    Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_watermark}, \&OnPaneChanged );
+    Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_transfert_advanced}, \&OnPaneChanged );
 
 
@@ -151 +159 @@
     );
 
-    $event->Skip;
+    $event->Skip(1);
 }
 
@@ -185 +193 @@
     $self->{cpane_resize}->Collapse($b);
 
-    $event->Skip;
+    $event->Skip(1);
 
 }
@@ -204 +212 @@
     $self->{cpane_hd}->Collapse($b);
 
-    $event->Skip;
+    $event->Skip(1);
 }
 
@@ -218 +226 @@
     $self->{cpane_watermark}->Collapse($b);
 
-    $event->Skip;
+    $event->Skip(1);
+}
+
+sub OnPaneChanged {
+    my( $self, $event ) = @_;
+
+    $self->Layout;
+    $event->Skip(1);
 }