------------------------------------------------------------------------------- -- -- -- Ada Interface to the X Window System and Motif(tm)/Lesstif -- -- Copyright (c) 1996-2000 Hans-Frieder Vogt -- -- -- -- This program is free software; you can redistribute it and/or modify -- -- it under the terms of the GNU General Public License as published by -- -- the Free Software Foundation; either version 2 of the License, or -- -- (at your option) any later version. -- -- -- -- This program is distributed in the hope that it will be useful, -- -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- -- See the GNU General Public License for more details. -- -- -- -- You should have received a copy of the GNU General Public License -- -- along with this program; if not, write to the -- -- Free Software Foundation, Inc., -- -- 59 Temple Place - Suite 330, -- -- Boston, MA 02111-1307, USA. -- -- -- -- -- -- X Window System is copyrighted by the X Consortium -- -- Motif(tm) is copyrighted by the Open Software Foundation, Inc. -- -- -- -- -- ------------------------------------------------------------------------------- ------------------------------------------------------------------------------- -- -- HISTORY: -- June 20, 1998 begin of history -- ------------------------------------------------------------------------------- with X_Toolkit; package Hello_World_Global is -- globally accesible variables Appshell, the_push, the_dialog : X_Toolkit.Widget := X_Toolkit.Null_Widget; Argl : X_Toolkit.Arg_List; App_Con : X_Toolkit.Xt_App_Context; -- callback routine which is called whenever the dialog should be shown procedure Show_Dialog_CB (W : in X_Toolkit.Widget; Closure : in X_Toolkit.Xt_Pointer; Call_Data : in X_Toolkit.Xt_Pointer); pragma Convention (C, Show_Dialog_CB); end Hello_World_Global;