$gui_warn_frm = $gui_mw_wrapper -> Toplevel(    -title=>$title,
                                                                                                        -relief=>"ridge",
                                                                                                        -borderwidth=>3);

        $gui_warn_text = $gui_warn_frm -> Scrolled(     "ROText",
                                                                                                -scrollbars=>"ose",
                                                                                                -font=>"Times 12 normal",
                                                                                                -width=>$text_width,
                                                                                                -height=>$text_height,
                                                                                                -wrap=>"word");

        $gui_warn_button = $gui_warn_frm -> Button(     -text=>"OK",
                                                                                                -command=>[sub {my($ptr) = @_; $ptr -> destroy();},$gui_warn_frm]);


        $gui_warn_frm -> geometry("+300+50");
        $gui_warn_frm -> raise($gui_mw_wrapper);
        $gui_warn_text -> grid( -row=>0,
                                                        -column=>0);

        $gui_warn_button -> grid(       -row=>1,
                                                                -column=>0);

        $gui_warn_text -> insert("end",$message);
        $gui_mw_wrapper -> update;
        $gui_warn_frm -> waitWindow;