# KEHOME/help/mke_concept_menu.icn
# Jul/26/2008
#===================================================
#===================================================
# Microsoft Windows & common menus

procedure concept_msmenu_input(mywin,concept)
#============================================
local mevent,dval
static info,warning
initial {
  info := "INFO: concept_msmenu_input: "
  warning := "WARNING: concept_msmenu_input: "
}
repeat {
flush(myout); flush(myerr)
#####if \mevent~=="Scroll" then
#####   scroll(mycon,myscroll,"refresh")
Raise(mywin)
WinMenuBar(mywin,
    ["File",
	"Open",
	"Save",
	"Input Menu",
	"Concept Menu",
	"Close Menu",
	"Exit MKE"
	],
    ["Context",
	"View",
	"Definition",
	"Hierarchy",
	"File System"
	],
    ["Concept",
	"Change concept",
	"..",
	".",
	"..."
	],
    ["Characteristic",
	"Definition",
        "Relation",
        "Part",
	"Attribute",
	"Action",
        "Interaction"
        ],
    ["Genii",
	".."
	],
    ["Species",
	"..."
	],
    ["Units",
	"i:..."
	],
    ["Groups",
	"Ingroup",
	"Exgroup"
	],
    ["Help",
	#####"Topic",
	"About MKE"
	]
    )
mevent := Event(mywin)
if DEBUG=="MENU" then {
  writes_type(mybug,mywin,info||"mywin")
  writes_type(mybug,dialog_value,info||"dialog_value")
  writes_type(mybug,mevent,info||"mevent")
}
case mevent of {
    default: {
      if DEBUG=="WINDOW" then
        writes_type(mylog,mevent,warning||"unexpected mevent")
      }
    "Open":           { concept_menu_file(mywin,mevent)       }
    "Save":           { concept_menu_file(mywin,mevent)       }
    "Input Menu":     { return menu_input(mywin)      	      }
    "Concept Menu":   { return concept_menu_input(mywin,DOT1) }
    "Close Menu":     { return concept_menu_close(mywin)      }
    "Exit MKE":       { return concept_menu_exit(mywin)       }

    ".":	{ concept_menu_statement(mywin,mevent,concept) }  # Concept
    "Change concept": { concept_menu_context(mywin,mevent,concept) }  # Concept

    "View":           { concept_menu_context(mywin,mevent)  }
    "Definition":     { concept_menu_context(mywin,mevent,concept)  }
    "Hierarchy":      { concept_menu_context(mywin,mevent,concept)  }
    "File System":    { concept_menu_context(mywin,mevent)  }

    "Relation":       { concept_menu_statement(mywin,mevent,concept)  }
    "Attribute":      { concept_menu_statement(mywin,mevent,concept)  }
    "Part":           { concept_menu_statement(mywin,mevent,concept)  }
    "Action":         { concept_menu_statement(mywin,mevent,concept)  }
    "Interaction":    { concept_menu_statement(mywin,mevent,concept)  }

    "..":	{ concept_menu_statement(mywin,mevent,concept) }  # Genii
    "...":	{ concept_menu_statement(mywin,mevent,concept) }  # Species
    "i:...":	{ concept_menu_statement(mywin,mevent,concept) }  # Units

    "Ingroup":	{ concept_menu_statement(mywin,mevent,concept) }  # isall,ismem
    "Exgroup":	{ concept_menu_statement(mywin,mevent,concept) }  # isany,isalt

    "Topic":          { concept_menu_help(mywin,mevent)       }
    "About MKE":      { concept_menu_help(mywin,mevent)       }

    #"Scroll":  { scroll(mycon,myscroll,"scroll") }
    #Key_Home:  { scroll(mycon,myscroll) }
    #Key_Up:    { scroll(mycon,myscroll) }
    #Key_Down:  { scroll(mycon,myscroll) }
    #Key_Left:  { scroll(mycon,myscroll) }
    #Key_Right: { scroll(mycon,myscroll) }
    #Key_PgUp:  { scroll(mycon,myscroll) }
    #Key_PgDn:  { scroll(mycon,myscroll) }
    #Key_End:   { scroll(mycon,myscroll) }
} # end case mevent
} # end repeat

writes_type(mywin,dval,info||"returning dval")
if DEBUG=="WINDOW" then
  WDelay(mywin,2000)
return dval
end