(NewWindow) rename $w as $dialog

1 files changed, 3 insertions, 3 deletions

diff --git a/userdrake b/userdrake
index 89fefe2..8808578 100755
--- a/userdrake
+++ b/userdrake
@@ -668,10 +668,10 @@ sub BuildGui {
 
 sub NewWindow {
     my ($title) = @_;
-    my $w = gtkset_border_width(_create_dialog($title, { transient_for => $us->{wnd}{real_window} }),
+    my $dialog = gtkset_border_width(_create_dialog($title, { transient_for => $us->{wnd}{real_window} }),
                                 5);
-    $w->signal_connect(delete_event => sub { $w->destroy });
-    $w;
+    $dialog->signal_connect(delete_event => sub { $dialog->destroy });
+    $dialog;
 }
 
 sub Edit() {