# BEGIN LICENSE BLOCK
# Version: CMPL 1.1
#
# The contents of this file are subject to the Cisco-style Mozilla Public
# License Version 1.1 (the "License"); you may not use this file except
# in compliance with the License.  You may obtain a copy of the License
# at www.eclipse-clp.org/license.
# 
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied.  See
# the License for the specific language governing rights and limitations
# under the License. 
# 
# The Original Code is  The ECLiPSe Constraint Logic Programming System. 
# The Initial Developer of the Original Code is  Cisco Systems, Inc. 
# Portions created by the Initial Developer are
# Copyright (C) 1994-2006 Cisco Systems, Inc.  All Rights Reserved.
# 
# Contributor(s): ECRC GmbH.
# 
# END LICENSE BLOCK

proc add_menu {menu} {
#    bind $menu <B1-ButtonRelease> { unpost_menu %W }
#    bind $menu <Any-Motion> {
#	if {[winfo rootx %W] <= %X && \
#		[expr [winfo rootx %W]+[winfo width %W]] >= %X} {
#	    %W activate @%y
#	}
#    }
}

proc post_menu {menu x y} {
    focus $menu
    $menu post [expr $x - 20] [expr $y + 10]
    grab $menu
}

proc unpost_menu {menu} {
    grab release $menu
    $menu unpost
    set i [$menu index active]
    if {$i != "none"} {
	update idletasks
	$menu invoke $i
    }
}
