← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to interfaces/xmaxima/Tkmaxima/Wmenu.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2006-10-18 14:52:42 UTC
  • mto: (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20061018145242-vzyrm5hmxr8kiosf
Import upstream version 5.10.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
interfaces/xmaxima/Tkmaxima/Wmenu.tcl
1
1
# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
2
2
#
3
 
#       $Id: Wmenu.tcl,v 1.7 2002/09/19 21:42:20 mikeclarkson Exp $
 
3
#       $Id: Wmenu.tcl,v 1.8 2004/10/13 12:08:58 vvzhy Exp $
4
4
#
5
5
###### wmenu.tcl ######
6
6
############################################################
23
23
        # maybe change this to do traversal toward side leaving on..
24
24
        oset $name items ""
25
25
    } else {
26
 
        error "needs a window name arg"
 
26
        error [mc "needs a window name arg"]
27
27
    }
28
28
}
29
29
 
30
30
 
31
31
proc eswitch { key lis } {
32
32
    foreach {k act} $lis { lappend allowd $k}
33
 
    lappend lis default "error $key must be  one of: $allowd"
 
33
    lappend lis default [concat [mc "error"] "$key" [mc "must be one of:"] "$allowd"]
34
34
    uplevel 1 switch -- $key  [list  $lis]
35
35
}
36
36
 
63
63
 
64
64
proc setHelp {win  help args } {
65
65
    # set c [ogetr $win c "cant"]
66
 
    if { "$help" == "" } {set help "This is a menu window $win"}
 
66
    if { "$help" == "" } {set help [concat [mc "This is a menu window"] "$win"]}
67
67
    set enter ""
68
68
    set exit ""
69
69
    if  { [catch { set current [$win cget -relief] } ] || "$current" \