set Comp_menu_up 0
#current component ascii value
set curCompId " "


set comp_menux 0
set comp_menuy 0

proc init_component_menu { w x y } {
    global BACKGROUND  FOREGROUND FONT Comp_menu_up  global comp_menux \
	    comp_menuy validComponent
 
   
    if { $Comp_menu_up == 1 } {
	focus .comp_menu.menu
	return 1
    }

    set  Comp_menu_up 1
    toplevel .comp_menu
    set comp_menux  [expr int([expr $x+50])+ 200]
    set comp_menuy  [expr int([expr $y])+ 100]

    wm geometry .comp_menu +$comp_menux+$comp_menuy 
    wm title .comp_menu "Component..."
    frame  .comp_menu.menu -background $BACKGROUND

    button .comp_menu.menu.join -text "Join" -command component_join \
	    -bg $BACKGROUND -fg $FOREGROUND -font $FONT
    button .comp_menu.menu.horiz  -text "Horizontal Split" \
	    -command component_horizontal_split \
	    -bg $BACKGROUND -fg $FOREGROUND -font $FONT 

    button .comp_menu.menu.vert -text "Vertical Split" -command \
	    component_vertical_split \
	    -bg $BACKGROUND -fg $FOREGROUND -font $FONT
    button .comp_menu.menu.learn -text "Learn" -command component_learn \
	    -bg $BACKGROUND -fg $FOREGROUND -font $FONT
    button .comp_menu.menu.close -text "Cancel" -command {  
	grab release .comp_menu 
	destroy .comp_menu; set Comp_menu_up 0 ;  } \
 	    -bg $BACKGROUND -fg $FOREGROUND -font $FONT
 
   pack .comp_menu.menu  .comp_menu.menu.join .comp_menu.menu.horiz \
	    .comp_menu.menu.vert .comp_menu.menu.learn \
	    .comp_menu.menu.close -fill x
   focus .comp_menu.menu	
   #grab .comp_menu	
    
}


proc component_join { } {
global Comp_menu_up
puts stdout "component_join"
grab release .comp_menu.menu
#temporarily bind <Double-1> to join components
bind .main_window.display.work_space <Double-1> {
    component_select %W %x %y 
    # joins this selection with next selected component
    JOIN_COMP

    #put <Double -1> back to the old setting
    bind .main_window.display.work_space <Double-1> {
	component_select %W [%W canvasx %x]  [%W canvasy %y] 
        init_component_menu %W [%W canvasx %x]  [%W canvasy %y] 
    }
}
destroy .comp_menu
set Comp_menu_up 0
}    

proc component_horizontal_split { } {
global Comp_menu_up
puts stdout "component_horizontal_split"
grab release .comp_menu.menu
SPLIT_COMP_HORIZ

destroy .comp_menu
set Comp_menu_up 0

}


proc component_learn { } {
    global Comp_menu_up curCompId comp_menux comp_menuy
puts stdout "component_learn"
#pops up a little window to put in id for component
    global save_ascii_geometry BACKGROUND FOREGROUND FONT SMALLFONT write_image

    
    toplevel .learn_comp -background $BACKGROUND
    wm geometry .learn_comp  +[expr $comp_menux +20]+[expr $comp_menuy +20]
    wm title .learn_comp  "Learn Component Id"
           grab set .learn_comp
   
    

    label .learn_comp.image -bitmap @$write_image -foreground $FOREGROUND -background $BACKGROUND
    frame .learn_comp.s -background $BACKGROUND
    label .learn_comp.s.txt -text "Learn Component as:" -foreground $FOREGROUND -background $BACKGROUND -font $SMALLFONT    
entry .learn_comp.s.ent -relief sunken -bd 2 -textvariable curCompId -foreground $FOREGROUND -background $BACKGROUND -font $SMALLFONT    
    pack .learn_comp.s.txt .learn_comp.s.ent -side top
    frame .learn_comp.buttons
button .learn_comp.buttons.ok -text OK -command { LEARN_COMP $curCompId ; \
    grab release .learn_comp; destroy .learn_comp}  -fg $FOREGROUND -background $BACKGROUND -font $SMALLFONT -width 5
button .learn_comp.buttons.cancel -text Cancel -command {destroy .learn_comp } -fg $FOREGROUND -background $BACKGROUND -font $SMALLFONT -width 5
    pack .learn_comp.buttons.ok .learn_comp.buttons.cancel -side left -expand 1 -fill x 	
    pack .learn_comp.image .learn_comp.s .learn_comp.buttons -side top
    .learn_comp.s.ent icursor 0
    .learn_comp.s.ent select range 0 10
    focus .learn_comp.s.ent
 
    bind .learn_comp.s.ent <Return> {
	LEARN_COMP $curCompId
	grab release .learn_comp
	destroy .learn_comp
    }

destroy .comp_menu
set Comp_menu_up 0
}