No reason having multiple instances of the uml box.

24 years ago · c4252f1cc9
1 changed files with 8 additions and 1 deletions
--- a/9
+++ b/9
@ -1083,6 +1083,8 @@ sub advanced_root_section {

 sub uml_box {

+    if (not defined $uml_window) {
+
 	$uml_window = Gtk::Window->new("toplevel");
 	$uml_window->signal_connect("destroy", \&destroy_window,
 	\$uml_window);
@ -1255,7 +1257,12 @@ sub uml_box {
 				     $uml_window->destroy() if $uml_window;
 				 } );

-	$uml_window->show();
+   }
+   if (!visible $uml_window) {
+       $uml_window->show();
+   } else {
+       $uml_window->destroy;
+   }

 }