menubutton.sa

 
---------------------------> Sather 1.1 source file <--------------------------
-- menubutton.sa: Tk menubuttons
-- Author: Matthias Ernst <tisi@beutlin.desy.de>
-- Copyright (C) 1995, International Computer Science Institute
-- $Id: menubutton.sa,v 1.2 1996/06/14 04:18:54 holger Exp $
--
-- COPYRIGHT NOTICE: This code is provided WITHOUT ANY WARRANTY
-- and is subject to the terms of the SATHER LIBRARY GENERAL PUBLIC
-- LICENSE contained in the file: Sather/Doc/License of the
-- Sather distribution. The license is also available from ICSI,
-- 1947 Center St., Suite 600, Berkeley CA 94704, USA.


class TK_MENUBUTTON_CFG 
class TK_MENUBUTTON_CFG is
    include TK_WIDGET_CFG_INCL
	  text -> text;
    -- there's more to come
end; -- class TK_MENUBUTTON_CFG



class TK_MENUBUTTON < $TK_WIDGET 
class TK_MENUBUTTON < $TK_WIDGET is
    -- menubutton
    
    include TK_WIDGET_INCL{TK_MENUBUTTON_CFG};
    
    const tk_widget_type: STR := "menubutton";
    
    -- every menubutton has a menu created with itself
    -- this is for simplicity and to assure
    -- that the menu is the button's child
    readonly attr menu: TK_MENU;	
    
    private default_init(c: TK_MENUBUTTON_CFG) is
	menu := #TK_MENU(self, "menu", TK_MENU_CFG::std);
	eval(path_name, "configure", "-menu", menu.path_name);
    end;
    
end; -- class TK_MENUBUTTON