[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/BindingEditor.pm

Comparing deliantra/Deliantra-Client/DC/BindingEditor.pm (file contents):
Revision 1.4 by root, Sun Jul 30 13:16:44 2006 UTC vs.
Revision 1.7 by root, Sun Oct 1 14:48:51 2006 UTC

 use strict;
 use CFPlus::UI;
-our @ISA = CFPlus::UI::FancyFrame::;
+our @ISA = CFPlus::UI::Toplevel::;
 my @ALLOWED_MODIFIER_KEYS = (
    CFPlus::SDLK_LSHIFT,
    CFPlus::SDLK_LCTRL ,
    CFPlus::SDLK_LALT  ,
    $self
 }
 sub cfg_bind {
    my ($self, $mod, $sym, $cmds) = @_;
-   $::CFG->{profile}{default}{bindings}{$mod}{$sym} = $cmds;
+   $::PROFILE->{bindings}{$mod}{$sym} = $cmds;
    ::update_bindings ();
 }
 sub cfg_unbind {
    my ($self, $mod, $sym, $cmds) = @_;
-   delete $::CFG->{profile}{default}{bindings}{$mod}{$sym};
+   delete $::PROFILE->{bindings}{$mod}{$sym};
    ::update_bindings ();
 }
 sub commit {
    my ($self) = @_;
    return if $self->{binder};
    Scalar::Util::weaken $self;
-   $self->{binder} = new CFPlus::UI::FancyFrame
+   $self->{binder} = new CFPlus::UI::Toplevel
       title => "Bind Action",
       x     => "center",
       y     => "center",
       z     => 1000,
       has_close_button => 1,
          $self->{binding} = [$mod, $sym];
          $self->update_binding_widgets;
          $self->commit if $commit;
          $end_cb->() if $end_cb;
+         if (my $binder = delete $self->{binder}) {
-         (delete $self->{binder})->destroy;
+            $binder->destroy;
+         }
          1
       },
       on_focus_out => sub {
          # segfaults and worse :()
          #(delete $self->{binder})->destroy if $self->{binder};

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines