#!/bin/sh

# Scid (Shane's Chess Information Database)
#
# Copyright (C) 1999--2001  Shane Hudson. All rights reserved.
# This is freely redistributable software; see the file named COPYING
# that came with this program.
# To contact the author: email me at:  shane@cosc.canterbury.ac.nz

# The following comments are only for Unix versions of Scid:

# The "\" at the end of the comment line below is necessary! It means
#   that the "exec" line is a comment to Tcl/Tk, but not to /bin/sh.
# The next line restarts using tkscid: \
exec tkscid "$0" "$@"

# For the above to work, tkscid must be in a directory in your PATH.
# Alternatively, you can set the first line to start tkscid directly
# by specifying the full name of tkscid, eg:
# #!/home/myname/bin/tkscid

############################################################

set scidVersion "3.2"

# Determine operating system platform: unix or windows
set windowsOS 0
if {$tcl_platform(platform) == "windows"} { set windowsOS 1 }

# Check that the version of tkscid matches the version of this script:

if {[string compare [sc_info version] $scidVersion]} {
  wm withdraw .
  tk_messageBox -type ok -icon error -title "Scid: Version Error" \
    -message "This program,\n\"$argv0\",\nhas version $scidVersion,\nbut the tkscid program \nit uses has version [sc_info version].\nCheck that the path to tkscid is correct."
  exit 1
}


#############################################################
# Customisable variables:

# scidExeDir: contains the directory of the Scid executable program.
# Not used under Linux/Unix, but is used under Windows to determine the
# directory where the options file is stored.
set scidExeDir [file dirname [info nameofexecutable]]

# scidUserDir: location of user-specific Scid files.
# This is "~/.scid" on Unix, and the Scid exectuable dir on Windows.
if {$windowsOS} {
  set scidUserDir $scidExeDir
} else {
  set scidUserDir [file nativename "~/.scid"]
}

# ecoFile: the ECO file for opening classification. Scid will try to load
# this first, and if that fails, it will try to load  "scid.eco" in the
# current directory.
if {$windowsOS} {
  set ecoFile [file join $scidExeDir "scid.eco"]
} else {
  set ecoFile "/usr/share/scid/scid.eco"
}

# boardSizes: a list of the available board sizes.
set boardSizes [list 25 30 35 40 45 50 55 60 65 70]
set boardSizesOLD [list 21 25 29 33 37 40 45 49 54 58 64 72]

# boardSize: Default board size. See the available board sizes above.
set boardSize 45

# boardStyle: Default board piece set. See bitmaps.tcl for styles.
set boardStyle Merida

# language for help pages and messages:
set language E
set oldLang X

# showToolbar: 1 to show toolbar, 0 to hide it.
set showToolbar 1

# boardCoords: 1 to show board Coordinates, 0 to hide them.
set boardCoords 0

# Default values for fonts:
if {$windowsOS} {
  font create font_Regular    -family arial     -size 11
  font create font_Small      -family arial     -size 10
  font create font_Fixed      -family courier   -size 11
} else {
  font create font_Regular    -family helvetica -size 11
  font create font_Small      -family helvetica -size 10
  font create font_Fixed      -family fixed     -size 11
}

# Analysis command: to start chess analysis engine.
set analysisCommand ""
if {$windowsOS} {
  set analysisChoices {wcrafty.exe}
} else {
  set analysisChoices {crafty}
}

# Colors: dark and lite are square colors
#     whitecolor/blackcolor are piece colors
#     highcolor is the color when something is selected.
#     bestcolor is used to indicate a suggested move square.
set dark        "\#a08050"
set lite        "\#d0c0a0"
set whitecolor  "\#ffffff"
set blackcolor  "\#000000"
set whiteborder "\#000000"
set blackborder "\#ffffff"
set highcolor   "\#b0d0e0"
set bestcolor   "\#bebebe"
set buttoncolor "\#b0c0d0"


# Defaults for the PGN window:
# if doColorPgn is 1, the PGN text will be colorized.
set doColorPgn 1
set pgnIndentVars 1
set pgnIndentComments 1
set pgnSymbolicNags 1
set pgnMoveNumSpace 0
set pgnShortHeader 0
set pgnColumn 0
set pgnColor(Header) "\#00008b"
set pgnColor(Main) "\#000000"
set pgnColor(Var) "\#0000ee"
set pgnColor(Nag) "\#ee0000"
set pgnColor(Comment) "\#008b00"
set pgnColor(Current) lightSteelBlue
set pgnColor(NextMove) "\#fefe80"
set pgnColor(Background) "\#ffffff"


# Defaults for initial directories:
set initialDir(base) "."
set initialDir(book) "."
set initialDir(html) "."
set initialDir(tex)  "."
set initialDir(tablebase1) ""
set initialDir(tablebase2) ""
set initialDir(tablebase3) ""
set initialDir(tablebase4) ""

# glistSize: Number of games displayed in the game list window
set glistSize 15

# glexport: Format for saving Game List to text file.
set glexportDefault "g6: w13 W4  b13 B4  r3:m2 y4 s11 o4"
set glexport $glexportDefault

# glistSelectPly: The number of moves to display in a game list entry
# when that entry is selected with button-2 to shoe the first moves
# of a game. E.g., a value of 4 might give: "1.e4 e5 2.Nf3 Nc6".
set glistSelectPly 80


# Default window locations:
foreach i {. .pgnWin .helpWin .crosstabWin .treeWin .commentWin .glist \
             .playerInfoWin .baseWin .treeBest .treeGraph .tourney .finder \
             .ecograph .statsWin .glistWin .maintWin .nedit offset} {
  set winX($i) -1
  set winY($i) -1
}

# Default PGN window size:
set winWidth(.pgnWin)  65
set winHeight(.pgnWin) 20

# Default help window size:
set winWidth(.helpWin)  50
set winHeight(.helpWin) 32

# Default stats window size:
set winWidth(.statsWin) 60
set winHeight(.statsWin) 13

# Default crosstable window size:
set winWidth(.crosstabWin)  65
set winHeight(.crosstabWin) 15

# Default tree window size:
set winWidth(.treeWin)  58
set winHeight(.treeWin) 20

# Default comment editor size:
set winWidth(.commentWin)  50
set winHeight(.commentWin)  6

# Default spellcheck results window size:
set winWidth(.spellcheckWin)  55
set winHeight(.spellcheckWin) 25

# Default player info window size:
set winWidth(.playerInfoWin)  45
set winHeight(.playerInfoWin) 20


# Default stats window lines:
array set stats {
  r2600 1
  r2500 1
  r2400 1
  r2300 1
  r2200 0
  r2100 0
  r2000 0
  y1900 0
  y1950 0
  y1960 0
  y1970 0
  y1980 0
  y1990 0
  y1992 0
  y1994 0
  y1996 1
  y1998 1
  y2000 1
  y2001 1
}

# Default PGN display options:
set pgnStyle(Tags) 1
set pgnStyle(Comments) 1
set pgnStyle(Vars) 1


# Default Tree sort method:
set tree(order) frequency

# Auto-save tree cache when closing tree window:
set tree(autoSave) 0

# Auto-save options when exiting:
set optionsAutoSave 0

#  Numeric locale: first char is decimal, second is thousands.
#  Example: ".," for "1,234.5" format; ",." for "1.234,5" format.
set locale(numeric) ".,"

# Ask before replacing existing moves: on by default
set askToReplaceMoves 1

# Show suggested moves: on by default
set suggestMoves 1

# Keyboard Move entry options:
set moveEntry(On) 1
set moveEntry(AutoExpand) 0
set moveEntry(Coord) 1

set autoplayDelay 5000

# Geometry of windows:
array set geometry {}

# startup:
#   Stores which windows should be opened on startup.
set startup(pgn) 0
set startup(switcher) 0
set startup(tip) 1
set startup(tree) 0
set startup(finder) 0

# glistFields: Layout of the GameList window fields.
#    element 0: code (e.g. g for gameNumber, w for White name)
#    element 1: initial width, in characters
#    element 2: justification (left or right)
#    element 3: color
#    element 4: true if a separator field should follow
#
#    Note that the "g" (game number) field MUST appear somewhere,
#    but the fields can be in any order.
#    See the comments at the start of the function "PrintGameInfo" in
#    src/index.cpp for a list of available field codes.
#
set glistFields {
  { g  7 right black      1 }
  { w 14 left  darkBlue   0 }
  { W  5 right darkGreen  1 }
  { b 14 left  darkBlue   0 }
  { B  5 right darkGreen  1 }
  { e 10 left  black      0 }
  { s 10 left  black      0 }
  { n  2 right black      1 }
  { d  7 left  darkRed    1 }
  { r  3 left  blue       0 }
  { m  3 right black      1 }
  { o  5 left  darkGreen  0 }
  { O  6 left  darkGreen  1 }
  { D  1 left  darkRed    0 }
  { U  2 left  blue       1 }
  { V  2 right blue       0 }
  { C  2 right blue       0 }
  { A  2 right blue       0 }
  { S  1 left  darkRed    0 }
}

set glistDefaultFields $glistFields
set glistAllFields $glistFields
lappend glistAllFields { c  3 left  black      0 }
lappend glistAllFields { E  7 left  darkRed    0 }
lappend glistAllFields { F  7 left  darkBlue   0 }


# Game information area options:
set gameInfo(hideNextMove) 0
set gameInfo(showMaterial) 0
set gameInfo(showFEN) 0
set gameInfo(showMarks) 1
set gameInfo(wrap) 0
set gameInfo(fullComment) 0
set gameInfo(showTB) 0
if {[sc_info tb]} { set gameInfo(showTB) 2 }

# Twin deletion options:

array set twinSettings {
  players No
  colors  No
  event   No
  site    Yes
  round   Yes
  year    Yes
  month   Yes
  day     No
  result  No
  eco     No
  moves   Yes
  skipshort  Yes
  setfilter  Yes
  undelete   Yes
  comments   Yes
  variations Yes
  usefilter  No
}
array set twinSettingsDefaults [array get twinSettings]

# Opening report options:
array set optable {
  Stats 1
  Oldest 5
  Newest 5
  Popular 1
  MostFrequent 6
  MostFrequentWhite 1
  MostFrequentBlack 1
  AvgPerf 1
  HighRating 8
  Results 1
  Shortest 5
  ShortestWhite 1
  ShortestBlack 1
  MoveOrders 8
  MovesFrom 1
  Themes 1
  Endgames 1
  MaxGames 500
  ExtraMoves 1
}
array set optableDefaults [array get optable]

# Export file options:
set exportFlags(comments) 1
set exportFlags(indentc) 0
set exportFlags(vars) 1
set exportFlags(indentv) 1
set exportFlags(column) 0
set exportFlags(append) 0
set exportFlags(symbols) 1
set exportFlags(htmldiag) 0
set default_exportStartFile(PGN) {}
set default_exportEndFile(PGN) {}

set default_exportStartFile(LaTeX) {\documentclass[10pt,twocolumn]{article}
% This is a LaTeX file generated by Scid.
% You must have the "chess12" package installed to typeset this file.

\usepackage{times}
\usepackage{a4wide}
\usepackage{chess}
\usepackage[T1]{fontenc}

\setlength{\columnsep}{7mm}
\setlength{\parindent}{0pt}

% Macros for variations and diagrams:
\newenvironment{variation}{\begin{quote}}{\end{quote}}
\newenvironment{diagram}{\begin{nochess}}{$$\showboard$$\end{nochess}}

\begin{document}
}
set default_exportEndFile(LaTeX) {\end{document}
}


set default_exportStartFile(HTML) {<html>
<head><title>Scid export</title></head>
<body bgcolor="#ffffff">
}
set default_exportEndFile(HTML) {</body>
</html>
}

foreach type {PGN HTML LaTeX} {
  set exportStartFile($type) $default_exportStartFile($type)
  set exportEndFile($type) $default_exportEndFile($type)
}


# switcherVertical:
#   If 1, Switcher frames are arranged vertically.

set switcherVertical 0


# autoRaise: defines whether the "raise" command should be used to raise
# certain windows (like progress bars) when they become obscured.
# Some Unix window managers (e.g. some versions of Enlightenment and sawfish,
# so I have heard) have a bug where the Tcl/Tk "raise" command times out
# and takes a few seconds. Setting autoRaise to 0 will help avoid this.

set autoRaise 1

proc raiseWin {w} {
  global autoRaise
  if {$autoRaise} { raise $w }
  return
}

# autoIconify:
#   Specified whether Scid should iconify all other Scid windows when
#   the main window is iconified. Most people like this behaviour but
#   some window managers send an "UnMap" event when the user switches
#   to another virtual window without iconifying the Scid window so
#   users of such managers will probably want to turn this off.

set autoIconify 1


# Email configuration:
set email(logfile) [file join $scidUserDir "scidmail.log"]
set email(smtp) 1
set email(smproc) "/usr/lib/sendmail"
set email(server) localhost
set email(from) ""
set email(bcc) ""


# Spell-checking file: default is "spelling.ssp".
if {$windowsOS} {
  set spellCheckFile [file join $scidExeDir "spelling.ssp"]
} else {
  set spellCheckFile "/usr/local/share/scid/spelling.ssp"
}

# Engines list file:
set engines(file) [file join $scidUserDir "engines.lis"]
set engines(backup) [file join $scidUserDir "engines.bak"]

# Engines data:
set engines(list) {}
set engines(sort) Time


# Start up splash screen:

set autoCloseSplash 0
wm withdraw .
toplevel .splash
wm protocol .splash WM_DELETE_WINDOW { wm withdraw .splash }
wm title .splash "Welcome to Scid [sc_info version]"
frame .splash.f
frame .splash.b
text .splash.t -height 14 -width 50 -cursor top_left_arrow \
    -background white -font font_Regular -wrap word \
    -yscrollcommand {.splash.ybar set} -setgrid 1
scrollbar .splash.ybar -command {.splash.t yview}
checkbutton .splash.auto -text "Auto-close after startup" \
  -variable autoCloseSplash -font font_Regular -relief raised -pady 5 -padx 5
button .splash.dismiss -text " Close " -command {wm withdraw .splash} \
  -font font_Regular
pack .splash.f -side top -expand yes -fill both
pack .splash.b -side top -fill x
pack .splash.auto -side left -in .splash.b -pady 2 -ipadx 10 -padx 10
pack .splash.dismiss -side right -in .splash.b -pady 2 -ipadx 10 -padx 10
pack .splash.ybar -in .splash.f -side right -fill y
pack .splash.t -in .splash.f -side left -fill both -expand yes

bind .splash <F1> {helpWindow Index}
bind .splash <Escape> {.splash.dismiss invoke}

.splash.t tag configure indent -lmargin2 20

proc addSplash {text} {
    if {! [winfo exists .splash]} {return}
    .splash.t configure -state normal
    .splash.t insert end "\n$text" indent
    .splash.t see end
    .splash.t configure -state disabled
    update
}

# Old Scid logo:
image create photo splash -format gif -data \
"R0lGODdhZgAmAMIAAP///6CBUNHBoQAAcAAAAFK4bgAAAAAAACwAAAAAZgAmAAAD/gi63P4w
ykkrDThjwTvXmueBmdiRmymggbqirqawMazSt23iuy7KAN7PNyKejB/ki1TDzJTCIjM37VWH
moFWiw08r1JQU0wlW83YrXrQ/ZrX8NQ5VKbPSzn4th2E6f9sd3JddoR4PYB8LIB/dYeGg2GF
knB8KokccWBHm0mdS2gCmo8KJn+Da1Cqn1Gjg6Uieo+prKoEt4+Sua4tHbAdp6hqq6Ent8eR
nKG8Hr+ZssJbRMG9JsfX1YZrosy+ALHQ2dxaNozSLtfITea0pN8ejOLKWex7Kum4NfXDhc7P
mJAaBdCDDp+8f2oKgOPnjkS9YsHGtcuADxmKSqAGbgvj/gbDvgG5JPITKU1DRWwgCGbEqKyj
x4/iqJEkZ/IkrpQbV+b05KWPw48L280kYfNmBpU61Sgqtw9eOIRsiBbFmZOqvZY+0dRzOmoM
xZM/q9JTyjHrpJk5ZToKYDMs2aRXebpMBjXtU0dFCVi9ujcQ1qBMRzXiOSnvLa4Mg9J0B3gK
tcEZHxk+BgyaYpD93lUuSSecRpVCJh+uS/MyGn8TU3hmFFljB9EENscxnVkxE2ovcX8OBHs0
Wi6kT2uuO5ZXbqACescm/bA24qYXPwJX/hwm4+rmCJdAnrz3CNa/X5k9DuisJ/BLlNtJjQlI
lHkhtdNtfZC+1/ig5tZ/L38/GjHz9pWh333z8RegIP7V4oQFDDbo4IMQLpAAADs="

# New Scid logo:
image create photo splash -format gif -data {
R0lGODlhZAAtAOcAAAICAj0+QJGGb04/KaSYf2dRNRElfraid3ddOBoYFcCyk4ZuRjs/XgsX
RIpuRY12Usm6kyk+nWZunlJWli4yPj0zIgcPNI2Ba2tkc9bKsU9MaRo4vZaKdHeCvgIJK82+
nicuTStDrVhTRCUhHiQ3hQ4eZmZaZgULJpqXl7aqjktFVDtRsRQSDJmOd5l+U3Z6mIKJs21l
U9bGnio0YBIqnpKCZiInQx04rUxLR5JvRKqWY5R2SzY/dHpiPRksfqaOXR0+yEZLdDcuIdLC
mnZpaxAODBEWKXJeOoiKniNBw5t2R3pwXRwqbLCkjRwiQoJiPLGZb6GHV4R6Z0FSnlxLL8ay
jZ6Sejc4REpESMaugxQslBYiUlhXcCouViI4mkBIf46MmigoOA4bWZ5+T2xYN7qtmUc6Jryk
eGpwlqCRdhsZINbGonJuZDRBfi8qJTk6Z3dqWi5CnzlX1FJanlpGLR8ygy1Hu83CpVZTVhYk
YJp6S1NORb6qhTpKjNLGqQIGIrCefKmGVkxCPDAyOhQeTHFqXqqegqJ6THtyb6J+TZZ6XEJF
VhkcMmpePruukjk5V15ejqOCTiUmMrKkhsm6ntLCnqKaiZZxQic1bg4mlGxYRAoKCraaa8a2
nNLCoqyOYSQ3kTRGkMG1nzoyLhEjb866laJ+UmJibnppTyIuXlxqsAgPLmJSQYJ+gAwYT05M
VBoymaiKWjIuMnJYNSsmIqSSci1JyoZwXNrGpk9CNjw3NEZGRpqCVFhciB0nVDZJnBk6ztbG
rp56ShoyjoVpQaqSYsm2j46KinJ6vrKec7Gmgi4/iop5Z2JOMREmjR8ub45qQDA6dA4OHsi6
mhASGmhiYL6uh1pVUHpqSo1ySKKCUhUrikZOihAXNnJSMNHGroJ2YhYwpR4iM0NAQFtOPbum
gKaeniszU1ZCLMK2lDJKspZ6TQ0ecWheUBomal9bWQ4SLIJ/jhs+03F4oQcSPXBsdGFnmaid
iCo6gJaSjn1mRBIaQEA6RDhPvppyQ////yH5BAEKAP8ALAAAAABkAC0AAAj+ALUJ1CbMX7lK
nhIqXMgwYSU/36AMnEixojYlh6o03NgwA6VikSyKFDjm0qdSDMeo1KZHyZkPMGPKnCkz2J1k
kVTq3Mlzp5IxxmgKpfntw6eeSHlGMvnhjsyQYwj6O8OxqqcPfu5AiRRyZMUx/oRptLqxUrBp
xbxaHGPqUqxSCBX6NDi07gezEZPqjYoxqN2hGT782Js0kUmUMv0pVnwoS4bHkCNLfhzsseDF
mDNjvpSDc6QPk0OHtgZWs+lLijv7g+JJMqfXr8sdKMentu3buPk44lMOygHYwIML53RGdu7j
uFMkS/Z7uHPYZ2Zbu13pDsJgwQ5E0ba9O/fv3UP+btfTuNJfmUPu4vpQzLt78OC5+gsE4bzM
SggzWIvlXZvM1gfkFFVUiURS4IHaDDhGJEookcVd+EUooYRXXZXBHToMmOCGGnaYiDbzGTPh
iBNWmIExsWgYiUN3eOKHdomMUWAkLihi440z0uiCEsI8eF6FH1xVVDEyFhnjkUbKmGBJgZQy
lCcS4oIflK2lk6JO/sXkx4s55cQMJCvYIqaY/cxBhCKmYKAOBg6SFeSbFdqkg1oURaXNJYEY
w1EnMHTg558dwCBKBgoMNtAYDmHFJY2Q2CGPPEn8wg03oSQB6QoS9COPCf7w8SScFV710B1E
EoYlW6bM5+RMCXXSgQT+tgDzqDzA2GKOH4XqFFJM+WmnyARAPPrLHgUUQIYmrAQRgi1yyGGL
BsS8xBCocL4J2gdz0qlNTgItlee0V31QSgr2yComEHYcowAfsXSrUkJ3efLNAdr0sgEwwESQ
CxXNGIvALGSw8gWztqiAQDKIhRqkwlC+GVgxLpiqoIx4JlztB5SQC0wScvSTLyJNKBOFSl3B
dNWWZ9wSBzAbbBANOs0gQIwDNBPTwyxtJJEEP7NA8aZ5QIoa9F1Z6dDVQFwlfehEeOp518JQ
d2LPBkD0E+sNGFiizGACIvo0ykTcsIHYdaCDQDZ6qCSMHtkQU0A0GzziDRQJhxrXwkBiRar+
Ui4Q08gRC6y0k2Hfhmr4B1NXbccGXpxCwAEpbivQzy6Ws8QNNySBOQ897MCVQKaYoogDGsDy
yCwE1A0XQpXg4hC8UAaWbbfrkDEOFuO4UUDE3UbSVuEOtZ7QGh9IEM4N6mjuRTVab7fTzxAd
ELYX6oRwQzjLmOB5Vx8Ko08bKvRct+tlxDMPGvO88AIYCsD7cMRRRYLAKDiMMwIACSCwDvza
/K4nlI5AwgvSN498KMAex1NHBMIxDOaJ7GjaAJIMMnAAOMACFnZYQQSup4Vl4IEID1hQgpSg
j1k8gW4VokQ+7BEHWHjhC16gAQ1g8Yt4OGJURiNJJI4gi3EwAgD+AGABFYihBJIkIkS4aMI8
uAELGcJCC16YAjegaIcQhKMOjtsaT0QVpBetQwVa2EYcfhGKBdIgE1qoQxDaoYj+KQEaDijH
wkqBhm1kIhP4qEcNTjEMGmjBj3NIQVZKlRM9IEAILAAi/sxwNheE5HelQMEXQhCCJkbjHdXg
Agn8OIw4REALPmgHASbRrom8aQh+oKAL9PGGbWzDC6EgoxeGsQ1nOMMH0TDBA+6kBE8lJB51
qOU2NIAIcICjDc7Yhg/isAxEpAMtJNFDMwIQgAQoEgBFGIADhKGSI8YCEF8AxS9AsY1nqKAd
hQBHNYLZSRIok3mTGNnzwuUiemVjFo/+MEAySRCHUIRiGcF0hgG2wYBbNCgLCUnBFyJATibs
YQkcqAU3DDAMUISCBKdogiiIFBIE6AIHgyjCNfFHBj2Azh+xqAcsmLkNA8xABHAQQBpaEARS
LJMEBmBCO7RWyoFkoDKP8QMUOOM2XTiBHaQwgA/4GQp8PMMABmDHDDSRkZ++AB9tqAMpSIEH
AaQgHfHABAmWgQ9MVOMejojCDpSwg2mOI5Ej3cQAnuCASyjhEjsIAglC4YOtPiIGLUjBNBTA
BXZsYxk4ZQLzkuGCSzjWsRAwRjogkI5ycCIWgTDFDvRBDn6kghRIdcdY24CPbYB2Bsw4wzRS
wA3EGmCre7j+QBOs0YQYMOAcFBhHDC5Qi2IEArOaGEcANjFSAGzCDE8waSCgwAwmkAAfr2XH
Fdhgha8Slh1MwAcJ2JGHd1ygGMWIhXjFGwX+bEcYfDDPB6qgjDRIoR1Y6AIpxFACUtShDctw
BztKwIUoRMEFDMDEM0rADkIIAhsu+G82jkCHAVCBDPrQQxXEBYEW7GEc1hwpC8ghgCZQohS4
QAETMIEJUpSgBIMgwwP8GwUclCAPJGBCCbaQi1nEwi8wKYUId+SPZFygFZ24igKaYIULxGAP
V9iCGMTAhDZEY74zwMYOssEAEgyYvgPoQTZc4IIdLOBfPSAGNJSgEacoQAoBEOn+NVmgi3Zw
QI6tEXEdMFECMbhCFmQgxoJcMA4mY4IJYjCwN7QBl3h5YkkEUUIyGOCOJsSkFAqYRBousIRr
PMIVDWACDzAhhn2QIxvQOEcqMEGIJY8CATtQiQvWsY4H7GBHiRBRdWp7v5EWQRcxIIACYJIB
FPhi1KW+Mxm2nBMsNCAPf3bFPgbgjSgEJVwfmIgwlAAFBtDjFI5wUrjSkYJJtEAK1/CFK35d
gn1ggRj66AITZiCGBrjCCQXIhoxiBJVI+CMjV+EAkt1A3OLKQgq79gQu8rEFX5Aa07KYhQNc
EKNxHDsVvnA3s6OAkoV0kxcF4QQDGkCIeuwab54oBQT+FGCIajTg5PRwAjl64AB++GIGW6CH
zGWhj3W4KxLrWKswgnIBHOwiAD8sLhBHAI4J99oGhJhBHhpADzcMWxgJGgc9tnCOpe/DDIN2
WkwemWgoaGAGhHCCFDrxn5hMAxz0sAA9GqALEfTgEmRwwjl8sQ+Zw2McDlhQIBKhjx7m4BDG
aMI7dsFvoV9TFi0wRjAcMY5unAMEdWdEMxygh0CMQRcW2EcqnGCBbkz8f3IZAy/GUBAo4OAc
54AHI9jgCIGvYXi4cMQiVmGBVUhiD42oOTH4YYMZ2IDpFoCHG8hBjOB2oxusyIEerNFzWRg+
ru1wtAJiwAhCdIEQFrDAKPT+rAdydEPt+2hA8McxC0JDO9qm0AYvDkHtR3QDBL44ATwCAA60
eqITKWjBK1bhgVWEAQcxgA0LtwNkMAo2QAHXBw8W4AEWwAjw8AfwMADEQAz+MAlsEABw9XyK
pAstIArpwAu5YAT7sA+rsArwMAi5MArScAKrwIIluApqUAG3AHoJsSDp1xI6cAV/IA6yIA7d
oHphgAXVgAcU4IBGIA5t1w6t4AJpMwbZUACjIAniwAj85wEe8AcewAhmoAkI8AQ7UAt7EADU
oIHXNAJSUAYKEAX6oAtGcAIecAIn8Ad/cAJSCIdueALSAA9qsAQTJhMaMm2csAviIAJ4gAP1
cwX+YSALshAGkiALV7AL14BOF3APPwA/6+AABTAOtKAG1CANnpgAtDAAzUAGMiMMVoBkGUiG
CVAITeAIP3AJCIAObpAAnkgNaiAEdCAE1GCLCTACtFAB6BBHJpMQG4Jx/nAAhiAAUnALSwAO
iAAHMfAO79AO7VANbLAESyAFHKAMojAnXbEDDjALdGAGQiAEbiAEFTAAdBAz2ZADwmAIlaYL
IzCP9FiP9agLhWAJKVCJO9ADzUCO5WgGdFAAzYAOZmAGFWAG6IAO8ZYClABt/RM6BXEGnaAM
lkAA9wAIBGAFLcABAnABICkAHNACBJACTQEFujIGbFNCzUAFdEAHVFD+AEdADNkwbeilDEYm
AnuwkzzZk3sgAiJQDVJgCK44Bo1FDEdAkFRADmQwC/rwBLNQLE2JAAhgCtZQcTUoEMb4Ep2g
AMZACZTQlSmgDJPQBJNwlimgABAwDXcQETeXIHowZRM4gdmwA014b9bgCIbQAgLQl375l31Z
AyJJAKKgAGkRFTnXNvowMzuQcw9wCQ6ANsIADW9xfmwhEBOJH06BENYyE0OQEHcAESipIAbC
LYIjegOhBInQhxDQCcbwmrAZm9NgDBAAAZTgB9PwAwnCLZKjIR/CFekHIpW5EKCzlbzSFApz
nFryDclQJ+7yFbxwETsHE5p5B9Z5ndfZFDD+cQcZgBZ2siQk850Jkn6hwxTnpwctoQeKkQXB
8HrBkBDv6Qnt2Z7y2Z6vdyE60BJKgJ4Nsp/9ySMA2iB/VwqvlxBbcqAIuiVrUKAZ0AlR0CA7
IAwSOm36qXPoqZ9MMZ9r4AeHcAim4KGx4CnYOaIkmp3W8AmHoDYpqhIrqjaJIAxHYgo60Akl
WqPY+QHlcCWJcAgTOgYrGiPC0KGHsKOBgDAjGptOkgzgtaRM2qRNKl5ZEJtSagxVUAWwaaWv
+QHGoANO2qVOGgXFMKWxaaVYeqXGUAp84KQL4QfZEZHk2T86QZ6hYwp80SYkwjoMwTo2UQzp
5zuJ8KeACqh0aierhCMiQ9AiUDIih1odCnEin5AIdGoKifA0D8ElBLIhEYloS8MjPuIU22ky
6tUwQVIJ34Ah3SSpgXqZH6INMcKqTQMhnBk0+PE0JqIAKSKpAhE0GZAMUdCqCqJDXTMgDcIH
sAMvnAk1yBoM7KEWv9olFXN+Q0OdoJIB6WAoS1IhLUJBvTogUPGrS3MR5REuQIOs8LIw3Lk3
eoGp4WkYkYCVQ6MQF/MBwZAr3xkQADs=
}

.splash.t image create end -image splash
.splash.t insert end "Shane's Chess Information Database"
addSplash "Copyright (C) 1999-2001 Shane Hudson  (shane@cosc.canterbury.ac.nz)"
addSplash "This is Scid [sc_info version], released [sc_info version date]."
addSplash "Website: scid.sourceforge.net\n"


# Try to load saved options:
# The options file is ".scid" in the users home directory on Unix systems,
# or "scid.opt" in the directory of the Scid program on Windows.
if {! $windowsOS} {
  set optionsFile [file join $scidUserDir "scidrc"]
  set optionsFileBak [file join $scidUserDir "scidrc.bak"]
} else {
  set optionsFile [file join $scidExeDir "scid.opt"]
  set optionsFileBak [file join $scidExeDir "scidopt.bak"]
}

# Create user ".scid" directory in Unix if necessary:
# Since the options file used to be ".scid", rename it:
if {! [file isdirectory $scidUserDir]} {
  if {[file isfile $scidUserDir]} {
    catch {file rename -force $scidUserDir "$scidUserDir.old"}
  }
  if {[catch {file mkdir $scidUserDir} err]} {
    addSplash "Error creating ~/.scid directory: $err"
  } else {
    catch {file rename "$scidUserDir.old" $optionsFile}
  }
  # Rename old "~/.scid_sent_emails" if necessary:
  if {[file isfile [file nativename "~/.scid_sent_emails"]]} {
    catch {file rename [file nativename "~/.scid_sent_emails"] $email(logfile)}
  }
}

if {[catch {source $optionsFile} ]} {
  #addSplash "Unable to find the options file: [file tail $optionsFile]"
} else {
  addSplash "Your options file \"[file tail $optionsFile]\" was found and loaded."
}

# Check board size is valid:
set newSize [lindex $boardSizes 0]
foreach sz $boardSizes {
  if {$boardSize >= $sz} { set newSize $sz }
}
set boardSize $newSize

# Check for old (single-directory) tablebase option:
if {[info exists initialDir(tablebase)]} {
  set initialDir(tablebase1) $initialDir(tablebase)
}

# font_Regular is the default font for widgets:
option add *Font font_Regular

# Set the radiobutton and checkbutton background color if desired.
# I find the maroon color on Unix ugly!
if {! $windowsOS} {
  option add *Radiobutton*selectColor $buttoncolor
  option add *Checkbutton*selectColor $buttoncolor
  option add *Menu*selectColor $buttoncolor
}

set fontsize [font configure font_Regular -size]
set font [font configure font_Regular -family]

font create font_Bold -family $font -size $fontsize -weight bold
font create font_BoldItalic -family $font -size $fontsize -weight bold \
  -slant italic
font create font_Italic -family $font -size $fontsize -slant italic
font create font_H1 -family $font -size [expr $fontsize + 8] -weight bold
font create font_H2 -family $font -size [expr $fontsize + 6] -weight bold
font create font_H3 -family $font -size [expr $fontsize + 4] -weight bold
font create font_H4 -family $font -size [expr $fontsize + 2] -weight bold
font create font_H5 -family $font -size [expr $fontsize + 0] -weight bold

set fontsize [font configure font_Small -size]
set font [font configure font_Small -family]
font create font_SmallBold -family $font -size $fontsize -weight bold
font create font_SmallItalic -family $font -size $fontsize -slant italic

# Check window offset of window manager frame:
# This is done by creating a window, positioning it at +0+0
# (the top left corner), and then reading its actual position.
# If the values are already set from the options file, this
# does not need to be done.

if {$winX(offset) == -1  ||  $winY(offset) == -1} {
  toplevel .testWin
  wm geometry .testWin +0+0
  update idletasks
  set winX(offset) [winfo rootx .testWin]
  set winY(offset) [winfo rooty .testWin]
  destroy .testWin
}

###
### End of file: start.tcl
# bitmaps.tcl:
# Chess piece bitmaps used by Scid.

# The piece images used here were generated from freeware chess
# fonts available in TrueType format at the En Passant website
# "Chess Fonts" page, http://www.enpassant.dk/chess/fonteng.htm

# The authors of the original TrueType fonts are:
#   Alpha: Eric Bentzen.
#   Leipzig, Merida: Armando H. Marroquin.


set boardStyles {}


##########
# Size 20 is only used in Material search window, not for boards.
# It has two special extra images, wm20 and bm20, which contain a
# bishop and knight, for indicating a minor piece.
#

image create photo wm20 -data {
R0lGODlhFAAUAMIAAH9/f7+/vz8/PwAAAP///////////////yH5BAEKAAcALAAAAAAUABQA
AANweLp8cCG02cSwNB8RSACctgBAR3iDqJDd5wlidBLCHGb1CQzzx+yPDYAWyJ1gixpSwOLM
CClFESSRup7RImF42zxP0Vpg0EE6SGjSCqxTKYxHN4RJ6sYETHxVNa3vM2gDQyBoGkNbhIdq
FHRBZyAaCQA7}

image create photo bm20 -data {
R0lGODlhFAAUAMIAAH9/f7+/vwAAAD8/P////////////////yH5BAEKAAcALAAAAAAUABQA
AANneLp8cCG02YQYgupj+5CbEgyYAAQCuJHlNYZo1wHDo7VyOjSAebQxS69R25UCvVlmMXIp
TrmhSGgB4S5LzoVQegK+YJtWwLWEFjnzGVL7ftYQMoGQggerZ3CrLealoxomXxJIX1kNCQA7
}

image create photo p20 -data {
R0lGODlh8AAUAMIAAH9/fz8/P7+/vwAAAP///////////////yH5BAEKAAcALAAAAADwABQA
AAP+eLrc/jDKSau9OOvNu/8VAIBkJAhl2ohqe5xuCgTBGL/oQaMwJew30KwWhAkGA0Vv8gvk
LALRUxJ9BTSAk40qFXWzkKZWCmQit5Uo2GdDW4ZuiFQ9koZ33mxZAjhjBidJFDNIRBgBhRQD
Q4t9NH0NP3o1BEgEYjNTDix/SIITfQOIcROIooOFpouekV6PlQMEQ2qaK6QSsZUholGit5GA
BJeAuMIixgDCnwrJAbKLsMPNsiY0VxeeyxGhnoZm2cTb4OMrP88C0X3NVWF+2CLaELnCUTRm
6CfDtQuUwv7G1xb8iHUkmSV1lZy0GpErSZR9DbJVUOULCUQl3VRdPDL+rtsKRM8MxuqDjlcr
FBIflkomK+CdLP8I2Ivg5NIOmxIe5RnygOSzhDKlLGqg01LCGjMhUHQpj1AhmfEYmHIy8JSJ
jlZXAHIUDWRBojWcFnK1zZk/bw9oBLt09lcuMcpA7eS0CU8WVyIeMTBHD9ARdMjkjPt14BhF
QEkddDuhSm7MqIUrrgJ0ZhSDvJIr+7o14x9dB3z9zTtCE3A+nHxiUpNXsFKgXj+mHPN3pKa/
z5cH48LqJJwDVWoT8enYDis4W9k4cjzjliWk0p5ZBn5QcKdvOardXqqXN1nJVjFpxMTNgJw4
4zypj3V6kRlxecYl7g0+mZtewcLQ/vYMjTb+U6lh5fXfJtmVNcpOj/xnGzL/kHaeO/AZ1xtN
AaY3nHk9dZOHKnH0th43M1D4T2KXzebEbKKVFcoMhDEz1y8cvUjIPo3AU2MmNI0zYGEU2eiJ
a3JUqF9PFT6nnnd5GHMdRrScQMeSC3Q23oCdxXaEapAdMI+Sisy1I0YyQslMgOi48iU34AzY
yxlQJTfUA1hRoJMXYmJkHESOLIXIl1v+A5mAMgE2IkS9qLUGdDH9gIt0fprAaHQRxHeHeIfV
eEc2CuV0Z6TrNVYcVrdEodp0ZY36WVVsPrPYb/HxmVFykfrYyJfLddTeCx15MZ8ovJlEVHx1
zoNillrWICgh2zxpeluLfbZVnllK9pefNiiaSopPWLrVD0BZoqnbboOhBexxEQF7bXxuGfdg
rlTEJxt9YDh1n0Dj7rOmjhtVmmmG6E2ArlRpapGmYsDa6+2qlwYcxAWHyrHwwxAX1h47EVds
8cUYZ6xxBwkAADs=
}

image create photo e20 -height 20 -width 20
set x 0
foreach p {wp wn wb wr wq wk bp bn bb br bq bk} {
  image create photo ${p}20 -width 20 -height 20
  ${p}20 copy p20 -from $x 0 [expr $x + 19] 19
  incr x 20
}


####################
# Alpha:

lappend boardStyles Alpha

set pieceImageData(Alpha,25) {
R0lGODlhLAEZAMIAAL+/vz8/PwAAAH9/f////////////////yH5BAEKAAcALAAAAAAsARkA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq4QAHSBELD0QFcuLN+rzUsC3yZAmP0WA6EiqQEM
gq+jI9gRWKVL5YGZcUI7SW038IQNjBYnUz14haOSM3crzzyt4kvYA4gJdGg4e2xuSXARd0KJ
dlZUQ2GBGGcABACOGH2TegMEf0kETAKgeQ1yinUafzpWkXqNeE0xAYcTd56NNrgUi0uwqWCc
BKNjwcJFrXGzlbMWn7igjcMUAcwKfcgVqhu2vhd9r6zYENwCtIjg6N0SMXCW4hPaGp/Ccziz
lsXHFtTGwtQV8/oJrBehHJpZ8cbJYIevnDt2AMGRaiELWiMn+9K9Q5L+Dt1EBqwW+Nm10GEQ
k9TKASxGME45gf3+1SJCzxiZbJRgCrNkjg4cUcz6dFqgpgG/neyWKfO3cYtEV3iSvJrVlJvV
bB1f9TS04OIBS1esETy6rFwbajn1TePUJw0Znf14ShBqTJTNng6ohdkr8wERVU4q2XjbRgFQ
BnRjUkp8d1qjptb8ZDWI1xq4Tlor6N2bpO+UsGCpSI7SCDERP6d5nmZVpHLkxhMypR1o813A
aPQ+IiHDGZXfM1mE/bHLhUygNjCFLo2rO7QV15ZTpksE/BxuzOoQ8eZ8E0JIp6Vf+RiJxAsu
5ebxYIxAlukuF3BpQgMi0G7dlTpbEn0yY+n+k2AYxVBYV/GdAVdCRmlEQRCSgQNWGwiCdBk6
EXU0kRf9ZTXYFwSiU4SB4PwVgRp6bQZdUjAtZ0kcs9knTS35GKMfA2RY0Y+LeLSCHEz/6bTe
AyQ+xhUQWdUYxFDWRfMUSRZO0OBkO5SSXlRBkNOGblsshmUWBgkZY4REyZcidEvABUpsVJlJ
lTkBxeViTFjasiUd04XGCZiWTUYmeNPFBmVmpUA4IXYXdUefcBfIoNIBy93o5CycXWPBm446
OZuP2DRaF6ZYlTbpc1k0CKGTMnAX5YKTOfZnpi5c9pdWbaEJ20oKtFfpOtt1BplhZuKJRIw8
kmKJTpR2QqZzi9L+yuh0ZTzK3a4HQMkklMICJZ5Ujxk7TVqxenOkj74G18+MDxSL6IKCSUYG
Jb7ShS0uwVRD6lRdaNhsMtzNGW2qqLY5SlgUjSKjjJzIO6KYrXl76bjhRtvbvQs+LBVW6xrj
hCx+VswcRBQgC2oak00Mz8MNdyUxxAUJNhVyG2VyRoidHYuwP3syujDDu/x3Ermm5fosdDsK
xi2WL9HzbSUle+yVZiGj/MC7UdlTJckGP63uy6wQLRkntsQwzcy1ZWOm0ePwVeMZPhd0s5uk
5tQj0kTbx1NdDT+JDmRQ1lg2JDDvVdCfAEOw2pF3EEE0doOLEq6BY1ftQGBjy2VUpCua3sOd
d2PfB8TaSE+T+UbkdASd0hIlK1JH+97tHeDhmiXxik6e3NlMsvs2js8ka2HKXirhk+/juD/8
ju8nm+7A7hIb+jTguoXeJAPO9/48Yqy3O7XExpcSPF8fsSH76LW/0YD3e0Dfmznkfz9i+AO2
wL5r6T8M/vvjPxxopI+zPySQ9K8ffs1YCKAAB0jAAhrwgAhMoAIXGIEEAAA7
}

set pieceImageData(Alpha,30) {
R0lGODlhaAEeAMIAAL+/vz8/PwAAAH9/f////////////////yH5BAEKAAcALAAAAABoAR4A
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s64aACAxD/N44aYNznf9ATmDnEdAEwRwtaRmG
BFAk87WcSgKCwJNAkFoPgIC2ISZmZmLf14Edf6Jea9i9KHfQAfWHVg1hu35QdBcDcAqGB3AD
FwJzDGVxGYVZeh58iyJYUIFZG5ObiVGHUZgVUXSakRiTeWYbaQNiPFlchaVCYoMWAAJcUr2A
ib63E71hjwDBHX0fqZ0fvHBGzYIb0aCIiozVdaKWxByxXFxOHWXjBHOuFbwDtY0awEaFw/TK
7FBE0eur4J7S8MwBzMVvwrUoBSMo+jQP0a58DPbt8aeBBjpmGcSkc4f+DkvCB7ySjQuZAdil
Wnx8lczDIJYqCaxsTMIUBgrFCAxtCqQkLdZHBwfh/GwAsKi3bbcmrRIkUycYTTchWByH8WEA
ApNEjvN4ISQ6LiQZfR077iXOIXEasaTAq1UhtABCYqnhcqiCnNM0XLtKwFmvcviMBrQguOhS
UKPyGqQ0I0tIuUbQDGbLl5zdR43Ifn3GNjNYrWEreNQMljNQiHfdrRXXR2JEz1s9t/0aerG0
y90K2zwW+JTfy34F61rg+sAnTMeJo1aejEYyj5Cu9kg3eYLGvsMlzCaNrp0prVg5gs0OIWjR
hJm95KF+qLkbY5HWj5UvbmysC87Il9ctrW/+1AUAHQGHfqdxVx1RRzmTGGcOKbBeKs9dIt0p
WBHIXGmXFRIXd+J1YSEv6MARIm7zXHKJWXXQ8N5WKpYFoIpEaQZiF+CF+NBthGQR3IBRVNiZ
iGUJhUGJJh5hHTehkJITgEgegtVtMzYSlDsotjREd2tRwEdlZHFZiJYdxiIfSkMaqOVcTpYG
mxRvEWNPly1qphhORv23gC3mCaVklXf1FFdOdjLA35l5DWocJQ3QU5R/4iw65wNzFflWBbF0
OFYYFx2YqKVTsVgmaXwq0FYuHXGZC1cNzEjWPqB+tOMplPJ3FSm1PYCXgNpsU1hgYsiqiSsg
nrcPXr1oaitHVcH+pCNVFh1R46MFdvcsiWaKdkSHG1JlRJYxggqMnDmSstSr+RzXxX/m9Yqj
roI1wV+AEPSC16x/BXjPBFMlG0FckAk4Zoh2XqeZLDkaaJcxNdIWF4r/bsblV/dZwFCgxC28
53oTe3ekbha2xN/B7zZIBpUAhddFyRF/V9oZOroh8FjQPiBlkQtL8vBX3F5hKWn6ggEbxDtj
yC5iN3LGR4C2mDKPSD0QHatuFJNb1E2PIY0rQrXu+y2NFXmhIaiBRlPkchIHzexD3I0I080o
DUyxz+sudadgjYXdCM3G0gl10e8mJM6U7uQUIX5hdrzfzxDHLHPCvFRkNpmEMU3zytb+VdbD
TM5tZbiDA92h25MU7yoJf28vdBFDFGjUDrLMZkYwPjDjdiGHijuwtY2SPB4eIXnYZKJNOUOQ
hu9jb7s53ADJLip/oBMGrs2Sbvl2feGdRE6gAkufEjmbe0Vb3hG8rNmXT9eZkaw56p60aFeO
BJ4jXRWmvNRQPClxYW87qP7mRwvGRxPqEkR+XteZhAmNd2l7R9lsUS6wxI9tOAPfndpHHdiE
gWI+iQ0txvO2PMWtfPIjH5hu1bPThEyCdwkgX1KRBokFkGm+oZj3ZITCFCXwSQUpkkbqB4tL
FMOAqwrVodpXE6ahSWmm6pAm+CY//LzLWTgxUXDyYKJinNC4aVKpgSautMUeRO4gjcGaEGdI
mqzF64bU8cfqLhGhv42tILdLmxCpR5rgxQuI3RnjFUH2xJh50HdNjNcV50g/RJmikFiglO5O
5zw0xqxhFRpDGuyTHVXdUIhxfB4FMkmWOV4xdCFrA6SEwzmjVHKQmHRkIxPoyROC8ooyM9/c
jCIVVKJrj1r6ZC5dSZhBxnJqHqOlrWxpm5D9hFj+W4Myl8nMZjrzmdCMpjSnSc1qWvOa2Mym
Ni+QAAA7
}

set pieceImageData(Alpha,35) {
R0lGODlhpAEjAMIAAD8/P7+/vwAAAH9/f////////////////yH5BAEKAAcALAAAAACkASMA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLIPDbN/4Wed8fwKmgGAY8BkDg6JRAywJ
icseUhm1CKkiwYAwEFRz3d2Xci0Nz+NbOD0RApojLdfLVgCgjCf8cx7WIXpmfX8HdwJYB4Eh
fXQkAXcAiCJdkYeOZ5IZfTuMCl1oGQMAXHsHcgBiHqICqEGQmTR9sBxPlh6bCp0Hn36hZ6W4
NJCpIXcDx6yOdwEEBMYjvMQaWqKcqHeeqF0aonMNp9IcayWGv8qMWtBn4RjBuryNF/Df65Pp
l8zNZcWszf5Psy4sI+DmVrNqYeYcQ9UsnhVMDWoFxDBuRC1ZIsoxWgb+QmOyDn20MVo4KIPE
iBBDVJy0xR8XdhkGtnT5jFY/mramHdw0Z13DDZ+IBQV6DAukPMdgUoBXr+MvdNU6XGQ0MQK6
q+iADhG6lWgSBkcXIDkGcuZOp8yMuWwW1uTNtRynmV1Ldxs3ZN+S+mI1JFIhLcke9e06DatT
Ij37OCv1ECseTY4da+21oKm8wayKGAtsyJDSCMfWkpWamWBSus5yPhyFOnVVB29b41yKSM69
XQK8IY0wUB+k3AT5Rvr3keLVz21CJkU3yi+GqVhf04t8lfb02/N2Q+hN8DcXN6X1Fb9whbj0
B2plu3yiifVOs9hMvskn+5Fzq4RzMbNraov+EAa8oDccXHLs5B5xjCWHznkOeERdAP+1M1Ji
oDznoGP3QWCZKSVxWCFulIE1XDVpUWPiKEgwVJAvW6z0XHjqueSiBN3IWKA/t2FwIXNLodiI
EDgW0UWQlaVFTHmoveGPkqjtc1kwGkBHnW3ILcCUHFdW2SBwso0HQXaJUAViSh7mGGaJmCxG
QG5KXuQjg0gGx6AdN6oHoUshTlAnIzZqldSff5r5QDf8DXkQEAw1JAY4DdTYGpZcJqmlAlLO
+deUfZWjWwXorJUVN9QAGihyYDKF6EiVbbhLcwuu2WJu0G3RigVd0CfepHYkEWlroS3pUARA
yjiMp5Y6ymuV5Sj+0auikY5WC2N11tXcXKL9CppjuP61xZTIDLGpgpswg8SCoHJbQbKeQAUV
pebktSZzpDgj61XfSjCMqG1VUFSMDVVbpaE2UivoUtSKNmln/QXcJ8IPREsXYDHyN8GO7dKK
qbeazjjocRSqqi+mB/dVJnWXJphwdK7CilW9242EjDZfWRybpP5acIi/a0UYSsEy4sqKIbau
mXOm1uYaY18Rm9wAxTCfdyVW256hkM1QdZynzNT5fLFh20VdNSSp0StKKO4N3KMbpnn2yYE4
asnkP0nApbS9PPsz9mWp0RX0mqOYjVvEDnuaLVPZZiMlTxpNfS5zq2y0AcUhGbc1ql/+5va0
5bZx7PeXM41m0hzjBnrzo1rG2ZqT7dR9VuoE8du6xA3vrbBssH8M5XMUitodnxo/cPhVlo4c
GWSTfxh72BNiDm/tFNzIfAVP1Grl6KRfNlY52ghReC6qszyBsa5v/nd9uz5ceHUbXETF9WKL
D+BWc3W7vfCSSV78Z0NKua3VN7uPErEdqIj2joarzgCKYRsIXJ9eJLvTFW1pbPOUet4QJeAF
8Da/81bvWmaaPzHDSxLClFuK90ARBadTXpPFYpjANgqCQA+Ay1b5cGQQfpVQQ/H7k2jmJpaZ
vSQMy/KVpS7Ew8ZQR3EXIBlILlaYX4iqcSIjQz/0cJoWkeT+ZnEhD/XEE7w8wIh2/ptel7po
ivBxYxRQZJy8VkMK5WiEIVnUYnQ+kEHFbHBjT0QGGbcGqkTRriZSjGB3ZBdHC7yNJkXUkyBR
c0cHAPGJYWxYHgF1w43Bj5HRkCM1aMeL4DGNDxdD4scmGUnYmNEXB3laryKJtm4dZ15DXOQK
xTFDXpVShFEyxiSXkyFO7Y1aOrNYXRxWygVADoRPwtS7tKZE+YRql5lpj7o2UslGcexC2ULb
BFWTxO4FrIKhQ92LZEmXQiqSPtH4R3wuc6B0+iqbWwve5FJTuErZhIQMOkQ5OveLYOqrEj7Z
CSZm9RBvugaVrnuPBMZCSVax6on+VVEgGOUIn9h8gkFBWc+ABIqrOpLLfpgK3UIhCTVRRZSE
VwOW8hBzkW1h9FVO1IgVWZfQ54GGnMOEiRtMGhxTiAtf3DRlQvFkPddprx04nU0SSbiXi1VC
p1Oin5gkgNKUVu6Yg/EZVp+Ct6G6iiIGxdMDt4iTImhTbyUMllfXJB0/8stzvhyqP2mEUlxd
DkPrhM2DwtRM31U1qF0bKlyb18AmVTNdJLRrVTNx18fUESaNzRrVihfCySVzcopFKWP3yq7I
QPavWkJpZflohV1OEk6mPa3vVOsAhpoUWKllbRti+1ro0RZQ0nHtbVF7Ww+uNo+Z0K1vAdFb
3Nq2uDEgIwNyk0uI5jr3udCNrnSnS93qWve62M2udrfL3e5WIAEAOw==
}

set pieceImageData(Alpha,40) {
R0lGODlh4AEoAMIAAL+/vwAAAH9/fz8/P////////////////yH5BAEKAAcALAAAAADgASgA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987/eCQEDwKxqPkuAQyWxu
AAFVcDBYOnvCawYqFQqJ2l02bPmmqgRCYEBmAAQAyDt+GrcnZlTVy74f5nJwKHZ+D1VUKUFp
Vm1QQnRuXpAiXl6FhkJ9J0p5jZIOjgGTIZWEJgB7A6Onj1CrI6kjpWClUQecphhDBEEOu70k
AkrCKqiZryShj2eZspW0pQq4thvRDdYjwl9gJ1ADwlXIIYcAi2vdqeIZa9q03wJV0kPw1Bq/
9Qr3dfispeofe0ppSpaO0rN81qZ1wLaAobNia9KkCWdCSTmJvJZli0j+oAo3D7vU0BKQBpii
jB08nmugcuDDFMoq/dswrRLFjbNIHTxQS16llHwcBHRpUAUVjIs+juOIdOJKEOEwegMRclbJ
Ulc97FnljWhRZrUYiQgY9huipWWphl3bE6goUM32qQiJEdhYUQRQDWja8SkHRxelrpkpgS7f
w3arwSNKJXEGXKoUKKNjzItSe2xJkAUQU0hHrxg6CyQcga1pSwvjMgjYATJlmZLJXl5HEqnj
Dsb2hgqM8RBupnxvKj5MHOVCOG8XuLpdwZEwbUO8cQ437LnGaplDVB7sVODn36evYw6/FuQn
5T81OLcefbCxN9ugk34Ar+m3EBaLI+20bq/+/ngceKSfbX5FAI9SJ52lwFFqjHJgBN7Y5wVG
fEg4XwM18dfaLM+RZVlHs1VAHmobeDhigRA8yABkq8G24n1yANddAHmVUyFSwm0BXI5PHDIg
UoBpEBWFNAoGWgVT8HaYMSGy9I1fJ7kiGV4itbjYAxHyBUVtVykpEY8WiJYcbiaSl9GFC4Zl
jkAbnqghBEOt6M+UO6WpWiT+KeHflmrQGMRFe9QGpgVTONUkodz9iCOKE7jSlGcEohnJiaTh
lRiD3x2AqYI8kcSFUP4dNmSWoh45QU2HIummVYxKIOaac/5lGGJj4pGenUFpymZDt67mn4fl
UIecbt5lqmOofUn+uoCAivIiGD8ToEFkJfuZSgE7z2WbLYAiBlsPXa7wmVVDxD4w66O/Fkkc
cxSIqSyuJ3JCErcWmPjorhxgq6229NpKIk+1cBYWAw7lM28t/nEkbVnGhSZjsvki5yVfwuxX
67VcllQdgSBlTOsFoURmMIVUqNvwdqucVJwi4hYnVnOmvftFX+FBd8+FYVXMS4bmjQgyH5CU
VaZyAaVc5Fp7sXyPmlVeMGRTU9lDksfEfUNgqtdQ3SfF0F5wblPsGmjZLSZnNOsS8qZY9mHz
rM3Xy9GGZy0EmWQYFnwTBoE1wWvBWrAuJz42tt1rEZE2fUf3LdJJbCXl9Ihz+/L0ymv+T6GL
1pByfNyAYYtd99qZSzREQE2qXFzJWj+6N7ymRX6Nm3uRlZHrCDGdXb6BC/55vKSL7fczvAhI
uOPNaTtPO9miKROQXNLjpRIYSGvx27TDpejFIqqSCdhUb9WvL6nXNbN+nTfwRra1aKv8icRS
C/3jtqclK6XjrdpWaQf3DVifDJfvu+iro5u3ALCd0bCtazEKX6Q2dL0ALuBPIFJUfaQkAUy5
zG32qZ6ccrIQb5nGU7Uwm8NW9S6yxUsDhKNfBdt3t60RLlgafKDJ4BaavgwLDPm5YAYmt6RW
IaqB1UBWs/pCAQjqJ3Q9fBeqPODBuklDZxkSYfRg54EUpg/+O/brldqaaJWK2Y1YMsuY/xp1
CL+Qiji5oIBHbGYZbcQQQxhUHU3iWJwtVUB6aKTjIt5Yu7+FJk7KAQfSpDjFb3jpDb6popsc
KMMsvgkTM8JKxQapBj46SiIUVOSYHDEgR6jnGcY7DwN/REMRKfBjMBMiuv6DvTCtpYSNhISY
gPc+h+VJW06BpQlHxEheOdKV6QphbRgGsRKBjo+gkEwOKYfAJNCxlBgwnct6maYh7vFnqpTI
YsI3qHohTQSUKVP6CBnNmoHAihwUUs5Cia92RWQ773DWzoaSS1lR7U8jcI4E01jEZ1ITjoqC
EQrVxUZQArCQaUBk6+DgFGTOspX+8yPP1Ph5quPtS2/nXCQH5DUxTB7Om3lSEtXe0FCgsA2Z
vqDSjywntdOhdGQrReYaUvEcAJyPHjNtJpxyii3enC8ViQxQ65zBy7688WG9eSlP3nFRfsmU
SzdtjDACM0aWMOWnNpnql3yoRpUCiauP6yitevlQF6XGTamxGvn2MEe1SuV5HtGK3NBS1Ec2
Sl8X7abXTqlNnRYGDugErF8R9ySBmIge/9SVWPMCVnfy9WrqsU5hETtV8DS1qeLZK9So8LzB
muue4xOfXMnz0rKO066uYk/6Kjs/pl5WkBD112gKqEWv5ewqAvEsKHiopcGY1JoYtSdg8KlI
VQyRSZj+MW5Cl5dQtg7UMJMRHzRdJU6klbC6g0StO+/2AXR+UGrw7A3QqgpQyIj3Q9ONkXI7
qVc8PBayjdpXKsyWP9ey9lrZ/NH3rvWIZ/n0XxfQk0g9VhmyOlJm9ssI1m7aIbntq1KOBLAp
abY9CkeEvHLKi4cKatz0miu/Ls3XYmml00BdlLHaKAdmG9spa/a1pc3CsAxH/NVeRpiPWSxs
3Grm3chFWML4hZ1u5YRdhHnYfF5V1KcE52LGNtOIve0DbzGZ3ks2ObaIc/GRs+ZiGZvWNHPM
oic9dxopS/SuP8ayA6RJShu/V7TlfO1rtywnOV8WtfGRr18OcWed6s3Od3Zv4BoBLVl72BfQ
+3VmhHvp3e/Sba7LIk9F0yxoixKaxdc4tJ0TTeYsMjrNRyozV4o86R8H8MtsWd8vy7no5964
NK0b9WlK3WpXRljVWbyErnfN6177+tfADrawh03sYhv72MhOtrKXzexmO/vZM0gAADs=
}

set pieceImageData(Alpha,45) {
R0lGODlhHAItAMIAAL+/vz8/PwAAAH9/f////////////////yH5BAEKAAcALAAAAAAcAi0A
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoJAzKA6PyGSoOFA6
nylA0xUQWAPQpxSQ/Uhf1WtXuR13qq6BYEBQT81CN3yDbqmt1vf8J99fwnopagSEa34MUkYQ
TFwoRVUBiocSgHZ4eZMKiYEMjIIDkJKZDmphlmxVnHNXAlgOkFYpl3iji5eWl6pwl64NYbEo
s8AsAL8BjS3FrW0CyCp3hiXCU9CYB9XDRAKEag9rhbogj62iKspXzivneOmOeOEd0wrY1MIf
2N65jqDk8CMAV/g1w8WmUKt2JYyZ6Jdq3poi0UqNu7eNmbeC0dz5IwH+UBhCE9jwHFuhUNqs
evqu2fOAz8HJZxnVHSREQNlHER0D0CR0biOHjgCYDRyxjFk9mhG/EajTAWCkVg9SVbm5JKY5
YeyuYk1pouMsqhrkqUwZ0guvqJfAUvQZYurOmlZJhAn6licktRlK0a3ZUIQVbsKQnjQIwqsq
aHhZxkXxS+yJxlifjiQR8h3RrZixFrZMKitMtiCKvmVaohTPgnXnjoBUdynUEH9rMmFCc3YR
utnilULbzQvESA0QI+J3229mdyIr65y6OvPr0M6jC4At5hUt3xKDe9ZEfEBiCkrf9k5YtCPq
0Va+U2rWGnAvxe3j71yc9+HQBQAhgkYrNlT+38r7ReDcY7wAJsxy93kA2VbvdVCZdJwptp0m
XNGB1RT+JeWYB6LtRFoIORHSWHymfOCWfE6Jw5587eWnYiENVgHOT3fRpMwxokk1k10HfTAg
R7PoJNiBroGwIGYNbvAghPRhUE2MFWJw415T5rhGjTxO5mBFbzVp4Yos7pSTgmCethdPz/2U
R5jipWdBGEnK6BoyTsFoXZoulWkjHl2m11pHFG0V4ARHShcUnhkcGYmiZjGJVWJw3rmdV9Ux
EKmAeqL5F0CH+lkXoB44RSVzIF7BZmt3qNdJh4CdJ6KXFdx4qmtaTuDGbgyUl9GJ4ymQSh/W
nflWnR5mumeSUmL+pmoElDpqqhrLOnShUBtusI6jtUrwZAOOLehLlAucaAyaCCJI17hwIeuk
n+aJMNesrVWaQWxtukqYkUxCgkFRveZHE1Oi9XqAUh9SaG+9tYXXHrQSvtSWs1jZuQFmbCz5
8MF14WrBShRyrFmuszzgr2sFGkXANm68WjLDah5jI6lNmQpvG21Op0HKO9FTr4q29TwbrL4I
SRq0ezZBNJp6FIXoAXKySC+98gHNrLKNQtxMWifbXN80NTsM36lShxvyAgCO5fXAZ1mncpCv
IiV0ZDNay+qr0ZL9jcIsFlOXNetmPFiXg3Y2a9gdyztIsQMLiZQejSE095/fHM1iwRb+NOuR
hDotSWQuRt08bc4XqujofpS+9yDaGzbujU6WvwNXxewt+aqFiqe29AVrFCOsfEXYPijUoGOc
m5Jchkk4d780ArxXwr7mVSQf4R3fMsDHJ/Cb0qm78TKFXlgN7L9TTO3HDUMYoBTJKwCxK897
B0HkmcF4spCZwa4BID4zIe+8t83Kqd9aw13xgtee4XlucIFDnSGkx5o2mS2AFzkVtKS3MAhW
oHsHiofVxgc7C4JHfJoTHZMSqA+rPXAC8APh1TooKItc4FrZixbWwkSsmnludyb71PEg0DTj
JTA/sLDX/9oUigSh5VTMA5v2RIbByMgQYp1y3R0818IlJdD+Us76IS+sprr1GIRBX/ziViSm
m4QZxzS1mQ0A0Pc4oWhgZMPyTmtgpsHBeRB7cDHWwYAyPwpIzmnVa9EO8zQ26GjuK+NL4RuR
JJBHQcdZZ7Aag/xYEQwGhTWtE8nrvra4trwKFQzq3fTuSChjCXKJuKvd5EhJAX/pDV4uY5kE
arhKVZLIiFs72xnWRrGghKSDX3IWKrcHSTVJ8nITcGX9TKY5X+Kyb/O5YgNk1ReHuAyQcrPl
KP2CMVSxkgI9nBkZS4lDv3VTTLe7QNlABBldwHBNU1wkxIxTTA40EULD9FXs4gcQMXItRRxS
JeWsBacEdYRNoFrkMRrJC+/QkUP+53TgliLKu2eKrI0IC9NDw7IVnHSROxBR4TenRg7rqYY6
9STeMSc0y6J0rxD+LNlGk+UqWYoOShR1ozaSM5vGSJNbOQWMj7QJtpGuiqgEXOVPM2lRlb7n
ndOKJ/EUZ5t/DRJTKZ3YSg0YATQWChWJ1KRrfhrOcS4BGXdAqg0jWc50kYCCFaSIODuJgRNZ
D64Jy2cpJ0kZtI5Qp/ZsBZLSqdWsUjGUGAyQuKbhS9kQiRl6nZo2B7qZNUmQq9vDJk7w6re6
GSxnIYnEeWyKvTMlgmJyPFZlMYMCplYRsxVg0j+s5tkDlC61f8LGssQlypxlDBTkwhcOAWqS
tlbQqAL+iuj1JjorYHEgd9gQLUOhi1zreIcePTuJFAj7B+dEdl/OimJAVzmCQwrKR9LbxO74
EVgcMkG6kPuuLbrp3IcZ97jMrehP7Sbd/PX0qiB7R1u3e4vABuS+bNzfTp2z328564v5vWuD
VXJfdP40NgmODGpgW0o2EDgz0KPVZtQ6p/JitKLVlVR05AsBqK64tjjLWAWlGUjZlJPDlWNS
bbUDxayl2MHZY+cAjZet+jzoyABWHyMxqCISf9I4cwXszfS3hnfkgQmVDWrCmkrJ3U1JhzS+
ZrFkJibKqjOL9Myijx1EZe+VQ24r9WwpDhSUd1ZzYgFYEJUOZOYLnhg9LO7+jJbXSiY28Elj
JtrRzG6009o1Cz1JRp2r0LXlH6s4XyJU83XIxFd8bZW7Xd1G6frEjpPRmIWeyqMULY3FQUNW
rlGWqq26x7pS03o/f9Yoq5lGZquKWWWBllZ6cVvpK94TSYFaH8ksMN2VAkeAn961jCxXZ8gc
KtgqQXVAFgS+9s6VuHiOspRbXCjRzo5fzVZwcsUtVK1WeFg4DrWrW2XgY2JbgRALaSuPHQtM
E/PTz82zMPusrSrnG8C5viVExQ0UcqKIOaJCEahty1k2kXZj83Yh8cSNcIBr8JjtWg+EuODa
IMUq2m4KS3/92zOCy5vlLEd4xtv93JkbBB5w/FSrqvCTh7ZeXNDs7lx9OE7CIdvxuR5HurO9
VPK08HzklET5oA4nThdpleO7jjaHUF7wF0/z2Bsx7wg56mylr9Tsx9y61kPtdUSAPerRDl/Z
C3t2JcH87tLEu95nefebbMK/avm73gE/5cHnjwiGP7zdE98zljBe8S3uO7Mkn8zH529ZlrcN
4jP/5lp4/vOgD73oR0/60pv+9KhPvepXz/rWu/71sI+97GfP+gQAADs=
}

set pieceImageData(Alpha,50) {
R0lGODlhWAIyAMIAAL+/vz8/PwAAAH9/f////////////////yH5BAEKAAcALAAAAABYAjIA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWwe
ATNAQCAIQJ3YLOsak1Kt2rB4FBjMqGjB2Eldg8rntNq9bNM5AzssPyAQ+HdJeoEYeXN7cgJm
hEaDjBQAaIsvfH6AjwqGARJTii0DoFSgk5gQkaIxhmmkjJqcqCyjoqClEaenXbNUXCWjvgsA
vqBcwrQheWVVEFMDzCyJjrXAcrlyvCTFk8HCxMUiqsoPnbAq0IcvXmibNJ0Af54wp7sp0Avg
5PUhVZYC1weRfQhMiRVKkbF448LNSEjOhbx+9BLZSzQpH4hE/h5GMyH+yyCrLZJU+Vtxyoqf
kiNRgPs4YlazQ8hAOVNQpaMIRfw+Vnr3YmMLjWhSpgCqTijHVRGpZaK4wOIHpg3unVvh81k/
P/ymqkgXEGu6dSumWPECtsQUrHkmBrx0AKefqhmYGYKgqyxVrS7MwS2RTq9CFQz/kgg8UU5F
iSEY0k1jtxzeWFex5vz5RbJleUY/nOr6DmIvAWgpZl2FFR6IvilVgcn7eIVUpCD91pyHgmjQ
o7JzN/SAGoLqzCT2oqBiuXTrEYbcFbfc7kTy4ps/hzY8WlJplngk+daOfNQDQyx/mcgNWXcA
gZ4/y8be4bVuqMe4O1DFfoP4qLszeR/PWXL+2q27+CHWcgLSRkYVykEnFjagEehgcaaBkAcu
D+wSYQd9yXdAQmVJtdpNspFkDQG2nRcJcHG915gH7r0HW3xoLJbfBhk2xCEDHqJ4gVvF/YdC
OwUGSGBzIgz4IHorZtffkT1e6AFxbKlFgHAUaOLLbUYuKM+VM3JAXgoMJRhYZSce6GKS9rm4
XksvFhbjB1Z2BFGWymwpZ30ZELcclTR+odw2wzxI5AdGMrlgfCYxuZwXeDawzWJvaaWnT8NQ
AKRlmuyDlViiQPcFiH7VlkgZo4zZ6RQ6TmCqX2hm0KKaTkrwaIVKMYDYfAMAd6l/X+wDgDuc
8ujVp/ElOGyjG3T+sqSiJBLLoqaYLjvTG0Iye5KzFSR0DUCTSfnOtm06UKinekoWFIFkwWgO
shqs+t5brVrQYkHQsGsprNDE24C2jsJ3gFTgaigutNsMS9wtUwq5zZ+HXiTsXHz5ae1yyvJW
rbkNXmagZl9k4/FL6VUQiRXI4NfVIOVGuaEiXqR0ypEIG2zsniF3EGrE+Iqmcga2TapXqhPY
+bEwt12gkV2v2ervymm4XG5CAd0itZDgnBcp0BGAl5W9Fig7sYNvcsAMgeViKpjFOWM9YYH4
JXjJTs2yoilAy0T2IDKSjQ3z2WnWa1bO+TZ73L16RWqOvkaXzeTGFUiFH1SvyW1Y3e7+EGU1
3qCgF9CY1yIe9MW3iIDS1wI2WTMGindGmmV8WuDS0Da56pYjittR+1R67vwPtEei2jmzA3H8
s+iASyLH1TbXa/qt+mSsaOtuhk2TOdM71dbkDowc5KgF/qmpqVYHj+HF156e5nkBWD2x8+Vz
jaOw1XVqtvsSpP4g9AvcqPT8cLPNgP7zgZ+DtIeemTlId4mTDda2czB8JQwNBaLfUpRnNr+B
ClbJYkwD9EIv5jENW+/rQ8+uQkDfjdAdCGwcgtA1rfbghHeKygPNPBfAZUXqgLHykvoUJT7Z
FUUB3GIdBM12hQyxp3+9Aw0BY5hDFepGgo8TIaz6cLx30PD+cYV74LrYhK/s/HB3aQMi1LKG
k1eFT4nf80sfUqgqGFKMb4VgGemmJC38eYtmOIRihWxIIB/16TZI7MySAPGQzAQyj4fsYxPb
eCY4FQ+NpIGYBl7VoDVdUE1omwclOQhGxtVQdeaonEFIuJ53SNBdh3vWuHjIvukoCWytDI0e
HSDAuw3uXpo4Cx73BLKSTSCRZOvExNgYAVTm61mAWyN1JOnDLFqyeV30AIeMuS4AklGZrIKX
nlCpTPployal8sh9JskYZjFKkYu0hRuNA8sFboePyyHm56wwjj7uEGMI8mT2aumgTtwziQv8
Zr284UV8WU1nXfqcXwwXym8kM5P+j4QGcIKYm60JbqHf0gdn/CihfRgpGBxaCQ7TWUy7WWtk
yOGnIme5MhSu8yRDKiMcaRnLkcITQrd0nfUcib4zbc864BHbI6/4y4dKM6LHrEDuSokwSgbE
jt95GEkvkKsC9fQLDMnckRKqUNLp85XWkuc8T2JAJlU1YToCpunKulJ1Ye8YyhlT+lYRV+UF
9Y+AcycD8cXSEeZVXrOTzQ21aI5uORJCLN2nRwUTs8VNdTv/FNRjAXvT+VGLrcOcKa0wi9OT
QjWqFhwBUFrVIpdONoCj8sWYEvu+nCWWmo3cUYP8KqCD+kWUOVVqKz9rC2tOr7JbOyqp1Jgu
BnGWl6f+eenEUBXHyJKtpm9k7fWoR4IMNUZOWbyrUA1yN1cwyLXJRWrRAHs5Nf4Bm+uKYAiC
yCu9ymq8ClilLU8rDjmQSib2PYpXWWu/r9lRb44FnmYxcEITYGZfLgruUbsCqLNaETd8haZ4
2+WWVa3RtIFDUpFM2jmVdGhXZuWqyOSHTveW1KtEfeccZamBxt4PupIJXWJY5WEcwXap9FXs
q5Jjghvnt6PipV/MTLXG+KmjfCaeRk15iwF/HreCiVXppnKbJxg/d71u5JIvisPcFpOPRPi1
b6A0Zj686qUFPvZZjmn6nhM8EstitmGYm/bHunLXPz3SBJI3LOcBOyxRmV3+MwPYi8Mk08qr
VJ6AnoLxnrPyNmYgU1HUvppB2aS4yg58YF/BObQuB6d4oCrDMMcxPg73iEkyTq5zuwcm5R6J
mWC1pXT3599ES4APjNGqfyKtCEEDsVchYes2GENpL+vG0CXNmeE6WlmxVhl2AnXoZTo4i5n5
GozGmnOcY1xsAn+Z22Xm6Yo74zBoF2Q8oFaXg2FGH+GJ+msgQ/avXSRvLGZael4S59CYDKla
O3SNsBW1s9U5yinyGM5PTjXxTB1Wfm9yaWi7r7nDbGhg6rpJiZUhur79lln7VaI4A9yykakm
j3ds4uEMN1XX41QgH+6nEPfik9vHIOD2k98bBI3+1nAOWpubjqXIMKA8AO2VFub7n9Y1YCcc
Ct6UFm/kl6zVd5EK9CoEJlE1svq1pzdaY2WdQoTi+Mb9LNtxB+lA2FTmpV/BcM+SnYyVKTpj
jDWOKFsH3OQDx4yLt3ZaFc8d+D6qXvpeN/GCUHZSLEqMtWVKh8Vvh1mNFLVWnUTCT8Pn6DQa
JW27zWeW3exTJrkBtUbmrU+X6GhZVl+oFVHLz5vvD9S84WOu6NkzuRKBWQv3Bh4BnGS94PZ1
qbjHbfQ0YT6eIn79ujY3yrVQEmhSzqwqV1x82aH+pNVfeZBd/nftvrfkD6ezbG3/rI+HcuvI
SLM6sq9T0Ceso+73vinwxD7ldQB4gN2+vPv54d7+Msvh0fdq10Z+joRUCdMo5qdBH/QeOpKA
atJ/+oZy56ZKElgM7KdUlCdg8Od+hxdAx0UWRSQxskZZ+9d4fXJ8RPQsHDhLBEhyQ9UwcKci
IVhygGV7gkZopDMhKgh6Azh73DdhtaciA+MiNWh7UBR+ucGCPpg8hveDSEUBatIYPlaEs3eE
hqeETciEQOiC21c/T+Qy4UeFV5hvWUiGW7gBLehCRhiE6wGGbeZEa4iGS2iGTygNdniHeJiH
eriHfNiHfviHgBiIgjiIhFiIhniIiJiIiriIjNiIjviIkBiJPJAAADs=
}

set pieceImageData(Alpha,55) {
R0lGODlhlAI3AMIAAH9/fwAAAL+/vz8/P////////////////yH5BAEKAAcALAAAAACUAjcA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CoVACoCqTYrPZDtW6/YNfgahMEzmdyWFsFrEvjmxkdUL+l7bvIPLid22d6WGiCIHx+dIGF
UISLHHMBNgBnBJVpjhAAdhFVNY2YGZCSiZegDZoVnTSfphYDaG40c5UEpa2QdRG4myuTpLGt
E69/NbhovI67unTIKb6JwDfROQKvY4o01gDWLG3ewF3fat95JH++EefYLc900zXvcsOsMvNn
fb3k4Prj+iWk6RLBaAdLGrQczwQQeBXvxTx8vUhFUkCQmAKJEENMAlD+aeODjR0DNDzRBRaq
Ue4QShzZ4iE7iQsqilyAkUTFeDdflDzXrAWudj1ZVPtDa04cGUPvBRUxaQCgiQeatmFIU2QV
qiNAEvDoQCtXGPRmGGNWzF6iozGSBkDrDCbFlVUPZv31kW6MsDLu0SIwNCOMYWP2bkXjt5ve
YSw1iqSFTetgYJRCJs7QlMorZHw0Xc67bpXEe9k+n40hc/IHmTHhXrTLlBRm15yh0mgquBJW
nbBq00roc5jCSkZVOD63bXFIp1UiP4ZDp/ACe85Z4B0o2iLu6oRtqVBLKnrrX1cxPpU7AnoE
87ER/RY8B4ZR3ewBr3hf2zeK4b92S9RvOsP+vJHPeLfCdC9g19l8BhLWF4IGLtWBTAmK1h8G
/3FCmGeyzaBcbQemMAdHtoEIn3z3EQWfLw5u4Bg/RenDnwlpdLhaeyRQQZ4CxmxC0EkwGngd
MxCuNZiAp0WYiwlBGnmjCAJB0OQINqbEQI6nQJPiBhsKJiOSa4EIiYi6kchcHfAVBVoJjpWp
5ov/BLDQTF0JueUGZpF1gFHFHTnWhT1i50JFvwU5AF9rnVAndkSqqGSCE16w5Ft0kHBoKXja
d6doiWLpJnxz7gEYcImsKaYIvq0JaqE2CWmqqbe1NiiNDaTxZqPLmAicfHrZFghg6w2mXQgJ
CmVWYIxJSGimFC7+euZcylZHKwUVPcCaB1/ulVQfub4ZCa978WbOprp1CkJCq3L6qwcolkvo
kXtkq65gll5gI48MaNVqVKp+NeVGDtJXGy6D7mVPrwKf60Gwwq30DXYKbfZds1dasGezx4TC
b11L5uTAvP26a21zhDbMzIgGP6gqvHCS9Om7tT3TLpkcZnlqxBVAQnC5NoeSCC8MnRorzE1t
vLME/uoGSbiylhnvuNg9K++kiwYsrsTVFfsZzRRMDLHOdjJw6M+jNUBlrQFvtY0mp26KhiVJ
W1YFLUuDYM16C5a41s0s65qyB9aYCy7KyCbbpT6E5xk4A7Ie8nPBwNBWrAOXrStB32v+zkFw
uqKiSiqmbVG833JyV832Z4e7ck/hhI/qaNiIq4avW14DdJ6q3MFs+ZuDYk4Qsdx8W/YwKCQF
Zt7sESivzFaXWTK6njt9gHIHbqj4AZE/vjjbteKcZdKmLq8p7CXU7nlu6HCBndVXczm8qfpi
AP5q3T33mQPvTxnZxL/NUgvbv036m/cYKJq2sAYtpRCvI2ECIAV6JpjStExzc0EO6r5xr9VZ
LzVl09UV+ICyaUAvQ7Fbn9KMgzt1ta8DWlMgZcYHC2jw7wOTEiGESpcKEpbrhBZ4X5A2KCGw
RQoCDIRa/xYjsoBpLWA41MDt/qXC1XGECgf8m372pindODD+ZupjWRIL6BTrvGV4h2Agm1Ij
kgpW5V36qwXMyjW1rCWIgBJwR5Kqdha2OS8u+Xng/NDUPA7sqEqko14P6/WoM/pKNApJY+IY
hr0irZGJVOSb2h6pPb9RC3k7sQremniBNK1qiwtknSDX9weZTU+QzYmjFFm1GMepq40SmKOU
QoAYvSlpUKQICQgDiKm3dSRPEoFjLPvIgWHFTkLVyYgxA6JLTOmKI46DmolgCUTuwSc4inki
3liVwb0Yr4Cr9CbyinXHTNjwk5HUwEPIgLxniFARasnUOMvEQWuuipoPkGZNFPMHfV5NjXTQ
JfPON7pBMqtZ5VTAOuFHMRy5hAL+kZFlIuVEphROc5cX8Oc+i3Q24plBhL66oy/UtDblsas1
IC0TKKm2FmKMs6RYJEiK5mnSNL4So6ZTFg0x5rlX5TKkJiMoQBHJR4ol9FIpYeHrKgbRTckS
RJdRlT9BhM8FWBRRwiSjPU1l0wZ6UQM0hSnSekS8quazSyCz4jmn2E8IqjJv7sybWZFKMbYo
anwKqYguy2kg9O3xW56jJQsNhKyIJqiZVDVQYr+lJZwOtFQN9MYvIavWdGZ0rck7kVuBFc7u
OdZ9dRCe8lSqFFgVMKWa3eqaVpoB0ZzAFxp1zbpCBdQO6NOv8WtTYDk7WNdaQCuMGl0zRcda
93XzFa/+rWji/Ems1Jazq+qyHFnl+tlOSpWS2guYGSEAXc92lqQnBYFv+ThRIwVmYnu95GCz
GpDdMq23rnMjEgmrK+0q9oUo9epRN+bQu31pKse4aUIpx7Letams1V1d/g7IF5+BFrVI+65m
d2qhz+xXbP0FT3ickj/RpFeS46PwBJTKJPjKTsG29PBjCkq646RqeMXdwNGkaz/MOle8J9uN
ZFGW4CpSdy4Qftd2syfkHN8zvI6Mb42CGUtpfvhgCltY/Urs3vea+Ktu3NRVn0gmieK3xGNV
2T3ORWB0WpaXg2tantj71h+/jMExI2CZ2WdjkonYSdUJnll4MR6C+uKoX9r+ZouY2qeGvuzK
SA6lEZtmieEGs75L7uaXTXAtyKmWtGdG81kADBuS0HSEbA4hnPWz0yWiM8hTDHWNiarnZclP
SU9Wb6/CMWtOcs1zqlYookttIos2eqiP9lWudS3DzZJ3SiszIZb92KXVDplpqH7ghfElaeI9
m2iXlrb2Eg1iziXMDuJDlN4u/GeodTHTSTbqQeHrvCWmEIHA3tnMlvzdudqWMHBdtqJQHeN9
E6/fFRhnOLyxTXujUtDe0EYb6OnqEFy1x+VB6OjIvahpx2l8FiedFdgTnilf1naE2fhurNVx
kBtbktWGtBj+IGg1/Tm/dLZ4laKt32+tJzmKFVH+0EBMN2ASFm2nunM1CesQo07cVRMMj8wJ
iXHAsjy67RA6ZAWAcHp2+OQopCmNV0DZfKP7si03k9CHSfNufR0DG/H54Ci4aYAPPUpyLNwv
sEnvN7akeUcXLL+xbmV1R/BmA28D4K9dga7reCrfMFrDOQvh8qnA8FrUN1gl3Ni2SDDpCT+7
dZsTZMsUUp1WgrooR7AoFsTWwnnH8U3bUvYxZnPQiAI66GCYNLUn00uLD13KAbedbJcLePys
uJhDPOznNRuuwBdsc/8l+38ZWFJR6z3GR/cwJS39TmJ8V2XMMQZZrsS0tG+pxs2de2rNWU1z
Q4GtGPzN1TWL0qfDvD7+4gZll9dZjUDGdJ3dnrXTN6f4rTN9AEVlygJ/8Sd/nMZt32MssrRu
K8FWFkZvu0cyCph1lMdGBsddkVFStuYfHpM3qtMBBlQ8IxMfGch01dYdCaR5LIVrBhhi1Bc+
DJMC/pcgYzcjdXJc3QF+zINztPUx4MGCoWRkv1d+JtN6lkRvXCYr9CdY2OVRRgha63dIU9gO
pFeCBfOBRnGCr8ZCN8h0LBSDUGJ3JlCDEXKDhuUOXqWG+FdiQ+RCaYNvkuOEYacmdMdZowY3
kvcA4VZHs3JdWKUpdRhdJwgJ1dYXeDMPucaGzLdNVuiEvfWFDDV9BfE0FRc1cIRoP3RJS3j+
Fol0KCKziE41fqjXhubzhGjUgW2Why+XU7fnM7U3VZOXh5XnSIN4TXv4YKPmeOplYsNmYrVV
eO+HUJOniRBnIbZnXvyHZ97nLFyYfQy2c4ZAhAcEW781hbiYC6ZmfxUYJxNobd14WrsohBby
jTdEjmd1ZV/4cGd4h8OkLDwEj2hnjKpYJZeHgJm3X1KBj6mDjvRzgav3erQoCgGHijwGEclm
h9TkSazoj61Di1zIkP/mkAF4ZdU3WAOQfCOmU12oJPNIjwn1aRgokON4VMTBj/rAhdSGknKn
QB8yQRUChveYkuGIQSyJOoSHbVZxk08RavvIk0qHY4h2kRjpksqnMg3N2DXgZIzPdZI8WY/2
CJQAZpKaSJTstpQ2iBn+NyFJeZTdBl9jZ4xCaZHBh2iT0ZV2lWERwpX0SJGoZGJhWZWnIZX+
4HB0WThZg4CpIH8RE3h3KXjo8pfeMC6CWQ6BWZgX5peCmZfyt5eY15eISXCHWZiEiZjBcJmY
mZmauZmc2Zme+ZmgGZqiOZqkWZqmeZqomZqquZqs2Zqu+ZqwGZuyOZtBkAAAOw==
}

set pieceImageData(Alpha,60) {
R0lGODlh0AI8AMIAAL+/v39/fwAAAD8/P////////////////yH5BAEKAAcALAAAAADQAjwA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodEqtigIBq3bLhWG74HAP0BsIzoKBeM2WkXlmtLpNr58AgncugEZn7V18An+AInh6OIJ9
hIVWgoyNHmdzOWcABASCkVqPmyCTO319nlWdpBxxeTpnmJhnpw9YAYgQALI1tgFxA1i0sBOp
vjSiaL8NssINuZAwubu9xhWCZszDeZh4AtEKqaoR2aAziqLV2wzj5TLEr9vdyQrgaTTji2PQ
QHGz7Dj50y/Lsr4sCBjwHMF7JczwEpQsGxZq4tYNsjcrSLd9Ny7KcwH+sODAg4xAVjShsSGx
dCro+dmhEuUMcANcbUxU74VKjBIZSHTJgRUmPuWAtsL47+EkhDTJjZFI6QY6LzkXRFWw88S6
oOteGk2D1IbGcDmCtVL07kW3piz4LNSFc5CstmshmvCZaWKsQUO11TC14+tMfhLRlHVxFmpW
qYepXrV6EsJNG3zDWmpV9+88P5R/yhmcAhwAzy6EatarmHLbAGPtljiDGoBcB2ovadrLGk5g
yxFvb6YRrw/nK1MPBK86t/FdYpBr62CYmYBDXLsuNceUiifJSZTztRBdOSBdAqzf4tVsXUNv
tA0u/k4R2alu1W78ihqgPYZ8+Ox3ij+5X6n+ifMSqJccfjawNl1lvGF2YCsw/ROHdJT5s4Ja
qa1j2lWtvFZCPCiNs15+BNbwHlH/jLiZQg6+h54JN5moW3nm1eSYb+6F+NJ3zZHYQjYDSGfL
gtRN8mEHnh0IGogVEnPhSXnBqAFruOk0iI6GPMSLMPEIY2VX/5l443wtYhcbC73pNqQGYbpI
HGNgPSBKZ1tiSSNsuix0Jpo4ZqZciWkwiB2QwajAI5BBenOCIIQmqqeNICBqSS2s7DmCa2se
oFFTLfYI4ntOhlBmTM7dFlM2d2JQ5nulWpCmmsaxKIpJMk7qFyOXnsNUqtLkeWGnH6SS5DWA
trnhn4k+iEI2iib+Cx6jHwilFgTU1MUrMHJ4F840hZJBaXhbRRnCqiuZRQyohTIV6oqGsCrY
seqaOG2ufaB70bsRpLKWInNgS4Cx27rVLboh6JoXn31ic1CxwqZbcLLGMgahskZSGUK0y/qC
bF0AbxBdc4roW2jHzW2bsSQjEhxvZqf6du4d7a7LZsuBpVCSA5+SsHFmHRO7L5QGorwLCpNN
lw1hgkEsdLiT6szwo9ctbHR2CVfQbzJBP5veeEM/ANNvDy4YD7kZbuZ11J+U3MJ9rAZJL6Qw
M51Q20xtMDUE66D3FdtpcB300XJQB6o7Y3vb7N5+Mquw009H6LIISleI2nQoHlp04g3+bkCM
xd+5fcDFMmH+JrXABivAgY2HTLYH4K5tQcowt6Z52YE9nubIHYCrJu10v0qzRIik7PkooEMI
ctijdycTubYoGKrgHuSjOPMiiJU46afjGTrOPZtuOJF+iOQ9FotnQOHKx3wXOTdOS4q+dBru
fj2QjceRLKlNx70C2u3+DT0Gq8r+IrtH+R5IArUBlaAnUwyYlQM0ghJSYWMdEMKOA+X3wPn4
6HWMCxo4VgCT6WFjOooYQfY4NkLskeZlLUPdeJYFmxUu7w0OTA0z6AKUACEOSDGs4MMIdT4S
3IaDcLvNaET4otH8MAUlVNRsOPCY8vEOHrFzwGLqVTDWXfD+GvR5YQUhGCTcmSp+GIze5Dz4
uBypj4kCkwj1VCeBAAqQIHFQ4eOyJqUydhF9YENQA6rGqBwqioLHgxgdDxcYXIEuiFMix/LY
eIA0Ua9Sq3FhspZYwMQgxn73kWKr3Me+23RydJ9Z1hxFVUESDApyYSzbqOz4NF6AsHoXoJgZ
lfRKL1queE+TmNTCc0bCvdCPy2uhW1LZSIHBbzyIMtoZuTciQ0ZgEbYrJD0eB0sL3OeRdUMi
3DxQphl6knUkUsk7kgmuJo0mL7eh5vZWV7oKOdNNxZNlLne4xYBJcixs4QorK6TN6elyl7pb
AOegRp8bVsxWAZ3RPhM1PnlOcp3+ADXROzVZsGiOq5iLKJQ9YzcLg61Km237QJl6p5uCehKh
c1JouWKnGf35r4jSmpgv+WZLC/hEF2TE5SzfaczRLPRC/UzcP6UGPjkMRFdZQiUhusGl8v2U
UJYYqLJqCAL8XdSHRwHn/+Y1Gp5yyohHRGG7QJCLeB0VbkuF5mBEY6K8fIYubY1pr9wowJ8R
0Tn0VBYe8gg1iLbxfSZ8qh4Z488TzpVG3MnMLg5UQwDlSrALosb4jEbV5rWsphRAJDvG5VPY
pROsMQPaNsWI2CBmwbEUYOuIHifZisa1snKzamA0Zc+uJc4Mee3sB5L4PMFSkgTJzKWhVLkL
3mrxlWn+mEQcVXVPJSa3uQhbW7/yN1HhIFJbFuqOZ1laGd2gwKKFJGK8NKuRC4gmmg+0rbvU
hjqQcEs8IsmgygSpECBJyLJ87W2wGHmcwvIXozsbY3OyuKCTLZNthe3pMQ0pknSCRL5tm8NX
RoPZB+Dvpen8rmlHAN62wehiWp1cH0BbyM4Vx4wqEJJtf5JPriSvb/YthkhnyqBeBK66wpxe
+3aLF3DgMLcyucZvMwtYRY34aYMUryWL0yPZzkcBLTIiWVXUrfBKDq1Y1WxYbQosq4LqESud
bSlPvKgUUwINYd4JkJMk0/wqq4clSCzEYNsouhBYx+Q6MBXdTCgwt9KvGNj+8lzOfDsYBkbK
VSXvploHXC1HEQP1Xd57uhpkM7E3zjfccZei2r2ALHaqMp4xdBE2XExDdkF0LlsZ15wo4Q2V
k0/zsyCJWbsMA/Eq8V2AfL4cam5qFsfC9HAkHY2cDMTQquokcd106Kp9phrTnI4Smufca1+/
ryMdpQz98nNqxgIaXh4s8LfxGGvjHrPC8IKkq676jf4hesrjEslXgB1sRjea2LGK5cIu7Lc0
c/aOxaHnkDdkLx2t+KGvtmZ48LeQag6u26/8L2JYTdmEu4/PEdPp0gyr5ODcobx0cjKGR/CM
Sdp10S2TuGLwbXFl/CnExcNCpUscYJZp3K1kIiD+A05J7ZZTQD5FzeYKzN1nn1cg0uEmaK2L
fEyjbXtYZsp5+KDIKtZW+7AC3yePWKDZ+hEb3VDW4KQzoU5PMvs6boZzZ3BDlnIbHXTZZux9
UzzqonO8zjcPN61/TmNxz3p/qFARR3Dj5Iwu6+027FGaZqF2saYQ2vg2pG21+hN08q6CYCdy
bpPMwQTOt+KIj4CcUT3uW1I844yBbEDsnmim17ioyCDU1kX7nmZ4PuWVhryLVJ67IDoemg0W
tMbEHi9ZjCVCVQbW7NG+3xlUJ6ehzx3ErTb0vCsr+lRkZdA5ij02FknbLS5p3OuJAtny/uge
zn2Wb9eCrnvdxfMLf+n+Xa7BKzHWa7q44t091fezi8v1CKdy/Ycy2Mdlerd/gxNzhXcUMsFI
RTJdxScLftEjkkZvAqUmFnhIuHd4Alh3z9N+iHRlrkRG9SFqAPgTC9FqU0dyBqVYgMeCJ/hH
elZJ1kc9GbhHNWhkCGht8zJ+4EcPy8V/deODQiN/KwiDJpJ5w4dWQSZxwaWDN1hHb+Q9Bag1
eZJ81bJPVUh112MLDDd+R9I0FLd8E0J01zeDGqAQUygeShhRcJOBxXd6NdYNplQdchgy+BKF
C/iCeMeEHGgz7/VGDmdtBwiHxeOFt5NtWwgPD2KESagPeVN+A6htg8hjGAcxSANvLROFMOf+
IhYoJD+GQ0F4V6JIgcekAntYiSRjWt31X534RACUg4lyhDzmiHJwH7ywiJckKp9hVTIziQTI
h2gki5iIhqZCEEdRLf2ADBoGjDiUifYkWJ/mbTtIg0B2FjcmiTDThqmlWajRMZOCjC8SEDfY
Yas1bGYnacKXgPLxMKzTMKYkYPNDi9GYdEtyfpszGSP2dL/Ygn8mjESWNyT0KiGTCpC3UJeC
XPMnAa8YdbTHiuBocyd1PywHkBPAGhB4T5fyYpgWEzdBT6eCGpqmQgJJOfAYj8RYjAvZbn9y
ZPkQhcpjj91FRAfnHOoRjFeXgNOGk6a4KNDYh9clkUEEKj9JVtH+NBK/52hE9Eli01cwxnkP
Z3lNmZG49GzMdIkyWGrf4oHKZIyw4WUthVv+Fm8d4IxOt4iGN5A/NQ7o2JMc81T9wo07F3nr
9mt/KD57aFKJWJYVmZM9EXM7oWzjoYvW1RpAFyYUSH3whpUbR28OlXRzh35U1iTBZYtPdksy
OR1byHNGwmqjWFt36DWfaW10CYhaFhMnp3Dtsn3sd0t9WY0XQColhTZQSTKW6SK5CJvm5Y+3
tZLwFJoM5ZfQYoZKZym8aUIV9oSZ2YBbyZgyKHEK1pUcVpEd6GiQqJu6dlnokz/W85qMpBZr
+EYj+ZfhOYVoyZU9F0nLuUXrAUykxzT+36eCWjkByrmcXsl3EBec/1WfhQhh+IaOWrYt7Qkz
hraJ4vOa90kt+Vl0+xmdxVhdDiqdWLWeTahwp4aImgMTREhCnTJZFGqVGRChybKIHmqP4xmi
fQmg+FYeqThcDZlv3YigjCSiOjidzrk0/PWaKvp1XMYq8jJW/IOgvolRKwocLJejKbp+LOdF
3GlhQLqbMgqU1mmkRbpRLLejxPYbiVgWGOolkCakbNSigmelPEqmxIaljqaluImUWnObxaZv
UXpY+CaX1rWk5nCneJqnerqnfNqnfvqngBqogjqohFqohnqoiJqoirqojNqojvqokBqpkjqp
lFqplnqpmHoDBAkAADs=
}

set pieceImageData(Alpha,65) {
R0lGODlhDANBAMIAAL+/v39/fwAAAD8/P////////////////yH5BAEKAAcALAAAAAAMA0EA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodEqtWq/YrHbL7Xq/4PAvICgHxOi0ekM2r99wGEAQHJTvg7g6wNen5nV3ZXl+YnxnhSZ2
AGNmfG6JX3eRJYuNgpCUXJOaIXYChD1mBKRtnZtlpyCfoTyYgqpanLEbc3eMogIBpASmtAy2
uhVtArg2AId3h8a/FMHFPq+zzcGIE8TMNMiPjgHZzRC2rD52A7zl4AfEgxOfyjfrmNbp4Zit
Ou6C97Hx+w35wmzEEzSvxzZvRbD54lHtloyBmQ5IS7UAYsATtna1+bb+IGOvMhxfWLzo42DI
HhBLSjuZwuK8iXQqTixI4pnDeq9YshhJMwfEnjoAuANAip1BTDpRuGQAk8FSpbp4kQGqLmop
kjIOKuOTdMbPIEIn+rths6uJpwqaypRGFcRXCG+1JetmFgZAfZdA8foYEUe8ti27BbDzEtSh
T04NzwXsYapUrIl3XWXsYho5mGPhwXy346/XmUwnJmYb+BXVuDcs82BFlFRYUAwFtd7rbkDd
P6wGG4XRZu/U0JL5Rt7bl0RvUoQjkDFXFDIN1Tvu2ou9Wd9tFK+nx0ArUfRa06XlKSedA7pP
kHt52bqewl3w9ASyU/6j7DFI3mV8kxx1Nab+Ase8FEeCNBMQqIN5flV3Xw7SSePeMdWx1xho
C6j1H4UoGBiBhjggmJpe8CFHEYSDzBaia3hIuEqJ6b2W2Vn52WeajPIQ59wI2d34HSgqnuCh
DQr+2IJNCg7Qhm0zNKhdCyMFGeR8HOQI2DpIHjgidSa2uKA29Z0Y4lAxsOLlOEPG2N+MZ9YY
IDQqHAmbBOUIaMJBEhDT1jJyOMkml3riwVePHCj5yos19WnollDh0Q5BQx5SJ2dwcYWfAF42
B+UJn8xWTqUiIqpCMFnCB2oLZsZ3yKneqIfqMjbuxKOnwICUHG6DfgPQPrrZA+gFTYpXw127
EGlPfLBid+ieKhz+26erskVg06Ua5FiiA7c6kKt1TJYaopwszLHIOV1WCuYKoHKKYrElaGvu
ugRcmWFU6EDwiXAYCVrlAbmReYC0uq7QK6MzCDtbr+as162yyL6LsIIsDBrBXdjZa0y+u/GL
bZvqpsetCu6BK5u54xqLHrujJmsVu+sulMIoGz3gkco44vHetYyI2WkewRjpW8gn/AupXStp
HCGxCZcgbJ+7UrBwkA3n5DKHMQ8yM5g2EzBOzlPfJHKltmSVoqqohrqtkB2UizLRRQ848tle
BuPBNhLYsqY/8zbHkqQXDHVizoOkx8ote2s9p55eO7iqoDF2LfLSSUuwNMNl9+Gsgw/+SHc3
QnkDHiLfIEr299paoisCYWO++ULHbAe+W7qg+8aH6oR+YGfqX/6cQT5AHfdnAx5ZChdeFYgD
sp/w1cbpa43LG2TslTw+rNWms77ZXJhh7Dx5G+D++0q8Y9gAlRYI36LfxG8Kfd97ZYk8fcVs
LvrgLNJ+Is+jt24jpbB/ypr88bHWwSe54oj5mnOPuomoJ+I4kjPQN7z2iYqBnMrU4jaTvOBd
7xXnquACEIe/dlWHeWXjoKHupYG7CFAs//BeRxw2AfGliTmdIkq5XHg+/sSwPfHrhb5YgDr+
uW91IaAhfO4grvd5YiurSuKqFFU2My3nATaklwJ615/Kncz+iAZcVxbndjYgkgBxIDziBdXk
xQ8cDRNritAK3KPENlIvjE9jYQM2EysLMcByi+rg0TQVI/MxcI9zM5kD0eaCnInNhx5L2/8y
dj9OlbEEPlMQtKxlJsXN8WS+u1AHq+iAtW1sPWcTYqZCaUQPVKeQY3RQfzQowjRuBo4c0F3q
NjYM71wSQ02CIvbi2JozOlB4cyDKKNEWNKJpsCPDVM+0OBYuH6bqgbTMQBTvh8EQtcx6bsxm
NFvoRHdVZZOc7M577NbJKypSAQNE2UaUiUl2bTNaYDwmtVJ5LSISbZKO24yX1Gg9/r1zclD7
poX4GRqnPQxEHtTnKntxz3NhZk3++OQmjzYnwUTZhqGIfF3tvNkBWQpNGvvUkQg82kWRWkBq
baAJST14hpUWJ6W5KlA73YnQLbILZkHUkzx3xI2F9dSeCR1Br0IKk4jyynlGrRB4vledljaV
kq+QqWT+BUMGGpCDU+Xo2yC40Z1+s1OInOmZRpDOj1azdkmtJThLmtZ9ce+OCNUPHaYponsI
TKaH5JTu6JoyrTYRaYky09IEqjmyWQBxRFUhjB7X1rvC9ZRF6p5BN+RAJ7Vmr1bxGXNw6oGq
FTF6ahNRXvs6zvu1NS1i/ai5OGucuLJtVmZcDsBQW9rmADU9KqOSLpLCyHWxrLfm8mv2jgXL
C5TPp4T+5Q8ARaAnV57Seks7LTJAMdvuOG80g9it0jrYXEvxxbkK9SBZ+XoiBZoAuGwDru06
QN5G6lW4IQAQ7X4TtRTRtrzNlOsUAVIX9FaqN+0Nrn9WpKziViCVNUNTSpnrJPDasWdILdTF
LrhfpBiXu07KKqX4E0kMB1GErzymrGAoP9KVDrSLJPGJbrtiFDevtjd18YSQstI0VsoMRLqU
/UgGkh2vy5JvAzFmRHxBQrClPwa2YpAcTDlmPi7J46HxBb2x1JNW1knMWY9guwvkKF1Qg8+j
nU1xa1gK1Ni9NzYpCAL83gEz2DZntWZqbXsLxGCAzWlm8dlYiwFfGgrMFE7+LofLfI0G03l6
Kwi02lIJuQtrOEitMR4xmxpORbSTvonOrmvTxxXXac5LxBABFVu8VjKfk8Ew7qubc9o+Se9z
tMQoWClTqOKz9TB1sLW0Yn2kaYThYiZjZbWCmDxZhT0OfoyGyXXM52eCnMlzOj3gyi4NX1S7
FaHTZQt/V0voPCKSgE1LNbdXfcTNslncfIF2cc887jkf758aeG6mz9BsseCiQY8e7xihfOHr
6jrZcjxqB4Vs40O/8lynhUDGqh0CNiGvhtPTaLujVuvXzvoDeAY1w6M1MqGM9scXNeYGuIoy
s+F64xyQd7JwYbEQb7CowRb29bxa0GMjG+DNirf+Veo9MvR1+LIo14BL1SxUwPkPmZ+OcdDN
7OMfw5u9g6Td0jNX8W/XNZZNd6R/VZfwB/Sq60x3EDPotMLpxTy+UybV9VAg5IUleZ18keRk
OiX3e+Kw4rl2sl4qmsKoK53cnQXdQVZlInFUptQlTdTH5ZcRqFddwIhvoN53jamJJKWewI57
80zTaddQD3hN8/dicf700MAQxFdpDZY9ZrLa8vnf6/3m4//b7QU6Qk89pflowkr0kbubf3bG
+u9JPd+Lp7zRPKwyMDBf91BL2DDqpF9gGWtsnM84OK0sCrH1YR+agxKauuddPuIY+TYDfqsL
C/9aeA/23VtdaGlNJsr+TExKGYsa0i/IEfkN5Upkp9f4spN2EEZ68bc2HKR6aSIW7MRvFDBm
4CYHlsBUGSdnU2dBjpBX2yA4/rJ1adZ+Zbd4bHNNppR1coZu0HR+9RNZEFg0HXZWsAA/tsF8
MrM+LtCCT4URpHdqVvZLdWduQ0NIradxKNgSEkhy6lR7VmaC9jEp7DdtSrhnFegAQqRX5fCE
thV+hPMQRags/cdrxzIpEVZ9YpFEIiRs7MR5zyQZWlErDqV77MZSN5APICiEQwh1Vvh6i9WE
iWJNMohSY5NwU+h5ImQkh8R303eDv/I4XXheygKG1HeIUgOCyCAdgAhBhJFqmLgctAGAHPf+
eyIoA/uTUUhoe/+nfjJhhfjlgesniCP0TB5UQTTUh8sTHDTIPjqViIpIZzioGNnEB4a4gdej
ipqEY/yTbZwYN0YIarZ2jLezdY+UfJsmPy8ISRwIUaczfO8ljKhlJGxxKr1wKtoWhQClC8DS
eS3yeVKjgZXXJwy4SM6ziK1Vfn94jcFoMlWHKrrgjRtlNMl4GIbjiunzi7omiaXnFskodc84
gqgoRU1jJL3oRsHnhQRxhynBj/awkKVgQtBoKNoYZe+INu2oS7O3j4eHkaYWhFLRYRLHkPfX
cTZIjGgTfoE4P8z4VyP5f73XZ4xTJmNEc+4xh5tjJ7uoM3q1WgL+eXN/licX9GxIeSimOGrF
p4OBpxFtd5EfoYqcMz2SpI7UGI2f1ZF9B5S+VZB5hDAhKVG8+JBkyJVoZ4LBxG3CyGYmh191
aJDI5QJVWR1MuXlmeTAopZZrWZNhVyQQh2gSeXB0p3LreJMbdZYSZZJ5Bpb4ohezEy/06HeM
x0RdiYGu9kNx6ZX9oysntkbO45jIOEZ7OXlNdpmMZpqnqCQhN2n2kHcjYAZD1iJKgofoB5oN
JJUBKI8ImZPCRxSz03g8yZtixpYd9TWmpiYBSV1Y6Wwn+DHwsQ5exXO3CF0zF3dg6TOSOUU5
KJi/EyzAQoHWAYfwk4BGSInkhGyQKSP+ujeBJSWcGOCL6CNpuQGW+fV+zld0gmCeRugrXbmf
z0aXsQcC2AlY0zZGwXKgbiGLgyI5Cxqe1BgcR5Y+IDUZA0gj0hl3zkmWp4mZtFMyvCaWNGV/
hbZ6lmImQpZW8pk6uilNzCkq5XBI2eGaw+huyABr1dWSyUZzyWZbb4cwL+mgO0ihakOe9haa
YvcROFoVPjiGggJtHniQ0iiOKfp+5DN12EmU59MdMAShFnZ8Wtpi0mOCaDqKefSe1ZmQx2d9
A5hK5uAOnYgw1qUsPRKeaqpw+biVTRWjJdSnwfhE8Wii5mKcXVmmMqJzuzV/9zGTQTmKb/ht
IKpLZdplqKb+qIAqcDinikUKaf3Zb3h6bXbKBnpaqeWUbIfJaM3DmCf3pPJVpkKZOSK6N/oS
ik6HolGmqENEn48CnP9XpbVajFiqZDgHqzj3GpeSl6DHrJpZn6fqq7tapqiqS4b6bnV5Z9gI
o8U6nrwqpNr6hDfad42qaqYKrD5UrS/HpnLmmnLDq+KZqqQXp8lmXkd6KAW0MOeqp11Hf/yp
q534rfF6S/M6ejnIqU7pdUQqdNHadQcbj526aAU7oA+rVsfCEZ/qqxl7KA47sSOVg2Cnp/RK
gBZQpFNyLJPkrMT1sSTrnxFbm0hKsS07mH1yshwbqKd6lhv7JBALcGAHmEC7KhhxEbREiyfB
E7R1MXgPyR5F27QSKjtOC5g1EbVLaxxU+5BDe7VVe7RAm7RIK3RaK7XxFbZuNLVkm0SmSA9q
u7Zs27Zu+7ZwG7dyO7d0W7d2e7d4m7d6u7d827d++7eAG7iCO7iEW7iGe7iIm7iKu7hQkAAA
Ow==
}

set pieceImageData(Alpha,70) {
R0lGODlhSANGAMIAAL+/v39/fwAAAD8/P////////////////yH5BAEKAAcALAAAAABIA0YA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodEqtWq/YrHbL7Xq/4LB4TC4rAuiAec1uq9Jqt3zuiw8BgrweQO/7aXZCeHp5fH+HiCkD
AkSDhHmJbQF5gZEli42PepZrkwKVnCGeoD2jBASjoWSpqiOsQZ6apK1br7QejgNDeqenm7cR
sxLCObbAG7m7mr/HDsQQzzfGzRiPhkC8vczUAIt5uhXeAgPXOLHL0dQM1kLL283deuAU4uQ7
57LqFt6e8z+eAE4NShfJkTx6mu65o6Qv3CN/ddwRTGTwG8JHChdOtAH+AE65IrlQFWqnCWIM
fIQCLWS0AKWejRwWkSMwcFghmjJ1uHwJ0mOSintIPrSx89O6hQyKwtwgLqXNkjpXLo0BdGSR
etrGDWlq8qTGo+6Sfl1BqdekrgsWBTALKUdHNN4GpPnoo6oAukCaDhXCVdpYBSvFSmThDq0C
ve9qvA0Qdy7flYaj7ulFQNzUFhXt1RgFh+GCb3C8CYYzzUTZU54knKbZlkfpH4gJRS62kueP
zHhfKAW7TDA6wmEjIC3leetLyrFmK8ZKmTWh3Jtfxros6mZWlZ+Qtz7giXJNsuN6qbU5QPx2
ydRhxN5bd7076IAGx5cPePiZvynoP9gZ0ej+nW/NmXdXf9YFKNJBbsUVEE7fwKfCagQUdwCE
qbWUh3YDrpBcUBFUlR4Kr/FglyYOzlBUSQjiEM9CmsmAX2AWvseCS/B52N+HLWRjYIRa7bBi
djtiaJVixzUnToknQKiRkJpg6IJe0eCjnIkSYlNbigle+QgaHBKpJZKmaSkmjCxASYGU/1RZ
F4QBAqRDLgsG6d2RNRy5YzIxKCkRk484+aRsF1mUpn9BjLgMmCwYClllQ8rg3jJTljDmpL39
iSUEfQ2Ko4YXysnjpiHIg9xanjIqaAxxebpipCNQSNpc3r2ahp85fiKaBIPIdV4KHW2J14/j
/IpPAIiKcGI+OUj+dGx4uc7waGF5UirtrvlhhGtCmA37K1fC+uqVAKWqKcOqlKVaaj0whFSq
qS0CR+q68LLFUq3Eihtjr/PyClk5dvHrXrucjgkqLrEtqCizOb1wMIvFfjDttC8gCw22Khja
br8MAPtQwx5056m9uokqkDXroouZyPDSSW+8LB/oAkCmqsYsyCFwlUZTcairss1wAdrCsk4R
9V65V5KacKIPP+dC0pS+XCkEvyki281B68whz4z5PGOnctK8wo/ljdxkyV3qC2DL4iwdXssp
U3uCx985Y53XHRj0rpC6eBPngXkX2VxyHGsAtG0zaDyZd186F3gGC2upNtNiOi1xAy7+DdyA
3QYmd4DeGPbNJmryLI7BQHK6SeXhbAdokOj7nM12XLUGm3qQP36QNcANeCMg1GvzGFk8co2O
soEah020bHsHqLLZYrLecW1yUX1l2IM4HyjkrHoA+Zi2ywTferxD1aFMG6l7p15hD5D+xnIu
L7XxBp6aLnOzZ37pJa6rjkbyx2ffgWX1+9v9MoA+4QDJOaCAGejylTv2UMBv7Rve8XpXusSY
4FkDTBQGH2a0HqEAg9EDYQs2mDT/OaCA4ZvcfYLzABRWAIKLMZLIzEU/1KBBgG4jQa52pDcZ
nIN/AcxKo3SYvzZ97njWq0BygmgqQnGgH1lz4lHudqujwK/+QnIbRxTTwbm2UbB/8erH15rn
w+0tSnEoWBipgJbEM5kxah2oXAop9hn7UA6OEugig1ICRh6tzVwLHJ4YA/YJg8WijRcAGxNp
l0EQoM5+BySeBU9gOKbhTgOrOZpg9hY37hQIgS3sHRY7VMRzfVJs8CNbhlKwLERaoJJvPJz8
SCCmNUYOM+IIYOgcCan9SMU3eEwLC0nZO7vAj3PVc84xh3aKHq4AkOz6luwWGST3GeuIGLob
JC03ATNW0WEHHGWMlLedUoprNeIMJbha5ogA6YhlszzBo0xou1jWxpardEUtA3nPiH0RbTnM
gB1jZMd+OmCg6uyFxRSaDfX5gmv+TTxUVuiZSH4YMVi4hGAQO3InwrUKos1ZSZDiWa3oyeqk
pPmm9sJJLd015zsKpAxJ0RnQA5CObaaQlzbhZTpKgtCV47OnPFCCT25OqDZdg4w/d8qydHIA
oZsz6LG6AtWMrWZ6DM0OAAKS04i6Q15AXYAjgOicfIKoQTSh5g13RIgS3DR+CwmSU1GATZ7W
9AKcKc0Rb1VKl2UxDV6LKUDX+dBUxquTRBxTWLMIGhLesypCdOuVkkom4LzxmiqsT200W1mC
Bi0Y1gGa8VxaWAHdU2xGtekjVVe2t3UqmUGUi1xbW8+7jDSuHZVitZgaxrteADEmeSviPtFV
WjEAuG7+JCzbbirYltENGdJaLDBNmzTVjs2PrlwWZfHzoFiOALmX0xKXrqROrYGWsIpF7QIN
NqbrXBCtquLHGzrVV3ZGEoe6fZ5yZ3tftuY3Sf1tqm9/e6hN+pcQuQ1EVaZE2tSdrb7wei4B
OTjfszVOqS4RouUGByQOp/YB9iRBwYC5PQX38iJCxGoz1+Y6x7pXxBA2EOzOSljeApSsD/Vg
dfa7o+Le9sMHDXBvGSgCF3oMknUtjgsdwmMB30W4bCOpBxx7YtcO1Yx8yPACKTqxfR5IvI8z
ozzZw2EwH8aBKM5x4g601dNcGL06BoFlUHrSRtYWJ4scxMcm+USQ9riuWQX+slWFbFeziqAk
fHinOxUdUkhUJQNHnh0lIu3g/8Zke1yeQJnFBI6CBZIEHuanQccYy8Ui+qghfjQGjjwp402a
a1R+MQjefKWw9iPG64LyRYmsXxvrtFQhArWfo2xpXFDCMoD2MQ6T01MLUPp148B1uIotvFKb
YNNf4iwfvyxsL3v4Z/ZMrYeE+okCr5prlGKLRcsqJlnb7qTkS6kWT3rtktSvH8Dm81P/eVFf
r5jXVmaihDWgu4r4e9h8qleclXjKlp3D36oauKbhDRmU1jvcK5TFp2npbe6BO5YfprI9TajA
MpNqdaI+LSjnu9NJCPqOxy7lYtSyxijye9eW0+P+nfYX8YXTWODUrhuAfoRjG05bds4UKKFz
/ZwAzrXb+iGkzR8GjhHhM+gYIGEIOS25N36Y1tbG5AHTreYUa0le7rpoyDRjLnwV5iGFxnoi
pe1F6WYR6EDu4rMlDaRmMQXh8UKwLn0uqc06je1UN4Shrm45sJPx416XGrmhd2nCUnlB637z
u6TM8ZYPuMhinczgeD5kuRPYthvl/MXxbrZ3dYOaM/n34nQNT7rz1+517OwzQy+tFilqQdPB
n1AzDWmMp3HytZn9VQW2wKuffb0B8+/LyxuQxoAY0Pw1/QVWa9/P75j1kqdmUjPNaCdDnJGE
hzp3R1gYgmBQXtq3ALn+YYDtX0oe+eLbN2HfnBWzJ3+iZYJwElczouJ3J2R7OGcCYzUqdDZc
htZdTeZc6RcCtCd+zaYBOzQ7yhYvSXd/6/dM0HImJAR/RrVgpBcrU0dbEPhGxDcBjpc0rJOB
XzZZDyU24iUguFcfvPV0rPQ04QV4+TaAziYdkzJe8cdL5+cpPBgqQAh0AJd12MdfSXhRLfhC
jiNNbfUALwhnQshw8AUvPzJ9DTB/K4h/+tY6qOdVS4IKzndGfLM1QnaBGeVRvLd0SkiH34Vp
LmKH67KEINBc4odY0NVwfRiFkuR9cfR48/NZg/YwKRZyCCggVah0IVZhZtiFP5iGG1RzKQf+
KVn1hDAWgYVFAyuihYKngXiYh6Dhaz2jervFRH6IhOInQ6BYbaJYQXzIWkP0QVxXOCqlAFuI
bqlYZGXRiiVxQ4MULZVYhvgnAu1EXXuCCsCnYmWVg/VhWMfDER8xdUUXhEc4d7mIdjNgiHdY
iwR4i4M3iVF1c7g4hZIYZuSlGNsocsvwiMwDMeMoVAEoMIA1JuoITe5Beq5nhPb2jnBYdIJY
J8gTRMH3cyyTkGnHkIi4AYAoEP2YEif4UpiIKTH2FvOUkeQ0gepXNDtAj1+lZkBWf8MIHsvY
g+3XjTSRgowoZ/kzZz0mV0tkkKSGjbSoA5YBk4W4i/qEjnAlhj/+6I5/Zo6zBiEdQWVysTex
OGFf5HbTQiy0qI4uKC0+yYIpZnd5RWeksZFCp4+klhJASTwo8V4UBHHnR0WuqIowaYAKSYh8
N5FQSJSLhpVDGI5yApGdF5MsEhoawVV2eRHlQZVbglKDGU2W0mo4YJLRaBAq0GARJpJWZnwQ
aJW04xF9GQtjxo5mcTOkYUqWiVk8GZLW+BRpuEhZSFd8KY7014SB941SiQ5suRufeYzuaIxo
ZomUkprn5XX81F2nWU2F2WtgmZzjNX2UaUNFw1RimUdF9BZFqJk6WZa194AnQ5f105oXZ1LK
2YpG6VmRR0igoYFmwotDBYuZsp0PA5z+DhCM6DCcNAae4SlfsYmX6xKdXqhQKmmd/BkBR4KY
Vdlmb+mM3NeXKmhZZ5mdSql/kJMuyJeDUKRW+KmeuaY+QHmgCAo58MkbwjmD1bI9Eiqblamd
Q0mgHOSX56gl5ABLVVaWDfqJH+pJoNmdHCo45bmP8xaedGYZFRaUG0qbaOiNfKhJFfNGNaqS
SPVlekmeSWOUOOOjdDaTJRBqaviBqlg0fMIi7MedPVeaH6WfxCamTBg2gveLc7iaTAQn9Ylj
wBJ7xHOhAMaOC4ZjacOj3gQDyBdIT2pA8UgVkNlq0gUQ/8JJhxqgBqRwnqg67oEvX2Mn9eOm
SPOaDmopCyL+eHLpnnIaiNaEWX21E0CEM2XIW8CVlGc4a4PKMO4pVPSpp0pVope4oHfGbhoF
jXNDpFbYhtxnTAuUpF84qZ+6erMoU6laN9ITNg/3b/YpKxx3o7F1rDoqG4fYdCG5kktJMnMa
rA5Iq9k6oXBIbmtxDrwiPZyWnM86q9JafPvXqBNkrZ/SergKX7BkPNVzfOQYdzkYiRJ4nDDq
rjIhE/PKquCElKkTleyabDH2cC7JrW3ib8DydbO6r8iHpusan6uqPpZkPepqLVfaKSfCq9um
qL60Tv9KXNCTqboqnWyaZzm6bwbLgRfbiC76LgARUzK5Es6Tr/d2nCzbqXcSl3T++rHTRE0r
AomX+KcgKlTVN7N1CINM6q1W2LE+K6CFAEI/RbJZdLKUQg5ay3vFGUAdGCYxG3dL4Qh0BkR+
p3P+qZhCuZczOjssum9hmzpqSox1OztI2qETy4xM25C2WEJn5qGJSLVfi2rkdrctin9/unfi
d7i8V6z4tRQJiosZgrbd96AlK7nSJ1mWGpSvyLkIe27qCmTyiVXYOkfvCYxi1meGu7LxybOF
FrqSO7qnx7nuRrS4a4Oau0Iz+kM0O6Nze16722jc5LjgR7a4a7toOKspOau6gohR2yinexnT
W5W6y7mQe1RlG4R1SqXg65k0Fr7gqzSnR6XIE7sYGZ7PLzsa5Bu+X7uK71ulZlptzTq/8oai
HWC4DduxxZKxdCGfFHW90sJN8ou/stK+r3TACJy/YcW/NEa1G8E0xBC1lWe4WHm6ijiUzhsm
Hdu/pVsNUaqa+Ehwr1u/FKDB2Ua0HVx4HxzBVCvCXUsQORuolPi6oQi9F9fC6TqrIKyuMtxq
NGySEArBxKiuT0rAZtYQTNzETvzEUBzFUjzFVFzFVnzFWJzFWrzFXNzFXvzFYBzGYjzGZFzG
ZnzGaJzGarzGbNzGbvzGcBzHcjzHT5AAADs=
}


####################
# Leipzig:

lappend boardStyles Leipzig

set pieceImageData(Leipzig,25) {
R0lGODlhLAEZAMIAAH9/f7+/vz8/P////wAAAP///////////yH5BAEKAAcALAAAAAAsARkA
AAP+eLrc/jDKSau9OOvNu/8gBYQkFgBAoKDjcaZZW3LybD+verBKHt+ZgAAg0AErrGEtQhwq
hoKVwHlBRY+VAGFrxEoABGIYuW1tCasyRkC4er+AAaoD8xB9IitLrp9fBANuGkSENGdLGHV0
BCeMZG0oh2JjF2eLahsofBsBQoIaQkldTHEDpqeofhFaOqw9jlUsiBZgmEGeHkJtbKMQtWfA
wLMMri6wxbRQwxWWmUqUQYCmRZ++SrLYVEyBC2gr3BMyKUXiGc2DZ9omwLh5fNgpmxLn3gfn
TAuE2ss4cYoXQkzFYcPPQcA9Q3oZLAMvEqwIStK0iAhB15lGYFIAK5L+5SIodqHWleHycFWw
k1wmEJT4BJpBNhd/aUyn0EGRAUKioTKlhSOzAHKCypsQquEdCBSpZHxyhccCLQxrAYLJwqPK
dEFOkvNJAdiAdAV7JNx5gmsDTEopTUkjCGopXVDaAJWTUgKbuNXmvSBbV8KJQP4AqQoH9GbA
E9tagFnhh5I/BrVQhZIjjactpMHyRoAE8yIyk5Aohwn7BAXcF5rtOfa21J7iLZDDnK5MTXbr
ioFOAarpQNROnLDDDQyMk/QBaaWEpm4iRcXjQsfVlfkN5Xctv1+98m6QEWqwTvWYbBki2uW8
Mnd/MVm7w9HS1lNqbMnODvjG7Crn4kzNvXL+qlO3+VKKPwIZp8yBgz3QhgtE7CDHcTAsdlYY
PM01nkBzXWdXZrSgFIZnBf1CAH3mQYRhCgNOsGBP7Y3AS3sOzMeFdyDJGF5vyWFIwRS/mcKI
hTc+MKBQCW6mnEBfEebPOIGUhRNi3FH4VULdNSFQibGdtF1LHmoBxlRdnUGicSN9aGY4FHJx
F1TAIQIGVEKANyMgI/ETj2QF8dijk1cWNCJdpZhlV5zdUUMUioywMaWXJ/TiJV2AZUTEVwOV
1BtKeWo13jjzFTlhmX2pNE5gZRFVZmdUhfrKfF81UoYWPqrKXY/8xKkfclwAuOAX+vHEH3eF
AXVYWEOACgl6mPH+8c5o5Gj0q4iH+LULWKx2NhCaWv1xx5ph/KoaWFYEg9lojMhEqVTC7eRp
PpP62q1sqARnVyRWrIHkvd7u0SMfqU3hCUo8svcFpgPTSBCVh4AzDzZBnvdusfKS0itZDWLW
RGfj3bVrfqfk5Fccwrrh3ymyAssClBYgqExYd+5b3Dzk7StGyhxKO5LIJ/mz5SSQ2CtHoymm
W5wsAPITmsxsVHLmjtsucNNvlz0wxYi7YDBiKX/G0TB3VeXsFATlQsuQFkrfA1GiOKM0FFIo
NmK1mW5FbI2HYOnlUDCmbY2jbluy5fTEJGPJwGhVrVEUsx5Lywt5d7RhaZSTTLWp4Jf+skNG
2mqv6/TQCldA5ZKlmro46I5v9+VF9n1IWrt8Z/B0j1H3R3EW16hrxXZxToGqv4/HJlO4qj/y
net0Zz1wzrQzK8yXuFPDs+6f9VYbqMqIMPI0xu0AOCorGfSUPop0QorLBapIODxyK3gTNtPo
nSXBNBcvEA7fp2eE+AKSv7aCRwMIU5jXkMX/iHK91nVFf/upgQBlACYpyEJ6RsmG0fTnPgWM
KIBJSJKpite3b3HwQfkQRjfkJSI3FQ9vC3PVIdymInLgTRc72p6vYojA+YklPpwix2ms4C+u
1VBz9ngdnrzVP+4J7GzF8xbGTigDi2ipCB4SlCYQCEQzYYp0iEvcCBEjGImucBEeg2uBl+hF
OFhICDIYNIo6hEQ349SCYZQb3Akr6ME5ykeMeBsejKI0x9jxEX4iaCMSvsgyQp6MGDhil/ca
8AJDdrAH/wBFJPPwRUo6EpFcUyQjDWJI0wBkkiYA5RtGScpSmvKUqCxlAgAAOw==
}

set pieceImageData(Leipzig,30) {
R0lGODlhaAEeAMIAAH9/fwAAAL+/vz8/P////////////////yH5BAEKAAcALAAAAABoAR4A
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5sawJBALiaEAzHEAgYHC+xnyI4q8V4tF6smLTY
cDqkxRcABq2yjW3XdA4IhIG0KwGYDwFC9WJWA8FrNOGs+c5DArN5zNkeyRQ+aEJTV0OGg1l1
S3h6AHwbbXNMHgI4JD9RPQBqQWmdQZOReiEwZooeVKiVlyOZXGyesrOrsbUcADo3lH12Yh9i
ua0flo/CkGWcYMvMzHQTlr9DrdHIgQPYA7xantYXwTcilkt/bNqO6I7aFVtS4QrtkeDbG54g
N2KMlTtgljY959KlW0fBDhNCBkdhe+bB3odZ9DD4OaJjUzMCAgRcZBj+QdfBOB4jybARMcOn
OL0wqvFREho/ScEuTNylR1cQbwwcWVmgU8I4IgdgYMuiStoFhx1mzrnlhIiPYjJpSYU1geVO
BVZ92iSqY2FQT0YrwGzpUmOzrjgh8JvUr6JMOxeZMYX3TNOhBSTpPmowM0jXrlLT5vRE1ucs
MWHCWvAEh5xEp+mAQsjDxO4gvIoo8/FT80YMwAFvNj1n+bHZi/HMLZMkCsPfz7qGDnOQJg+Q
yq1g8NQ426/ZccqE/o7dVJbgB339YqQqljEo3a6bZTwrQTKajzzj+Oh9o59GkmBgfDfblR0+
M0OPN9C2JW7qCohH5rHDPNDv4PclfLF9Fyv+dqwZDbMFXMtoE95pBZZj2FalWRDFUrLsV59+
SzjzmXpY+cWSTS2F1N9lH27HQHsTURbeKTe9Z5hcGGKWGILMbHFUYyjCkcEj/eCXo0/C3MaD
TnmARFB2MsQlQy5xZeWScUakoQpYyx31WXA2tUiFNktQ0dJ8rfxhlYwKeDVYGrQYREsnheWA
oCUZ2ABjgcyUV8EnJ8qlwZELCXOKeZc8goNOMeUwoQ/OmMWSd6vpM8FWn7U5lQzK5bKYc7Jo
oExGexjKZ4Z/MqJDEQ1+RWZ3yfGjC5rXXDRkIGsZqdJyEz6AWJ3LoCSWHrT2NMEOM+yp05EH
ZGQrPEeEF4OxRXb+YqiCETxpHauPrlRsrA5s1RgihaCorSlzEvWDVYyAydexRxiz1R41MquW
e8NCgE1cy1CmTBhzNcDau+HNFgiubE3CEQToySvQHueoVWQxudT4aS4aCULBow4+StF2rVVF
qV83Hpnlxmk+xdLHS2wR0Wc7aFZiMcLqMie87TqAJLxgYGlhy7StNu+qDiacjZ76dkQvJzrA
8YVQYVhDdMLzdcLWQqg+PFVztFCRB73HutGtVGnae2BGU98xqcRMPiB1kOhNacojz0ZAZzM0
M1DyvGog+zKyx+EoXc9V3XfgjnPmApkeGrYdRZBsHduGgU98TUu3Py3h0RwTAV23VHj+l+HU
xoruSphAlXbkuBqUZRk3lu8UBHe+KxOYsLYwZq4fg4qJpTfkfF9zepI4V/sFPpfDRmbs7lLe
90yhAU5ExbvOGmSLGU6Jeb32EggzVBTKcG5RsannZozUrjceRtRIXyv0OWGKY9a0oUfaOW3b
ezu8/9I2EsyTEGIeLcdx2CixUWOUNYpZwoV3MhUeNpzOEc2IXwNCRj8UOcoR3eMLlqLhIpbZ
rzqr00blkiGJDpLCQf6rSUBwBLwFckJgedrDUhwVNgq0I3H8K5ONVoYRs7QPYBrL4SnQZ71H
TfBhJ1THCBt2w3FBEENPwAZm3jS+IuYgNvhgXlD45UEFPoD+MNgIEOkuOJnDBGgWzOsLEiFF
DYnNEIhsEY+ldAgyHhIhi9FQxf1kAcBumIZ7N2LC9mCGrWbdzorNGkqZcqc2P81BDMUAnVse
xpveHesfj1ncJjBjRqtVhX1H4k8PmBgvHhqSYYncwSJ35acL/QSRTiTWm9ykBfFdpI8AM5DN
NugA8NBvKcfh3VSGorgRGo+LhpmKFIMFtpNA7TCRjBCj1KUWQVJulNVx5iBTuUfURBA5rlQV
MIPFC2EsZAx7ScYtbdacgDijbP9bSzragr5S2TGZlWyZJrESm3ACqCrvS1LHGCgdJVmMJuf0
EHzyibq3jDNBElSHFBATviGKrZj8dETjLSGJxiNFZoURkxgtxwVRjdiqcTdY6P6CxSBkOAts
hTGcs/awTflhKkKPENclx1nCWmYTZgIqFwk1iMhiwJFgt2DNQQE5DZo6cRecnI8TT4q/4kAU
UiOinJ7iuMxPuYyg+gQiUzc2KXfuoKXrwWpBC8JJmPHiCeo7TTviladQTfGg5ISGRzgXUi8g
NUZ+q+l6ILrRMD0VKcQiDR3JAZaymdSXA6tJYUBKOe0t04uKA1tkn2qvMQTJlByyLD22OpWs
hY6O9pRJHbPUor9OFqKVHdGVvhgy1T70r+TDy2gzWYPZ7gEQuM2tbnfL29769rfADa5wh0tc
DyQAADs=
}

set pieceImageData(Leipzig,35) {
R0lGODlhpAEjAMIAAH9/fz8/PwAAAP///7+/v////////////yH5BAEKAAcALAAAAACkASMA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s674wC8yxSADEcefaPfOHmXDhw312tdAweTQi
e0KgkKYoAjlPJicQAHC1na7gIACMNWYvYCHoBs5B8bpDcF/Bl7egjd/sx38bZntzZH9wg2Ue
BH93fRNmA5ICjiCFJ2JkZoICA2ozZZ5lM10Dih0znpdKh6ciiXuVH6slgYFof12gh0J6rpyE
JbC/lp2TtCCUKWkHb8gUkcMAorymzxZ1XrKolAOM18B/4BzKKMzO4a3qreMTjLHCXG1dtQTe
cCGUdeUlXANcADlJGkiw4EBiEr7hY1alTIBZanTVOkRCHzwTvvQ8xDX+paNHUO2I3FLAUMee
jdx2IJwlriKXfQG29QgliVEdmRAiFfkYxdqFVFSCuAIaMsIPSkFftRxxMhdODO8O/eP305jB
q8eqBiM5dCkHMwGmFs0zzcsIRp48yYsJwqY3HPfqzFxHt9HPaWy5FkpFrwIsI17Ccllzg1eY
XGfZ1cm7iO7iuXUda+VXMlHRvzm0UaJX2GsGtJOeVnBb094glOSmpVW9WHSDN13sYb0B250R
rgt/bdXxLGorMbx8tXLNwDdVOupi3kPtRxw1SscrCI+MOOFtobkv7b4BwXguadPtZigl6cuR
blj1EH8dVlLZgWo2vOQZxXyEbIz3MEDHBk7+Nnz9nSTEIfb4NiBF4/3WVl3tvbHeftVYthIF
g8l2FW3MORAVEPotwJ8CHZoUIgPOweecZQQlkmBGE5KlioUEqeeHaV78k4paqZEyClgDQlPW
Xq50gshQNDaQCIyitDcVkpZhEF6LFuixy3BxNdcGXLQRkmGUPtA4zQ5yQeJVSSNV5hl2BfZE
nlpv/UDNWIUpt9h1uJiyB1ZTReeOMVZNUh6AeaQIX4zQCCaFfUKy0VccNzVQYkGgmYLknyPa
lhydGYDlnmNVQvXopm0AagE74rQCjXhCoTTSbkc6eqdxusDnBZUjjdanpMjZ8xKeeWbK552x
irLFQDfAZ6GoDoD+ghIpPCSqg0QKOOPIH3hGpJpBKl7gnZ7YnPTcOgVym9N3aWqELAXDNWKq
j3zg1myH7xQirQPe0qXkk0JWOgFN8G1p66SCEnQSBpEMeq0qX+kioJTxWQAWG1Q4C4qHE1JL
kIVHEltQreiu4y8F26bbyD8fPyDNt1BKcPBbTFal6im3DELxM4TY2Q2+bdxzJ8cS+GPQotqi
h+etgxAX6WoxjuWoKjWhl8q5D8wDoilTn+HsPhFY/KeSWsMmsL4R4Kx0Q9QJqVFoQUfIDjkK
58zwGxgMbIjVHd7yTtY7h4LXdP7glTfUjgLMyGdCz4bX1yXTK+jBKWed1kGCAv5ao5v+kWKj
Zs+GaXIskF9ps1phWTXIWNQRXnZM+eqduKsnrt0cLDaXAXbY8IhjmYrvfDyIKcrR1Mqm3ji4
m5hDG114etnEOHtO16ZhYgebtec8yYP/JJgac6qFlBs2SlCzndp/Phj41EwmWbf2EniUt1Sb
78a6fuAQLzUEFEawOBqxKOCZrPs+he2gANXyknUrgZHuSwU5GGyUBCo4FXAgQBtPL3Z0JVJk
wBiwOc2sHJKz9tHOGNoQgp3C8oMAjtB86yBdqH4TFQQKpzwOjMzY9vMiVXzpB6vrX9ngBwFf
4FAXEgKLD6pjq+I5rBNruseBPJei4VFIcJLrWcAeV57xZIT+PhlZXc1i0hEB1YiE5UtbXVxT
tOlsMBRZOlEOKVYXD5CKEDyUznfgcjEdyc17jQDFEJtiDdTxbF8A24TDBFOQwRwlNpD6433k
wUIPKKlY7rHQGhegBl4lMIIP2EcaCTFBcl3kAqU74hnniANdmPEenmJgp8hBoEYIJ1OqtGT3
3CGlFe7ojLBBVbeQZJOgDYpk+wHYJAZosklFUWVte98oMElLWRayKAISJrE2+CARgUuM87hj
M+qimmNSEpeCREVNakJH+BDOmUkb1ZWkSU4ZacAZJppktK4HTErG8mviitrCFAlKpsXFPdPw
JhtSxBOBgZKB9FHeFjyWILe1Czf+dOnmesoAo3CybReC4STcLqgK6jztoAT9iEJZGUdbteEx
RLgnPuGEgys5A1McZVzkNMDBQwDHphaFhDK/w7eGWQlBnkLiQ61pL4AGLaMkzGfHzhg7mV3Q
Y8MAaqFGCcff+NSKhZQnJbXpM17xzygV/N8MSUQ9UXzJHwIF0QpFcZCArjBuo3BK8GxHzJ4x
FBdDxZlUEDZIgKomKTSVn/MCU7+cVqApnSiYNUZYVxLZsoN5qupCrzLUMKh0Y06UIlbSmtJb
0uekcQuLTaQEG7dsdFQx0etJDRslBoVAtRYDbM+edNrPGJI+ypqoaBOrpVDcTKBovKJwwiUf
5RgEpZb+RedXe+hZUmhVL+g0ax522BR54rScNpTqdCPz3NdQF4RjwVl3b4fbJrWWHf/LRWX3
9V09vPOy5elutNiZwMx+8w6FScMqfOCXB3qVMWIaheB2obTp7aQnSnznDuW7ze8alXn4vV0D
+Huq6E4CwCoTULWkdD9OXmVKYzMDfXtJU/r+DCH6ndUlikUnHoEErN91HYX8exX7yHE5H3FQ
PVEYmWrO7btFMpI6VqzLqF5DgzvcYFG8Zsc5TkWeXttkNJ98wZVhhbUTSGJ0ARtl2dzWKjvy
Wf16ZTIrO1O2ELgTOmvbsaNR9m5w/a6CY6ylVeALiJv5RpPVkRMglrcjzNTSZ2SL2tj+TCmi
Tj1idBvHAMVamK/fFM4NU+GWnsBCF5W40aPRnElODrhoQT3exXR5qhgXmM4yJklUf+cWj8I0
Dn/OcVEUUjYRp3LBSjWSn8sb6B7uOtakoMVQUxyYZvg5r+f6BLB7cepaf4WUTZ7hqmXoJFQb
xlGoiepDwoMaNjfa2vaFsUef7exMLfsHBDu3RxyBjI58cwlGksWBz+1j+ryCJ6hQ93rUve5k
lRne7k6WvPkdBUHgWwkHf4TCF87whjv84RCPuMQnTvGKW/ziE0gAADs=
}

set pieceImageData(Leipzig,40) {
R0lGODlh4AEoAMIAAH9/f7+/vwAAAD8/P////////////////yH5BAEKAAcALAAAAADgASgA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM8pENC4FgC8vey9mwLIE4YCxlzJp2xO
iMwD1DgdIZ1WgVaQxHYG2tvWA9gKAIvyFq1Qa9mggXzgBQXM3boGzD2MO25naWZwgXAffHR6
HQIDBARgi4wEPY48gAKPgm0Aj5dtmQSbHwGOopIcZlqoG2tuhxmGg2uzb0dmrLGhmnkkUSty
XKJlvRZlmgOVnZTJPGCasBylmiqBtifWfTXFJnwBomGYW80AfFrk5qMed38o2dEid4+8KpEt
at/XHMfghJ6qodRd2NFgjqIf3DSUMaWvBDs89QS4wAcO3oVsADPS0gH+K1GDKyKIhRFIotEj
eyb6NBqQMASYb2BsHNzAb57NmzhJUkgmp8EqBjxnkuEi547FEABRqGzUMk5Gobp6SJ1KlYfO
CR4Z/FyQFcRCJDFrEFIakx3LE3dMnWTZc98uSlWlfoMWa5nQrQd4nAyZScswsRtTAjxr4qEZ
SI0w4Vy8+GqEQD4l1pLs1W9FsXQLZ2KYqCmGtASAfJOnTaHG06qOQph2SitlKQzrgkkm5Gup
TTtm/3IbmIRhv199a3T00q1V1GaaOV6NyzUDw7IbMSFWFHc56Z4nnPmneZmm0HxUfzbJLJmn
Zl/OUUVCtSsG9+ySuN/5dIf06zKffkjqMOP+6LC3EOIGS8thhdxpUFUAXzhcnfNefe/cNthQ
NhWYAWiMuZGdBM940sM8yby2hzCM3ZRWBWYxUMYhahwCoAKzFYNceGqkk5E4Y2Ux3GgMemCj
JmugtIE5cUk1DooODsJiQy8eECMEAsJ1zhs1UillOxeeAUVpIJBX4kMbPnDHXHDpBaKIewQz
Y1sUCEOYFHhJ5ZoR5YSGppP+PGJfGHquQWYgCVLw2xZhaoecXVzqABCQa9z5XomLBeoAREPE
2VCPkDmQSKR8AqmWTfNZYOORLlnyIWPeKNbPcaH0QIZaxPTpXTIWtHoIpq6C8pqZaBpG5jy3
VfgpsJQ+qJ9LVA7+eo6sODbjYXgWSlCOVIiZNO20tfaGqT5qqNjcc1v0qR4kn+o1II89GjOt
TdfaoWW4kKY65DJvfUdJtBGwxO6+wErqk1X/HiQnjGU81wxUr5SoL3glvhKdKuiR0ilGhNpZ
aINv4CRLeod1nFy2ePmRmK5w8AFukt5aO5gcoKqJR7XiiUlinxc/wHIpNkBqZ7oXbAfXwWb+
BYh3kFTIbsxDWDVTiFw5U2k5QJ0BjxuQXjtzYw1ZoGyiHHRG8WH31pycmc64MpTHfqWmtdJR
U5ZVig1+0kCL/fgnrkb34qsV0Sc5+t6wkd5UYytEU0tszXsfdzCVBWcwWxq5Si3ZwHj+Sko1
pGCX2BvINyJyIBfJrdXKonUT+sEyc4mmpycjCnxNcy02aHnG4+yMYN/AZb0T4KJLw7LOouAk
LwZBl1m43+qKotbviMGVZVvl3KGA5NPjPESTc8MrLpmZx1eh7gYi2IGEB5beyZimqcLot/vc
TCiY5CJ9siJuTP/HRuwcRXe4SGz9EhL9gNl4fmUT9CmKdxrrxFsGp4ujFa9xQyvaPIqXCbn1
zHqkEQM1jtGHUkgvAg9hF09ytobQGMU88zDdQA5Us609RRR7CgWbLkK6zonDMKwCnd4WQAsw
iWwVGoJTyD4SrmUdIx+hy0cn+NCPMNWkMfIDFwKFZ4N6qXD+hSJEITJOp8A/eUceFkyevipI
h4A4SYEMC6OmJmaelcAMHJZYGANpeChFfY5KfSmhAVeovtKNTBzVktyywDcBDfWjjGMwh+3E
k45lEIM9ArKPIz9GPL4JLoqVmqKJQMe38Ozhi0U4nMRadJ37vIFrgspEWgJCHiY2EYZPyJjy
TNWJFhFhlrgr1Nc2l0rUGIY4SAgdJDAJo88h7gc5g0vqzLSDi/3yjqpoCQ4h6QxDSK5/gdCl
JUFFTH5YslwlFByWtKbJGbZvgiQyCoiIWT2YjUo9y/pg+E4SvA+R8kMsOR/K6Iiabp5jVFXU
3qC4k6UZeUU5S1xWeGilAWieRkH+eHCE5AIxDA7+0jSYI+Z2tCirUr4BcPXbA5kASLM4/Kpw
BfTXYwSUzAL2gJKxtFYRysGTf8qhEjDhWQV2ScgIKHRlYMvPy1rjOOQcE2NFTCqpdMG4qnlU
pZUiFFuqaE2jeLBYKySgKDEgtWEZJQgx2eZD2Ek+VjGUi6Ay2gTZmZerAe888ovPKl1hpHFw
IT4bcOEVsxVIlspkcanJzHgsaZQQWKNu5qOJJjOqtXHYiCoQMwfiXoKTEznOO7OaiTww11MJ
+OwmyMuA1GpUttGG1rNvbUyYxrHNynr0mO9c6gXSEaJ96tVnZ+VqDgEWEk/oKZShYV0qUpuT
1Y4LeLn+2euITvrHAZLLTkJZmOb22bNEJOK0yfMS856hxlpplSqNEW29PGQ40GKXQ8PJKx7g
hlSNOBKqDxjtVM5LAZraLph8umkqaplDgNiTvvZbDHhzAmAo2bB1dxUI86Y7REFJ1BQv6a5C
lng0o0m4TTbwKIIyXOBnJHdGJISvofgzJD5lLbZ5guAKaxkTZrDVAfgQEB4661mHqqKoodHw
cEIssSmg0hhT6sKCGVzgvMTWnPvo4lqJ5bwSE6LF96qtbJHk3vNo5KhCBMgxF1Kcts2IoMTz
GUktezq/EGlAl3FykHy2EGuI+AcIAstpjqpOcR61CFJMLftq1VJ2FdlmZ1D+TyJKuZBUMMVc
bN5OEUwm3m8ASs56FJJ650yGX9y2j0S9YCVGK08fJbOZv13mmyOTT31O0kMSaqiWzqUnIuF3
HV66SZdvoVUiN7TWJ7mzlXR2HHYyBTE6lo5J2KFqKa+pwXz0pY6gmUJVK1scgM1IaX2tr5iM
KkSOILZoqx1ZiMl5fLEW3o+zhGvG7HmnjNv0i0HR2qrtMMs2Zqc5aNOwAYHbmAFyaLOZ6t6h
kKNI7Xn3oOLi3xHZmLorXCxisBwr4uYNeaJ5AJd1EnEHyxfgkH1TtpxVb0Y3VI5FOtO978jw
g+8C4niGcY4+kvIndMjhyCiUnyAVQ0NLp2rmYIT+wvs2lHLHq8H2WVw0zJi9xWlc5SZfObp9
Xtl3t5VH/5YKZQs7Ooee7eD0EtM7JjXOtnpbWuoJ9mCmHWZhlJalO2NnjXL8jpx5EqPEdXql
mK6zXv3az2xYl4vZbaJZw7jdb70woOlewOaK6q4KZwmZy+7QF1+6n5mOar+NfFP9ev3Kj4k6
xtuDybKQvNBF3cyBJGp4PjtcxbqFeU40taJBg6eE7juHo+d9BssBHniCd0D+6L4nZ/4TeGoS
m8ltnvSuG/t2LOPpRx9ze15jMi0o7rbvA/05fMDd4eNeqepXr3LaUJ5opZjDSfWbXNUUT/W5
130jq5IcxJXVkmatmfKlMc/v4je4zTcINk1vOnYp4Afs9idw0TcY7jeAX5c+WIeAARhfCGMj
igBQawSA9sdWH7ZjWOZ/0ed9vJGA9Wd/DAhjDlhMalMQyDN/dcQRGbgbeSV2rHVMULB5csER
MLh5YlJI0ZB7CfGCMzgVF+h/KlgYLWcHO8iDMjiEcVGD0nKD4pGDRlgVPVhxKgCFuTCFVFiF
VniFWJiFWriFXNiFXviFYJgAADs=
}

set pieceImageData(Leipzig,45) {
R0lGODlhHAItAMIAAH9/fwAAAL+/vz8/P////////////////yH5BAEKAAcALAAAAAAcAi0A
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987/9AGiBAFARJgkEAoBgO
QkMikRGVMhdS4nWUDDyPo6oRHOpendBsgKreHtql7pf8cQKUbvrmPhQM+SB2SmwAhUsMXneH
JAECBANzentwkhxiVXmTWWxZbpQjWZGVGEsEpkOjewAES3cEhYGlqAtDpqyeq38lAbZrLX6F
wZkoalOpGZiYsZu0n2+du8wswMLDJ6Wnvi13MwJEA6ZSYx5/r8W84cW5i6CO3i5RwcYs5y/c
Mt5e6Y3L5/7+1jqogVevBTZzK8ahieFNCYF8ATGUoybMVrVCjnRZgsX+IB8/KgDGhfGScZDB
Ygmbifol5aGWNP9iOkPGcYFHkQcwmuijZMC7FpDcQVqha4BGF0rcFfGGc9IqW1CjSs0WUQKk
O6KOKrhqtEQto+C0rVASiughslVLkD3XVIOdi3Dh4uGwNiu7rVa8Fgk5L+FAs5B4oZ1WBCqk
VyvdHrQY96nFu6R6NdD6RjKJWuXEqvDYF0WUtS/9qnvkJZbjqagfp4Xwt1me1iLimdOc4o+h
tpcFZ4SGouHUw5AVyxwe3AI6Vg2kJLecgWJI1+CMinWOW5M4s+pCn+CsJnpxiYmExbw4dwPs
Z5rPW6CukqlJBexjH/8uwrcjxKS1c9G3z9b+VdoagKZFY1VIkZgFXL3WGVcHWgVQTgNG0YQ/
DSIzUxz+ZENfB9wZVYVPnW0gIHHddbCWgprVFeCDf1jhS4FlgeCNY7Nsxx9U93VBEglJ9cKK
YUyB0GNqUzV0QTAiRYGTch3pB0x1B4wYipQ6UihjQTZSeJ8TUK7YyT6NJCXkP/JYaQGSnCzZ
GUQd6RQBaB4aSOWJihg4ZlSlmZDPfamJId9pvBz3kIdXNuJcXI4UceYS7ymg3xs1TjhdKx85
IKCHMIJjCpzBXPqBlBVyOJymXXR55GisZDFjoSERaYsfilZQYHKQMdnMpNc9cKJUdQllBa92
dmCHFeXx2Iirpnj+FCqC6MhzSyGnDMWqIRFaQa2pWDzV1QJkLZdenk08VRMn30ilI43f8Jks
aKtBACNvxhJ3X08hjPhUG+B64MdUwfyGraPwRtmZrQBHUuAwYjD21J5QFfYKtBpuKAFnZcZa
n6FoEaksCNi0koshyUbqgaBMvXoscxUYFU6SFtfCDpu0iDtMKKkN6dJpeErTnEz/rlcumKjS
+8GXUmECoHlq5KcPSheAxnKlysCn38EPGLhpG+bg6YiA9xIsURKa+udTu8aBUwWyHpH9QMnP
AtrL0ciEHQ6eeJL9R6MQ1uTyFtK9dlvV4hCp8ik4RzXrHlWG4gcjRDwWk6aU7fxr0Qb+wg1e
0phfGMHht24RtcC15kqrLBQKyoqUpId4Adsm95zysU8iO1uliikcaL/piGD6yS7h2ZwikTCl
zd5YBMltIm1x5mpDiiCrs+RsxesxcdrSbqGBGBF+ouWkJF1Xqs9T4IfQUs/zuegCG5X8rzKF
/W7SVXDgG7CuO6huzcDma6FUgfLP/akVC6Ah1IaIfN1uQreY0E/wwr0sOM9qrgqfz2JSvzeR
aAlquI/+Loc18FUuNhZRWAhPwYFvFHARUYvf8RqoBQ8qZTgvbJwKV5SaDYqIdxoznUsspgEc
/kiHEruAoW7UE/8M0RImdFQhvuCKbVHKJo9ygAMNcyOlOYb+YQ3zWtPaV68LBippNxMIqs5B
wAi0YoewC5whkAiuYEVNGjAzYwsnNzuAOI4XMwTP/XAUxInZzFXQ8gkVbWgcnPWPj2V8QC1+
1DC6saKCB/DGI66gPn6ojBtMuUcSHjmBtfDxKnd0DCQckkVCTuB96tAX6uyYiMnhrXsdJCNM
vtiSzFlvgotYixFUtLFIok9Xc5zjKhLVnYeQZnb5WZau5DYVU4rPYbJTGQ5vQhdmHvIxkHSA
JBnpo0ZyUkR8MUITn0C6KIWFCZIUmSJb8pgdmo19MuRd2m44KlF5kVKwYqfxvES06BWKlo2z
ZTZ1CSETDuREvtSiA4zGC2KGrA3+Gmxoqj5HisIZ7n8QwKLs3APEKC4qZ7vDqHEEMD/ShC0p
C6xdJhuKwWFiMFG3SSAFJheFlb2zcUnATAtnV0ISye+ejTsMu8KhzHV2h1rqEYgrboLGranz
VOI4GL6sFTA5TjFV4+POLfLxNglWYDH8EqmlfIijqOTjj1dTXSGX18dFCTAZkSNFDNNaJk0F
bp8S+Ey0pPmKfOKxX1jpWlul6FN6/iMsqtpXh7IhRuqFgV+tOoVFRgZUf2ALRj+yDUBvlxkP
DjY5FoXKU5/p0qLJ7UN7nF02XSE4sX6Vj3xiXUp76KFVUmiJYlXjEh9WMd6uIkwxbOxwNnCT
9/n1IO/+S9YtF0Ucxjnwe0zrKUAuEhMhqqqSIMMcrLKaVAQxk39FnQxL99iTTEEzlALZkjCU
kk1FWtORvUikpCIESKQO9qxzE8woMbFf9+yjvbYN1vWImR2akbSOjQuHfNHzjTr9khzF8Kxn
PyveAaXWXEglG8U22UoY3S1QiWtvH1KzqtqxVrQea5XHUNNL60xPwGXYHR99Jyyyyo4qGICI
0hpM3WKSpb0FlUkia4q69bbNjoipsUWNtB/vWS26k7hxDdVGsaP2uBOqGpoOlRveBsi2dQ04
TAQVKsQlu9atGU5zXOUq5WZqgGKhxXCBgAywx/10qjwE3XgYq1QHx2knFlH+L40mO7ILb/TM
CR3QjYGR5Q9oVLnLLZtylSKKbY5ZrYUkY6TTW9IiXo2kiAZtmy+KNEOjDdM55plwjwXjRO/Z
JZSVy6ZLCC2mMnWNI6ORfdsAMYT00MaLRnWOy4tbn+irw6TBCeuIVNUjgUWQYAPEfubmzW7O
mgKDw+3jIHaPDJDyYQH2UC+67MdzGNuepfixl0nkGAo3Q4SEQ0ItHShQD/SksqO8IWPC3Wtn
pjow3xDTsbUgcCiaupTuDhdDSULuU6JDxt68tsOLjODKJbIhFEdlYOgMRcs6eil55s6rZSqc
3YREDrkJKL1XLvG87hmVHn0mwIsBFgoV/FNb9nf+BaqkbGA3My9Iw5QwusUIUJ+UiEeEsBda
aOmVzWYw9Nw1ujrxmRGssuHaJGiTLhi2hEOqT6GWAKMGRRKyC1I6dfgG03e3m6V7nSyXii3X
kjim1DJZRmM9OEgTvknBLdjL9rqygdq701q3UEn4yU9Ph2kvtuxQBOGuz1jvGV/iYhAgXs/6
lpEEXsJjw/Cpi1Zae7qlUDCeZo+vO4l1fkO9733IYMXRtnAee0Cm64Y1b1+6yOdtMlUDdV2s
pwkCnCEFu5hMwa/s7VeUe5h/BuW43/Xj8qn6HGLdKt+NJtCFE54MpyH7Ny5WBoQsE3QvQe8O
5jjxWz2myjKGjciPhdD+D04R8cMSe3EZkfkrS2e0spj13jVqd8Q9wpBRDIIbBXgmxEYgjVFe
SHNGyIJUlMUnDGgyYccA6xcjyQdUj3FKwWCAg+cuH6iAtXdjdvCAgwNIa0FZWkB/nEMXPmcu
mYcI4Bd+ZCYHxdYUKpMEmldbOzIByvcPb1ZFUnZzqVY9KVYNP9MH9lZZf4cFQfh5R5M4y4eB
7EeFPyh21iJ9ZFQxiIZfvHUpuKNullcY1MBrrUJNP1WDqGGEAcKGi/ZKAlM4C4EXYkMIlHNu
rLFlAihs6xRnRLJmFOAEiEF/KmN/qaZ8/ReFhfFUthUJeIBBBjN9WsiIXuVyLEUixCRfsrH+
fje1YN/WZjM4YgJoWgu1dLiVhnCSESS1ig8RWE7gTAlWilk0hCUIdi23NlpwiyimJCYShH8H
c/h2ihnIamg0KrLIh6M2WhOjcheEVXfGhdOVZxVVinJYZrRYNNYAd8UWMgvzY4QzL+EBdzOl
jKIYasqCO4ajbbmYUUSDi9R4f5XFgpYYc9zoYBDVE8dlenWyLBHCgAx4jRMgchcEZASpiaIi
dADZKe0oXgq5kPk3DA0hEjgoHk+AB0OXhZGEiLQCkQzoh5tzT094K/jHkM0GPYoIf/VYHBPZ
EahzkVrikhKzkmQmKyIpH170hMLoWMdniQhzIOMDLwWiPhAwe3tKSJOBwIUjuBNKOS5KB4wq
WY8/mVH46DmmhxtGCThIWQdNOZIi+D5LeQxiOZZkWZZmeZZomZZquZZs2ZZu+ZZwGZdyOZd0
WZcYkAAAOw==
}

set pieceImageData(Leipzig,50) {
R0lGODlhWAIyAMIAAH9/fz8/PwAAAL+/v////////////////yH5BAEKAAcALAAAAABYAjIA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHDYAxgBRNbAuFgi
SUfjgOGMTpvRJ8p5TaaiXpUTqxVlu4fqEa0um7hhVEBAFwTib7s9Xb+P6nRlAICBDIOAKQMC
AHNoeCFzfY8kinR3lXt/gIKEi4aEiYCOkx2NBASKfqQfg6cCB4wEgySLrpwAp4Ocua8otbJu
qxuRgKrCHId0sIiadZyEz3Up0Mcev7w0wTKKjK+xc7S4BHZRc+KDAeUC2L7nxi+dyjHxvTLa
MZjezCKE6UfEfdTtM9FvBj0Z12TVm3cPRqQndUZZE0fvHD12JwIEQJX+ziC5bgtdHDTY8MVD
BRFp0VvJMgXAktMAgmN46tTMFl0OSXwxYI5GPvL+nMsi5VSbIxg7wGkQ6V0aKSrsbBx3E148
nk3o7HTR0xLQkCBYir36YSmDpg7MnrBTqasMc7xgQtljpNAMn7wEDOAWrqbfv4ABz/LATVeD
tocXDdoaFkDPAEvAsgBotwW6ZZVjUKb2xx/Rz6C7ld2UWG9prdPs2AwKoxMMdI2SyaWk1W8q
VKb5iQusZkDgpBt+MWpwyI1wp0LHrRs8D9SLQ5tnj8i3iUAkxhkS/t5ekzmHgp88MQC/lo4r
1vD8VWXRSuN5ZzhrA3b/k9/Y++g1HCee+cD+/g5nNCCVERqF1IYvzrmQTDEnKcGSbz51FhqB
noG2nn7F8CfeAuRtEOB4emlUyWFZnKBLXFyptpctC2I3ml557SZibiBshl8nyGGgUV1uFEec
PxtmsCBpKMGIWz1DwjcXZw7Gg0tXNJ5AXTx7oQbJjWLleMFLGvZIpAZJViaVJTeFGeSVfmWy
Qlt/OZYXWwj6lgtSNYUoXQWWGMGdYCBdmZ+PAva3pVhIHGSmJCNspiVt9EBmlE8ufgfNm3oZ
Zh+WI31AjAOAgnjmoCwVetWhXonAjV+LrSnfdlBGaUZCUdi2iGQcsLknYIiBqqYChzjQYFZn
EsOYjTjmCRKxHRL+Rk+kymYpp04mJGkRIMpNt8kauEYhio6ILtArU/1V4oawErwkpyxNOXNs
IOdG1m2zRsmZXwmr7knMosGtgyqdNUFGa62BYAntBYr4pkiXAtaFcFYG/0tZOjW5a4lf9+6G
brIbTDlQefeJ0xW+GE6q0CYXKnvurRG7OgF1C3MoTXhlsAzBvb9BOdVqbPGWoaYsgQygkU7Y
+y4rvzihHp1d3VmBLr6BNC3EkSm9TJ0xl8qhwp7yR/UD1J2MaiBfGzlfgqX0/MW1yN4c4avX
ymm0M596oGcVMc4pTkcYDFn1rv697HJIenNNrVGMpCOnKSlPRaGbR87LbSBZDG2qarL+3Xrv
q935s9cR+o7DRKIWW3dyT236/IlRYOmRsHepGKjvwQ8sGPpfp3YndmBclp2llHWkKdbhfP88
uGBwSz3BZiODjaOQZBcZ0kCYnOZ45dbhGBlg62g8FTHGNwFh53VutJcJpgwvtNUezJG5FFV0
bqlubQrW5r8R+GTl1XijhDWv6aSuR44AuRXp+uU1XH1JAysilviY9TgZ3Qd4pjseIX6TDHOo
BBqyU07zKgAQRyjJeQtJhgN25quIVK9Rt2tdRZLXvU8UMFV5mAoXUIYzlWEoYgTKoZ5QBLq/
3K4VFIugIbrxDs6NZ3/+OQK4DBeBYqAMcqq51QaZtxIGYiD+HwS6EfCsCIFOFAUVWTxgjTqR
vFosD0xE1NBCBvJBBfjEMU3snQZX4qgarqSMyrrZXxpRgtugbIA+RJ+k+LTDr7WwiZ5RV10+
IhqloK8VudGFpSBZhutMoDqWw+SepkiwsXCRAhoLVT/qRD8LrLCMASnBbhg3QzB2p1nGSMYV
ZMerNlpSAtTKx/ZwpCg74rED9ZKVECmADhoqJDCyIRohZ+edECwGUmBkF0fYEjdQqaI9fgCi
eNyzIRFOgHoRQxylLIaXQAoKA/cZ5jcxtREv8lB4IjOTKg03TYiNzFF7yd8wrFbBWiqJe97y
WwRkuSCKjUWP1EomMm5HvEMu0Zj+wECF1zYGJvDZbXaOA+aTLGrPOjVNnS5UU6VMo00kcAN2
fODLOsFm0FUV1HYsJeU5LUAqMepOYMpp0XmI5k5UCjQEfZijXqhzQpAG1GrbomU+gFXN8Jhx
YouRwrIgc6qEtjE7evxNRglWTmNCrKNvcmjtusMvUtKLIm0Knb6aqZ8qXcGMSCjp1AZTMLZ2
UY7hs86J8mGTHXnOnKW85I1A0CqBnciJChGrkyhF0Q9QC4MTbCw6U9K3QtByQQpYKp6Up5jE
wlSTcOnfOjal0VvZ9YoTg+g43Eo7yWUndIWDbVM5ALXbuSdlH9WU+ExTi1nItbevKJh1TEeM
lAFXfXP+xA1y9WDc4E0WPy/ClHlaMaTwObanYXLoA5pyQq3osqg8SwkoaAkKXVoAeXlBl1BH
65uYntFD2kHmbCnQVa9CBrmAVaZtvtgvGyrLaWFMJDn8ewEgcuMXerAIcnVhpPkydVr6Wg4u
ElqX93z2k0fFj0ORtYlOtPd7mDxtgTGFYQksARV2cxvSZFHiDAesGMXqsE0hMCWJVuKYZHyq
RNfb4hPt6X0VlSFvQvexYNZQu/E1oFFNvIiPsstdUIPhRHCmnkDsyFjcVcjjXqeXCEeUwrGA
pEyXjBkNwxNZE64O8EaJGyTfiMw03kis0GVPK0AmLNIVy5an286Rrtdzh9D+K3XIPNbtSFkD
yMXvvnCoSeIJEkxZxR2BSxG6Oj6qdDUSLY6IQqzCoZalo51w0JwBDD1JQXGUBZgWdSfni1Q3
FwUioyvgXNNtlQB5GXzvTTE4oUZ92hmKSCwknThSUQ+pxSiJ9NiskT2GNu5B8v1pcJr2mTav
Bbby+xoIZMc4AS5yphHAhN36F2te+qsnG70fMAe7bqrS0Z1ui4ft8Aw5bV31UteqDlnkZqwC
/lihnaSW4Qbc6dj0OdVl83fimK1XSVsBXfx1tLrha6xvOxcSaj0ZEDNHWGerViGfrESr+2Eh
D58Q2QvgMAnzdd+VPFySh3rWpJeWZOXKgYy5xhj+Aj2u2oLtvA8PKznJbD0aZZMS2Ype0Woc
IVwp3ls/s0NdKASsmEV6pmTBibpqRbwyDELU4jMPuCfT58UOSi9UW3NslRkZWKV4jHHYcmUu
4Pfx+alaXV8/trUsHc6wr9Njv+AjU4yOvadjFSTq8jt8P/ak4jjZX9rVX93tTtucTb6ejHoQ
T4MqyxJ2LO3MZuS3UT5QqkazzuYwGLqBCr4qKCruqykb3z/+sT7maXO35Jljoij4s1iUOyv3
UKzdBB199iXYQfRhbrcNvn80qqwOrh+swrjpQioEzmnR/BgnholRqFyTFx/xfikW+buqhhBV
Evij4Qv2G/GobBZzfjz+PPM17Hte1+HNXu9TzvPAcHJLjgEpH1Ml7eAKaeVDwLFQ7Qd0Lgdk
zAMkFXEoWVR+4DJ/iVIbucd/7jdvZOco3AUlCGIekPVY0kZxPfN9h4QOC9gx3UCB/Nd4xBd9
54V+JaRwWiVZF6AHLtd2w7BRe5RVMDIczEdy0FRPiGd4M+hyYeNrtxYqFxhr3ocpq8SDcdQu
7bJVZKcaHURUaDGEToQObhNaXpSFSuhTOpdHv7F/ZVE4UWiDN1iCnQRW+yWDzANgiMc5A1Z+
0BE1sxaGa9Vkv0JxDRNPJlc9LphZY2cqbHh/G5iAqAVGnwEhh+gtT0I48bdD1OZMlsCHVOH+
h3EBJQ7leHqzhE8GbhkTRTdIel03e0+Eg0ujdXvUR280IZ8BKbqHOruVJyaEOGuzUF+FJVTl
gNH1O6qSZzfDdcSUTvZHBZBCi5wGJ2QHeOk2YLWxGKtBZtY4TSOIfqjjgsXEHUkzdZP3fxzU
WUMWfvvUf3sics0yK1KYgRXlJL02hmxjZluQZ3iFjBKUTiTwffhBaHDzjhNHRZrmfoHYgTTU
i7RBeJmEhEvDYcYXFgyZkFQ4M8+XBQq0feaIMsdygezEO/hoHu8kfD0ziR8xeVmUf+pSQE6A
f+lYfQLhkr4IUWrYcbD4RzNGBVYwUIrRVL2RNyrojLRoDil4ezT+tAQHCV96JBAVYlAUWGvL
YnshKZKJtTI7CQG0RGNXSVM+dnnCdmZuaBsAtXk1J3F0yGS/53SqiIhhiTJjGTuJd06xoFdw
CTlJaX5TuW8Y0pY1g4Wb9SgVh5GbuFMdF5Jr+RVTaRENYSbakJVqxCSCVW/UR0eRA4ebBTTy
V3Hx5pcUEFSQeIQP111XwpettYyF5pXhmH3OBoZUADRRkjT+52CSKZS0yJl16ZUWJDx91ZaP
cR6R5490NDl5aULCiJjzxwZSUSBsoHJyMZyZQkW4AJWk1ikmqI0H1V6mWAF+9HE1uXMT2XOf
wldzdkLHsmNNAR1kpSdEd1deWXiq9p3+FDSQn+YvEBUi8vlrhlmYzkkm4WmQUAViBUmMuJSW
l2ebqplmWOIuyCZuwDkxCLdPpGlAv6mOdacyJ1ZupPaZbsImvcFYzAVHA9qegXRT1scd3zah
GWpaObln+Iii+7memYULDZpuTYMlLCZYIuo7stegDIii0iljkUeVFVqRXQSfquUwmeF481Mg
REad0PGXOUqYtWIjFUKla1lYZWU3xaCK+0lvL2qZgWgm5GYOnRYePvOlrghKPLqlprKmfcCl
zkmWaFqFdXlGnTYKI9KZaGqg4XaEJXmYWACcTIRvUymnX0qnnMKEd6qalzmnayioIEoJfkqZ
V0qbzriGlppVqYvJGG3ABh8yUK+oqUIpqaHBExMiJaIKGpiaqpeKlZz6qU+xlVgZqqxaqtNx
qlyBq9Wwq7zaq776q8AarMI6rMRarMZ6rMiarMq6rMzarM76rAuQAAA7
}

set pieceImageData(Leipzig,55) {
R0lGODlhlAI3AMIAAL+/v39/fwAAAD8/P////////////////yH5BAEKAAcALAAAAACUAjcA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBp7gADgyOwE
nlAHdCqdBl7LpiyZ1Xor1msjLGaEsV8XQMAWDLpp1KC9XLMHp3bbod83+gItc2xwcSZ2d4WG
JIMCdW14JoB8k399gnSLJ3ZQhJqSbwNXAQJPgZKlAXN8ok+rf61sLKQABGuKnx6Ieri5HXqj
enmXlsQMlSqkvL4ic7UEtm7MIo4Eqgel0KWo0KR8AdDWp8fgBLIrT+HbNmRPNo16kdMf8djA
qMLF+cfGKcptZWi0CyiDTTht42oo6TFA1DZSqhKOMCguTLZuqaZcPJf+bIA6ggUBcZwhcqTA
XjUaBfNTApBFl1aQ+esDMkZJiTYFHDSHMyTKGf8WZOImTmS5oi4RsljjytGNO+EG2biJw9OO
oAqGtrzJtevSPj9buFH5igZFdT2XdrmzA8AciAcaoaCYhMwzW+2emezg1o2if4r6LmThJtuc
siRLzgCwVpqOvmyuyB3WtbJMXYf/al0gOCw1R2/tsHMTdV0MUngg+sWB+tkgbfJInN1Juzbt
vRuYRlTEknMqxClKrWmYJK2Lf/dkoD7w7w3rrrEnZhxIPaZxDLucFnOQXSyhaLhhwHOsvOFh
nqsXnz84PFpNejpty5cfPoOqj5Rw3tf2Xjb+OIji3DBedC8oM156WxwYGQGD9PdLfPNFeFB9
GCBnmlB7WejgZ9lgVUNkplyXjE7OIGUVFgvS1h5wIUSmoGXAUHhBOvzlVwV+INRVUykNQeRN
FYOpIJJAJQEWQ3Z9vMGgjBtQVF11aIWgoY1j0BSCjg8kooRUQHoGAmlKbWFQEhhBhuAKdjyj
o5qkXdgijHCKaAEp0NxCpRnxMaVLSc5l9R0inL3oJQdDilkSRmeqgKRItUS2VZyWSQnWnQtM
yRefa71BR1lmTnoCgBhteMh37MWHHIHDeBTqRdEUV8IurTxxl4pTwDMoBY0QiIgiuXrwIiR+
DtmpSKiCYKGjMCz+Skc4BnrXB1p0KPMqpJXdOkGvDezqALYc/MqWPcJ6S55sEIapRorz2arC
ehiZc1SrbuZIqoS1palBRCApky9A256oQHF9SiAuHTcpC0ixHlCFInRqDmKtBgpCCxWyIxg8
UMH3viUFxZXy24DD2baGa5IaEVzSLrUmWcJbOy3nAlT0woqCHS3rxCo0DomqQZrWPDkFeA/H
lcq4wW7sLqVZxfKTginTVBrJTR3MyE0I41OZqkVVvadIEoMYr7zC0cueMkHDQ2BvCvwDEtrg
+tsvJPWazWw8sz797ZUgWhf0BuzGzC0JoM7t7k5uXWPCsZDq/E2dOG3GnM0EeZg2hIb+P4Dk
u3aXi97Nc3sKNsYsDAxWnYd9eihCYBEtAo1it6y4Pns5rnaVJlmI8C517zQI1ohirvsyn3O1
N3ZgQsG7fH9/1rlBz+LMIjW888x4NaURepR+HD9+NAMNVjl3BOPlHo4dx/etosrBg54CIrEi
Hk9pWjdJE+vGA8Sk9Z2UkyvO08kJwWWPc9PsuJe9Y4EPbogCCOMwR4sEoqseHxhOZsZ3GGcI
qRrAEFvyvoQ11h2ETt34UQlA+EEG+u5rFCge9kSogDlsTyga+4NrEDa6CLlwQserjYXk1RCq
WTA46Noc1eD3qDbIpznPM5ZRNIS41/FjHx0ziUqKsTYIZmn+WUti1OA+qBP3qQo5xmqh5mCT
tpl4ZBety6LqEnYUVUChZxGhoP/uNUYP9uw2TvQN8Dr2QnvwBE96YoDMIGAhsVEvGoZMjhPE
yKcyogAwmeMK1konHT0cMUamg8n8jJIbz02OY/0YoB7vtjEjqpFYnHNfBlEmKd9VRFGkemMa
cbc6VtXFhW6QpblIcAvdle94dspNiM6mitgwLyG5xEmDHIQcV9bmMPhKpMc+oMrsTQsSUYPR
JLWjxPm1MZtswxsgAJAdcjKKA3UhZbCMCUUoMtIdEUAO6rpyF4M1T5GXyiFahkcB6flNh+68
lO/oxLldTq1psdqdRuJHgWaRgxb+QvnPOHQjke5NoJli01BG8YlOy/BzAva8ybHKIRpxcm2e
AGzG+JRQJyioiaU462Z09miMXXzMmqUc0+iGFRliTc+UHJWf+Ka3iXnRi4S/w2mTBgo52rgM
FAZSQohSkYQGJTEDwIKhOeTRoXG4EDGSiwDKzqek5c3GFsRx6h4fFKlRUQscWnzlm04qRCu2
hJwtbQWz3KimNcyVnXczBjzwdD80YrRrXOEiUB0HsYLWjKEVMupRSUq4gBIqhwRlah7nZCrN
9XJC5UAhBpxBHjqJsKsRfeEt1njFIILnrM376RgH+wHRqbObb+WJ3AzKVkAgdpqAU2CSTtlF
4HYrqwH+5IgxFMk+C1gSjXd0o0hFwSBwGNayWB1jbe53AYelkT/iuI1xj6vWLR4khiM01Qmd
GtrNcscRgaSTngAElwau4xbBHBnM5qYpWaE0hLS44YSQ29u2NoNadFgRL0IVghf9VqnUBMix
6jpV92YrOc1MrqMyfABaVkAl6FHVvJrYOf4ZpDkRdmbNLNwvfdIrG2BSLHcvesh2FXTG9uls
ZfFYIw62qsOGCUQD9UQauPTyqu81ZTdu2Ih5WleBEJnVWjdQTU42GMFGBNBweUvl09U1nJKK
THY8Mh6ksPiJnujOlKzUHQuwj2xosW6jfMtSZdgCPMj56OOGWtkzL8B8rXP+YeDGN2Xr1cy1
T50WOFgGv/MWeY4N7aw5n9wXdWiqFrRgSo+di0X0SLRwm/uPKTCtZDBGOE5+ZuTVjLLV15aa
mwlbohdnxiNSL2ushYM0jXlRzgGVMztOpGsWw3uwwaFrUUpsnWhndNbW+SjGOwkq37Rrmx+e
wLbEEoGm1ai//e4ugV+EdaQfyLI1RBfKcHWegKd4ajiluspwKzaNDkTSZXeXWnoW2HfPq20s
ezSyYLmPnU3rNBjDuDhWirDYAhnrZzjTjp1y8SnxpuJSQfaypTqkP5c0Eaxh0zIROQsLOX0W
R4CwixJdUHG1URfZhtndX4LEr+ZsSUcnhcs7g9T+xZfaFFXtL8SmqKS/FYYBl+D3xMUFhpZX
bkAlVnxufm7PkqrdQbNxwTZ5brDEHZ3veNbRhHisJZ+q86ud/0uBd4yPyVMO4/DSibpq7Dq8
E34pqKjSRHTpBF0hCgJsizu4mlS6lXEbD12yN+ToI96zqIt0vMMVYAzyyDjxtvXS6BlAJTqf
S8aJdWnnHNPGm0KjzJ5j9rou7C/X63fTOd4K7KpVPbLMW0Rh7td2HchxujxUQkqTGisL6iZt
X/1uC/hNCt4lYlf9vntm0Qz8urgOkSTLTO5J+PCZqCk2h/g4QQVsKL/zrZ+2hIfP2orVOPK+
rOztsfH0NCIZpEZcFHX+DvQGbQndwE4Qc1es4Cdw+hZHfedYjEN6zsco5fRl6yeAyzdyincH
IzUQ9FZ9EQRtz/R3OQdMXNcvyoZdSyUf+ZUCbzF8CeWAnUCAEaCA+8aADeiA16dDiOc26SM8
MTgWEoht16NrE9A/efOBcrBXL+VfeHEXJvg/led+OHhhhdeC7BU+JjBBKkJJMSeEqtIXgYGC
0caBBRgTWkgY0dc+4xdyETE1y2cb5WcBDTKGh5ZqDyA6Qwg7FFFovJdB/NNvlaGGOXhneKFL
olcnfjUCArZSKSN8uVOGH+ZaY6gvciBmK0V8HeVz1WAvF1aEAwZmdAQMCBd+IwBCSCUOdbP+
EXaoPa7jM6j3IAPlM0x1hGYIHea3YI1Qhaj2PZLCZ4WDDsKVQWUmSk5XVQhGewxHKAVliqcI
giK1MgsGiYJEgRJCd77yZG1EGn04E0t2G7QBd/YWWf/hd9jkHhH2RWVHNd32iW8zeAe2IPZ3
jIkDfAFYZwqki7Socs8SeNXIbEOHfB6AGku2i99Ia60ATWSTXi4Cg1KXRsr4Cy+YJDyYXtFY
KjzWR+3We4mAVvYjjp1Uhy31b0Ulg4CnBIwVhzcnV/BRVm5EOjBYfHD1PuOEiw0JDLtTC5AR
ffRYdxQ5dxYINtuHY26mLpG4fAPZZXnzEvF4KbXAaBBZVuLgEXz+F3xYlEp5AgmYKI8m52ty
ND/Nd01e8So4aY65BYD593RuBEuqYGt+AZHk6BDrxz5JyUBLeQdNyVlq2ZEOxJQQVlsKmGiA
UxMB+V07CTFEeUkjMnSfqC+MgxZKAhnq4BpxyVlltSiioCDbBI4EdDWPZJf+9i4/KTBvoEqx
MCJoWJnjVm+CyZKvwXIm9m4pcjlmVZqHmRuA9jsBswKrKU2pmULtFw2PxILfFTVq2Br8s5je
uB6cgFsFqU1geAjY1prr4pegFXNwUps9CSN6x5leV1b8KFIRMYWxSWPSWSSYApGOST70AjKu
aYURkngdsEwuCIXkspfLBxlz5W89ZJP+EKAsLuWCTUSVuRc680iZbahqkGk1ReKTRBdrQ/ee
qJhk88hudKiEhDaTB6ag87FDOVJlQbIVaCheL+dN7VAk45hLKUhgJoVvx3mgA3YlErp+luCg
EVJSKZlLshicdvgi1dFI5DKbiiWMKOqB/RBP/CcBufR+OgJPFaIvwBijqdBudiQhl2iHcNZS
U6V0MIVnRYRgwjiPs3E/Z8CjWNhhOxqkzbaZRVqPcuhsnleJD7lw8ACOr2lDhHhcN/qgWHiJ
BPoetad9hBQPkHArVFqVDyKJ6bKmnFZv2BQGtoIR+3lTA3ptefpA13GJeYl7jPVJB4OnX0h+
Yweg8BFjP1r+ePNpYoUaLNTzo7nyMz/VqZPDpxVookLTpikqLRDghIoFEg0RFbpiiH0BWT05
pES6NTQ6HyNZgNkwHApKhUVxezJJT8SYqKRSHwMDq4WBnmenihWArIoBk29JkeUIk2cUJ0rS
ip+hqoRGqmLkrcmYFj/nQahRMiyJZ/XDO/5FWzlIbRX6R3VnqtXWq4pnlPRaXVl0e4kKrkIj
rV5DrsKpd42irv7HFdE6HbhKHfCJlXjnnPv6OSUJKUjRdXe5fNY2gfm6ga2KL+NBUru1HlZ3
jx/nCp7RpfEqr+UJEG0Kpxv6hy9mV1uTp7fHkUPXsdhYDQDCU/v3lSkErxXasI/+ybNX41AB
SINvtTu1tKud96Lnl7KWhqW5tK5D9XNPOLXZdAEoG69CS1iBOp8/WpDgqFESYikXmp8bCrAe
WgztU3ZqZJTeSH5aq7ZZCgZ5OrZ3Kx0LSwZdawl7a4qi1Y9IqLDNskwl83e/mbB/m6tni2rM
CRPP2agFRqUcQrcQJrhY2Uji4oqKY7mUmGNY5phRhGCOCbCVa7n9cZRSwDSjW3hi9ZOe27fc
0aTU2QKs17NzIa2nS7epy6DBaRqIIwqv27mxy0u0+5+2e7xLFJmLe6XG0rw+Y7GyQkgTClJz
Ar3VMQtAmgNRcBzY233P+70DIb3VWynlK1bXK75koL0poluP2zsP8Bu/8ju/9Fu/9nu/+Ju/
+ru//Nu//vu/ABzAAjzABJwCCQAAOw==
}

set pieceImageData(Leipzig,60) {
R0lGODlh0AI8AMIAAL+/vz8/PwAAAP///39/f////////////yH5BAEKAAcALAAAAADQAjwA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodBoEBASCAID6ImS3CkKAAEZhz1gHGq1eC2JeAYHrsmK19JYXHx6XT25vDYGCDIFwWHN5
KldrAYspV2ICW1eNfyWHg5qGbjCSe5AojWiPoiaklAepmCScC4Rta5+lpyUAXwMDdq22HnK6
cgfAA8JmArrFhbDIyWmbzssrXsm4vb4buIHX2Bprc98prwqxm7MucWjc3RdXAMm7WTwA6zhZ
8eAEwYqAzcpt8J51itbFXzF+9ghJq5Gq1g56QsKFO3aukydzbNC5QXj+Q+FCGljgBftYw0s9
G9rkHUin6lg0QgEVEtRYrWUOjzpw7jBZ5Ywplic7eBxKlOQJlliCutCZUOS/nSqBnFGUUimH
kCNhvgw0c6mcUDvOvIsnsKNCHmClJlJQVUXRt+NWOOKR1OdTHO7g4TJVAwC/qT/saJFjJYA7
twadKl4ssiwIO18cQObLYHKMO8j2OmZIiPIMv8yM9YCciLTVDXBTnyExuZVlyY08s0i6d0Aj
HdrG5r4RClccjjji6G6k67BLxsiRb/41Js6D3w+yEBAjG7HtO3dvpFxz+qi87cB5F+2OIdH0
8+jTq18/fbnQigygy7oDQ2zx1Toaii5pOAv+snR8oGTJWMlYEk91ImCV3IKNGaUBNbpY44B8
8fkjoVdkjbSDfuEhgpkj5JlAmhvvxCZOYgwu6N4GSNm0AIUvkvjCVFk5iEhs+9FAjSQ1RkaD
NgEsVhtP/Zynn2rnrfigQTmutFYDEO5zSwR1GTaYUSF60GKHMLR4R2xZhrBdIEFe56IrKLKn
JoFdgbDlhE9WONEI3GBHRkoRhHmVhUq2oM0uZSqTSoAvAJkMejUF2ed7qsE1gkm6eBEdfhWO
RaQHI/r0h11mLjOJG4RSBN9nCgXZmgxjKvQOpZk06qgILU66WYt6snUkoSFdok18t9ZKwZ/R
+NqBNvo0ps+IXB7+E6gyCuJzKWuEqLkeIcIuYIklsn50bVQdeMkdOea190yqG6lA7pkwnHtG
NY0k248j0zU0gHAnqOuqOiQMmu0D+n7gLb7D+DfVuES5+wGPh3KbLnZO0VOTpi4YGJA+iV1R
DIKPMZziYpdwcN5zYu0rGWAN+EWGBUeSGXAsKYMaSWc/EqVFwj6ycGSxSCmqMJ33epTlx3Am
JXLJJFc2nVItz4VT0g6J2OxI1WJgaIqpGJwxJcYW49QYV6QgHHLTIUcsB6wEHV4WXZvtQNkT
MO3IVEl++BbGmPqMKlwz39ek04HgvJFzKLCEaHLooWE1vwDLeTarMTbJtgQNFQsPgD7+xS3w
GCJlSvd7ktMsg8Qbs7Q5CAhPrHXmcth4sHmNijs6BJBeF/RHX9EeJyxlXgh732x+SiPNlU9+
swlEfY7kw697kLLfbmSHCtYbN7yzBbFCyTi4yxUdWsgRiM6mSILrpQ5jYx7eTiKg0lfQshtv
l/ye1SRJ8eC2+cZIuIJb/pXr3fojqfVCq0ztMJEOAjIpWaAiHymcoikhxWV1Q3lfCP7lkUAJ
BjF9i1TfJMGI703uPArs36icFMAFbMeAJQxDuag0vgjRb2rwGNChQPiw6ylvbjPCGktS5L7A
3UODNFrDoTgYCfZdh4FGNEz/EiYrjnihPRwhxcgm1j1HLIj+OA3qnGJSZT4KuE19LWggEIdC
oI6ZoEXKqdzeRnCkEpWCLF+aHvUuYg4nGq4BUiTanGZHjEzlwjdOgZAfAyU4WMmhdAkbgxxL
YCDwtK9pJHjiDBcTpYN00RtanFcmwwY+1VXxHYWZVNpiBMVB3EYNZTIO4lqYHIs1xoOKyZkh
fUemtNzvaXAp4yK11DzGfGONCeIdibwlQp8MTYXaW5ntErc2NGxlIwcJJDJaljtIDksRT+tK
1CCQm3lx6pHGLEHs5tUcMmhyEgEZg1s2yU5p3pCZ4NKdk0oZo72MDJ4Y+SGD9GkbI/pyhNnA
5lBMuILtxDA1upTgHIX4z4FdMgP+0UqVX8pBtm9h5A+FbNzOxrQOhn4RRV8sFkA7gMiDPnRP
kqNh9LzJPTYaxGSS3F/nboeKJKKIn8VR6HPiIBtqcAtC+7GY48xDgW+ELo7QY1BD8lUwr8CN
lm8hUApDwKGjuVBce3weiTp1D3LpdEI8nR1lMqoAUgCnXQZjKN7E95Ye8QxFMdkmBEDHQ1hy
lZFwjWZeaXoL6RjpDuiJTWDRVVGFmeR/KgwGX3xjPwaYqAJG5WEvU4SUtxJFrqtUjSInuyum
RmuMfTOX5PxCoBeaM1LVeqxGPdU08OARjBMQ4piq2TdvjUVezFqUBbpJvqlCC6cMqiRb+cpL
WAJjr8D+nGDt8Gc4y9HzatxirGiwIpDDuigdh4tsJzM52YTBsrJiQmgK7DUUiiXwPiet4mdZ
Gi0VhC2lKj3naG2T3ntG947YoxRQ5JRci4QEKcMdT0zWlVtPVoCuHNtl3YCr1EwWKCOzVMxx
F6Nb5tyHgTdNpYEhmzrKHLcQ1AXxf5bhmwqTMBHSRPGAVfzgpKSYuBv4KGx/ey/zbpUskVQI
8ygqqlW9scCZgTAIIFkROsJnOxfYYfjm5cakUWcXO24Gfj8ALBURFoIO3uexUORaEQCSgRSL
pYmvgrN2gs9vjwryX0YsUA3N8y7WOEiSDYdhdEqVzrugh3SAW7XwqgazMqb+1p9El7D62hea
7H0gmlj3jS2xJM1Fm8hFwHuALlcAKLnVRxx2AVo8+1jTziQrL7MsTUOv0q4LAqRw9TbmosJ1
wtL8annKHEgzIzYE9zCOK1VCjP/t2hSAVCWHNRaNrJQpfECS8k2FzEsk4bVn/70HUu68aET/
S9YXaO7ftm1DRgWwXxfpF0fLMxVDveNrzyQwEI9lprviOq9bbHXbXLzShClWzMm8oQf3LOH+
DlnDGEbifZh6ny1A6DC9pkRt5LzwVu+wxc2whA7pTB1i+Ge0U/7AvTwLbX3k5bzXMbVj1/sv
kcfWPr1sHpJdiq9pK5M24UhVBryEcWDsCJo2p3f+ovMNv43JW72oTnWukxpgbI+MnZyc3M9n
vlyZNherz1VusSSRl73k5UB52cMeNPhQVjrTm5pMdHHmB8eUMvsXroJ0VPVjKqyRK1GWbRQL
xDCvGSZdvoeib46/0ZD+OKLvb4IoNEUq7RF/A5AEBjUdhwzvfnuZxeSDJbGI3aBuVzR6RDQX
c5+aP3HJlRid0g3n7QNHQl4Zct/0w8TD/nApa/DLuTV6Pl8F3aJ43Ip57tHvnAdBZxeU1KZN
6eehPR4NcCiaxLFuoz8cJGq0SPYD8fmGJ7D1eDAGc3qJHHL6HGEGdXYFhtlahrcGfWiYjPhf
8XE2Wkh3YOAC7K0Hez/+i2EpfHo7NYYUCwV13zl1md3kyKQaLdBGXNV2LlNtReF3tCc1CWQx
m/ZEjvZhFKMzFkVVRCc2CnY+WwZv0qFJg7I/jCFqpONPYgaAsWVmH+ROe1db8RUphdNe68cw
1gBUE4Us70eD71cjJrgKjVJ+POhi+3d88iUTXMdxb7GDLLQREkVMK/h0lAVVMPYrJBJn0bZz
lAAp0aZnWeUvoNdK/mYBIWZXt6IfqEZp4UUP8VIKIJSBCYKCk9RJfQVYpBZcIsiAKmYYvkFB
GyFUO+aDq3WEweR2mhV+SqcVbvZ4+KMe4TQbwsQdTPhWVlVvmfMp9TVb9JVsCBV+fReHQRf+
Ib7VcxdIMzAFBhA4h532bIlohuBnUwInEkqUCaYoiaPEAVXhRzK1HjcDR5hFXtsQiFroM+dB
in5FFDGBV3P4fTazDUAGR9aEayQoiUy0YFNRVWrCdi73PM/4YH5YUmyyG2oQiyt2eus3h89S
UH6Vhuf4KeU0CZiVTdB4ULUHWJ0YS1CIWWWVGtsYLTIyHwJWhDyTHvgjTwVFSKeFdy5URu3Y
eNC4dAIEL/NYa2T4MtmILWm2LK5EFr1wdSmyhXUDU+shZxoBdfrzgrWDhE7yjr5kcjz1kN7X
LrckM01oH48zcqnxfzRWXl2gRfRjkDN0Rl0YP9JSkOKjknfAkqn+5pLj1S4pFiqMN3U/RC/N
ZJQ9soMROBdLoWHdqHMHMnDi9JN2pyaU9IWuBm9BSWqWJyZuw5Qaxx3MmJGtUxNUSRhCQh05
5GKDwmpddXZu0mt6qGN+Y3LqVmvS0lDJCDfN6Gf9oWGEhWD7dJhCQQabVmgTNSO05oq2Nn1z
VCx+EWjy6I9caEFQKDMFGYUsBzN8c4ctRZPH4wx+GDDC04WzKBeG6YjcxpDqhX4r9Jnxw5nS
cWcm2QZsZ5sSAB4XhDjZ2FBniUmkgVVYI46uUJkxdJmAoICdQQ9M0x+ISJ1kYp0RZEYYdBb1
QiOq9VquMlOYeXJdtZKh51RNp3+1eZ7+wxZB3FkU2ek2ofl3n8hUFpRQKKA5c8VgjamXHlOT
V3lhDdKKsRmIbMlbniiIisYipbCd2dcZPIeKpdKfOCJHvLl7vCdCQWcHv5ktPvZ1Kiega7lV
DIqRzGiiS1Iw8WN74OeO0dCaJRNWxvmOi7c6fhCCgDN3TUeSTsc6JpkSWhCZytCNF1kapFAt
VYGXRRkhbHdb+VmaETReNtpMPWOeLnVVH+lN6NB8X/lBSedxQ6opRqqVdhANZLCkiPgFW/Ji
ldMWLxOKbGWPv1JSK5Wjv2CUzvkY1BiUoLJNv1ETL6EFpMGaLQaAg7qipdAymkmapCNeqLKh
eKZBI4A2Cdj+p1SGp9LyPXsgqCyWg8xiqAt0b3qjqDpHLlG2e2MzClrpQGz4W1LZb/a3JMcJ
l0n5pO94KsrVgWYVQQACKJA6Zz4RQRWUcRaKQwuDfp1TjgPqe/VCqRVULTx1e9KRNFyDHZCB
qrnQl50BZcNaWCwJJIXyqpKYmxC0ji6IjjS6CXmDklAqnKqJmzN2oo1Ghw8aqa7SrnlCr80q
ll6Ej9/5dGWpPyyaAWk5WFV6qfQ6UvoqleTKAnsxq2GJrP6CrSdjHfCKYXFHsNJCLTcJjlvE
picgrbFKZQ27LE8USRhrp8xAsRgIn9zEO6nmJdt0LuvIHiljj5dQbxE7XgC6kBb+CzvpEbBa
SAHq4TG/UbBMKy7TEYjYV2++Qzz8ZDIp0xxZKbMBS3z82pANq3SHk7TzdrArUbQsYqQbq6YA
WAoUOyJUW27RM1FkG4Mwi5FeE7TQaGncdLV1gmZ7W52C17DgCUF1y1atiUU7l7NQJTn1Go89
47Leupre5C62WDP8iCV8G7jpCKTRgotzu7VJ5ZFVgx4EQqQc967pIVgv5JhoJ7IV2594u6tI
+QDEskmNq5HTo5RnNqVt0LS+Gzfv5rqEI6+dUE1RSzhXd0oISHywK7ikt7IzC5NYephfZBXO
O7ho95Rv2SnVBkqa5b3Jaasbm3lvVbgLAr2HZldLa7X+/KR1kDkJWaa3EiCjaduh3kC/K6W8
79actyp+cNSVDVum10sj6KtHR/i+BhI2lnA06AijHPa7v0u84nkvBqi12cKoUZVbrWK+QPQ8
HDy8HRJHtHRafjR1xxaoLqSGmGpg+LuxxGtWKAkgHAd7R2W6y4t+WjXAHBkw2jk3OdVpc6O/
86uQ8PrCIXYvZHG46xK5ONe4w9LC0geq/RvDyWUvoKlSsfGVuqQq5Fa/FGbB89ocT9gvRuiV
YGOVHYuboKrD6HpoqaE3ivln5AbBvku8P0iv7WqyB5hmwnvGO4inXvx6qGe5cnt3DbpZ7FSU
lZFHYEjEKGnHlabHlssagBfKiVzad5jFxHDxx2y8j/9JyBRUrehTKn9AGuTWyZBcufhop6qM
N4B2va2Jyg5bafnZyqaArdfgjfHZybegyXEqsb4sj67qvLEsy2epyyWDrfdIytFrvcbcy/ua
saIVzXaqwzfMxrFVD+fHtkbTaNqsqfnFy/3ZwPAizTHAvrVkzqIiuNdszfOrzcwJyt48AQI5
xLJspfeJtT9CzmqozuzwzwAd0AI90ARd0AZ90Aid0Aq90Azd0A790BAd0RI90RRd0RZ90Rid
0T+QAAA7
}

set pieceImageData(Leipzig,65) {
R0lGODlhDANBAMIAAL+/v39/fz8/PwAAAP///////////////yH5BAEKAAcALAAAAAAMA0EA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodEqtWpuAgBZwvW0Z2YBLS/42ymhHOE0jd21r7rsdkCvCY3TdoXc31mU1fnMxAgOHhwKE
MACIA4oHAY52KY6IYg2WjnyaAzONk4svho6QoiygiQqSiJQonZgMnYecmp+WrqcnpGSquiqS
AASGCo9ZjyyJWoaxC8rLtGeP0J4yjwQEjaa/u53b3CWsiMWlyZrN5J21ljOa3+AikgLY9Mzw
JpLYksUB2NEqh/oRkITuQEB6rDgJTBijkcCB1e6NEHdOIgmK1WytgOX+YFbEBRj/vUi1yaII
ZvT0IQPyLgjBAMQMztNmbuE0NAdVDtCDEuLHMTsR/tzhUaQOUt6CtASCMZ0vgO70eOSpLkbI
oTqKYr2RU+jWHCuLIMVEMZeJnFcveZ1l8yvAedhi+rhUZlwPrUHCEhm7KtRGrYADt9M4t2jh
hzqZBjQijuylFmiLPkwb2W0KjGbBJqpnlwfeH6wKKl4c6bG5wKhnzcAM5NCwVgSM5iCY8rVo
GgJiicvMw5AAAMzk+YYctLbx48hTMiyBdOluCHwHO3wNygfl2zNyg2y115KWcqdTi+9MojmE
5w+iW7tmSBgpH6Amy7bB/REvl5uxpYo7gPf+iK7JBZjcciMEJw8E5DFg4E6DZQPbfDeQxA5R
h3DhHX6B+SfCM3106CEa7zFnyVIJLoAUaTEgAhdJoHFEFCntxWZabxUa55s/loUAoIA8Kgdh
B9Op9EAqQxYHUYMyDoBjixVRmIiLNHrE34//GdnjlT6VIOF8RKpRVYqI0FNSD1dh1+CNPl2i
oQupCHPcjTRBlVtd46lYRogTGbnPOgXRJuR6tgVFpSBQagbYHjhsec6US1WJWG2A9OHmcQSG
cNUDja0zJgytZPHaoG3oyaAOoDjopjwXwgFbcje2B1Wd42lppFwMZPrHrDliUCY6TwqjjVHf
NQmUsIlKlqaZLSj+6g2O/b0Ka2qyElbrjAsoehEsvPYHyjx4rlImp/15RWpOk9KGEbKvlutI
Ssw4pIKypXh44ixrarCgaLY2cK8I8M5oJzURUcYdcV9GqJV8KK53DsDXxPfus6nVm8G8+FJr
Yqog9ItiQPH+I3CFLbBSW8I0bHsccPQAV4rE5dUoFES1GSLjCqmQgaVxvYDcTYl9keyMiidF
bJBhGoMHzFTFAjapysbIMG+YOqn4Kc0QK43CiedZ/PNTHzztkYVEp9aoo7VVKsN+V0qI7rXh
+gjzyN+t7QEvNw/IdQZMj3orhPmCMbC+WkM33scfu/OXRwaj9lvKgV8mZdSthLaC1zf+fQjT
LGNPkLdoXfJZpM6A+yz4iFoMFCzHkjmyRRhPZ961a8bdDWbbaZ/oepVwuZ0PpErqnQIpp/ZB
lx76yY5BQJeLFrhr84mT3k7JU0A59AxPwrg3dBYqYlG3VzJe7p92r+Pjaa4r+vZ11J3SMXpp
QOzWym+63XwUSz+i3d6lTDFyeZ+fcUCRYh/Ltjepm9lugBwARQFV8raYmW1nVQMakHD1AAlm
ondYkR8/OKM5bywQclYq3+KM07+/kaBozcrOs5aWCARuoF9rUd0DTZAb9VFKfJ+b0AXb55QM
8qxgOcxPcvK2wFSADznzciEFUAi6kbgsG1tIGy5WII8YKgn+I/rbU01SxooRZoMX6sqVBHb3
p9D5cGZ746GfjiSB1gkIKUVUS4BaZwImppARC5teKa53RxSEpAxcPB3qXNA2QEZtMlF00Acu
5QCkVFCDRtQUzxS0R4SM5SGkOI4QT1c6MRmtSjLMmQZZAKcT3UxCSrxAV2ACyDXITEy0ctwH
Xwk3EvpOA2vU4rR8xryh9M0Z8pmAO3qkwLI9cY7S2pB4nLYqEHoEfMBzFtSSgwtQWYotn5Ja
WuSWtWT27JZDK9EvezgoXBSPXv54FAPLtzIQMqcXR+QPGXAIAla4R3V1kxBUlKPOlyFEl79T
EgnjGZsPxoabCNrJMSp2oAuyURb+OwHnARY0tpBgKUhCMejJ3tc1UbJlGTAQxxHFA01rdqAT
AvKOSV8HiySta5sf4GhpZKfDrUl0XhW1xDmfWarYKUmPucNYPX9m0Oqs4gX5aY4Nbec9H71U
p5YU4yIFWjaC0i4lEsXAlnLhkGBMqx9e3c53uDqiCZzrZsFgXD+pKdRF2hRxRyWkHKckNqzy
EJTrCtA5pOqBbbo0TDD1wFa9ZELWzK+JdyjrGPGZTaX5NDACaWsI0PSmu6qAsmuwIV2zCgLY
6WeeV6QeYmYoq1le1UHxbEQq+dDFCvbDd+byncxiqQBeIGqxjL3SVep2LhoGhp4goFj1FHc9
hB6vKFb+LAVfJ9hSnLLThH1tbUeo1duL8cy2a6JIZN3xNXZhDqV/Ne4Sj8m7Pk6OvMTUqD5P
4FljNtCYy+1AcKB4SdPZCQBhsOxJafrTj8S2GdeQjSMtgJm6gRdL1R2BHVdrL4jlZlmJYS9y
nVnTy5Yrffp4yT8fApwSWPCtu6RWhSc6SUzhMyRuolxuKCeQLTHLfy/cEc4QezX09oiWM/5w
lZCTDzLCV66X45B3APbg+JpVxzIjiFghohtBfWOcEcDiyRJp19wGkseSFex4GHwBPR7qr80c
zlkm/NwRv4KENuMnhhkXDiSr7rAoosiTG2ditZyVM+IZLVSzLN9r8EjMKdj+lkZ5FMKR+YUE
7dUdVWPG2Wttd4GUPadKxCvMR+iFNh4LipLJwWS/RdMCatNkMzcbQpFSaooF+h7NvPxl8ilw
zOQTGKVxaR+BJtFBlaz1rCPwyaZ8c2Nvrtahx6tNqHoKzNzTh5v2POypLjqljf6AyTR70Lh8
UM5j7mePn+3JXeuKqoVW7YzF5O3nvcYUtHEViX21Em10OrHz0G9C5xrDI97Zk6N2Z57qVG4J
2BG58Qk1f4BLAa0kN9hUfOr9nvZaOnOAqb9OIU4Ti3CS0FOnEsIRWO+JTU9V8a8vNnIEetKj
hvrWz5qdzhqrvNILrPxlPr4elwkM7n5yu4HRpnX+P9Tt7oZ6Nhox4vk1Nu1yK0+ayX6Wsoxi
9PLG9puSdSJ4BQqHGp/gOq+4xgeZBTbzqStcpy1FeDxQLSFIVCWJFHd4nWt0CbhMM+RYZ1Zc
xFG+p//slC3vshA1uzsce1ftGuipe2MeYRakNTbxPLx3i2d3iPJHDrAD2c890dNouBuNWq3k
Z1FCEmFImSIqqSHLzRvTZ0EwgmDV9KLkGa1ZHLzEbQ7TllJvTrEr0y+aABs7tpR22ENAWYiB
mqe8tnN2o9wnaOdXoglNemcT1MAzOb5Tfb8B9ILep1IPfFDis75R2xMiXQdcipsFO3lcnjo9
ocXl4zSxuDcGR8PYLtT+FFqcsfBR3tpfYezF9jg/u7HweLUwQZYUyTINcCFneJYTK9Z8LBUK
7qAoJUR5htNgq6cTOxda56ByAHIV2VdnBpZzmSd9S9Uf34ccqJYnazVENBZQ3tCCBNhmLQZV
2YQwKCeDRBeCqxRRB3hFbpdXAlUcT4JJzeZssNJ4B/BvQ9cJnrcirudJ4QdndfKE0sM/J4NE
J0B1EQR4QWRntHeBghQ5qhcuNeQ1UigyNwNjFJgyc9RPW6VXtjc+dQNoxMFhMDIZMBJGr0BV
JJE9zfEvZeFJfTZN+fBK2xZy/pBODvJao7d//NYyKuJYT+MmkjgVQmGE5CQ2nOIrhnQslVj+
Oo2Qh1koGA+HUruzGQShKEyWJImIbCIXAYJ3JSu4XzahV49SQl6ERJ80doNmSwx4haf1Gpqk
Tu7iWx6VhXPCfvn3RNoSLoUIcrHxNs1YPlJ4hBAjhXukMXC3aOyDTaGndbAyjbi1KM4VWNtz
MB/yW8yFC9ORSZimCal4EMEAgWOGd63ogailgqKFPX4HX9RXfc93apY4Afv4RZpkUCBIa9jT
SQICWtrTftMkAPGWegt1Ls0oKDGoY7dXJyckNY2FUl7DRRw3TIAIa3kGAyyGbGV2kBmwK7s4
Zd8SiPgEkVanDWXySmzHLRMoIik4Yx1YC7imXpgTEreYY9B1Taz+81GIZxU3BxMFGYwnYEQK
SW32VZQryZGqxQxR9xJUZR6nh4n7JlBY2DH2RmbU4Y3UUzbU0JMIuSikyBZPiTwteUrBwmUW
pVphuTDLqFjeKEUq6XVKIm64+BtkYAc3EZfsFJAkNjzZE4uB9osx0n2p1YulJ5XQFgJtUmZz
YjnYcyyO04hfmZIrM5g/MyeB4SOISXL8w5goAHwdOQ9pAY6cRplsZZmkExWWU5N8FjT/6F1q
uTc8MkOKR0x6uZE7+W6FAD30RRdTOQ2eZ3K+JZvU1JvUuDApN4BDWI6K03p75U0RV5pCIZ23
Agi+AUh9WSCSmGb2pZDo2WE1Zpjqg4z+WkadNpQFZEg1IshokskBAAKYn2IW54cl3Pk/YNUh
6TQYA5iZQ3agpFVPhQadw3hNAASdn6WF0rZlJHliJ+g3/GZXb4kaiFlwaBaVprNmYuI4KRgp
ejBoN0iEJEqZ2/ihezOUOwWbJSh4n7Y37jl69RhlsPCCL+An5BVpuDZpftSgOLOJAbKiHpBv
PIak+Aie/iY0ZsmRJ+KfzxJ8O5o16Klm+OeLEGlr5lR2/vClH2qGUHSXw8MZjceklOKkqdml
yqeYZcGCczlwI/eLPRKgMbWAovdFBpiltEZuM3ZtNbea7VWMhxKV6gahaImmWyojMJpGRQGb
tVVJkTQ6Gzr+kh72bI8KUCHzdWrBcC71ofHBanmmmlXJqV+YqI+Cho74TOelFtvye6h5hrmZ
QGFYQ0wTWZFqYoLqXuNWoHm4qj16KEY1dgpVOAt4MLs6CloBpc9zEJeqBqbKjay3kTkBVUHW
q5ryXPHGlhRafae6TPtWB2gqGc36qSSYoqgaXHZiPNO5m9D2hlNlnWwBp9eybOoUnOv0oBca
L/YXNcsKRO76W0tTrdAajpMaq0VmWUhYgcaJrF6UBQUEI0ope+IIrq66X/o4VyJlr6M0N2Lj
K9WKr/9jpD5BqdUCcYSVo6JGryLLIcLTj8SJa4ghaE7lefm5pI84TcsnI/hmaTT+e1wVArKl
xhZ540SoobJ3wLKSeqWmqZPE5KlUA5E7aJUnIhBWu7McK7STJ2pBizWb+iQeBCkqFrJ1tHeV
xbX1pAW/Z2O2CrMnJaNYxrS1ULLcVZ4XYET6QEtzhTaIN355R2wl1VJp4UU3+jDiYbfechsP
21KV6GHmShm5gV9sO3bQqbegxpEwkTt0c06YNEIDpmBytI0qUkBCeZGXy1zyOiWMi1sua4K3
Gqhoxa3flJl9sGF9oB77xkLhojZV+pN4ZoSNgV94m3sDcR/2aaGEEop6RrxFOCya1iF+OLOa
e2S0U0zAm1fFNCXQm70qZrrmBLr22bp49rrRGruya2b+HWB+U2uy7Xu6Dsq7J8ucEUSfVJmO
3OMhVqO434gbobiBg6uwXnk0AeyWpKsMjzsJAyiFULnAdAFHimu+f4e+lETBN6anHKBdHcKV
f0G3Usk02nnA7UqBQ1a7OWmoVWPB1hXAegaoIZad4SFat6mZaIur+9vBWgGOx0tSEzyCq+uu
GFxyGty+hGO75FCcfDfAlSaAgxlIi3nDPBuh1Ja0/rvCJknC0sfEZnXESIWyUrmg+hkVCOY1
oOjENkyw2DrE+Im+Qpq57DskKUoB/7VEc7zBXVTDenwnyINoalLFFAGKqEusoYSfV3y/LtDD
3qmpdowG2TW7R3jHGxAsSmz+Q6FhhPmzxFLctdNgyfMiJ5Qph97DxnzZj7LWRuCWU0jjPlr8
GRBKyqyysakqhGgMYTbrPQGcsI/UylZiTad8p7koDaucAfGiwzm8u5tcdC0ExUSGBt0Xrsq8
d1SBu4oqt86mvuXVq28soX46KPIgottopfJhpVT8T/ZwXHuczlIBw+HEzcwCa5zRp79JWUOb
qgeszbzcTN68tFu4gkxkXPkMV+PjMudaHCwytkl3vKKbzOJayb/JxRWwze68JMCMsqFhB+xj
aLfFPik4pxbwsxONeZ0Ft/NZzx8trWBsNzoL0RLAy5cV0LBxrNHqoRhtT41gszXNvBWAPOrc
0yz+DVGuAcE1Mrp4dYHP4poMnarcLMsIGdKyy6MMbFt/h7ziFoHHFyyV67XcBNIT/dMt7NAC
UjMnR4I3B4t1AM3RTMJlCtOq0U33aypXF3XhytXu7NWVGoYQ04Vj3XAQw5nZxs1iLItOLWqu
WAe/ArlQ9AwzmmFg9HpMt9Vl3dXsnJjIY8nY1pWwPHES5tKbzdZxTLEQvNismCGmo0qRXdeT
zQuK3DHwiwEwstoqYrFpe9o2VMJKPdg+1UF04S30ls0k3RiYYLoIRNdLPdkzRTq3SXwGrDqG
Kb7XS2y8DI4FnYW63ceRUDgAEB9sZ4534NGm7dkmTcdaHKnTPcyx19PsNhyQ34ze6B1tsr0O
1BxkilCHINI4733S7K3Odi3MqCe9CWm0aG3Praze4D279x3DsGqqt3HgBVfg+43gV+rfeb3c
A/6v4I0s8AqFJ9gvt/U5xOzgxg0GAP5MHc4mIx6UjFveh2Lhno3h+Md1wjYV/iHTOw3igXbi
2MPC3a3QJX6F+X2b0v3j7K0h2e1yeoApRw5qCCTkPW3iH6LjmmM5Os7kT44PVK7ORM4yfYDk
bFABRa4rV67HTu4hUO5vUm4SaJ7mar7mbN7mbv7mcB7ncj7ndF7ndn7neJ7ner7nfN7nfv7n
gB7ogk7nCQAAOw==
}

set pieceImageData(Leipzig,70) {
R0lGODlhSANGAMIAAH9/f7+/vz8/PwAAAP///////////////yH5BAEKAAcALAAAAABIA0YA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodEqtWq/YbBQA0HpB3HD4IS4HyGVu7vz1qdvwTPrdmHPZ9fk6vhYM/gMCeHwyAYACC4Z/
gi+AjgMPj45dDpJ/NwCOg4QwAX6Hm5wuioGJoI2WkZYDlA2rmJqiMaSPobIpigB+lIt+iC6v
lautDME0hgJcfra3J7SxzSzPvI6/LcbFw6qSNs8DzNEkiwEEBJ6X4SqZAOXorOV+qOztkMLz
5euq5QSZ9TR/+wiUSpdiFTqCJ/o5UsANWCphlogtwCbDkjWEJPoFpCf+EWOIdfQOGJqXSd6+
g9nu8WOlDx/Kiipf/rAjRojCiB5L3LzkDVVDV9ogPrJBcSZNOj92bVzZMWnTIn90sTwQtZ9J
jmmiBsyULOuAfVZrvDvpL4hBQEI+BR2SjMkjagsdSppjsGuZojDw9jgrk4fWjWGH/AFnM+6B
m4RL/BV4VuVOSWD7vljm8qnfRWLUCuFb1uy3JTcXIPbJuTRnG2oBWd5xOohSwFMFD1YSWoHC
1SYW83XMN3JnE0gbPLvoIPi/QN/KIZOsI/VcqLOT1D6sOq/p62dXGDdVTcL2iqxICVj5m4fG
jVF/xOY68MinAJ66suJqXeXS+/jzBzaRmnj+ok/+LZBaYiwA5Ic5gTBWmEG4/dOKQgGm9Yh8
h1iH3YVDodAfBOe058CANwACX4KkyCaIcp8AIeIBy4xTRD/j+fYVAb5cld+NOLpU3keBKBNb
AwBCwJWPBKoAEI2LhLSZQSrO1l+RODw2YYUO2XXUlUelmNBzDwRJhiRQoqCJcoYB4U10PiDH
SoKpNYhakhvlAs9n14yV45337SdOjEoKBUGCJ0XokI7zMKfDmXSmqdpaSfWGJJorLIbnpDqK
+ZCf23Qnlmo6GrqGXjmwORiCb/lACjn3nTOeIlXO4ZxpVvq4Iwh2KpjpnzHNWiepgZDjKQ6I
elaam7OUhqpmddr+h2MYk+o5gl5lZvPTDIeYMyJaCwaUnqkAjUQWl5+OeqMvSBL7AYboYpsb
nwJFGO1E7P6qQQBcvNXRYIC2+Fu9kwAQZkaM7oAoIPyoZa4018VYXYE9SpluVVLp6oFFf6oL
1LQi0LuTcUkqcu2+G/s7A7n71NiDIjGiOid5p9xwqoy1UiYvCAM/vMq/GLy2S8WS6fwjza9O
iEe1JavbYV04gxC0h4dyto94SZtQs0W8tjC1zbVoCO7FO756MAVHr8IIQ+FpEljYFkU9ca3O
ukzwfQLwuZOgLry31Xy1IlluC85ZSWlmE+IS+AO0RDC4CA7jRBVftl339blM8nA121T+1rC0
tm89+vgGS2N9uNSfM1A4z4sAbBpckSe+9QqfLLVtuMndibbaYMAZWTv2IYNM3bZTmp+XHWj8
HYRCTgKBWrYI/2/nYl+NNmd0k8D85ihMPk5AyNOQOOa1oMy753V9IPxTxH+58IcrOqB8zmLL
CgpnaFNIMcJ5k0c7CS//HXqVS2WCe//fmFkI7HYjMeDIex7whi2QVRxW7GwbTRmOBZhXmmTA
R3Wwot9Z7jcC61VDZeKhlkG4Vw3GSEx6/eLC38KgqeCBqUsWY8BNnnI+0e3veHNR2dMcJoZh
pOpV0RvgkVzHNBoQ0HfD4aAcxHW3/y1FPkq8wCdYiC4qnpD+ApRBUIAUYot15KOBr8vGsRIV
AURZcCtBI6K9AkIvg0RRAhQs4sjSpRIAvdECqiNhvyDFutj5LlUCjAAQzUdG0RgPjD8jW9Ym
oEAcOUeHj+odIBeptR45J2JB1A4T/xhJPhoJULBxYpzWRL0N0EJ+e5xLxDypAVAiiZBN8WIi
WVTDicQkiDcb1yQAyKnfgUqIFYTFw9h1KtJYQo+OYEwp5zWjZSlrKYZQIl5uQ8hZGixTlTNc
LfoHydtAU0RxgiSvYmi60xEFUON7pi+hsQKPwWxGkDnJF3kHSZQ9cZMIWqYt70a4d1GnXh0Z
XSVyNQEpifObktLRiQ6oOOBgR5/+kMMMs64DwvS1MyLMAosV8TXLFMQNcAvtD5kaBtAQ4EWg
MjykDcmpyAxFYGNP8xqqFIEfcT2PNyrFn728YtEYnGcnf3wkC85TmYwCDo0dFdMzo/nNg8aD
Vs1sV8UemBJbpVRLleDTSCbwqoP+sH5cmdQgQXehOy5Rkhjc5kgLuaV43mhC86xTRFjGqcSZ
VBLuquXi3jUdrukVSI94WmPoUdMZMU9lNxRfMlbCLuyxRBdmtYA9TShJPAlVHa70n36i6sUX
gOQ+UdUWfuLKgSFJhYZfKeKRZMLR4lEoMXj1nSvh0dgcXaqDi01rFyBbiDEJtqy/ZatOjomj
uSTVoSP+XAVdS/WBx6C2dH79jUvr8EIJZG6czRsiegLoNHr4M2P49M2bYldCTnYykx74bKdW
G1htfccZ9UNQTUcrXA10FYavBEqfFKC7WSqQAnPxXViLFlSM6bQ0491kHC1RUTmWM5nFfctx
SzAwdgBxuez0wH3RR06M0SKC1bXuLjvJGWV5cCw78ehsN2IyGRxReOZdaxgdqhLhHahdBsQc
RHNW23IBsMcO5sAZGJjSkmZjv7Q0MmB7dQEw/VG5AjbwCBYc5D5WY6MYavCOX+oo70ZkwiVY
Gjsa6TD0SpaWfZlhdJc8YwXYsckjFpsb2VgXKKe4rV4d6ZbZ50ck5nknkS3+Mn1FScQ9VyAX
5KCXWhZbsEPMo431TWA2G8eOl7BXv6RFc6SxGVo8zTXK031wiV2MtWTkck6bbm6XKRuwdrIr
o+boh780WsdAh5C60cIYcxmQPTjXNbbm6Jz7JlS09t6ZwpW9Z6rDHN5JaVfZ0N2SOjUbX1IZ
mgJDujK/UtimNgNTteOhKk2Vachw7+u72oRwqlTIyxEDZtZ5kjLNsgwDKg9WbJgzswYwiMzV
acfEsKa1ONvCn0nv9XXeeFCoqcNSEf+6vcXGTmPjeWxxrBg/WGXBETlZbRkvu7QXXwmh7/bx
Z82oH5AE0CjHEsgLwIhpAKFP4+AZm1G9ZDlgji7+fsTTbnDS2eewWfhdMTQZ8Hn5uqQK9MxH
+C031mcsj/R4jHTRttpN+nDOnUioP5yBzMH059jpZnudg9w8r/za/Ww2pVDs1BYiu9MuGbl4
88Kn+D477kg2OZIuYnM6ffaLNGWVKcbTcoa/TY0JfQy0L74x5GII7eoDH3tNDfG9V2/VrTEm
hmmeOaEPPdoHj07WRTKtZ+y7hIAmFTzIwbxVjflIQGU12hO6rMJnIH8x/mx8AW2pg1JbnQ0v
yD12/0zNrgQFmWD9et7xxb9PRSnzRIYWmeluzF2LXoiF+B1IdPflBtpmF5X8eFDOajt5zFJM
P/pt5RpzBkup0uhWtUr+G2/4hV2SOwYHW3uNndCzPM1+jUYwzxBZ4zYp53d5aqc/5KBe2/VX
QlR88LRU3mYkdfdMjNdMTwU6MbIMlEYqHcgUZLOAUyF9SBI1SKccjOESBERxvtV98iZpD6N0
/CV5WnEexDUnkKdpN1h+uyYX7QcZZwJ/wSc+1fUYS7cwXPJfrZRKMyKCQ+SEATZ8o4IqqkF2
wwV3EZaDuBdjKcgYXmWFDtVjMxRvJad3WoRQA0deV8QB4jIbn7UzWbQ7A7Yz4yZ4p6du46Rn
LDdicdM6eahHaJdWjYGANEgPUOhuVWd1UKZ+lOSDqwJsXdVJBfFCWTdIWXcmIEc13LMyDjP+
Iq/3bAxCYwUGeVsYY0pBMmTYUxa3bmFwUEOIfL0CICq0bfPBDxByDjn4T3rmh7mgXVHRhj0i
Lpnma0x0E2RRMEdXKL4ydXhYcSMgiKFIVmW1NImWL5rIEegHfj61KjMFUI7hRTPlK7n4fkHD
Qxbxfh3AdIWiFex4TCChEPjAiLaHbR23WZC3cTdidr7QIWbXgwCjTvk4gSogHqvEhFfWa/DV
TM8gI2MGhVIIdKyER+6GDK/RfsnYDk60DDeGagKZXjZzj4+3eceCKttTNDkIjdHYCQCpUTki
MoRIg/DTAQ6zEk5oYe+gXO9Yg8nRajyykhiXc7e3GD4ZX89jduX+h4AFtobMljvXE1P4JHOW
AnaUlzCrpEPzqHWHJxCVxowiJ3tdyXLjp1Wep4hVJI1REUfKR2xBd2rk8ZLoMkdhgDwciU4p
VGVQBZOZx4bHJH2yxhQ8+BU5mRwHEixt9WRAiQFElUU1lTtecyeXVXBGSUQyOAG712dk0naY
NZV8YSVUJhX6Vk33EDdd6T+GsF7sQJrv4C120iaw+DCBuEtT84gBBhYUlCsyaG8hZiFRuJu/
RJbDUAY7dBebKX+Zc2M6KYSBBRICmCDoWJiydZhwNg+oCDcSFTRTWXs5pVM9tlmfiTjVhoVY
OIzeeY7whicaI2ZK41vJ5y3JtwsFmQz+7sl8gKmQbneFdFRwcEJB8KmJ2LdeJ0hVb4ch3ckj
+IaTKel4jlaeSESLDshngeUtrYMMPCQz8ukrePVJPhl0J6CTWOifkyBT2Jl/3qloZ2FBV0mE
wDdf8TaZe3VGXPhuRKZhRNMuOIcu7wFK9ZkbD7Oh+UlHihlrqwaVjsdu0LRKx8AgJMacTjeJ
RPqiccIvItCYH4WbeBWYOcpsHQpadqmXr9ePvdKKhhRwIfqKEQUxwqmKdEedyjJgLDagGNB9
TrpdHVQtBZmgWNI8keSmDnoheupw5gY96zNz+1kaP4ehOXKAIjRXZCY2kWKZcSqn4CVhVYol
5phYB7adyqb+dNPpS4ICpwE5liFAggW0pQPZIyRpMCQBIY+GcpqUoVy4O3OKUTGmMTxplmF3
Ap0TNxdKOtgBqZfnL5kRK1JVA55Aa/cAaeXZiiXDorr4qPHWp5Enq+ZFqw2lSSHnWGV4VqNU
R8zxGs+Znf+ID3MgTzbwcv0CRAw6Ra3qrPF2barKrvhwTS6Akmg6nsD2glSaleTWmuZUA02q
UeKkMXmSizPXkjSRIwBKoD0CrwEInenZKzsHPDwqlrFTTF+CqREGrlOmJgi2KTqScpIkJ1aF
lAxrkljqqrkHehoncZ8UTwNYPHTkWLk4RWZwpudEdXNZsWpJdSd6aM82bLDyrx3+yTm0x64w
4lOOhlRDO2/cR5dB5k4c5497smiPtmgceBzypKXxRhYM0z9AWxdiOrLjObB1Crb/io0wAI0E
S3pqtWhl9JF3k4t3Ry8AxKwO94P7F2CgKgKYka8lCqVXSLZUZhdaurbVVKtYSjQIlHaRmR/r
N6fSGR6RsVAOC7lZ6zoQGBkMs4D02hjriFypCj3DQhJLi6CIi0K95LYcgjU4dXldYZqJdlpH
mkxSsnnIqZTpiJe9uQF9aYuSx26yVizB+Bbv0QI3IQgSKxwJeCeP653Lpau7FDdiMXwWKIYY
iLt66Tgeyjg6mjCneiG9ZSzGyymqm3ZwO3eOJzdRQZL+Isp+8wmEc7W3nzcs25sd3eu9nduz
G5BsZAGtF/A8goKPhim/2Qu+WHuGK5eGVIi9RJtLIkty1Rg5AboIc7ZyFgEiMZAwozBWMOQ5
9qG/PBOZ8cHAJtcxkOhkqbGyi0h7RGW/E7yZOvQ8S1p0jvpz/vu/8trBjZux8edCVZGPEWO4
OOQvqLpRZyoI4mlxfbsY3jq5vkHEPZy7ENuw1cdDEUdqGrzB7eu3n8a1Ghic40omQtwl3Gis
3whr8EEjhnuQQglWdiJrYZONSJw20GSd/hLFWBqZR7sDAhy1BHx6O1wyYyw6XFyiLNpL7cAn
BtMpihxVMVrC2PqbJYqtMZD+rze8sb/rqwCjmYZcuUBTj/ozNugXE6HZS96EdxyJfjpknTN1
OcFVb/yrbJesWNc6wBkWpVlKX51AtYG8boumdCijMjT7GJfELxRLwhXAxh48Gt8joH0Akx+c
rRO0oy8QNoBzIRslypcqzBxaDV5nOyUysdxcF62nMqzKN7FMnaRaqrVsyw3aAVPUuBFDw1P8
qEczy7w2Cb9bvoqxmWYQa2e6u5icLvhsSrobzWhXyPSsu5Yqo4sCPqtU0Fh5lhCdwhqEsiQn
0f+bzpzkNW1lpz2ksZO4UAzbIdnI0MhcAe+H0VsxeuFXasTK0Aj90Y5jIbFyB5SSTu5z0pOa
Jdz+S9MoLcR9LDsqOwrLa14uLTUMCld2aw8li76Jq20KWqRfu84c8MtxWj4q7DkarX8MPXGe
LFlLfWVNDRQY66QZh7pv0cuQ1tAP29MFVNVW7dC9jFBd/bY1HKf39796oH8bmHM2NgbBY8yU
WtiuUhX4ubAvGtEqgI9yrW0rd9f5TIOSbb4MvV0Ho9NuknCHFpeCLWT8wtJ/JGsJ/UGvuiEq
ZtqcFD9DxdGOWbrjWdc5LbWEozouWTwzNWGqo80uh9J5GapAF6f8iIBaJWyJQ9LFi1l4Ocj5
i8061tmNQRhJfbhCw7s7ZQcldhR/vNEzKq7XfNMsdsuxGtw6TVLKGlz+ERmpZy1W6X1gso1E
Iv0fDRPD1FQxmMNl6wujTIaYvv3TuAzKqw3b9sXEpmqenvnE7Ky7TX1iMUgWuCHD1RpdzAGN
vE2P/S3B/41OzS25kZSDbRKvAkq67/ywzrq4gpPXJduRUJMfwSwcTYyo/DVFLM7PFv7UhdXP
AD7aZJq9f/3eCPzIao2Xlc22Fw6Mq8HgvK0qNPKnmwDh4dPbRd68a6MVDM5g43TSOcunR3fi
oo2dzOra7JqwK5VM47PKdaEcY4RvYDxruVlQnpriKQ2zOW6AIy6T1fLmCPsVOWyrePnlUa7P
SVXlZ26LWR6DUG7jWmqf8ogh3nWSdOrBHZ7+AkTlrAJu3bnMsElMdaeFrk6pVlDrDSQNwKZF
cCqN5/AKwmw25wVE44k71IdKwUUtasut3H9O27bRFYXstOw7TMpgLpOO6Hn3sB+DNdci2QaT
65jRvne13klpqMAOGw0yHFZE0jtXfV9lprbuHabOrqie6hIlwlg211c9m/rj1nfp2y1b6/GN
fxIFjTK2wNnNoI9D2oZd73QR54KE0kOO7E/OpJje7WD07HULYC7i4pgRsO8RzEX6ZgZfeL8O
7ABPyDBZ4dWDrjnm3V9L8TiO7vyq7vV6MRXu5L0wGCijn6FwNHfo8fheRvz+QVpM2cy64Q/V
8Spv4XQjiGwwOavXoa78rfIrLwFt7ZplLToyrxpNXfT9aroeb/PaHpNEPoj57rBIT83VM/W3
Xc1Wf/RF7ug+/ytCWkZlNggQ/l75/DVTny7zWrbtM8gFpfbkibQXzvVdT4+ZFPQuL98YVQFi
7uY+n/aDS/Zp6/aTOgv2XvhXjz+Gn/h9zUimdAdA7/jzMi+KP/lsjwZMAPhYT/lYIoOarfmG
fWiNf/jCAfm3J/meX/iYUPnPqPo50fqu//qwH/uyP/u0X/u2f/u4n/u6v/u83/u+//vAH/zC
P/zEX/zGf/y8nwAAOw==
}


####################
# Merida:

lappend boardStyles Merida

set pieceImageData(Merida,25) {
R0lGODlhLAEZAMIAAL+/v39/fz8/PwAAAP///////////////yH5BAEKAAcALAAAAAAsARkA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqmJAAGTCq8heS1etqwT8zt+P1kIwECx0mcHHBqMB
N8xLTsYL+JARoYJo3D0pyk5AMLZeikaAoNshsytls1sxKEvU4x3BXH9TWnVfcAOEZhaEaUUf
hGEWAYV0hJF1d4iTl1KPWEkEnY0VAwRqoWSbGAIEfhM8BIwBe4x7hgujAGqtW3kHpLZFgrSa
vxOMkmeIrqbGnxSPxM6uDgCEvcVck9TCB4DJh524Fy5rr1Vr2Q+aGKze6949DaE9jzSN0las
yxD4GM7phcjlGtCBe0Zw1iR7A+bRotRMnwOHjl6RkbKGHYBOeFigigH+rlSVjzwmNqjlY0Ej
d9I4TrDGoaHBSkUaxhAl0oK0aeBesWPnjsFNKoZOmvlJgWXAhLBeQpipc2cqpUFQdVL5h4zT
TmMEIdElkJI2qFoOzAzL7ZwzqA64EHE2s+aEm4zMzfAIkpxWKl26DgVraKyhsg3GsHMbIVSR
q57MVVy35oK4uo0jcNVR5aucl/V41AnlSZPmbA2JoWVQJxVBpAmLElQVYfFg1kfypkZXL1e0
OpoftWrlWd4wpxCB/VjXFCNsWlJ3T5VLB/gqhkI2HnCB0OAt4qXlDRZ2OviMhKE3I6L5llir
uGfqPnpeXawidAKRi2LVO7uLVNydr7y4kzP+Y2F+BTLfGfplsd4rShi2yx67mDKTRRvxt44a
EnSnGkHnFYKfBGslt9Zo75xWnhLN7CIJJDgxEMNa09wSA1yBHCeWhMatUpw3LeykSz7r+PcN
KAW2hsceLtIXw0s+EqdOfxyu9txqoaGy4wPOZFgMKCIOE9M0rhSy1kNWTlMFjIT8GARSGKWW
RXLY0ehNcA/ugSOIpAXJYzlquEFGnmY255Q0br4JkzPCkEkMi7H02QCiodFpUpYVHlMEIx0y
AiaiviT0DCre6dbZfsX1Bhxa121HIJPDuIDGlqv24sCS7CTZDojhgYgpMs8gSGp3zJlIEBjd
/RqYqlUadqgsa97+mFVhpYoUp5KVgKRmN6hKEAdiISmFJka53YejjKNs+kum0Lh3FrJZlIbV
tFgKay0ykJX7Ti8e7UZOKBQy+ydEUtmiUqk80SphWDjw+taRH+E2JlWLcqFeSGhoaeFSa6yh
pqH2rUJGH47KtxPDZyLWoyAV5dDtcJEtFei3EOBx5Hcrw5JqwhQhBnJae/45hoxs2rxSsIqc
udlQp43jncIhSQF0NhsHO2VaQFvCocipGBiZGjHLLBlddrQbrI0Pg2Rt2GJHCrSBxWCs4XqS
PUwtYp0+C+FoWSGWUdtU9/SbyGy3PAalgL1DddywzkpYYKU4le27UXfstNZ+s7jnIVH6a3wv
IuTQ7ZHkmY+dt6Ny67iMyS5gndCLH31x8sO4tU06SDlYa0vYszMONOjBSjl66qZjTbrqvbGu
N+Jjzrn41sVzezwEhevoqKyiMyAYVj8EU4U3hyNNdt9Qp069ZjJi/vCXkkXtlcRFQz6d+bk+
VAjZli41zsN7hD+/euq/yjVkz2//d8MxCYkRHvO3lJHGf1XgV86cZ8CHNG9WwQlP0bwGJSIs
ykm3ClqI2Mcv84WPfWAjW0QQOBKfYCEKMzgHAiszNojRBQ6aydXwVLi9EfqvhMBwwiaAt0Ja
3euFzIjhWWa4giIa8YhITKISl8jEJjrxiVCM4gYSAAA7
}

set pieceImageData(Merida,30) {
R0lGODlhaAEeAMIAAH9/fwAAAD8/P////7+/v////////////yH5BAEKAAcALAAAAABoAR4A
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s62LAK2MEABAjgc9RzP+R2i23CwECAZ8GqRQI
SARkEYZMKqoBxZFZiQZ2Atvz4J1mbKOtMsNVOKHSzdZ6wGqr62D8IECOyx1oRgIDA2EbX28A
TmYeAYVZGjYDgo8DkZOCDjULjwRjlpECBJcLQxaLYY2SWHkWVU9bqxx2rG21c64KnFd+vUhu
VaazD6mnjoWQcgCUfQNRqiBfUcuUWJB4lLpRRzieY2pupFncX6hOuktYkWewWNEfte3r9K0P
Xuawd3R9wPjEDYyFsKRMwydDSAqFWUSHAyBJzJJJnKitGDM0D8kUAZT+KZ1FEfQ24JvzhaHH
Lnvm1aunKxeZlDoWcMRzQdOHRQpPRnBGipS2QtA6OHkjaaGNo0iPHtoUZlQnBkSvyEzitIsN
gDXtaehnLduzAGM29AsLw2jSs0sb/Hu6IGqdqSknCMGKKpTOYqN8Ukzm9oIThWQtQDuL1ty9
RQwaArsD9ZjchVU9kLzrgCRLwGLfGfyyd2KUWTXIKmZ3pDHdXZBP67kBtBsGS846Y77wKWKh
RaqnEpLdB6thPmHBtg1LDYKNJEPC3I4RGizlXStz10lyaeUoQ4Ef04ssmAnh478h/Bbeqy27
4haR41AlhAzDtBQ4e84u4VEf27IbypWvA2j+eAv9WEdXH7vgdgBSZKRFngPoCOEEdc2gc0Mq
r1j3GiGWrbObfhLgA1aA/1Xw116MUEDgS+aE40Un9AE3YSrINXWfUi2qtRtF3HVIiHISHTRR
aRXI9xNQNfZA0EQcGncIgkwKsoguPPYIlkJC8lUkdCuFCEEUzdDj4UXsTLAOeL60812SxVgR
zpqLHQElM0LA6dwnnB1FSl8WdWaTBNftNQlFaKpFkDHJaCnBEZ0FGlA3k2RxVQyPXIVcZUdK
qUOVEhlqSpaKNgDimB7aRQE+7DEUVwUZajWBLHMcyAUeXriC6KeX1hoqIZpCl+g5vOGXDJCH
2kbocu0kStlVCxn+wuUlB4nR3qKyIRWtTqGuU1eWNYxpDQWT6TCZSiyh6sccHo7Uj6zM1BPn
DfVUNMGIEuF5T6VS5qcTTr/iB5+4xgKI3UWxORehspX5iiS9Eu35wKf6jMrpF9tBcu+Ylj23
aZbPuePHOxqH2GjECTEcKWXwYgegXj0+yNuVdchWSrF7dZrYV30wjA5nYZpyI4kGZ0rydgBy
KjJsLD+cs7gYV2h0SJXt2C4j9ex4F52Z5ngPhikrh/BtRzfd2b78xpxxGFLY+Ykq3nVdB8o/
9uxfFzbTFet26V4GrJFJg0tPxksz7QBnDCMVMXpGsv3VvUcl85kWO/+odkBJtCKzcVv+T37F
Qob3KIban2kuhlEoL74qpxOzi8UOqVJ3t5E73ycHcmdZPt2435m62CaAmzUXUn+J3kPjE4HN
wFVA+Q6hn7m2hZ/CQWfJMmrP1G4nwVt+SHth1tOVuqppPthPERhbc5qEYljsKfCzOewyoMRA
k+/n0lKJ1bIu5wq4gW6g73OQgIqlf/rv8o70amYit1EEMQ5bGkCqkK0iDA1Clrve7TAwozM9
z0Xbgx3LHhg1EWVuPh1iYFhK1q/RhYuCsKvdgoJFkf60jVsGfKGJ+lYkLxAwGOG7xF3+lDDz
YXCAz1OD9MJhwiESUUzrKxSqqkLCEtYHcw56nHjM8p0T7Qf+RJDhmPYe9I5PoSNIfZOizsDw
sIhMLnJjEuPfqEgYK4YwiZDQ3tYAtcMY9rAscNQhqo7wIOaJyY7bCtIHpQS3QSpOeJALo/ky
yASJ7dF6fqxPGF/ByMihpJJugmEeI/mAOdKxYEgJzVxUcZYe8NGIM1rVizbnHDtxUgsXGaK7
DhVG2f2CdI5cVChxowpSJsWUrRzgpGhJvL0IYXJuYo0xj1PHTVoMX3DkkCqWc5UyrKs1LUqh
EY9TxPglpQ18ul4by0RLRWbFaGbMAweNls1Grq9VLKRmUvJVwPfN8zYs4+E7nwlIruWhNtMT
Hzdao5RZeHJXTzQkkdQ4JTi6kXJ35rxWGa3xT05dClviqaUwnkhDhq7THWDsGxVqiS7egWUH
dGJjBDS60SDYLnbjkttYqjiukC5tpBEdXlJqhtKalTKjLJWL7ZznmC19tKZASKpSTWEnD6wr
lEuNalSh2oGnNlWqWM2qVrfK1a569atgDatYx2qBBAAAOw==
}

set pieceImageData(Merida,35) {
R0lGODlhpAEjAMIAAH9/f7+/vz8/PwAAAP///////////////yH5BAEKAAcALAAAAACkASMA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM/0A9R4rn/3rgGAAAggEDKMKGCvE1Au
nb2mEllpIgOD7DUoGqSAVA4xHC4pP1LgAqpIcy/WBVYrf4O8J8EAMBDw9H4KemUiRIYefEB4
B31EeImJF4ADRgIABERtfXshiyV6WYEdfH0Lg0lZnKOpi6yPrEsUoJSCqYFzqh+eIwICBL+9
iEHBY7Qme5i7GXy/rZd8CswEuQ5SRpSYPZaYgUAEWG1gGa6frqIbpKXphHesiO4K5Afp1A3W
8anattHw9xjyI7D9ArcK2KBke2KB6EUgWMFpsBCmaqaQQR898QI0jJL+ygiRb3guKqswsh1A
dKxm5avoYda5H65iyqxnMRW+LBzpzIMHb9wJgSB1fQM1MCFOXqXe/VrKtOlSmvwoHpjzsiod
aVAnlNQVkytOV4qybgDEY6bZozZgTQ3VwCoteiy15vFl0AOWIHifLiXFDsNdY2IGOB3MVCwl
LEgsMYi0ZglixMvEdlCZlAMukKz26rTb8R2Uz58NdxYUi3E0x6z6QjBNYlsmJnsEO73E9BRs
jZADn50Zdy21LIt/l0YryVJlpGxh25JJuyHgDbg2w9RI2OndCHNiAV8jPLjkB734vCyLLTuH
bd+oV3euWgIf9dfPI1v/SzwFgvie5CJlsbf+HCofARNLE6vE5J8EoBhnFm22wWTgZLvFNF41
nhBnGn8LfDcVgHRtdMSBEfSi3kAOjQMMUOthpMFBTGExoQUuguZEg1otkRwj+IHCnQTRNTJP
c2o4kloGlKW0AU6YmUWXikQqqZyMSkgnQS432lTLItBgZ84NYFASJGXt2SPbYM9ZIBhR9D31
YogdYlLbmvcVGVOYGRoTW4bTZJjlHCHOVx8gQALKlH0w7kZnA33UFyFtx1VAGT2N+oXeYO9d
oJOVjGyXKR58QqBHc9w0gpgjkyYDZwPeEKYGBszsMWJ9oGp26E5NjdnMrA6kSimI/QWS0A1Y
TCOEIXj0UhJig83+oearRR0K6YOs/socpBpVasGzEA2p24L/JJWPb29ZqeMDyKaBWxYNQYTb
FCA5G+ugvFrELLyERRoikJDsdap77+4VL2m0uOqFN2p46cVdL/ppHTLSqLovP2f9e9OCkNJl
r6ewPEPPw6vtJjEoQriTzg3uUAUBMpT5clcyAQSQMjfX9gsrBgyth+KgZUbgpyK6ZomOzNmw
qggjl3ipcbDQ/HryvEsFe3NT+E3wLFg0R+icK4oeCpbGJ0UWcbTApTZydJvGdZhMKguGzUxB
VfF0u3C8vVTN9car8DRN+fwD0KvGvBHDiSRD8B6+9I1ompa0WW+hZ83ao0wtMycVSTH+ZduT
g9xeMDIsYHFO3OFTJ5r41ZXnaQGLmnEcD9DOsc7kBKW6OajqufItMTPZhYWYFrpPYzbTmrGe
jCROWhqhnIk6d7qBEhaY+bURery05Vgn8vhEUd9nq7CsKt60eLHnnXNa9GkYga6zSczIicxL
eKunwiO73muMu4Jr6CkhL5u1UkevvnfPM1P0zMKObVxPYE2YSbVUB4imkMVMkRNfEQ4QvhaZ
j4JFSFaJflYdw1HOOCoDwzdE+CkMkUtuellPbhxVvA9ObYL6O1e8VJI4IzmPN+MY4Ey0dC4D
4W1q56KTi+blsglSQG0jEpGeyvcv/P0PVbYbB7vSpITXOQD+dSN0wq/QBxKOHTAldNJCj4y4
Kcn5TnPJm9sFz2cJGSmmWyuBUlgwBR5sGMIJzYBVlM71MBfRx4pLo41GNtiw6lzMUxkkEe1O
GKH7jUmOSnjKgcQDKdCoxBHx+mJXjhibTp4Df/M5JHjaWMVFUohv4zsfCgkTH1W2yQ1bdOAF
6ZaifQWoGEdYZTO28oDtNYMz3oNaKjEWRxnZcAJDTFPTaAQ7HdoyH53SRMR2CcdNWgYncmQm
7PAyI1tAoQl9FMkAjeUsXxoyTI2gBBnlVz5eospY+XviWoBnwVkVUpkX5CIVm6hDKfUSJw3S
JJIgorlgvlEDMYKkI+yJNi1CiwL+L3Qo1U4nvNlVgGeiYGc7LYVHLW5rgBITTGiwiUd3BieL
WiRlJNeov5k8LCwZ9R81IeiGIGSvoMoU0D+CkFO99Y+nymSNVnL6FFbJQZeFMWkbElTFGy2j
ov6Co0LTIVWFjoZy/VTqGo4qU4JWQX+mjIZKIXlQklAHkkX5x1nl2CzoEfV9K4LqU7R61EQM
86JyDZql6OkUugbrrXcFYD9xZQqQzjRudiUsqrIa0qz61bGB5c5bzxiZyWoKiiTlGWJKGKWE
SI0IY81mGy9qNCd2KV4fgcLWIllW90D2f6AEy2Exu0XrGUy1nuVXBR3mwY7pc1f5TEhQhapK
y/5vt4b+VMZd1vqpQSYqgW0cCP8cUNupRom0obDq5xCUMSgds3+OPa4OGaVcyCpQZwMNKh2L
Cy8nvGqW2/vMe71oTpsp9m5pumyGWqZPjKTRX5Gb0mQLQzm+1kqrfTDwMrUq0PPm0LBeRVSE
ymiWKZlXvydTkP8AmeHYwoLDJ7PudTXQCBGbMJc1NEclJLTQKZlYtditbjYkOkOSErGzqoPs
kZwZlhOmGIxXSkmL0XvhGPezxo5V3Yt7i9cl/4tAtdubk5l8vs5uicqfje1ohfbinzkZDizB
cpWnfDsrC1nMY97Nln3A5ja7+c1wjrOc50znOtv5znjOs573zOc++/nPD0gBAAA7
}

set pieceImageData(Merida,40) {
R0lGODlh4AEoAMIAAL+/v39/fz8/PwAAAP///////////////yH5BAEKAAcALAAAAADgASgA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987zOAwG+ICQwGQhYAQJwE
m1CJEdlaKgVHATM0TSoAgy0LOxCIpsfBAk1VpI/eC1lsDNQX4HLJfs2KP11AYS5kZlxvagps
XohxFnNrb155hiN8KmACdlh/HXV6bkedJ0ZLbYBIAVhrmqqMracWdaWKAgQEl2B2sR5BApqj
I3lvwRpolWnFJIuHb5FpjJIZbFvMB8O8Hb7AKb+3t7+HBACcRgThK3a3l6jrqa7rrXW32Q11
W0j0SeYEbfxGX+5sQJToBJk3lTywCXOMhTVUkjYhtLPQkYN7oaApknb+YGHAehUIpsj3DWCI
MODg0Mti8UwYXeJwNXInSZ8ELKoSeQMjphAelOjKqEo4rSUJgkdEICWoCcVDhUujNrrp7MDB
QQp8fkGYEdQGdihIuhOhaVyab60KKeugFQS/b3DjygXpJgA9JsOIqmpwEO+AsRzAnlhKVlKj
nGXWcmgLUapUo10H5bVHtO81RJ4gk7WFliiHPOcCgCnJWSbdxVlcyl29+nQ+MAxUdUoKpOkC
lCY3oOvGNETeldBKwinBGCrF48iT79KMmdXsgl9sR2bruUSmlIof4VwdJC6W6qhNgZ/m2LHm
yZEc0U7P4KDmCNiyayMon8JBTUhFo/UK4ur++CJ/sSagTfClkZBAt0HXUSzubRAfCkGUsZJo
7QAwoFxG/GcBOVrckgkIlCgnImKKBQHWFIJgFUocFNXXAE/YnRBhIy5CsJBUHcqkYQXk9PZB
HiOOKIoTFMW23mUqHjDcGnbU+JOF5yQpQib6jZOTkw2QNM+FHvKnwXXeSambhFxGuWMkRqqY
4SRL1kWBiUXWApd0mzQ5X1RYMmCgaY91eWaBePZXno8V5Lagmm0Cqed71yDHipWhMdlKnpeV
FialSlpIRpn7UQqmXJy4JVSQOTFqZCV1oBqnVQjiJEGPqailTkmiFbJLYl+Wh6lK/QxqV5Se
6iqqpay5ekGGz6D+2iYZXhgLAawSJabOEbjUCo1aGngj4G4aMJQFp98ceYEucM3aJaY/yaNc
qBjkUU0YBaUSL0xIQpYJlN/AGiBwVebLrhzl/fkAmb0OCqW4GxJ0KzEgirUaLe0OeWi8aSTY
hqLPJhaXvufYYiC+Hv5rgcMYKnjsX/C09mvJpmZJrLkpnbTywyaHhI45bbyUCM5J/FLzAtpy
x4mfIHsncGRRBYYEh0vx+a1MLeup8I0/ZzBo1RKkNnESVaHRM8LtcQbnrz0GIZ6FY0PJbUhc
Yp31zKyhFLfbDsC4zlDm8gQCyXEZegG8Qpizl5J3sdpP4H9VXcqF2gbNGr0jD8rB1U7+i7JS
BtikssTCEntw9UDDNaRkMlZphEYEi1/Fa+MBqi4h5CHB3TfdDzj++L40R73gnCzNfNrIspdL
uwPy7t5PhPqMdriSu0SABZc82T3g71lKnu2gHjPlju4LgZy57hB83m3F1CyCjRBV1f5X5ntG
D9RSFlIf9oBr8yg3/cTONfxGGMou/wR8E55u7PILfqQFHJvQx/MGNzDcbSuBbdtf6RxztK0Y
jH3UutzJppafvVkvA/dZhAglcZ8IUItqKjkgCvMBtgLlL0YRC16YuCSyCbyFVnMB38BkCJhp
2CITAVrT5rbTj6EJpj0OvN39pnc0DCLCSU5kShR/VUMp5If+ajok3gcBZCBE+MeLHFFf5RBh
Fp1FxS5eelMG4dI5ObxQeLwSEILUWDSayWxAfpNF67KABD6WQRTwIhNdbji9JMYNfFEUk32u
RsHtjYuREjThFjcIyaVAhh99OqFUCASgmc0xYRYK3hQ8xkM/YeB5F0rjQEqZx0KhZBjUuAoa
0EYXcrXtjbPDEgp1mEiEFKxpZjma65ZSwfBNUo+VtGSB7DLFXkUJfjKpEZBKpkjU/QWV/rrY
EucGwm3mS5WrxGMkLZYMD63MRF1qjvO82T/ogRNQUqnRKH/JkV4eLJLuQY6BlHLMyCVTJFSh
JVJsURY8BfOUAdxP1KblPf4Qkpv+5DnjCBLaQ6vJA1zVyskii5acAiJnY++EwDA7iMwycuUZ
Z9QgF/WXxfCpq6PjjMxx6qjP9K2Tli0qlycpgpuQOmBoF4KdFGxBtoP+pJTC0eEvvFc/tlyt
mMa7G6l8Z6rvYLGmjfhONxnZsgxRYp8/MY8jQfjSoYwAqLeD6pYwOtYJfEcucPJo8LT6yDre
Tj52G83asHmhT6oxbugC2jtI5VOXDjMtA10FMmHGJYkgMpl49aXWBCtWqGEuniGwKqnoajWy
TbVJFbWhUEZqyVJZFKOKXWStRKMgtPb1f6wQkXScalfuVNOKjO2rX63I1nDp8J/Dc08e+OKr
tsriohn+nS1qKqlL4LbJlc4F30Pb1rKDREqwtc2d1SKiTqWVNUhVpIA30wbXSE43ozKE7Ub+
Wd2pULY8v9pt1moLG6hk17ZY6h0roxVR5LKGIswCIVIfVkHOWiVHnJKvjVLRP/VeZLCfVbAJ
8cNIn3WLc/CFGMD+WWD+kFZhxqVAqpgiYREbMpW/HXDJLtxbDY/svrf7gGvLVOIXIYbE6Drv
9H7rXzlKZHw5FRCcWpg158oYkvFVry+ISSFPADfFyWVyk1oJQLsAWMqioXKBekuPXrDztS0d
bEwfoGMBOZh5LR7nlwdU30ca+U5cDfHfXKHliCbzt6XFsE39OTU9VwxAXF7+3mJwKU6jzAgO
x5EQtXCSaGiUyLER5umkQBktHDEU0EM+I2jVu0JfORXJcv4INBKdvShhdWlEyklvR1UfKmH0
SgAqC7hMe7JAn/k2MP5vPQoIJZ4KxTShtJVnm5qeSIvof2z4LnJkidCJBMmLXHxyB+4c6g8D
9z9sWLVGXEnf7Kp3xvnydhNP3DYnB3q3ZTbLLmB8mnSX6X9EfDWxjdmvMs0oYm/+CrUt+2Bf
dTqMZHaue1V7Y/Ps4miItvaoUYSBURk7tcaAcKSdRdzDSMQQmtWzhmZh7OTAG9G5NtFkQ8Jg
Tok8kgJ3ciURaxSFYzxgohX4thfpXITLfKvJhOpteqP7rElcuckfkQcdFPNvro6r4AED+rFU
91LXcaPZOVc5zx/whIA49g8REvoaiC7zmb8J6RRU+nFzLvYomJ0IY5spCdIuorO73e1st5Mw
Pvv2utv97njPu973zve++/3vgA+84AdP+MIb3u4JAAA7
}

set pieceImageData(Merida,45) {
R0lGODlhHAItAMIAAL+/v39/fwAAAD8/P////////////////yH5BAEKAAcALAAAAAAcAi0A
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoAcgLJICSKOSqGx2
kAEnCHoKCAZMBiAbo5YAUGQWHM6Gxc8A9zAQuAcNcsq6bnlLVqxjS7uPyFBjZ2aDaWttb3FJ
KHQwAG6QdR9WblELjwKSK4hXeJCVC5SQlgefoBucZpkEj6SicFUCpC2YkZ6nCpiaKpywI6K4
wLILpsOotgrCrpC+nrMrj1isbbscsm16pQNtXautR7IEBIsHVuIExqUB4lbPFnQE3MkC5+lX
rOkiSNjkKrWf1TZ8yvap2yd3HpSFMkWqGEIKwhYeJDbxSAB+D0u0OSf+rhOJcLrMRYNhrmPG
De3YDYCyseNKJOHG5YNAKVvJdrnCNSoXMx2ikxQ4JWIhlFmJYmAGkmQIbiBLUy+FzXxQk4nC
A/8yzavIBtcxpSxinrNydN20SuwOBgQR7aLWXzGl1mOYFmi7PPMAxBPAoBeDe9+6wgQKcWqK
YpCOIl6sBpqptRikLp7slSrYiAv8UhylQCjhCThdiE3rKa0bvfhWIsrGiDM4sxxjy+YYOsI2
0p2RXXor0aM6cfKeGEYx+daoYqrfQBZeeQrl51whFM2sO+eaV5sTJxx+omW9ZiHaqLniHZ3Z
pL5N1Fp+IeXs97FrSx+Aex54nu7E/zW7bRL+dxNFDTVCLx3RxUpNKaxnHHSUATXdQvfJl9ss
UPn3mQjRnENNU/S9NxoAiLB3QYYbwhXVGSimqJ8EbaVXCl8NSIhJA+KVyIFmLGR1WlOngYgc
amfx9sdjr8FnZF0T/AOeGw7IyGRfAHmAI1H0uERCNCAeKRslIlKQIXBC+ndFimSG8ZOX2DhQ
mXYSOYBNlzTKAtN9KBRFZwc6UiaNaXCyiFifNF0BpJYc+UiYj/et+WSbcbJ2DBQudvfGXJHe
WOWBhJ6jiwjYxJYmhmhlyicGLrKpgKkvwkidc0AGlkKARoXHjGQ/irOprIvduUGeDFZHQamL
nhpsqnGyqul/IIj+NxteIMQUoqipyTrosbpqgKiob2awIzE7YUUPb9Go6q24Efjo1DyxGePW
QIBSp2cIo4DJIGojJftctRmYWyaKymkrpG4K5hTsjGhCZYlIq6hrZ7tdTVtopdqu8xO0YF4I
gS7w3YprrxCDlt41y5iX2UririjBT2ZWUtJ3NZ0hoAawItdsXByvspfFD+QpGcONEvppBswK
m44opHACJWEoPyUnPSmNOUoYL2PQypFkDSFLLbDFZ+S2xwwKD7Wv7TsYB5Q0BNNCIp969lYO
3rNsJMeGKtvPUnP8ASZjTSZVh+iEiUGA6+wNDqHIRlB2dr01xObhJ7u9ZSSPbDGKw3v+4Rso
4Tg3Sc8jrLy38tuWBzqte8dmLsHn8BUeaHDhGLPSOLCYU7U2/+VhpKEaOv6eje1xbDoDtm+j
d98GBg00YoEjD1evv/O0aEWaAbPZSbYfqLKtytL3Jjtlo8b7O5du3bzahKIuG9d/hw8GRhx1
rIH5s6me87eWhNPfb1Xfln8mfv8VPnze0V3qyFUBWimvA74jninm0qeiiOFAwggd+JjHAawJ
zSOmyI12UiEBN8jrMWD6jmmgUqD3/c9D4yuPkVT4OAk2YDR2og0BhYM5BMKECCDRSg69lTwe
PsJPWcuYTmxGtf6dzncdiNmfFHiQtLjQf5+IXwb1gURr2IL+SBnMyriGFYchMgYfydOLEvXS
LQtMzUhlrBvlZHPGrc3wV0GUSRxn55waWmMdnegJTOqxR5l0xY+GGw0a6ZcpCXmJY4DiFWLo
Qyu+cbECX6TV8hg0PqUwRBkREcoRkzcZMhLSgEM0HTWE+EQtCBCAJ5yNyS4gSDk+Di52FMg6
IkezlcmCZpEDZKDimDr4eU5+UIJOKXeDSCYusGIaiORiJgmdSgLEIQxByhR3KRPKmKRKz0ne
7+Qmw2FSh1DmKp/7IHDKcajyjShJ5fnGdxF5qWE82CAPNTzptvtdrJWo5JuW0mgBYSaxZldo
kBOTuch1FYOZ2WTOZOx0LyBWc3j+nQLlKvhpAWV1Uzhr1NRq1Hk+dAYyow8bn+ZiaUJbveGk
UEHps9IWgXL+kpe78+gElOjNrXBMiZMq4fFqJtIYVTGdAE1oBzuEU0a2Tk9gqqBF8+YoUtEH
DLPRF08y1ZxfcTRug9MSMDUnjapwgpOnWQ2SjghSGcKUjVvVAk0BxVPnWbNApgMoj5qp0KAy
xmPes2bTFmrS3/FjWXRjJR71OSphFTKt4zLLGQpLRZLudCDYcohVy1oXcD6yAjiNlb8Stpgs
MChvpvtHiqKE0AbV1a6SncBpPlgMV/IVHzKdHxF/2VQ4mo9ubSxi8zJb0yM6NmJQoBgE3VIB
jBUKRRj+KUNsNDaimtVWtfZbpCmbOVaYebCjvQ2k2MaGQKc88D2AeFCSVhuPQMRHkGS4TTW7
ZNwjEUywUO2cTA4x20HGtqWvo01wSJBZsFhqUIDYF4DHScx9oHZMIbKWXf01noD6qr80uy85
T/QUSREuu50S7kWLm1PPbQ+VRmwcZcHGSn1mwlU5Iax9K1hfk/LMTXLarvGSmZygJicDq/ku
OA1MYOnY9YmtZRwxqVtNFlPmxXEacb2sQVgZe0rC1MECTG4qhsCCb8QhbS5R6WHPFEOLEjfq
0GLjkV0YYzlaZHuDjm/HY9P5UlSItWlQLfYPvURNkQ4xjaViDLUeXwDCMkv+s0Gda8jCHNg1
NNbwfoMCkMiZUsVFhPILoTOgMcn4Kb3F52HTeWa0Nu/Qku5FgodMST3LEj50/IB4Lg21TF9S
bOKNjEO268B0ahiMUhtMer705ct6LAxjMXBPs7PgOw7XgMpNtWCPDasTeTLNh8YZGTS7ReaZ
+njcG3OcH6DpIiIwvxTzEZPPertF/xnSmeryiPrB615LejMU5vG7W0puVM/bXd5VUaAJijx+
LfMrB/amHEht7SLzm9LwireMzf3nVAZYDfGr6XWXOwgpGvvWyt6VS/fp6yQNelZIJp9wMw6+
er903J0+EMMhCep778Guiu04iz6u5pCnCrXCkbf+MLlLUJ3fa8oX1zDJcXzVSFuNZG6xucgp
NvRfoVucQR+5y1vu8jjN+doaR/r3Znbg7uabTAGy4tf1Pc26mdze8Dr7L0P8cZcZVWJ8juBn
AGFpVus8c3z2HaQ4nV4GvURyoaU6vGDO2CY5sNWuXDWkzuUlSKn9vIjuJ7i/vHKPTV5Ubgn8
41/pn1ubBiFtOc+UQwWJEcoJNQYOyF3sXqatSmXhTHnsQfYFOAW33DmEryboqX5kj8VL6pEv
zObP6+Zuc3ybw5ehvTyve3KenRobV77HmJ8unP115Fa26tXCvS6B3F7VqI35cACKZ8QYmvdb
nefof66GJbPyxOvXkxjn3kuq5OdtZswXsk/XFRXu7QgTSJBtOVY4byZcW6VmwrU+Mvdylycq
Cuh9oMZ1V9d8ltErRFB+0REo6HeAvJcv6AdwqFVmNwdqGbENKQMVYxAgJ6JuGoh+mSN3tMcQ
cAIMCkcmsUd0hyaCLmgbK/gjl6CCZhI6EjVnsgdzM0h1v/NwrNcYk7CEZNInYGA4PKOETlgG
FbR4euMHaQBoljYEVRgIU/CFhWAtGcGEeCKGKZJIWMgYWkg2NLdQ/SAFcjiHdFiHdniHeJiH
eriHfNiHfviHgBiIgjiIhFiIhniIiJiIiriIipgAADs=
}

set pieceImageData(Merida,50) {
R0lGODlhWAIyAMIAAD8/P39/f7+/vwAAAP///////////////yH5BAEKAAcALAAAAABYAjIA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWze
AAGnNCMADAYAgS0QnVag3vCkes1uuzQyVpu6DtiMKk5tRrnd6MD9mt8PPmpoCnx6fwyFdSpX
NnRwJ26OCnI3jW17fZcLhXeAVgOCB34NiJGPhjOeAJ6lI1hlca82hIt2UFyfmlhcVn1cAVYf
ZXwLAp8EBHpwiLSKpzKed6widwCwWDeidpkKm3i5e8F3aMV7yuArzDHFAMfHVtIgxqsH6+s1
xQHHyXb5x7jcxpD9O6CnnR4MARwlc3dKTz+HC7AcwxcHVIdusV6Q8wP+L1w0etTucdQm7ltJ
gOcsJDyUjaAfNC8risB4DYaVdu1qmrgy8YqAhbwstnCob2CJgAR07Qqox9avAQadSdhYDWBU
BkqBReyXFA20jhZ+blpp00/GoxwxcplBU2gIP06huYnbcsxck26wpgy17cBXEGLxgN3JDicB
rSYK9iyTU9xgElmlQuZq9qHZqxTW3aralAA5az71Cjj8L+i7aZJdmM17guZqwTDqon1N22yF
jbFogn6j96Rc3m9Tt5BoGHEJfEX5tAt6kgXuxxyQGp5OHfOEhQIXyC2VTlLIQYW7oqZBGwVu
PpW7uTXx3FLt96yvt9zuoDvIu4P6hqNx07D+zuMSNcVLVO1UwkIqinBV3YI4HUQBdg5yA1F9
qTkkCHHiBcffalWxR40/fhSYCnQfIOgefO9VoJsmEzZgn0trRaSfBy+2sA5Op3nokwCjIdMg
VDipQSIH79hTiy9IJqmkksZFoFlTo/znHXAM8NKAaVR2YCAM50FywnnJlRPkPCrI1eFOCjLI
YIRT7XGmS2/eV4qVVZYD2IioMGUUCbxIZ9hP1CGSwjs9xYkaiinehh9LkhVi0TBXegnISDH8
tucIv7kmzo9S8glXLWqGSlpYi37jgKMUWvTXpHZq5Illa5RAVI+i/nmWCOTQ6lmsJaxS63Tk
GOpkMZGgyigoxhL+88aQEmD4mascMvsgopcUeGsIXc4lLQWvLumtktdORWyUeyaLEijEbvuA
szWekIqCT3VKI5Ce9ffrrlkC5hOwocnK2L2kXVqBlE1JBcDBUrkCSpNjJKnQG0EaJZYv6j5g
6aetaJsUilksVvED2bZKgqbUrtfsm5tE2p03dWIwMRcPj8bjroK8TBYInVVHhskZBPQqwB6L
YEXH1JEhrAfBfrskmRr0C9A+W7GJj8TtNqDGS1oohhMuV7v5MUrv8YwBJGGi2GOuQnOsY3ii
Mt1zlps4womykE4Z1sWfZA1VruJ1Tc3XN6qZYzz5bKTrvUOHMPSfhyduAt60HT1wOgX+GfUJ
m5VfWDXdUBQYryu6roNHQga5rUHIq30tY3iQc7icvBpcfAvGvfIkargXxOdS3XxRznJ+wlld
Blc/QUPojq4Mz1W8H2PHIEX65nPHgoAyyPsGOW9N7+uqr3u50rMHQ6dL2QE02kDGDFRwZvtW
NxanfkacL0IlY2s7iBy6RpnA9F+2MaVoqdXmKPC7buAFJgXUHQT45j48HIYd79OZ05q2PesF
DwP9iV9xKjidQoSDOvfTnikEeEEVgc4q0FPMPxbyD9GJrX0M8oT22CZByU2AWgP8Ak9IRrbV
RKWEBPTh/2RzKER9IG5gW+FJ1DMl/olmImOhlQxJ9y9kQIP+dLuyYbM4WJ0c2oWGFgzV9Vwm
ncBcTldQgwwXQQhE+RhJhVXJYByBVJo3OPFptRqQQMBYnfG9jVr6ohb+qgUisTkJLlzQx+w+
MhsjemATnPmOmRQgly5cUT79uBjR9Jgzv/3Lj2Nb43S8KAF73S5NgSLlqSD2ww9Zy5BvI+ER
obIPxTiIOLfsB9fSxzMYipGOouSXFiGAwzZOoHWXQd0PLxIiNjYnY4B85EcwAjzWZAI3vYQY
D3tkO9uhzhhG0oDW1HRHEx5uTawkZzkjME7tdRGWoZQl0tL3B8VQRE8u4WYUdjg/FwWzg8vS
4IJUySgUwRMCPKyMQFazv4MWlJD+r3Ho5KKpJXCopXd5uajIiAkkZI4mGcj5ZkAIqiw+bvBj
gRNVSgUHu2l1cY3rpKA8aVS4y9HrHXrKnk3zwSaOAsymPzWmA0S60dPhkB3fZF1L5SPEiO4E
h/EQB0261BZq3hCYkfPHLQb5GhB1YHELclwHfPk85YjKg9hL59b4CD01znSsmXRFVG6SSIXl
BKw99R7AHBXUr6ptXtTKAjKXmdamMvSpFB2rm+DC2MXuxacBow1PlZPQkQrVYmTF1zAlQJSz
OpCEEgUJKmPYzw/e7rKQNZxP5iIMn3SObKM6plpDxcBahXMDyFyqCYsJn4ZugKipQ6wjAcvb
RJUSYsD+xdf53iMz3U4LlWnkwEp1RgqBsjG0fpkt9Zy7gRBaEGc3jZwmq+jczv7Ku6ECpThp
A7hiZqG3jcFubmmnxsRyoLLF1WJncwsiripUINilx88MIyhmjsaUOCqDFpBTK7QaVbv8Kq1p
fwne75ENEbBaw0YS8hRDZjaMv3qWdHO7WYTOJaFmAC69HEyFYnaPQvYtbHElO7keDXZj+HrN
2UjKudFacYIYpCWGRMQrGP2KxS02hrd+AuSMvfW+cDlnWWPCPgi/NMRNvoCKs6xD4rwmEfhd
MY+buIYxMVK4KKrwjJ1aZRuzF8fbDBpuy6wmo3VXyBGOBKFsy+XbkLgZT/7+bYCkbFtfDI6p
h7NZVZGUZ78e9c4Qw5uezSbn38qQjSW+M/h8MebdKAWLz+N0UdnZPgDYQsro9cwuYKUusOYx
plHyzDmBPN1fBhg8oFY1w0iwZUl5YM8N2jQqb1tlW6yZEKYLMm8lWggeBdfTko1vOLzVaUX9
szGqGxqh72VnLVcRxCyV8BeBdmhz4igf5ebLtl96a+fZ6tZt+p6w+0wqW8zXLFAgA7PO44t7
idrXDy4us6aKRH8aVNrMrA28D2nlRs/TpMhYUljFDTLGiOXehCBdsnN37ZdScMfOVtWQQfvr
YHL3wet2eMKVBzPqGvqZQU65Sk8egWOjFqMSeZX+AzCOlDEqO3JfWvPXkrFIHMIM1ju3+XeI
1PA6I31Km3lg0iFuwQCvA2+mpjjKgYY2GlH91cz0sb+fnvRjOxQ37+0Uz3tOdlhQPd2sErpH
lL5ypd965ADbtV0gMa46iV2dAVbLv31O3DVP2HPfmvXNsTJaRfcboHM3fJKLuna2B/7abb+q
zCW4+N48vsGLBOznzxp6AwMtYgE2kXaaDnjFip3Jna853Ute9JJBaaz2XvZTpGl3R7+p8pZ3
/edOvHu3nt6rJT/+Wuel/MYkv/lJyfRQJ735gY7Zb7n/m/GPX+3dZbzlf0oSzP/IckZHPEm/
KbnSpW+1SS+7MZ33ZLT+6nvsWQZJ2InMyd2353hviRD30BdbM2FdJBR7kvAUqaALL+ZPzdd9
7sZ1mbd61VdDhVd/IxBm//U/gICAwpBvpmBzs5R1vJV1tzY0wIcFYtVdf9dgBlgfX3daLQgS
7MATcBccDdiCqdZ/qMZ+WPGC6WWASqdAkWd08KcvMwgVNRhVIFiB+Fd7PCgjUoV/RDQ2K+hZ
F8h6MDgV+oMkEkEODCF+WKMSQUhlPZMFtddbHBZ7RLEUiHJq0UV+SxgCGJiBQlgR6cFpSLUv
QTF4sLFbbnCDvxNKVYhOamhWx9dscBWAeaVYAaiBEDA0+WdGn5UKZXNGipSCpDaG4zctLzH+
b2SYAZriFEtzWNExhtBUXPsTPCfoXn6Yaue1ifLhgyyFXdmjfOqVO4OoJosYHbmoTsHzgAsi
IFhYKCbUiP7BbMMzgQ2ic5BmC1z3OYoVhKf4fviTiYFVecMkeE0IhoEohoXDh/mTfy3yNt94
hvj2eEg2NrL4XXJIgK94QWvgMH+yCkaTaA6jd6tkjFsjUXygjMCSjhbwYQAjYhQkje24Zqm4
RdTCI2snhprYjRNlipAmkXO2jdS2cAAhihbJhVWzZWeCcdBhIRupNG2HdhSzJnwYWldzaoX2
OYmQAas4I3U3gv8Wb/DxkYgSkg8JkVUWhCoZk1EGZb13kJp4HUOA9XI3QwxNQTGncgFzWD+/
ZY43mZRRCZRUCYo+OYAPaZRWg5SlwGROUQrw9JSIgl2SeFRXSQXDt2wLKAZuuQP9hyRteSrg
QnxI8pZ4mZdxyZQpsCTUoCR5GZiCOZiEWZiGeZiImZiKuZiM2ZiO+ZiQGZmSOZmUWZmWeZmY
mZktkAAAOw==
}

set pieceImageData(Merida,55) {
R0lGODlhlAI3AMIAAH9/fwAAAD8/P////7+/v////////////yH5BAEKAAcALAAAAACUAjcA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9DoAyCtjgiCgIDAo1o13q94g9Vyd2EdYP0KBNINeI6wBpxX9Xw8z17Q+XIda3d+boaECn8x
AG9dfS1ugQqSNn92LYBwmQyWeiKDDgSGbogHijCMlIujjSyjclkCPKKjpSasbg24AQyMuCG0
brIMpAO0DVmHL6lqrKojrw6xs6y2Jbu6vwu+rMCjwwvYDMmky603yXXCrm/Cd9zgOMXHK5Fr
WboCdfjbWuq8IOxlSaNlgEF+k/z5MvfMBblv7Axt6bdOhzgVFxVk5Db+KgQugtoSdnPB7AYj
AQZTZrE2IsvBcrQGDLQIICUjdjYBhqtp8GY/ngNyYajT601KoRoDqNR5wE3ONERHcDTUMMXU
WisewnRmMWSKjE29XmVaIarIkUnRhuW67VGIsVVRrExpUFS8E4wI9CSV16A9li4KvsS592NO
w37JSgim5edRprEATAundG+Yh4Ax/Il8iYZWiCrG0vnYuQbYE7tSqz4dgTG4seNYxdt1GSuw
ewozY6xMN6jiEqlSMj4sMa6JgWsa1+MNl/irxxcEKrf7Eg65u8HLnDmZ/LeHkjZWe5cqPrU+
z7Ijll9vKHp6Ux+RSYyDa7vXt+dM86aL9Cv+ypeR8PfGQ8ZdUQ1hvSWooIL9LWZUYgto9cBM
DrwX1lMkgKefaupRlZpk0cTAWAC6BcTeieM1MCJSEkqTH2XzpRXiJy/O4FJvdrGjl0QPJmYT
OSVmSBUk+y1oZIINRhAchNskA4GGsZ1HGYbkFSiXaneh9k1iuPyoDCpDdojiahbA1mSSCUkS
GTHxVYnDSb1RmEI6A9hhjJ2P4ZhMlinQ4kuQHjh15KC9oQlBMSdVSOKEaNITW02OvpWKlSaM
FUlWzxmTmp4VtTAioB3Yk8mopC5kAS5ZluPib5Eq8FmGk+IQy1J8CpnMoAL815svtZZAi16/
LjdmeRd8qiif7a3+GgpbIWjVq0O7PIvfN2WoBlRh0oqw4qK7EeotkxUYmw2yaDqpIrMgOFuJ
L4+VZkJMWHyrYDCgapCMXnVd+pUwpfaLm6EQ0JErub8lm81vkulTrwSxADvZDKN9tHCxw1JF
F70qfBYmCu7Iu2C1miVM8AMGs4lwru5+0LAxD8NQbY/XTUzBQHTh6bGmyp2w8sUtHxfgzYdl
+yS3JmuixYvcLEvpBNTRtZIML5sn8wRagXgiULQIzYHGoF1ZcbQc5KUo0hufpbSvgi01NQdZ
X+sl0dDwFgzQ+eZ8xawLNjynMHTvKUiSMfYTlHUlJ1VgxK+806NlflyV8gfbprb2oRb+43yi
rlm/y7VskzP8tYVgAN7pWYSLfrjjikNKYp3nIE5V52zia2SrHvE0N911L90a30fe2ye//ubh
+98vRgK3S3aLYipFxm1+6ZJPuQ62CGPeUozlKGKur7Zjwh4w7/IOH/b2MhJyHScdFVVjBM43
EpwhrNthaeAfQH8klAGpDj/uABq4+sU2q5v3HhC1y3XuS0lRHptkwpS89CcYF6ATjqbiNgrK
LmjTuto10uabYQHFXN6IFgN3McBQ0OxbJzmgqmQEkpJxBH0AW5Xb7uQM1qHEggnilUeKdKQY
hq4m17nfBRc0ukD9r2aLq1s9ZmgknwSkZU7pj1GceKH+xCL+RVEaFEcKVTkj9WwDFRPSEecX
Ca7Jroih+hDrUlMPfQQPRNQbnVrmmD5XFY59HFTQFkWxoy7mzW5kSOL9sJiBudxoUHnU4wr/
piskMlFOqGHigqgYqFwRzSliO0BwSqI83xRCH4TUpKAIdS/hgA9X66PYsEhwr8h1qYOyOUzn
5lcTWu6mejtc4YFEGaIRFeKOUxil1SIhu1KiJGvC4YjNyPdDeeGPbYlEpCS5qDXPDRE3bsQR
IK8xzRyGsgIryZmglJOdVtyIRSTyYQLDlza8eYt2Q6mY7pY1LOxV4zHVxKNsBnGnYdLPerhM
V+DeQ0E71vEhFbge13TlTrwVUCL+SuxAJ1EINw/MxZmCVGRFNTDKwtRQQBjp5q6+SQFGxC8p
gxHlUYYhGKHAKZXqu9k8otlDmFLAlavxXvtos0YRFmZyuzASa+IW0PqFSBtTYelIlFlSQZHx
fzOtDE4fxMwM0JRBJJ2A/bx1UUJV1aozxOYavBlSjNKojyg96ShzsSShjLMhWyUUdbpK0Xmu
BUU0GpZenCcgu961OHbazFDjWNTvjCQ+2LiKjGyaJi6tJl8omctUncpYqh3xSDkCQdPktVlS
qnMCGY3fJLPKUZEikUa1bMxaZdFOXhwyFzR7Jn1MmyDkNbKuFh1TPnc3rGOK54OflcBqUsuh
fRWWePP+QdVfYfuLqjWVJ+v5j20BJB7GSfR6s1tkGoc4qF9htLLC5aFliEhasJrVGzwJJ3Pa
AZRUpI0UgsmkBOJKqJNcFrfXRRHsvkZd8xzGrsPt6WBzidcQ1oI2CK5PfZ7r2JzacIrssW5+
p/mnZoV2tNj1Fhox0FEAchdckTyvR/5jF0wSIBggAuU8fHNRSg7ttt/a380gGUj2wG6nWFqP
gHZ7sGj58z4bPG4av/E5YQA5mNKNLpcajKXqaPZncdIuNGHcRB7RdinlLcqVqcSxLbs4jVg+
mphl46Ex6+qzMQGaOz0WXKatB3aTzfF6gJtlisjzlgUmcJHFEy5Bxbkys/r+M77arNUOJ8av
Efrfh4mzBfpWeaOqXPS8pEyCC5M1jmeUiLNGSGQZw5NRW34K0BKVwQ+JAMeokp61ZJnfipVw
bHk20Z6JBc4HxVkvm3zzXnjsAG4w0ddPxNnHNnZCioJXSRnOLqQr7eU6B9MeEK1THWSX4vQC
z299vm99LT3pZceTPYh+xVPPger1HntoehVWrI0669Vozbv25GmuxYOvYElUgo/mtWOKfbEi
Gtqr50a3G0klvq80mzyIuRlcIphsLXJbm9vMwEPFo2/S9Rd0y31su9gNZSQi0LjrNmy7rcVw
Rf9WtE+t94ZVSeU/ervQNfl3wUXZ8ppW3A84noj+Kw5Oo2NK2pmDoLFltc0Hd+eBu5nzwJ9J
OD5BbQ4R4x7FjjVbygRl7dWHGri/EAICx/HzW5ZokwWqjoWve1OSf/ifDic8Y0rfdIpIj3jH
Y0xo4WazZnBsQbm7JtAPd4JUfo/40OW3dyzZAdut/trE5hY5goH7Mc7Ox9+DHnkM8NvhN5eP
PviXwy/O7JSDvDLit/ZwBXk+obc1aWblI16AV76xo0X057+W+U9Ku/DfGOvTQueMOgC9OzPq
AO4x7p4a/tOgV4N8qUmOqZr/sfaJ+Dfnd58BXtkE+NH1PYD8uua2L42uRqE+RX7+6B0iEvqe
c74XBW8v2rwR+8cvVvf+p28Ggc76+7HEGH3G1N66U6486KdP75cHK9d+tfQvl+N7q6cBEzdr
OpdfnOcbE+MO2qFA56JtxvZkfMAZ6oB1iaZ+vcN+mkFMERgxa+NodCNbIzhyE/gc6UBP/HcY
T3Z3uwIiHoh8RQZ9S6dfIjdyZUN65CdXIshbFsN10YeBGagyGoQXojKABBhwESB9dON/FQKC
7GRhI8drrgSDMVgYfedVsodkQTg7QgdGvTdtk/SEdTRkVHF0afgPaxgqVghwgpAclgQH8IY7
FWZEbjREgvV66NZusndIajhcaBgUtSdMhehj2udJsjZydchUMCRPrFZJdZEJS4ECJhWBg2P+
YVtQgqfHYWYAilQ4W5x4UkpHY3moh191Ab4WQP30g6jlhJkAhYE4cuE2ZjlYiurjg35VBnhY
ZP1ni0WRc8TYVKd4jKbIiSroHqFWfkp4in4Rhhc4hg6njJOQc9RIH8koe7zSiGD3L4j2irCI
WXCIaMM3XCewgzxVGH71Y+axjb14f/jBE/uQfWOFioZljwhodPnYjKfSelMIiC5ijdcYhmVg
SQp5g4LDidjoGMz4kAdAV/yzgBzgg3F4ans2jAgZCx5Zf6Hhi8tHj0qIkYkokEDDi8g2h9sm
kUcoWm5HHt1oYdwVPFY3hAklkKQiVK+HkcDEcZ/DkdyjFO/zcvX+SIuA4JJV44ZWV3R8d5Fn
aHYAtIg9iZIyRZALJI2+8Azw2ITGVBBtA4f7JIo+eWQBmXZfMwgqCR83BH/skU3iZ4Y+CVDC
+F9axTXCUwx8E5ZuyS9kKWOcZ5Y5yZKDVHnIFJFGSQFSmJJYGX2EeZC8dXdomSn04lFtiC/Y
FCRlOWAOwoj9YkY96Jm1yHxs6INoc392+T2b6W6ayQrJqBYrKI0SKHKy2YruUZuNKUrPWFMw
1Vl6JDt+gl10gEqtKZtIUmfwUI4oBGzCJ24pOEyZt5nAIYiQRwns+Aqf05rihpRU2XTX14+e
WUzYeCs9cY/+aDOhGJC4WQKXF5i2qZv+0paP3SYLVadHvgeQWWmc0LEB5HmK6amYpZeEpQmJ
rESdXKIKUadcw2ccqwmbDGdJDvifoKUF6SgbIDQ+3FmL8gg8GaqGz3Ce8JBoXkkmztihpVKK
1yGfnIV9FRcMCsM/CAiUghhkezZwsthjbymiIRdeDYqim9miDSqjJElUZfkMyrMd4AmSOIcq
UTEaoNKjPxku86N1YikxkAMXwaMxj1N9Prmhq2mkb4Ck8PiAifAZA5cI8pWTUCpRCTpnk6Nq
GzlLJsoHlTKno9I5J8Y0r2an/nIbffkhoFCnw9eHUsGnbvEJhsoHeJoZeQoriboJmlWlhril
XdeVABioY5A5qZrqBKSyqZ76qVDQqaA6qqRaqqZ6qqiaqqq6qqzaqq76qrAaq7I6q7Raq7Z6
q7iaq7q6q7yKAQkAADs=
}

set pieceImageData(Merida,60) {
R0lGODlh0AI8AMIAAH9/fz8/PwAAAL+/v////////////////yH5BAEKAAcALAAAAADQAjwA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodEqtWpcDAGBw7Xq/quwWfA0EuM8BmmwKCN6CADDO1pjXTXW9Daf//D4AbnEAMXBnEGZC
A314LH19DZBwkpMCJAODhQ0Ab1qeDp1xji9vQIJvAZulqaQKikGMcK4plpcMtpWTmJqhk6sL
oogzpj6DfXIvoqkOg8k+smZvtCe5uJa6kCOyh5UDBASyDcfTxLc95MzKyM3q0JPUJtYL8wr1
H9zu9tgM6fG153a4OQNO2LpP5V7FAWVMwLdwgB4JAAeuGL2JFC3uo0j+QOOHaeHcAHvDUWMn
guKUIdQC7Ea6bi6WzVpArqWOl88k7rq282JPEJZG8lMgk5JKUSx1nORYUYBNFJ0AhCwnS01C
HiQzBlyRtWmlklu7dtxaQZAqBksLOr32MCVRpxTd4DH79ENROHVj3O2Tt8ReLvmu7rin4p7h
oRfoog3KU1swS3PN9OWwdy0OuUwJnIwZJ+40kWpVaRmM0asLsbZKj7UENgOkZ2k1W37rFOli
qU3X+PO7Uss/Fy/ZtaicaZLoyTAIA0zNvLlHCq8f/1oMCdhfmpB+Z2DpyXcOsa1Pq5YJtjqO
k1pEsio/iT2k8BYGpp8NsnhLcjkPnPzmFj3+qvwjPHeDc6w4ZwtyLNyFoAgGNogYBS+twlg/
wknnmH7GoSCgDeBp9QJmU6XCEXr4aZcCfsmpltmKLDK1IQRduRUYgAdU9cBu+zw0loZkDdjc
h5YER0iJNqBYoINIYjDPjA/Y2E4jPl1Ywos0gMiRWwnCxQ1oFEXVJV815GMigyq2aGZmVDqA
WkDFzaamQxAIg8eaPKLzI2fINPXLl3iFCeWRSDaoJGJt5iUYdcPs8xMJacoQm2cLgsANRFIx
oqNsuPE5ygwDDZTimaCu2ChbofnSI4ZuXmPTQOBgOYJtO1TGEAuB6XggU8skCoOR4rHk66/A
BvvrqFHCRF2cs1b+suqDIsAqUGee0XhCNHCZ6WVmy4wpAqsEeCpeoA5iEBicnBxK21Oy2DSu
thWs+2yQLqwrW2pb4DrTrhmKF+q+Hl7gbrnkAoxusgr8uw08PIDIiLQnDMRIpvxeeS+tIkbL
LgfgJinunwLfqA92qdJmLj6pzBfwZfm2IKSBBFHEzcUcjHsIzBpUHLGZg2Qg5gPOUhgRyE/J
RHME0Zg89DbHlKfrCaLcfOYgR1sQTWZQUwyS00y93MHPIj8QyZshH+AGQJfmfEObtixtgqwO
tgxO1SvInJ3VtQlrd7AT10zjMl4bpctTY/NYNrEnzjziMQyH4InLXGLd7civ2swU3GH+OOP4
2614QDCqIRNC1jI2iULZr74EQHXIwKqwcnTLtfJ4oBBTznSDUbe7OrhqDxp6n9mYijrhnJBe
rumToy58w4u3aBCPLuN1OUTAZwC1mdGoLHnEzoBg9m0/RxXVOAvZ9DEFaP+CxrUjWpZFarl/
cDvr1TiPOe7NR4/B+xWqjtfddhvbwfYWyo9M7sO7aySuSSsbA4YqBZLv1UhW7euAKC7FonQx
D3rVel71+OAQUG1wBWxrUKQksLzHoKJcnwDGwhwItI3tjzuHSCG2alMTX3EsBCGckDySN6+M
ZeqDJMAf/FQgp4gVCocfkwnAkpUPAoaNaHyxYQy9hBRMoWL+igiBHMY6GCpXBQgjfHmeZ04W
AodRjXhX8lbcMpY3D2TrNizE0Dci4j03cSNS0aCgpuCAJmRALI1arFnGeITGHmZMR7IrY2r0
lLIw8DBUE2xW3gZIHX1QcgF39JfrVnQX6M2xOnoMUe3eUkhQqccvnTnJ1SrIxTP5DYllasqK
LJilP54pjnZZSE68pJGs9HIicTzGgqZ2JrRdakuhLB4ZKcPGEVqgig9xjumEVMhXgoBtjJxO
lo7Dv/k4k4T+K0pjfllAsZVTAsSk3jG+YQYMZrBFiWSmLa31RA9gxlKQfKfyNre1VrooltAb
jj5vWc8NOOWUC3zcGnx5joVh6jH+qjhV30qJs0cKg18AlGAzOSgVB0lFVjrq2UeYk81FQWWj
X5xVURZ6ocCsQokWsNkV5Te/j37joq0qitsyKs+I4VJS0PLpQFlkzQ7IAlu9sWUgJTnPfX5T
AtOwiJceVrBqdQINoGHhZyQKsJsNAiwUdWVBn4nSg/nQkK8pjwhkdpyCmGxuICyr4r7GOYb8
Kx0SousEmja/oIwRrHtMa1OeikKhEjYCq8SoP+k5VrL+sTKPbew1h+pURgHTD9cqxrUcmBUH
sopYj9wXlx61L9Hl0odTYuNNmRNSfmpgL02FbZZQm1J13EVkvNNmOmJarduhcbRBvR1uTOtG
yrLop/b+DGrEOmSmom6gcTlNKgWRi8qmHleyF3BDbhL60M2uxbuFOOqOKhDaLjI0mYydLG23
xUYwMqea9vOYcVji1pmCKa7rVSSUFFRXUPB3XLzFDctadd6+knReQAUoUZdpVOaa0rgriqcg
revgh8bVupzErmNlI4drLewAdALR90BDVQrw1WkiQd/N4tsAuTlnlFVVrTttwREJu6Y5JTUP
fsF1WJ5F5y5yyEWEzHnfvXZFhJj7BPGE2C/3KbeiB3QhelskXn6JdAMq/mdlL2xYElwrxRmM
qmrE/CWEqGVBFS7mQRfLLxaDL1BR1mQzc7wntWg4AiGk8zlnl1/1RhEytpD+WRb3DKPSOIg/
a0Z0g5rsgXTC080eC6uanxwq527HuBWmrpchPMMe+wI36cpgVEiihcc1btRc1LQ3HGc5rHlx
Ay5OTRDbqwr8wZerZD1wczxdFrn6mS9BSVuwtQkdLrZtfsRDEoFxLWc2L5vBzFRwBcmB4qWa
OM3NhfamMdxpTHRFmJ/1RAxnIYj12UwuAXZcFbFGXJIdOnLtDVSNrW3k994OxuDss7vjjSQT
JU+IGIGmR+2MNAdn7otTzpowsZ3hOxea2w0XKMTTx+uvPPu9xjnELBhtZEl7MLHYczg63xdB
g8Y7h2G0M6/5zWxY8ji1LBcUWX+L5CqiPLgiJ9r+V0W1KUkSLwvUuy/DMwPEaCc8a66tbpct
2zKhpcN05fMcTds9gao4buizpLfUSI7vm08IST8c32tPLlB9jzTmBpJzW5A8Fjs3B41Owsc6
WXlwJzNQwcKUDtYsLT2Q75NrJ514mWEOmS755kosWTteyHE/v1da2lQWO6wB3nMnb9xAL0XS
rfWLOzy93LJoJ1B2rxZ1v7b9de+tX5yvPYqPax2q7k1mLxbj8Wy3vNeEeGvur1jxDVs55/mu
zuVKD3jYO1usTiu6Rg8JlI2jXoe4NZBaXU7ZS5b98/AOPftu3Mr31uv0uhcs9FY/AU0ItfgX
IIlDiS728uZT2zoTYsn+18Zpe/UeomKcZakRKjXnI54lJOcrWfd6EkB5jWRy0PJefaNsfAJj
bZJMeQQD/tFN3oRKr0FfNwOAxNZ/pFcbU5ZmYlAab2R5R8d+6EdeARdKakQd6pZ0BiUaxzQf
MRBrL5Za1iUGd4NeVLd1izNoLLd/kmcHLEd+C/hR2+c7DpI+wFdomhEsxTGD7vd3+LYPqpB/
2MJTtnM9yKdYJ6h2jhN3Y/dHjIA5NJIuLbiEn0ZP90c+LDeF4gVDzVRqY3FYwcFNpaWBB9hg
MTc0e2E6+YNJZ6Vy2bdrL+BookWAbAh5l+OC5Sc5UsQyiTdvXciBJRh58IdOT6Z+gGeI53f+
fwwHaS5UexV1iX3HPt20OkToY4RghV0yewmGdjQjM3pShnMmiGQic3RDgXiDiI2YKb4ifwJY
KsWVCtonDWhIIaIYKivYdy0DGugGNpXYcL33MPX1K5gzhRDAiSFHis2GgV+YRbVDWlbIf5aH
dqnoM84zgtkAO3wyjSVjNzbmbaGHb9QSevGYGNq3gY2GdaDCiyBzCBBBI9NzOSVUjiyzRpRW
bdzIW9G4L6B4EawIH684j//jR/7zjzzGJ+eYCMcnMRsZirp4N/fIfUFyisxxiyXJP6szAtD1
PJtRkc7zjMiYf3wzV1iEh3wnSfl4f1kWDrqoR6o2KBVEgQvGkvn+OIkFGGhPUos9RCaHGFfJ
eIg8uT8NiSu8h5KHp24z9UUROV6NRmQhwy1iVJOnBXFXtmk7GTk4GYfk2E84GG8w+JDFEnqS
ApbLcnKagkSPWB3csYZpaIVBiQE96ZLHeBGCV1pyyV2sGJhSo0AzCZg5mX58CSwmtW2LWZgW
MpkUeCA6GRSbyZnUp33T6JgYyZRkqTmDlAITGJLC0pbLN5R3wyKuiWUOhoPCIpuYqZiQ6Zfg
E5WImZhZEIDY+Jc0mZv7IIcuuYPLl5XfiAq953Wwoz8/mJchEJzSRJp8JpqW1YTQ6UcddXu4
x51sJBpz6JRd6ZUmYHWXmZgM4FAkIZP+tXSZU+mbUslUXcmYKHiU7OkANDhwbpeenfGeCxma
MTeV+vmc+pmb/Nhm4CmEh/l+DYqDtGB1mghtEqqX8qmWWcOa06WgzmabwpJMiZmg+/lm0/mf
/pJ42TgNRwWG7amik8VNrAkss0mbN3l0tlkTKLl730c9vyglqHme6CmP53maeMYcP9pBAsej
SCpIJAqkghSC/FZqctmiPgg79eKPYKOfKNCf/tmUrHcgeLhaWvKOV1pkkplyxQmlN0afylil
Wvg8I8lbQlqiJlSkkSkMhyelrxFNfBQifMkfRjMoT6pXGhBrushav5Y2rekcFfekJ4V2vpin
hdoc2lJna2r+qDoThWcYjpzKboxIp+dppzmCp2nSkkgVO3EgltxJUES4oFfXoEioClXpMoPG
a3jVo/zCp0FIqFwaP5JKnRFggK9BrH84AfM1o43KpvioGjmKpMGoFbgqFs9KL9HaFB8JPrUa
dNmKrIroNEbaN17FonGabTcmpH2UXG5jhcXRrVT4oKByRZyXj+6KWKE3qY0Sb1bRXiRZqclV
G5JakFsEsAUarrQJrwTFmzUCqxB6bcEhgHyKBndUL3upcc7EsE4DaVFEkzClh06xrfrXRjZ6
lArrpV9qsEsUKBLra8VWqRpbqPtGop6qn8PZX7/aiHUTQrpCfFGEEOfospEZpj2zq4sPS6DX
SmVrGaq4d5Q1252pibMVaxx4wLMvJLD56bKnRbIEqp02mY9d6q/kM6EA6B1NQhdky58XA7SJ
eaZYio3WGbCg57XTArZVJ7bpcbYtZrbYiUlpq7bN4rS/sLf4YF9TqrB7cLh5wKESmLQpORqI
+7iQSzSKexSE27iGG7mYm7mau7mc27me+7mgG7qiO7qkW7qme7qom7qqu7qs27qu+7qwG7uy
O7u0W7u2e7sfkAAAOw==
}

set pieceImageData(Merida,65) {
R0lGODlhDANBAMIAAH9/f7+/vz8/PwAAAP///////////////yH5BAEKAAcALAAAAAAMA0EA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodEqtWq/YrHbL7Xq/YGQAEC6XBIM0mTgOmDnjt/yDVhfbRoDeBrBL3EdjAwCAMnqHh4UK
iIwNjIgnY4QQdWkDAhCSijR9a0SHfH4Rm0OCkzOPepupewysniSalJZpmA+yN52llbWkLX2W
sAsBokO8lzO0tMLKtA3Nlia8tq5pAQTEgw7TudpCAccCvizAxcPmQeHJ0MzQA8/u0rTUC+XL
2/Pdwj3ZarTjKvpUoqfgHxs1eqzJqHUITTsBDdPAg6inTolydQg6JMD+UWCDjMFC7ePRrxnA
FPaQwVNYCtpJFO7aQVvZ7GIzjdBwKhv5QleQXhyxoSH46xKBcoXqAHuJY2NHbzDUBPW5QOrT
dwysHpVIwmo2RVqBMfh6VQa4nEwXulMJIyXLA8fS2jiGjkVMmsrwOuvqMmu8czNjnL0pt2ea
oIjrqsjGcbAbskOHhOUaddBUqAUtl/UL4DLWDOXaIXZYTUBQ0vWMBqW8KOQJt653wL4Ho6RB
22yBrFXbTGZNv4FBx87cu1rx1MFbKwYxG3MOrYg9xjh82trQ1QxP8XC6lahdzVtjembnWYO6
qgMSY+6H1Lh6BudNRKTI08ZaS95XrB18U5X+D7q5uXDfgATuhUF8B9wFmDKKzAafMvkxV9El
oPRgDWJBZaNWZ9VZcs1VOxXGQjaHvPXCZOKB2Ft5GADTmYvomRbeJrbRaFVkyr24XAhU+VAg
bwXGJOIKuA0wZAhBJvnXBbB54o6NBo2VE3I7BeQcD9RhiA1rLgiUIS8YIgThkSggeCJ4Wqap
ZppiHQiedAfglh+O+DC4AHdtotCjhQQa4g6AYs5D5glmCqjkodG4edOC+M0yp0l3LvnalTtA
x2Jt1B3DIXYfCtJoDgPRYOmapLLJJQUojlVJfXQ6gBFYb55Kwp5Y9inYTRytlaE9EcYQ6jqI
HprBbsOsGkGrjuD+B2ty8lGqAzBp7limVBt1Eiaa4Zk4g1LSwoRtqeBeaoGXHCGrAGoPJPoA
nKVd1isI5so2YH0pxIUdNFraM+gImq5D3ysAv2JRi1PiU5+6rgaoHIQqxFupah3KACa4oxLw
KyoXLqXWvwF3jMjAF2QDUR2+1BIBwivdwhDJelb5w4ASN9MYoIN8ONqnGEM63bfhgpunBUWW
rDB6nzmAsgJBt0ybDyR6ti8HS1WM4Rhr9vPutEZ2SO8JwSKqQY0QeLjucAtmYiehBfOzXwyw
CUCzoFPjDAPNW5tQS894lyvrBGCnq+3CI/VjdpTyLNpDQrEOUvcITVOd95oZ+XphdCb+vzCQ
x5hfjIEkbvNENuBj712Rf2iL49nibTXXSgtFImr6zUM3PODVJGRk8+NpDka7A5xDFHZdoYVe
tCsAUPS0BEPZDKMONWZ49grk7oq7lpG7QHLulXcZzPT5fp6Bhn7LOtTQBsJzPKpZIwZ+Dq33
RU5vzd33ut6xo03g7iLE37X3m+9dfqTZA87w0HO+CUzOeQOkAXs2FZ326Ac8g2Eg95QyIg9V
TWwusBr3OmQkJJHvEh2EBwFOJRDx7a0CxYOQdg4ALS0VYwx0WaEJ2vek7+DnXoi6HQWJdKgC
Am1/9ylgAIkWQgEO0B4PAJkGUjiPFbZQErlaDxOX4UOVQYz+VCxTQZY0uEH1FHFSV1STY+aW
HcwxwnYiwCBnFHaYUznkVIIzz+zWYK3u0fF+KKDh2rRoQRXl0ItVFJ6SAkmBjGwQjR78InHY
+D+4NDKOGXgbhVrDIUs85Y6z85aMwqVErqVnS9vrIgITKAJD9qx61gOi3ECwygSlh0uMQcMm
2jjASnxvVYToyBQvUYdo8bKJHJKEsuzWtQdeUZXpAyUpQ/C2+OGPmX3Em9X4wkiU9Y2ItTwa
33D5oQnhp5cjpE4tpnGIoyDuEoRsId661QHGWGwZooQd6r53NzumKYsZVGU61ZiZrcDCWj2y
Fiz5NzieTeUYWrLN/Ex1Qqjtb57+X7OkF/e3yXc66wM01NEe82nQNWlsVvx05XBS8s+8SImd
C5Ighnb5yesoVKWUa+gGpObR+jHHKCIL4z2TWaqQerCilIOpRXcm1JouswMlHN5hiEEPgGLm
QlxaWgWuBy7+SPBV4RIZNYP1TOFo5hr6uxDdAEnMtWiUWGfiWMc6yaP/MYxKxfgNESFK1VJZ
dUtgVVZWh/iBLElTph6wik7XRNOV8vUD6rSnmlCaxo6q6Wf5GwS6XBnFQlxofe5kjUBoFYGl
5K0S1xrsBS+qAVWm4IZhpYUflRHTrlJAf2dVkKH216zh6EykBsKNcRjr2Y6Eg4GgtVgUr8jS
+ZFoBH7+XedRPZDYvB2QYn8L7Lc4R6FcGta10i3qYwG7xJq9hTpUyRJl6kiZr3D2d0Dl5AGB
kV5wsbUDpgVj11YLz3sF0qyqwEaJ0taC+IKUcMfBrbrcwijSToSDLumQ8uqZrZxErLHT4+5M
eercT/aMvXy5XYN3ErfllqCwDPXkO6lBHfC5M5yAmBxlriNhFj4Xb9eJYnurylgDAtFb+xuu
rjyD3ZORZ7vMMmYxy5q9wCRNwCs2KQonJ0mIxTicm2yyjI7rQQ37rMVumvGVtbxYLPMtuco0
iQs9zBfthpiYle2n3sgQPV1EjytkaTE4I5y1E+OuxhLwb+2AWMkB3U6bcPj+E+QkZcMhf/hs
7HBxcWCDNLkWUrwF2uRlmRwk7EBUAtE7pYE3YOfHgZh6eO4smINKqlDD17FnPvRmsuSROvrT
kZviimDJTJwNeok7d/ayqLt26QrokUD0hZA8IzuvDSd6tobeaqKm1CRH/ibIPv5kaid3a81M
28KAjiiFSfWVEpBlenPGWzmITSpX+7LXpzZz92gdSc3Ywa8SwZNE4P2OFrLLxhamczi7mG16
do2Qv/azju8TU3ZPIKyxlW2hg2W/e8QDUEiWiFvwJ9Frp4+WjVFSnw0+gbpy+7B0EC2NUd1l
RQY634rtcmXUbViOj+ur1vDrG3nqj4rGPH3nTeL+qMUdSu6BfANN5m8pVUk/AjHQp5w2urEd
vXCv1ZZBMTHrk449VfAqSUahKXqBPvRzoIMYwzbZtno/vdNNW4CmbTDqyh8H2chuanzpaUNJ
+lGSo4NwkzlPGMofR3d+m/0CQc9H2JGZpIrukJWzs+h9KkPbp8+D8LWg+mshnaRr9D3gqo0i
upHHYFDb9OQsb3nP8wZ2eIncvZ8/dOjFNQJ11t1Dj4887G9+wMke/MWe3nnPqMyvws8Q8odq
7dCR2WMO6Ln1wNc4k6it8eEG+0kZ/zvB9s6p0uWNP0bKdIVdPjgr79XkfFz9ZtA8nnkFyebg
97H4x8xl1HN/8gQi5Ln+kOmpyntRBJj3M+OTrezkBxEDWhF47iZOhcd6IMAfhNULh/YhblMq
lzN/62dfw+d9H5d6qsd2unZ2WjEPGzZl4aB4FjYYXkWB4WJufGdqfyCA4nBoXeM7zpYkdpd+
cgRExWd8N+ZJ/mcry5dMgScjMVaA0bd5EKAvo4WCoUM/RbiC6BGB9COEdbJ6pXcm69d2jSVo
0WFlkgBcizcsuHdhJCdG/bYBFkdQ3XVDIPgnywKETdh78MMIQtdfN0hkOYhWFxBNgXdJA2dW
o8Q4tpNVqIRYlvFtCaWAJ8WE4eGEdaI4AEIRrQSHU5iBFSB7etVFzaFtYndlTEh3fEhRxKb+
GnqkhAVWaaezZ6MnehYoh06HinP0CAKoa32ndcCkB3hoTt6EK9Eng/52iUV4Pk4lVFqld7YW
hpYYJPKngY/4fvAXT1WTS6b2iisVEeeHCNgTXSenTzc1a2vhHWPoV+MWC6WoPkgHh2oVMO/V
Vioki9yzXy6Ti2+XX+WGajCEd+GobQslTfjkUJ2RdoMIfk2TjsKobYmwK4hTjL5mjZ5kZlnI
CiQ4fpaYj9t4P7lUCVWUf/EHiFIRP75AkZkHIr8Xd6lwDdRYQV8YUwTJEAu5QfXXTmbIc+sn
kch1eupVg2oGjpZHjR6Xa8goamaWdymgkTVUW1NxTryGjuHkhBn+hQgnmZAY2X80iHj+cDf6
MgvB8meQiGkwOAMiA24hyVy6p4xF6QFcJJBCeR+M4Hm42G7Ud4KnqH4YIksjJpWGeC/k11M5
eXLth0VbeWqtyFLyU5UPghBeGZSN6AGtGGl9lWCa85fBEoOquIWYghBmhAjzKF1AlQr4VZYx
BU1qUJhGhxHeqIvXl5dflkxMBUpSeZfQdZbCgZq2x0Mw6X7yZxsBiTtZ+DwWGZhjhoi8M4dP
gxsbR0qcWV/DFUgpwTH98gI+qX/eFijAN5CdOIdkOGFxCWoymRFMdA2ypHOvGS7R2W4QMS8O
Ewmdd0iiWVojiYF1KUK4+R4s6H/VKWz+LpmIvOZFuvkgLMdUyMmbjel/TJmDYbee5cl5HIif
eoea3GmEu5lDrBMMkQkwkymG50l60heJoImSfilI/nc8NKONyBSD9dloaelLBNkAWemV92iO
+DGbF1aLCGo052hdK8qXZxChJbiWo9A5T0kK/aiM3bmDFOFRTPShtwedQtoaeKeOQSKNa1Zm
Ynlt/2KAIQedMhknOEo4obiY9Il8m6KU7vhq7xOiPjehS0ajVyam+DadDJWe6omb6xMC7JGg
J5l7ZhptEEGCMPSP19igHdOiBeqefFoawSk/rXmY0KmmKZWgHZqljcWXOUGFQImbf+oe6/mV
yAemGxSpyjH+qZTqmnEqpx9afxo3osgBoHOKbwzapdz2MUr2nGVElI+lquuIokS6oJDnofj3
kDIkXzlYpDMZlG4YiyoaRf/5jL+aooygYZjqYmi6XbxqRQa6fbx6p/KTqyjRlXTWrGQnoYaK
HMvackX6kMrnmrWqqIzDqE0kqskyq4c2MoTHrtuqHO6qSu5apLgWmPdmfZPao0mXHgKlmo8a
mMmqaJoaoC/3rJ9VqlJZqFP6aM1JrsvJr5ZBsJU6h7wKrpX3X4VapNmKnpw6sDWmlOPgWXfD
eyR6rOQGqQg7hGHEpVM0jho2qOmWO5GZaolUqO9qRQ17LxAFsiqbNSOrGDxrjnr+GjAByyvB
mlXQmKwv2qnqk7QXCg/dum7Qs510ZnbYxw7QyHUl1qqzQyY2S4fpxqIUtV98oV8WuwzM+K5f
+7RDmrPDtThX24bXqUzR9y9dO2GshbKremqWGqZqa61+y6ST6qgvybQ4WTfWmUvChBZFF0yA
kl/UZaOLtLZ4aqoxsVYww6rTWqxG95JfK2TjqrMMS7nyY555C7BMZ4MGy3Pbyl6aujweFLUt
txiAe6nSIoiv2qUkckAJaVcSS1ma6kvXmKKGm1Bj+aEx5KrSNJaSm2drS7v+Z6t/QHhn+6Au
uhND+wrQ5lUSxLLYe6zeOnzda5loC77CN3SyG1RW0rf+trtpT/ZXyHCTMWmewSu8FgmjXukp
H5qi63lObJix65t80iugnBiog+m8pFu5u2ZOkPejkWpJzNuCsqjAt5e+1dGskjqpb4o+Qkkf
CYVIfUisvIA4E1a/Y+aUEMGmU+SmDPG6J4pUX4vBcAV54MhONAgIBsx9CdxIpvu8B5jAPkQi
2eug/grDijPEAtOj4KoTiIJukInEmPO0V+vByyu2RbxN2Fu8xHpbGPW1olq9WFuLi7PEH8Fr
eLvDB5jDxOimanyxVQidU0u5qFOnjoCkhEiidEEfJdtjO0zBo2CufAZwzkS009qecxjHazvH
MiSZY3ILeVwhw1A8NtjHt9qCxr0hyApbsVAMMOjKspv8kVnwyXr6GlbcmdTqbaV8daQjH6IM
yovRygGDrnwAy5hDyoB8mbIcuWN7ynPQy74cBZ7syr88zMRcBcH8CLJczMq8zMzczM78zNAc
zdI8zdRczdZ8zdiczdq8zdzczd78zeAczuI8zuRczuZ8zuiczkSQAAA7}

set pieceImageData(Merida,70) {
R0lGODlhSANGAMIAAH9/fz8/PwAAAL+/v////////////////yH5BAEKAAcALAAAAABIA0YA
AAP+eLrc/jDKSau9OOvNu/9gKI5kaZ5oqq5s675wLM90bd94ru987//AoHBILBqPyKRyyWw6
n9CodEqtWq/YrHbL7Xq/4LB4TIYMyugXYA1Io8/uOIrdlosBggBcu7azBgKBgntGgX4ceHpc
fYcpgIKBhEWGSQABgQF1NniYkgyAnkaXgpo0kKelB5ynAqmrrCmrqQuCAaMCELI8lEiWmLMy
q4pmAqFFt603rKQNr5Cuy7wmug/Rucw70kSPrMYuzsDc3kHImDbRyQzO2Avrgijlxc2RBASP
qdy12bhH+ZDjLMA9EKckXoBz0aAtU7gMXrd5Cxv4y7OvHyk2g2pwEkb+yB/AHo8G1AtZ4xfG
dO3y0LmkcKU2ERvXmFMXqF49lg1GnQQ242WQif80shqmwCMSoPJMJYTIiiGsacsO0ozIIB5K
Zfwm5RFpc8AohPVW7Rnl1WeQRDYJ4FQKIG0gaG1t4lGYltOJt121cUq7llYxuWZdoMsKZHDg
FtHGPjXi7moMdE6fMV1MAt1kyQwsl9QMhBPXtPc2xyUY0t7bI3PrOoaB16ZJNixVZ3IpQDVh
DK9Sta53OuVf01f3Ar6de8Xgj0IN80Sc+ADQ5T4aQzcebTbs6nR8WdtQPPNS302nNhS/usTx
ILvTEkgkmm+kSwGGvwWAPLnb8oJb3U9oO5r+7Q0GeRcXcJIE+Ak9YUljIAtv1YeQYVL1hE5Z
kNEnhHSbGabhhodFsOABE+Y0lEScHfChCg0Skd5/NKDl3iD7nUIUD4/MRlZ7rkHW3zIsYlBj
gkmZSA+FDlDYiQOdABfhj2pFwlwhGybHIToz7oCUgyZMqWWJFly5gFW3OYdMlSBGtYCXDIZZ
mH7qAVnDI6Aho95G8Uw3w0RYZslmm3z26aebGQh3E0pAGbMRMQ8pICgBvVEHpYZvUjmYdpjR
mKhSW2b6TqDfObeMoY2SeCmGaUI54JwdUhdXPKjWFtaYeQZUKVt/1mrreqk6sOhcnyDjzaGI
HpnSqX2hqOYPHD7+CEl8jKIjF6w9dJehpplqQGpRvkYA7EDLEnKtsYzVxGeoMXDD21Yu5uXq
jhHigCdCp94q73DWinsuMJkcqyi5DbTSrm/32RkCI0Q0Nmu53eToX6sz5fDutNRqWS9VOeEh
wbbVWPLAt7EIrAMmbX5FQz4iDfAZfW3aq94tZMogTo0IWZfdzDTXnJ3IGZh0o678ftkwz+XV
uMbOKBi5lYqGRYrKSAb/tnItsZoA1L+P7Tnv1XZp0BzQy41CtW/hbF00tEMwOWiQCOcBn7x5
+EmyDeKMJKwMEWu6wURfq/Jzv5s+oBMEdaqA5k/n3RkVpYNl0ubbSkcVdQggXy05zj7+jrjx
3t4F9rff4TkiNhAU3tdyC6OYxqzkfd7yOAhxq4v2C3VXezfL2mZUTd+i4qeK16tXILTJYglh
dLc0gJlpvE06abhhvXdQC+ry3sKBkXnrrTySuB/Ys6K8C/4L8LZHt2yMus+BIPS1qu4yjOoR
VK7q6PfJzei44UdN7uXdP4/HIKwNGuY6aNrBZBW7pb3odS1AyqVeYCSbOfCBUAMBry7Xs3wA
Q3804d8H/Keu6r0JVnFaFgw4CKT4PS1XJPDanzYXA5aZ8IAerB8C9Ua5lOQLGJgI2vYuMIDs
hKI07bveJ3zIQOOZ6QXl0ANwNHW6s+nLIVPS4AiMWMAYXsD+MxT0ibQyp8Py+Y6IRTqfun4I
xj9A7U9Ggt2eSPZCm3gNiZFbIQDNGMf4qQ8mAJyLEPclk1ncozwsnNjhptKnUCEOFXSUHXNI
4TpqfSZ5VpxipiIptWc88JJBwSNFgLZH6/HLgpzz4sWoVArh3ONe6jCeFAEkRjTOUU+NfGQb
2eG5FfnpjjCw4CVtlkkRuC+D7OGbTMLEkglqb4YUEGAEFxWw3XFolRigIpXycz4FaumRtCxa
3Zp3tzNCz0jcPKYnXkE1yigAGX4Mnww1pAjh3AKVh4RMLFpZq9CkSWEqa+MSwxmB1rVPlnLr
JOkK+EoPQIJn9HmJuBRaDGP6BYX+IkrSnJxRunHlARUApZ75IgZNrdXRmlNq4i9PANJhhkgG
74SePvT0Emdg76B8y2aZIFoVb9aFouLayLnKsYY2UYqSHm1i9Gg6vZyeQp8nBOoG2JeydQVx
kyidzy6zU1CDZjM1xYJTs7xVE4d68omAk6jbeOpTGQG0fYEcQQETybDYEauqH4CQE48YVade
Da4cOJhAzrTAvYIHrKFUIhrJWhqKnjWEotQAEK/2CALu9BKH/Z9da6VOEnjGT/mUbEc/wMx5
7TCuF0VbaoK5L1cVKzYOrRFRzWYr6jVVrLYimi/XugJOMKstw6vOuZy1H35ykj+4mtQMYjJV
OnzWqur+pCh5QsXTY662jl1BnmvVwqxu+fSssh1YZtmWWKuuymm32q6fVoEC6KpHvGcbLnop
2916+aJdqdnqsBKkCa06VCftVYAgUCcWyVqNu4DllFup0zaQ8ih5wAVSgJeqHAVz6RsF3OwE
yLncIK2jvp075wAnsN9nDeWR/e3p/BBrXYWVoLPclXAy11srFP9JphKkZ8B6ujiB1pbFmM1v
/RJqYTb1JTbBtSF9+drQ/F6Wv3UkyzePK+C6qXjCbt0tbxX25N+iYg1c6aFJFwjhAZ/AGXu4
sM8WI+aiIPKK5zOiYIPbRBWORM3qqjLAVKrjyv0XazhmGFQm26zENFXOMkT+H5MR0TacxTdr
ZRoNL1pjTJB5lcN5Th2CWCu57HE2wrV0spQTHNwFr9OAfeJYC5SpIUBfJivueOgpVM2ODFeg
wwg+jhsnHUdptm23lo30n1NAQtQB+a42dt6d+3xgVClVk4Kuc5dqYs/4yrdM9zHzuiZ42UFL
G3nA/i6f54VFTTqZ1wUs2YbOG+y86na81QkGpknaOXfAYTvPKe2GEaVoDn2mNRWNtWGG49tE
I9nTE4tsa2WcPrxiwJbkbjFRtbttW1mbwUA6g7PZs6jTcJBXp2yWDLE9L60SXF4YAwFtv1xF
B+to1lAVwYbiQmp1e/kuD3HHQTBklTYAZeMmZ17+QO8V0GcCydS9vhV8tDnseQX9VuStTNFz
pHCAI5vOpuYbV8zh7Mamq0ltOB+v8k1TnZpwPreOX8g3WLdj85Cg4t5QE5Ou1lLnfDwwILVy
UmCmxnxVMkuxCs47zaEcDbPnPg+uqSldcGSKPOzQUzKdlR0BhN9H4WaPccPZG3UBBbSHVnvL
r3GVL6fOJeOIroDXxa62pYP84b7bZnkjPNd978fUK3+7jFz+7dV3Qzpg6nxTkLJ3uTOS80C2
9TN+fmLz8olCldcweCcHa18b3AIuZvqLGe+B6FMe3AOCj7M53yAs29Zqc7l4yimQ8a83H33d
HoHvz2wC4Zfa/VZ7o/r+2bnpTqlh3Sewiu5llLiE6N/OLJcp+AR49hZx7cdUx7dSlWR6rjR8
0MN2DCdwA0d9HWB905d8+3I6FnQPFvQP/8AGfHcyOuZ4V+NmJlRDIgB/z5cBBkZQ56ZgucZO
toaBo/Rye+aCx5Mze3I8Z3NbAggoN+g2lZVCiMdty0KCDod6FGB8RrdwDJdsNLgoLHOE1UGF
KvE8fpcB+UZ6DBhe4zd/U9JvEVVFmkJuFPhSBKVeNlh8OJiD0WQvLTg+gld/GnJvXwiGHDd2
I7BYp3dGSMheZwgREiiEgcgdukZuUShGQ5EYSMEqzbR3XMhxRliI17BymVZ2IqEp2KSEUEb+
UDRYg7VHcm24JVI0enHYYV63JSJIiZMxfZxYAf6jVYSYIp7ShejmhBKAgPICM2oIhcaiEkPz
D/aATl1BWHKIeeUGAbooORY4gU6HZqSYfzKyfhZSi6TYH+ZRRS2CfzA3imHoUU5ziq6SimHo
OgvYIGjEEdmIW+d3Qo5xZA9oaR8wYk2YjPM0eRf4i47DWE/1YKn3cRNoQiM1W9RCP+bGPjN4
arEnHyXwHLzEZfe3htnojcmiWEx1ij+3RHVYjPbYZJLIJ8HTdiJhfd0TUQIpj/1TC2pGO/YB
dcZiC8vykXjGf8+ofMsHbPEzPzcYMf3mgAZGJirYfNwgjVgoaQr+qIah2I1qd0nwxwHwQ4AX
QQcRZw8z42c9F3kSwDuoQyFYeTs8Z5RhY4uumHzi2JEq0IyFxIqhhFT1tFMd8JTtcx2kyAZn
pZMlEJTppnIdZmBhWYavx25IGJLJUVxUpZYOUHM0lpMnMXtO+XvrkQmDiJZDs4p36AEmmHgr
mIt/0UOHlV1jNoiAiIH3AIJycRJiyEqx05X/KJNMYzOgmX6oqR89hJcrhzK3UHm0mZeHZ1SF
c5gRY4aimVM0cy6nqQFbCGyqSX4XwZYgKZixKVTchZmvWIPQ6XyG94bYJliwqT3VWWnTSQGb
F2qVCUcElZydeDLBGDHWEWesU2ozk1H+NFOHO+mC4cQyr4CMQyht1AKcUMQh5kl2RViP/1k7
N8mcWTiPRXlTcklKdIBd+ekBhIc+njkxZcWOyORP8QNjkFOgT2UDXkOY8TmeG7p/3qgdBHkR
oNlxW2aQRUWR3CQdIRgs+/mXSlmRxcOEfTigyhigVAmiWMYnKNiiUjWK1hFB2didyfaf0EUP
Q8ctAOlZKHlpSPo0n5iVT3orvCiK00iaIGdcrpaS+KhPmXkBFDmmtyMjTpQ3ZfkpMaKlUXSj
RHqPWpabh2My3xlKZWo5bJiiu3in0qY47wUcwcKngFiTS9gKC1oLXjoDitdGWaonkGmgVBmk
oMWaJ2moK5b+p082ERZqFmu6EG0KqSjjNiZaV96oo2iYp1EqbKoKU5AqqZSqhQdWLETGoYuH
qf3kSC10pYxlpqJ3iM5XeX/4QqGndKoaAgaxYZ8Kqvi0gMBWnFYKjD5aM/I3nzHpo/I0kYeD
rf4oeZIKHFU2EYIaRrwKpbgYrYpKM0lUNccqiqEGomflp7cjiYR5WMXqbZoaAtbkpJ4YqkRo
qYCBqq/Goy8Uq5dmEkilZRqKXMCYsFsmjVN6giLKgmeQLS9FqF54ro1XrkPJGq1KdOsRTwXZ
U2YZaArriSRrmDaZpzpqMkKSn214Kq4qknOaEFjWWB4LsDNJdBj7rHvWs1CafOX+upUaqy22
EAqNypYzy3BR+Ug1O2+rp7OTSHe1WTM2GoMhlZ5vylIfOw1Hi6f92qxYqylVyjcyM63qWrSa
KbU7u2dsO4mVh5YZqrLRCrRJqLa6EpSZUDVvayv32nYmYbetiQyA+Rp2q2WIE7eturBEiYMy
u6qIoLdlG1N5SrUDgrjHw6V/255rtJhRpLnyCjTfeqCjNrTeibdmEIyd915YRisGurkb2rdI
h7qiIrhJeJrrl5Q3NoqPS7tForp0AozQeqjtCnMkWp4G2wFCc6oTemmye3qTq18EK6aQy7nI
aKfXmSbPe4s8O7okwYaji0psuLjRO1Mx66886xnfiyn+lVu4EEKt9mat2JG2lriO4ct5XXa/
Syt671mJI4kXeugcNGO/r+u7hAQahTkpDYqIeoJtaAuSBmy+rSqwBMq76At9/UtB/6sfAYy4
dHCkaOtAyVuB17q9iSqsJWxCiYqrO7q9fhvBLay/1ftXFWJSzOJmt+m52SpIi0sxZKcHIque
9EFabdcWWpuaPQW7rNrD1GTBYvur7mlS2nbDUUlqHeUOLgzBX/qWpuudFLyMShvBw6rCMCy6
Mpwr8wOCJ7uPGpllqoQyCxorucu7evm+mAQpY+ufR/xM2rq4pUuRvRtgy6qqcsyszInFdXzG
43vGUReeBTy5xymp+7uWLbb+wDkCkyKVHUlodnLLnKGLN4n5gFtWslB8ZaPKWDocujXVw5Bc
ppuYK3S6LLF8lNBnyGyJyJxbndN6Vtt5sLrso7ysyvMVvrQatfdLbP9ot2RhW+izvtB4zBZV
ZbJgu+OVVqD1C5L6sHmcr2lCkWYoyPQ5x59Tyz1sfyTMwUGcuUYszDNlxOk8l+tswJ3sktp7
zJN8OfGBEXR5i5v0oaTaRykLTfOMVKFLCtRMqjNMpsC6lSPcZK06uXn6zeRcditLLQJdzuZ8
kBhtrBtNAqMZwhCUvXp5tiBttQktwTWcuOQhM1e7cSXNrVWWRKH8TXvcslfGlmvMzoOsiotU
ol7xClE2KM73nKkYzX6WWdQ2XdSGWc5NzNTLhqgJXB2ekFum7KWPI9QuKGf4ua13DBliSNVQ
rckTdTNSzbXFS2AdvZpVmThTTUUhetVKbdQQitVR9NWz7J+4S75NzcRXlExlNBAzk0znHNfs
rCjvPJfDa9hlSjDyS8c97dTQ59cNKgEezNi5MNiEHbeHrSWte5Z0rcCNENqizb9rHdZ/HQyp
zE50Odqs3dq5EKKmPdkakdp2XI2ufdu4ndu6vdu83du+/dvAHdzCPdzEXdzGfdzIndzKvdzM
3dzO/dzQHd3SPd3UXd3Wfd3Ynd3avd3czdoJAAA7
}

######################################################################

# setPieceData:
#   Given a piece font name and size, resets the images for
#   pieces of that size.
#
proc setPieceData {font size} {
  image create photo e$size -height $size -width $size
  image create photo tempPieces -data $::pieceImageData($font,$size)
  set x 0
  foreach p {wp wn wb wr wq wk bp bn bb br bq bk} {
    image create photo $p$size -width $size -height $size
    $p$size copy tempPieces -from $x 0 [expr $x + $size - 1] [expr $size - 1]
    incr x $size
  }
  image delete tempPieces
}

# setPieceFont:
#   Given a piece font name, resets all piece images in all
#   available board sizes to that font.
#
proc setPieceFont {font} {
  #set start [clock clicks -milli]
  foreach size $::boardSizes { setPieceData $font $size }
  #set end [clock clicks -milli]
  #puts "Font: $font. Time: [expr $end - $start] ms."
}

# Ensure the board style is valid:
if {[lsearch -exact $boardStyles $boardStyle] == -1} {
  set boardStyle [lindex $boardStyles 0]
}

# Set up the board style:
setPieceFont $boardStyle
### Menus.tcl: part of Scid.
### Copyright (C) 2001 Shane Hudson.

############################################################
###  Status bar help for menu items, buttons, etc:

array set helpMessage {}
set showHelp 1
set oldStatus ""

proc statusBarHelp {window {item {}}} {
  global showHelp helpMessage statusBar language

  set status ""
  if {! $showHelp} { return }

  if {$item == ""} { set index $window } else { set index "$window,$item" }
  if {[info exists helpMessage($language,$index)]} {
    set status "  $helpMessage($language,$index)"
  } elseif {[info exists helpMessage(E,$index)]} {
    set status "  $helpMessage(E,$index)"
  } elseif {[info exists helpMessage($index)]} {
    set tag $helpMessage($index)
    if {[info exists helpMessage($language,$tag)]} {
      set status "  $helpMessage($language,$tag)"
    } elseif {[info exists helpMessage(E,$tag)]} {
      set status "  $helpMessage(E,$tag)"
    } else { set status $tag }
  }

  if {$status == ""} { statusBarRestore $window; return }

  if {[string range $window 0 7] == ".treeWin"} {
    ::tree::status $status
  } else {
    set statusBar $status
  }
}

proc statusBarRestore {window} {
  global showHelp statusBar

  if {! $showHelp} { return }
  if {[string range $window 0 7] == ".treeWin"} {
    ::tree::status
  } else {
    updateStatusBar
  }
}

bind Menu <Any-Enter> "+statusBarHelp %W \[ %W index @%y \]"
bind Menu <Any-Motion> "+statusBarHelp %W \[ %W index @%y \]"
bind Menu <Any-Leave> "+statusBarRestore %W"

bind Menubutton <Any-Enter> "+statusBarHelp %W"
bind Menubutton <Any-Leave> "+statusBarRestore %W"
bind Button <Any-Enter> "+statusBarHelp %W"
bind Button <Any-Leave> "+statusBarRestore %W"
bind Label <Any-Enter> "+statusBarHelp %W"
bind Label <Any-Leave> "+statusBarRestore %W"


############################################################
### Main window menus:

option add *Menu*TearOff 0

frame .menu -borderwidth 2 -relief raised
pack .menu -side top -fill x
. configure -menu .menu

menubutton .menu.file -text File -menu .menu.file.m
menubutton .menu.edit -text Edit -menu .menu.edit.m
menubutton .menu.game -text Game -menu .menu.game.m
menubutton .menu.search -text Search -menu .menu.search.m
menubutton .menu.windows -text Windows -menu .menu.windows.m
menubutton .menu.tools -text Tools -menu .menu.tools.m
menubutton .menu.options -text Options -menu .menu.options.m
menubutton .menu.help -text Help -menu .menu.help.m

foreach menuname { file edit game search windows tools options help } {
    menu .menu.${menuname}.m
}


### File menu:

set m .menu.file.m
$m add command -label FileNew -acc "Ctrl+N" -command fileNew
bind . <Control-n> fileNew
set helpMessage($m,0) FileNew

$m add command -label FileOpen -acc "Ctrl+O" -command fileOpen
bind . <Control-o> fileOpen
set helpMessage($m,1) FileOpen

$m add command -label FileClose -command fileClose
set helpMessage($m,2) FileClose

$m add command -label FileFinder -acc "Ctrl+/" -command fileFinder
bind . <Control-slash> fileFinder
set helpMessage($m,3) FileFinder

$m add cascade -label FileBookmarks -accelerator "Ctrl+B" -menu $m.bookmarks
set helpMessage($m,4) FileBookmarks
menu $m.bookmarks

$m add separator

menu $m.utils
$m add cascade -label FileMaint -menu .menu.file.m.utils
set helpMessage($m,6) FileMaint

$m.utils add checkbutton -label FileMaintWin \
  -accelerator "Ctrl+M" -variable maintWin -command makeMaintWin 
bind . <Control-m> makeMaintWin
set helpMessage($m.utils,0) FileMaintWin

$m.utils add command -label FileMaintCompact -command makeCompactWin
set helpMessage($m.utils,1) FileMaintCompact

$m.utils add command -label FileMaintClass -command classifyAllGames \
  -accelerator "Ctrl+Shift+C"
bind . <Control-C> classifyAllGames
set helpMessage($m.utils,2) FileMaintClass

$m.utils add command -label FileMaintSort -command makeSortWin
set helpMessage($m.utils,3) FileMaintSort

$m.utils add separator

$m.utils add command -label FileMaintDelete -state disabled -command markTwins
set helpMessage($m.utils,5) FileMaintDelete

$m.utils add command -label FileMaintTwin -command updateTwinChecker
set helpMessage($m.utils,6) FileMaintTwin

$m.utils add separator

menu $m.utils.name
$m.utils add cascade -label FileMaintName -menu .menu.file.m.utils.name
set helpMessage($m.utils,8) FileMaintName

$m.utils.name add checkbutton -label FileMaintNameEditor \
  -command nameEditor -variable nameEditorWin -accelerator "Ctrl+Shift+N"
bind . <Control-N> nameEditor
set helpMessage($m.utils.name,0) FileMaintNameEditor

$m.utils.name add command -label FileMaintNamePlayer -command {openSpellCheckWin Player}
set helpMessage($m.utils.name,1) FileMaintNamePlayer

$m.utils.name add command -label FileMaintNameEvent -command {openSpellCheckWin Event}
set helpMessage($m.utils.name,2) FileMaintNameEvent

$m.utils.name add command -label FileMaintNameSite -command {openSpellCheckWin Site}
set helpMessage($m.utils.name.3) FileMaintNameSite

$m.utils.name add command -label FileMaintNameRound -command {openSpellCheckWin Round}
set helpMessage($m.utils.name,4) FileMaintNameRound

bind . <Control-d> makeBaseWin

$m add command -label FileReadOnly -command makeBaseReadOnly
set helpMessage($m,7) FileReadOnly

$m add separator

set totalBaseSlots [sc_base count total]
set clipbaseSlot [sc_info clipbase]
set currentSlot [sc_base current]

for {set i 1} { $i <= $totalBaseSlots} {incr i} {
  $m add radiobutton -variable currentSlot -value $i -label "Base $i: <none>" \
    -underline 5 -accelerator "Ctrl+$i" -command "switchBase $i"
  set helpMessage($m,[expr $i + 8]) "Switch to base slot $i"
  if {$i == $clipbaseSlot} {
    set helpMessage($m,[expr $i + 8]) "Switch to the clipbase database"
  }
  bind . "<Control-Key-$i>" "switchBase $i"
}

proc switchBase {b} {
  sc_base switch $b
  # Close tree and email windows when a base is switched:
  #if {[winfo exists .treeWin]} { destroy .treeWin }
  if {[winfo exists .emailWin]} { destroy .emailWin }
  updateBoardAndPgn .board
  updateTitle
  updateMenuStates
  updateStatusBar
  updateGList
}

$m add separator

$m add command -label FileExit -accelerator "Ctrl+Q" -command fileExit
bind . <Control-q> fileExit
set helpMessage($m,[expr $totalBaseSlots + 10]) FileExit


### Edit menu:

set m .menu.edit.m
$m add command -label EditAdd \
  -accel "Ctrl+A" -command {sc_var create; updateBoardAndPgn .board}
set helpMessage($m,0) EditAdd

menu $m.del
$m add cascade -label EditDelete -menu $m.del
set helpMessage($m,1) EditDelete

menu $m.first
$m add cascade -label EditFirst -menu $m.first
set helpMessage($m,2) EditFirst

menu $m.main
$m add cascade -label EditMain -menu $m.main
set helpMessage($m,3) EditMain

$m add checkbutton -label EditTrial -variable trialMode \
  -accelerator "Ctrl+space" -command {setTrialMode update}
bind . <Control-space> { setTrialMode toggle }
set helpMessage($m,4) EditTrial

$m add cascade -label EditStrip -menu $m.strip
set helpMessage($m,5) EditStrip

menu $m.strip
$m.strip add command -label EditStripComments -command {gameStrip comments}
set helpMessage($m.strip,0) EditStripComments
$m.strip add command -label EditStripVars -command {gameStrip variations}
set helpMessage($m.strip,1) EditStripVars

$m add separator

$m add command -label EditReset -command {
  sc_clipbase clear
  updateBoardAndPgn .board
  updateGList
  updateTitle
}
set helpMessage($m,7) EditReset

$m add command -label EditCopy -accelerator "Ctrl+C" -command {
  catch {sc_clipbase copy}
  updateBoard .board
}
bind . <Control-c> {catch {sc_clipbase copy}; updateBoard .board}
set helpMessage($m,8) EditCopy

$m add command -label EditPaste -accelerator "Ctrl+V" -command {
  sc_clipbase paste
  updateBoardAndPgn .board
}
bind . <Control-v> {catch {sc_clipbase paste}; updateBoardAndPgn .board}
set helpMessage($m,9) EditPaste

$m add separator

$m add command -label EditSetup -accelerator "Ctrl+Shift+S" -command setupBoard
bind . <Control-S> setupBoard
set helpMessage($m,11) EditSetup

$m add command -label EditPasteBoard -accelerator "Ctrl+Shift+V" \
  -underline 12 -command pasteFEN
bind . <Control-V> pasteFEN
set helpMessage($m,12) EditPasteBoard


### Game menu:

set m .menu.game.m
$m add command -label GameNew -accelerator "Ctrl+X" -command gameClear
bind . <Control-x> gameClear
set helpMessage($m,0) GameNew

$m add command -label GameFirst -accelerator "Ctrl+Shift+Up" \
  -command {gameLoadNextPrev first}
bind . <Control-Shift-Up> {gameLoadNextPrev first}
set helpMessage($m,1) GameFirst

$m add command -label GamePrev -accelerator "Ctrl+Up" \
  -command {gameLoadNextPrev previous}
bind . <Control-Up> {gameLoadNextPrev previous}
set helpMessage($m,2) GamePrev

$m add command -label GameReload -command gameReload \
  -accelerator "Ctrl+Shift+L"
bind . <Control-L> gameReload
set helpMessage($m,3) GameReload

$m add command -label GameNext -accelerator "Ctrl+Down" \
  -command {gameLoadNextPrev next}
bind . <Control-Down> {gameLoadNextPrev next}
set helpMessage($m,4) GameNext

$m add command -label GameLast -accelerator "Ctrl+Shift+Down" \
  -command {gameLoadNextPrev last}
bind . <Control-Shift-Down> {gameLoadNextPrev last}
set helpMessage($m,5) GameLast

$m add command -label GameNumber -command gameLoadNumber -accelerator "Ctrl+G"
bind . <Control-g> gameLoadNumber
set helpMessage($m,6) GameNumber

$m add separator

$m add command -label GameReplace -command gameReplace -accelerator "Ctrl+R"
bind . <Control-r> { .menu.game.m invoke [tr GameReplace] }
set helpMessage($m,8) GameReplace

$m  add command -label GameAdd -command gameAdd  -accelerator "Ctrl+S"
bind . <Control-s> gameAdd
set helpMessage($m,9) GameAdd

$m add separator

$m add command -label GameDeepest -accelerator "Ctrl+Shift+D" -command {
  sc_move ply [sc_eco game ply]
  updateBoard .board
}
bind . <Control-D> {sc_move ply [sc_eco game ply]; updateBoard .board}
set helpMessage($m,11) GameDeepest

$m add command -label GameGotoMove -accelerator "Ctrl+U" \
  -command gotoMoveNumber
set helpMessage($m,12) GameGotoMove
bind . <Control-u> gotoMoveNumber

$m add command -label GameNovelty -accelerator "Ctrl+Shift+Y" \
  -command findNovelty
bind . <Control-Y> findNovelty
set helpMessage($m,13) GameNovelty


### Search menu:

set m .menu.search.m
$m  add command -label SearchReset -acc "Ctrl+F" -command searchReset
bind . <Control-f> searchReset
set helpMessage($m,0) SearchReset

$m  add command -label SearchNegate -acc "Ctrl+Shift+F" -command searchNegate
bind . <Control-F> searchNegate
set helpMessage($m,1) SearchNegate

$m  add separator

$m  add command -label SearchCurrent \
  -command searchBoard -accelerator "Ctrl+Shift+B"
bind . <Control-B> searchBoard
set helpMessage($m,3) SearchCurrent

$m  add command -label SearchHeader \
  -command searchHeader -accelerator "Ctrl+Shift+H"
bind . <Control-H> searchHeader
set helpMessage($m,4) SearchHeader

$m  add command -label SearchMaterial \
  -command searchMaterial -accelerator "Ctrl+Shift+M"
bind . <Control-M> searchMaterial
set helpMessage($m,5) SearchMaterial

$m  add separator

$m add command -label SearchUsing -accel "Ctrl+Shift+U" \
  -command useSearchFile
bind . <Control-KeyPress-U> useSearchFile
set helpMessage($m,7) SearchUsing

proc useSearchFile {} {
  set ftype { { "Scid SearchOption files" {".sso"} } }
  set ::fName [tk_getOpenFile -initialdir $::initialDir(base) \
                 -filetypes $ftype -title "Select a SearchOptions file"]
  if {$::fName == ""} { return }

  if {[catch {uplevel "#0" {source $::fName} } ]} {
    tk_messageBox -title "Scid: Error reading file" -type ok -icon warning \
                -message "Unable to open or read SearchOptions file: $fName"
  } else {
    switch -- $::searchType {
      "Material" { searchMaterial }
      "Header"   { searchHeader }
      default    { return }
    }
  }
}


### Windows menu:

set m .menu.windows.m
$m  add checkbutton -label WindowsComment \
  -var commentWin -command makeCommentWin -accelerator "Ctrl+E"
bind . <Control-e> makeCommentWin
set helpMessage($m,0) WindowsComment

$m  add checkbutton -label WindowsGList \
  -variable glist -command makeGList  -accelerator "Ctrl+L"
bind . <Control-l> makeGList
set helpMessage($m,1) WindowsGList

$m  add checkbutton -label WindowsPGN \
  -variable pgnWin -command makePgnWin  -accelerator "Ctrl+P"
bind . <Control-p> makePgnWin
set helpMessage($m,2) WindowsPGN

$m add checkbutton -label WindowsTmt \
  -variable tourneyWin -command ::tourney::toggle -accelerator "Ctrl+Shift+T"
bind . <Control-T> ::tourney::toggle
set helpMessage($m,3) WindowsTmt

$m add separator

$m add checkbutton -label WindowsSwitcher \
  -variable baseWin -accelerator "Ctrl+D" -command makeBaseWin
set helpMessage($m,5) WindowsSwitcher

$m add checkbutton -label WindowsMaint \
  -accelerator "Ctrl+M" -variable maintWin -command makeMaintWin 
bind . <Control-m> makeMaintWin
set helpMessage($m,6) WindowsMaint

$m add separator

$m add checkbutton -label WindowsECO -accelerator "Ctrl+Y" \
  -variable ecoBrowserWin -command {openCloseEcoBrowser}
bind . <Control-y> openCloseEcoBrowser
set helpMessage($m,8) WindowsECO

$m add checkbutton -label WindowsRepertoire -variable ::rep::Win \
  -accelerator "Ctrl+Shift+P" -command ::rep::openCloseWindow
bind . <Control-P> ::rep::openCloseWindow
set helpMessage($m,9) WindowsRepertoire

$m add checkbutton -label WindowsStats -variable statsWin \
  -accelerator "Ctrl+I" -command makeStatsWin
bind . <Control-i> makeStatsWin
set helpMessage($m,10) WindowsStats

$m add checkbutton -label WindowsTree \
  -variable treeWin -command ::tree::make -accelerator "Ctrl+T"
bind . <Control-t> { .menu.windows.m invoke [tr WindowsTree] }
set helpMessage($m,11) WindowsTree

$m add checkbutton -label WindowsTB -variable tbWin -command makeTBWin \
  -accelerator "Ctrl+="
bind . <Control-equal> makeTBWin
set helpMessage($m,12) WindowsTB


### Tools menu:

set m .menu.tools.m

$m  add checkbutton -label ToolsAnalysis -variable analysisWin1 \
  -command makeAnalysisWin -accelerator "Ctrl+Shift+A"
bind . <Control-A> makeAnalysisWin
set helpMessage($m,0) ToolsAnalysis

$m  add checkbutton -label ToolsAnalysis2 -variable analysisWin2 \
  -command "makeAnalysisWin 2" -accelerator "Ctrl+Shift+2"
bind . <Control-at> "makeAnalysisWin 2"
set helpMessage($m,1) ToolsAnalysis2

$m add command -label ToolsCross \
  -accelerator "Ctrl+Shift+X" -command crosstabWin
bind . <Control-X> crosstabWin
set helpMessage($m,2) ToolsCross

$m add checkbutton -label ToolsEmail \
  -accelerator "Ctrl+Shift+E" -variable emailWin -command makeEmailWin
bind . <Control-E> makeEmailWin
set helpMessage($m,3) ToolsEmail

$m add command -label ToolsOpReport \
  -accelerator "Ctrl+Shift+O" -command ::optable::makeReportWin
bind . <Control-O> ::optable::makeReportWin
set helpMessage($m,4) ToolsOpReport


menu $m.pinfo
$m add cascade -label ToolsPInfo -menu $m.pinfo
$m.pinfo add command -label White -underline 0 -command {
  playerInfo [sc_game info white]
}
$m.pinfo add command -label Black -underline 0 -command {
  playerInfo [sc_game info black]
}
set helpMessage($m,5) ToolsPInfo

$m add command -label ToolsRating \
  -accelerator "Ctrl+Shift+R" -command {updateRatingGraph both}
bind . <Control-R> {updateRatingGraph both}
set helpMessage($m,6) ToolsRating

$m add command -label ToolsScore \
  -accelerator "Ctrl+Shift+Z" -command updateScoreGraph
bind . <Control-Z> updateScoreGraph
set helpMessage($m,7) ToolsScore

$m add separator

menu $m.exportcurrent

$m add cascade -label ToolsExpCurrent -menu $m.exportcurrent
set helpMessage($m,9) ToolsExpCurrent

$m.exportcurrent add command -label ToolsExpCurrentPGN \
  -command {exportGames current PGN}
set helpMessage($m.exportcurrent,0) ToolsExpCurrentPGN

$m.exportcurrent add command -label ToolsExpCurrentHTML \
  -command {exportGames current HTML}
set helpMessage($m.exportcurrent,1) ToolsExpCurrentHTML

$m.exportcurrent add command -label ToolsExpCurrentLaTeX \
  -command {exportGames current LaTeX}
set helpMessage($m.exportcurrent,2) ToolsExpCurrentLaTeX

menu $m.exportfilter

$m add cascade -label ToolsExpFilter -menu $m.exportfilter
set helpMessage($m,10) ToolsExpFilter

$m.exportfilter add command -label ToolsExpFilterPGN \
  -command {exportGames filter PGN}
set helpMessage($m.exportfilter,0) ToolsExpFilterPGN

$m.exportfilter add command -label ToolsExpFilterHTML \
  -command {exportGames filter HTML}
set helpMessage($m.exportfilter,1) ToolsExpFilterHTML

$m.exportfilter add command -label ToolsExpFilterLaTeX \
  -command {exportGames filter LaTeX}
set helpMessage($m.exportfilter,2) ToolsExpFilterLaTeX

$m add separator

$m add command -label ToolsImportOne \
  -accelerator "Ctrl+Shift+I" -command importPgnGame
bind . <Control-I> importPgnGame
set helpMessage($m,12) ToolsImportOne

$m add command -label ToolsImportFile -command importPgnFile
set helpMessage($m,13) ToolsImportFile

### Options menu:

set m .menu.options.m
$m add cascade -label OptionsSize -menu $m.bdsize
set helpMessage($m,0) OptionsSize

$m add cascade -label OptionsPieces -menu $m.pieces
set helpMessage($m,1) OptionsPieces

$m add command -label OptionsColors -command chooseBoardColors
set helpMessage($m,2) OptionsColors

set optMenus {export fonts ginfo language entry numbers startup windows}
set optLabels {Export Fonts GInfo Language Moves Numbers Startup Windows}
set i 3
foreach menu $optMenus label $optLabels {
  $m add cascade -label Options$label -menu $m.$menu
  set helpMessage($m,$i) Options$label
  incr i
}

$m add checkbutton -label OptionsToolbar -variable showToolbar \
  -command {setToolbar $showToolbar}
set helpMessage($m,11) OptionsToolbar

$m add separator

$m add command -label OptionsECO -command {
  set ftype { { "Scid ECO files" {".eco"} } }
  if {[sc_info gzip]} {
    set ftype { { "Scid ECO files" {".eco" ".eco.gz"} } }
  }
  set fullname [tk_getOpenFile -initialdir [pwd] -filetypes $ftype -title "Load ECO file"]
  if {[string compare $fullname ""]} {
    if {[catch {sc_eco read $fullname} result]} {
      tk_messageBox -title "Scid" -type ok \
        -icon warning -message $result
    } else {
      set ecoFile $fullname
      tk_messageBox -title "Scid: ECO file loaded." -type ok -icon info \
        -message "ECO file $fullname loaded: $result positions.\n\nTo have this file automatically loaded when you start Scid, select \"Save Options\" from the Options menu before exiting."
    }
  }
}
set helpMessage($m,13) OptionsECO

$m add command -label OptionsSpell -command readSpellCheckFile
set helpMessage($m,14) OptionsSpell

$m add command -label OptionsTable -command setTableBaseDir
set helpMessage($m,15) OptionsTable
if {![sc_info tb]} { $m entryconfigure 15 -state disabled }

# setTableBaseDir:
#    Prompt user to select a tablebase file; all the files in its 
#    directory will be used.
#
proc setTableBaseDir {} {
  global initialDir tempDir
  set ftype { { "Tablebase files" {".emd" ".nbw" ".nbb"} } }

  set w .tbDialog
  toplevel $w
  wm title $w Scid
  label $w.title -text "Select up to 4 table base directories:"
  pack $w.title -side top
  foreach i {1 2 3 4} {
    set tempDir(tablebase$i) $initialDir(tablebase$i)
    pack [frame $w.f$i] -side top -pady 3 -fill x -expand yes
    entry $w.f$i.e -width 30 -textvariable tempDir(tablebase$i)
    bindFocusColors $w.f$i.e
    button $w.f$i.b -text "..." -pady 2 -command [list chooseTableBaseDir $i]
    pack $w.f$i.b -side right -padx 2
    pack $w.f$i.e -side left -padx 2 -fill x -expand yes
  }
  addHorizontalRule $w
  pack [frame $w.b] -side top -fill x
  button $w.b.ok -text "OK" \
    -command "catch {grab release $w; destroy $w}; openTableBaseDirs"
  button $w.b.cancel -text $::tr(Cancel) \
    -command "catch {grab release $w; destroy $w}"
  pack $w.b.cancel $w.b.ok -side right -padx 2
  bind $w <Escape> "$w.b.cancel invoke"
  wm resizable $w 1 0
  grab $w
}

proc openTableBaseDirs {} {
  global initialDir tempDir
  set tableBaseDirs ""
  foreach i {1 2 3 4} {
    set tbDir [string trim $tempDir(tablebase$i)]
    if {$tbDir != ""} {
      if {$tableBaseDirs != ""} { append tableBaseDirs ";" }
      append tableBaseDirs $tbDir
    }
  }

  set npieces [sc_info tb $tableBaseDirs]
  if {$npieces == 0} {
    set msg "No tablebases were found."
  } else {
    set msg "Tablebases with up to $npieces pieces were found.\n\n"
    append msg "If you want these tablebases be used whenever\n"
    append msg "you start Scid, select \"Save Options\" from the\n"
    append msg "Options menu before you exit Scid."
    foreach i {1 2 3 4} {
      set initialDir(tablebase$i) $tempDir(tablebase$i)
    }
  }
  tk_messageBox -type ok -icon info -title "Scid: Tablebase results" \
    -message $msg
    
}
proc chooseTableBaseDir {i} {
  global tempDir

  set ftype { { "Tablebase files" {".emd" ".nbw" ".nbb"} } }
  set idir $tempDir(tablebase$i)
  if {$idir == ""} { set idir [pwd] }

  set fullname [tk_getOpenFile -initialdir $idir -filetypes $ftype \
                  -title "Scid: Select a Tablebase file"]
  if {$fullname == ""} { return }

  set tempDir(tablebase$i) [file dirname $fullname]
}

$m add separator

$m add command -label OptionsSave -command {
  set optionF ""
  if {[catch {open $optionsFile w} optionF]} {
    tk_messageBox -title "Scid: Unable to write file" -type ok -icon warning \
      -message "Unable to write options file: $optionsFile\n$optionF"
  } else {
    puts $optionF "# Scid options file"
    puts $optionF "# Version: $scidVersion"
    puts $optionF "# This file contains commands in the Tcl language format."
    puts $optionF "# If you edit this file, you must preserve valid its Tcl"
    puts $optionF "# format or it will not set your Scid options properly."
    puts $optionF ""
    foreach i {boardSize boardStyle language doColorPgn \
                 pgnIndentVars pgnIndentComments \
                 pgnSymbolicNags pgnMoveNumSpace pgnColumn \
                 tree(order) tree(autoSave) showToolbar optionsAutoSave \
                 ecoFile suggestMoves glistSize glexport autoplayDelay \
                 boardCoords moveEntry(AutoExpand) moveEntry(Coord) \
                 askToReplaceMoves switcherVertical locale(numeric) \
                 spellCheckFile autoCloseSplash autoRaise autoIconify \
                 exportFlags(comments) exportFlags(vars) \
                 exportFlags(indentc) exportFlags(indentv) \
                 exportFlags(column) exportFlags(symbols) \
                 exportFlags(htmldiag) \
                 email(smtp) email(smproc) email(server) \
                 email(from) email(bcc) \
                 gameInfo(hideNextMove) gameInfo(wrap) \
                 gameInfo(fullComment) gameInfo(showMarks) \
                 gameInfo(showMaterial) gameInfo(showFEN) gameInfo(showTB)} {
      puts $optionF "set $i [list [set $i]]"
    }
    foreach i [lsort [array names winWidth]] {
      puts $optionF "set winWidth($i)  [expr $winWidth($i)]"
      puts $optionF "set winHeight($i) [expr $winHeight($i)]"
    }
    foreach i [lsort [array names winX]] {
      puts $optionF "set winX($i)  [expr $winX($i)]"
      puts $optionF "set winY($i)  [expr $winY($i)]"
    }
    puts $optionF "set analysisCommand [list $analysisCommand]"
    puts $optionF "set analysisChoices [list $analysisChoices]"
    foreach i {lite dark whitecolor blackcolor highcolor bestcolor \
               whiteborder blackborder \
               pgnColor(Header) pgnColor(Main) pgnColor(Var) \
               pgnColor(Nag) pgnColor(Comment) pgnColor(Background) \
               pgnColor(Current) pgnColor(NextMove) } {
      puts $optionF "set $i [list [set $i]]"
    }
    foreach i [lsort [array names optable]] {
      puts $optionF "set optable($i) [list $optable($i)]"
    }
    foreach i [lsort [array names stats]] {
      puts $optionF "set stats($i) [list $stats($i)]"
    }
    foreach i [lsort [array names startup]] {
      puts $optionF "set startup($i) [list $startup($i)]"
    }
    foreach i [lsort [array names twinSettings]] {
      puts $optionF "set twinSettings($i) [list $twinSettings($i)]"
    }
    foreach i {font_Regular font_Small font_Fixed} {
      set str "font configure "
      append str $i " -family \"" [font actual $i -family] "\""
      append str " -size " [font actual $i -size]
      append str " -weight " [font actual $i -weight]
      append str " -slant " [font actual $i -slant]
      puts $optionF $str
    }
    puts $optionF "set glistFields [list $glistFields]"
    foreach type {base book html tex tablebase1 tablebase2 tablebase3 tablebase4} {
      puts $optionF "set initialDir($type) [list $initialDir($type)]"
    }
    foreach type {PGN HTML LaTeX} {
      puts $optionF "set exportStartFile($type) [list $exportStartFile($type)]"
      puts $optionF "set exportEndFile($type) [list $exportEndFile($type)]"
    }
    close $optionF
    set ::statusBar "Options were saved to: $optionsFile"
    #tk_messageBox -title "Saved options" -type ok -icon info \
      -message "Options were saved to: $optionsFile"
  }
}
set helpMessage($m,17) OptionsSave

$m add checkbutton -label OptionsAutoSave -variable optionsAutoSave
set helpMessage($m,18) OptionsAutoSave

menu $m.ginfo
$m.ginfo add checkbutton -label GInfoHideNext \
  -variable gameInfo(hideNextMove) -offvalue 0 -onvalue 1 \
  -command {updateBoard .board}
$m.ginfo add checkbutton -label GInfoMaterial \
  -variable gameInfo(showMaterial) -offvalue 0 -onvalue 1 \
  -command {updateBoard .board}
$m.ginfo add checkbutton -label GInfoFEN \
  -variable gameInfo(showFEN) -offvalue 0 -onvalue 1 \
  -command {updateBoard .board}
$m.ginfo add checkbutton -label GInfoMarks \
  -variable gameInfo(showMarks) -offvalue 0 -onvalue 1 \
  -command {updateBoard .board}
$m.ginfo add checkbutton -label GInfoWrap \
  -variable gameInfo(wrap) -offvalue 0 -onvalue 1 \
  -command {updateBoard .board}
$m.ginfo add checkbutton -label GInfoFullComment \
  -variable gameInfo(fullComment) -offvalue 0 -onvalue 1 \
  -command {updateBoard .board}
$m.ginfo add separator
$m.ginfo add radiobutton -label GInfoTBNothing \
  -variable gameInfo(showTB) -value 0 -command {updateBoard .board}
$m.ginfo add radiobutton -label GInfoTBResult \
  -variable gameInfo(showTB) -value 1 -command {updateBoard .board}
$m.ginfo add radiobutton -label GInfoTBAll \
  -variable gameInfo(showTB) -value 2 -command {updateBoard .board}

menu $m.entry
$m.entry add checkbutton -label OptionsMovesAsk \
  -variable askToReplaceMoves -offvalue 0 -onvalue 1
set helpMessage($m.entry,0) OptionsMovesAsk \

$m.entry add command -label OptionsMovesDelay -command setAutoplayDelay
set helpMessage($m.entry,1) OptionsMovesDelay

$m.entry add checkbutton -label OptionsMovesCoord \
 -variable moveEntry(Coord) -offvalue 0 -onvalue 1
set helpMessage($m.entry,2) OptionsMovesCoord

$m.entry add checkbutton -label OptionsMovesKey \
  -variable moveEntry(AutoExpand) -offvalue 0 -onvalue 1
set helpMessage($m.entry,3) OptionsMovesKey

$m.entry add checkbutton -label OptionsMovesSuggest \
  -variable suggestMoves -offvalue 0 -onvalue 1
set helpMessage($m.entry,4) OptionsMovesSuggest

proc updateLocale {} {
  global locale
  sc_info decimal $locale(numeric)
  updateGList
  updateTitle
}

set m .menu.options.m.numbers
menu $m
foreach numeric {".,"   ". "   "."   ",."   ", "   ","} \
      underline {  0     1      2     4      5      6} {
  set decimal [string index $numeric 0]
  set thousands [string index $numeric 1]
  $m add radiobutton -label "12${thousands}345${decimal}67" \
    -underline $underline \
    -variable locale(numeric) -value $numeric -command updateLocale
}

set m .menu.options.m.export
menu $m
foreach format {PGN HTML LaTeX} {
  $m add command -label "$format file text" -underline 0 \
    -command "setExportText $format"
}

set m .menu.options.m.windows
menu $m
$m add checkbutton -label OptionsWindowsIconify -variable autoIconify
set helpMessage($m,0) OptionsWindowsIconify
$m add checkbutton -label OptionsWindowsRaise -variable autoRaise
set helpMessage($m,1) OptionsWindowsRaise

menu .menu.options.m.language

set m .menu.options.m.fonts
menu $m
$m add command -label OptionsFontsRegular -underline 0 -command {
  FontDialog font_Regular
  set font [font configure font_Regular -family]
  set fontsize [font configure font_Regular -size]
  font configure font_Bold -family $font -size $fontsize
  font configure font_Italic -family $font -size $fontsize
  font configure font_BoldItalic -family $font -size $fontsize
  font configure font_H1 -family $font -size [expr $fontsize + 8]
  font configure font_H2 -family $font -size [expr $fontsize + 6]
  font configure font_H3 -family $font -size [expr $fontsize + 4]
  font configure font_H4 -family $font -size [expr $fontsize + 2]
  font configure font_H5 -family $font -size [expr $fontsize + 0]
}
set helpMessage($m,0) OptionsFontsRegular
$m add command -label OptionsFontsSmall -underline 0 -command {
  FontDialog font_Small
  set font [font configure font_Small -family]
  set fontsize [font configure font_Small -size]
  font configure font_SmallBold -family $font -size $fontsize
  font configure font_SmallItalic -family $font -size $fontsize
}
set helpMessage($m,0) OptionsFontsFixed
$m add command -label OptionsFontsFixed -underline 0 -command {FontDialog font_Fixed}
set helpMessage($m,0) OptionsFontsFixed

set m .menu.options.m.startup
menu $m
$m add checkbutton -label HelpTip -variable startup(tip)
$m add checkbutton -label WindowsSwitcher -variable startup(switcher)
$m add checkbutton -label WindowsPGN -variable startup(pgn)
$m add checkbutton -label WindowsTree -variable startup(tree)
$m add checkbutton -label FileFinder -variable startup(finder)

# Menu for changing board size:
menu .menu.options.m.bdsize
set count 0
foreach i $boardSizes {
  incr count
  set underline -1
  if {$count < 10} {set underline 0}
  if {$count == 10} {set underline 1}
  .menu.options.m.bdsize add radio -label $count -variable boardSize \
    -value $i -underline $underline -command "::board::resize .board $i"
  unset underline
}

# Shortcut keys for changing board size:

bind . <Control-Shift-Left>  decreaseBoardSize
bind . <Control-Shift-Right> increaseBoardSize

proc decreaseBoardSize {} {
  global boardSize
  set boardSize [::board::resize .board -1]
}

proc increaseBoardSize {} {
  global boardSize
  set boardSize [::board::resize .board +1]
}

# Menu for changing Piece set:
menu .menu.options.m.pieces
foreach i $boardStyles {
  .menu.options.m.pieces add radio -label $i -variable boardStyle -value $i \
    -underline 0 -command "setPieceFont $i"
}

### Help menu:
set m .menu.help.m
$m add command -label HelpIndex -command {helpWindow Index} -accelerator "F1"
set helpMessage($m,0) HelpIndex
$m add command -label HelpGuide -command {helpWindow Guide}
set helpMessage($m,1) HelpGuide
$m add command -label HelpHints -command {helpWindow Hints}
set helpMessage($m,2) HelpHints
$m add command -label HelpContact -command {helpWindow Author}
set helpMessage($m,3) HelpContact
$m add command -label HelpTip -command ::tip::show
set helpMessage($m,4) HelpTip
$m add separator
$m add command -label HelpStartup -command {
  wm deiconify .splash
  raiseWin .splash
}
set helpMessage($m,6) HelpStartup
$m  add command -label HelpAbout -command helpAbout
set helpMessage($m,7) HelpAbout

bind . <F1> {helpWindow Index}

##################################################

# updateMenuStates:
#   Update all the menus, rechecking which state each item should be in.
#
proc updateMenuStates {} {
  global totalBaseSlots windowsOS
  set ::currentSlot [sc_base current]
  set lang $::language
  set m .menu
  for {set i 1} { $i <= $totalBaseSlots } { incr i } {
    set fname [file tail [sc_base filename $i]]
    $m.file.m entryconfig [expr $i + 8] -label "Base $i: $fname"
  }
  foreach i {Compact Delete} {
    $m.file.m.utils entryconfig [tr FileMaint$i] -state disabled
  }
  foreach i {Player Event Site Round} {
    $m.file.m.utils.name entryconfig [tr FileMaintName$i] -state disabled
  }
  $m.file.m entryconfig [tr FileReadOnly] -state disabled

  if {[sc_base inUse]} {
    set isReadOnly [sc_base isReadOnly]
    $m.file.m entryconfig [tr FileClose] -state normal
    if {! $isReadOnly} {
      $m.file.m.utils entryconfig [tr FileMaintDelete] -state normal
      $m.file.m.utils entryconfig [tr FileMaintName] -state normal
      foreach i {Player Event Site Round} {
        $m.file.m.utils.name entryconfig [tr FileMaintName$i] -state normal
      }
      $m.file.m entryconfig [tr FileReadOnly] -state normal
    }

    # Load first, last button:
    set filtercount [sc_filter count]
    if {$filtercount == 0} {set state disabled} else {set state normal}
    $m.game.m entryconfig [tr GameFirst] -state $state
    $m.game.m entryconfig [tr GameLast] -state $state

    # Load previous button:
    if {[sc_filter previous]} {set state normal} else {set state disabled}
    $m.game.m entryconfig [tr GamePrev] -state $state

    # Reload button:
    if {[sc_game number]} {set state normal} else {set state disabled}
    $m.game.m entryconfig [tr GameReload] -state $state

    # Load next button:
    if {[sc_filter next]} {set state normal} else {set state disabled}
    $m.game.m entryconfig [tr GameNext] -state $state
    $m.game.m entryconfig [tr GameNumber] -state normal

    # Save add button:
    set state normal
    if {$isReadOnly  ||  $::trialMode} {set state disabled}
    $m.game.m entryconfig [tr GameAdd] -state $state

    # Save replace button:
    set state normal
    if {[sc_game number] == 0  ||  $isReadOnly  ||  $::trialMode} {
      set state disabled
    }
    $m.game.m entryconfig [tr GameReplace] -state $state

    # Searching:
    foreach i {Reset Negate} {
      $m.search.m entryconfig [tr Search$i] -state normal
    }
    #$m.windows.m entryconfig [tr WindowsTree] -state normal

    # Tools:
    # Email manager only available in Unix:
    $m.tools.m entryconfig [tr ToolsEmail] -state normal
    $m.tools.m entryconfig [tr ToolsOpReport] -state normal

  } else {
    # Base is not in use:
    $m.file.m entryconfig [tr FileClose] -state disabled

    foreach i {First Prev Reload Next Last Number Replace Add} {
      $m.game.m entryconfig [tr Game$i] -state disabled
    }

    # search:
    foreach i {Reset Negate} {
      $m.search.m entryconfig [tr Search$i] -state disabled
    }
    #$m.windows.m entryconfig [tr WindowsTree] -state disabled

    # tools:
    $m.tools.m entryconfig [tr ToolsEmail] -state disabled
    $m.tools.m entryconfig [tr ToolsOpReport] -state disabled
  }

  if {[sc_base numGames] == 0} {
    $m.tools.m entryconfig [tr ToolsExpFilter] -state disabled
  } else {
    $m.tools.m entryconfig [tr ToolsExpFilter] -state normal
  }

  set state disabled
  if {[baseIsCompactable]} { set state normal }
  $m.file.m.utils entryconfig [tr FileMaintCompact] -state $state

  configSearchState
  updateBaseWin
  updateMaintWin
  ::bookmarks::refresh
}


##############################
#
# Multiple-language menu support functions.

# configMenuName:
#    Reconfigure a menu name.
#
proc configMenuName {menu tag lang} {
  global menuLabel menuUnder
  if {[info exists menuLabel($lang,$tag)] && [info exists menuUnder($lang,$tag)]} {
    $menu configure -text $menuLabel($lang,$tag) \
      -underline $menuUnder($lang,$tag)
  } else {
    $menu configure -text $menuLabel(E,$tag) \
      -underline $menuUnder(E,$tag)
  }
}

# configMenuText:
#    Reconfigures the main window menus. Called when the language is changed.
#
proc configMenuText {menu entry tag lang} {
  global menuLabel menuUnder
  if {[info exists menuLabel($lang,$tag)] && [info exists menuUnder($lang,$tag)]} {
      $menu entryconfig $entry -label $menuLabel($lang,$tag) \
        -underline $menuUnder($lang,$tag)
  } else {
      $menu entryconfig $entry -label $menuLabel(E,$tag) \
        -underline $menuUnder(E,$tag)
  }
}

proc setLanguageMenus {{lang ""}} {
  global menuLabel menuUnder oldLang

  if {$lang == ""} {set lang $::language}

  foreach m {file edit game search windows tools options help} \
        tag {File Edit Game Search Windows Tools Options Help} {
      configMenuName .menu.$m $tag $lang
    }

  foreach tag {New Open Close Finder Bookmarks Maint ReadOnly Exit} {
    configMenuText .menu.file.m [tr File$tag $oldLang] File$tag $lang
  }
  foreach tag {Win Compact Delete Twin Class Sort Name} {
    configMenuText .menu.file.m.utils [tr FileMaint$tag $oldLang] \
      FileMaint$tag $lang
  }
  foreach tag {Editor Player Event Site Round} {
    configMenuText .menu.file.m.utils.name [tr FileMaintName$tag $oldLang] \
      FileMaintName$tag $lang
  }
  foreach tag {Add Delete First Main Trial Strip Reset Copy Paste Setup PasteBoard} {
    configMenuText .menu.edit.m [tr Edit$tag $oldLang] Edit$tag $lang
  }
  foreach tag {Comments Vars} {
    configMenuText .menu.edit.m.strip [tr EditStrip$tag $oldLang] \
      EditStrip$tag $lang
  }
  foreach tag {New First Prev Reload Next Last Number 
               Replace Add Deepest GotoMove Novelty} {
    configMenuText .menu.game.m [tr Game$tag $oldLang] Game$tag $lang
  }
  foreach tag {Reset Negate Material Current Header Using} {
    configMenuText .menu.search.m [tr Search$tag $oldLang] Search$tag $lang
  }
  foreach tag {Comment GList PGN Tmt Switcher Maint ECO Repertoire Stats Tree TB} {
    configMenuText .menu.windows.m [tr Windows$tag $oldLang] Windows$tag $lang
  }
  foreach tag {Analysis Analysis2 Cross Email OpReport Rating Score
               ExpCurrent ExpFilter ImportOne ImportFile PInfo} {
    configMenuText .menu.tools.m [tr Tools$tag $oldLang] Tools$tag $lang
  }
  .menu.tools.m.pinfo entryconfigure 0 -label $::tr(White)
  .menu.tools.m.pinfo entryconfigure 1 -label $::tr(Black)
  foreach tag {ToolsExpCurrentPGN ToolsExpCurrentHTML ToolsExpCurrentLaTeX} {
    configMenuText .menu.tools.m.exportcurrent [tr $tag $oldLang] $tag $lang
  }
  foreach tag {ToolsExpFilterPGN ToolsExpFilterHTML ToolsExpFilterLaTeX} {
    configMenuText .menu.tools.m.exportfilter [tr $tag $oldLang] $tag $lang
  }
  foreach tag {Size Pieces Colors Export Fonts GInfo Language Moves Numbers
               Startup Toolbar Windows ECO Spell Table Save AutoSave} {
    configMenuText .menu.options.m [tr Options$tag $oldLang] Options$tag $lang
  }
  foreach tag {OptionsFontsRegular OptionsFontsSmall OptionsFontsFixed} {
    configMenuText .menu.options.m.fonts [tr $tag $oldLang] $tag $lang
  }
  foreach tag {HideNext Material FEN Marks Wrap FullComment \
                 TBNothing TBResult TBAll} {
    configMenuText .menu.options.m.ginfo [tr GInfo$tag $oldLang] \
      GInfo$tag $lang
  }
  foreach tag {Ask Delay Suggest Key Coord} {
    configMenuText .menu.options.m.entry [tr OptionsMoves$tag $oldLang] \
      OptionsMoves$tag $lang
  }
  foreach tag {HelpTip WindowsSwitcher WindowsPGN WindowsTree FileFinder} {
    configMenuText .menu.options.m.startup [tr $tag $oldLang] $tag $lang
  }
  foreach tag {Iconify Raise} {
    configMenuText .menu.options.m.windows [tr OptionsWindows$tag $oldLang] \
      OptionsWindows$tag $lang
  }
  foreach tag {Index Guide Hints Contact Tip Startup About} {
    configMenuText .menu.help.m [tr Help$tag $oldLang] Help$tag $lang
  }

  foreach tag {HideNext Material FEN Marks Wrap FullComment \
                 TBNothing TBResult TBAll Delete Mark} {
    configMenuText .gameInfo.menu [tr GInfo$tag $oldLang] GInfo$tag $lang
  }

  set i 0
  foreach flag $::maintFlaglist {
    .gameInfo.menu.mark entryconfigure $i \
      -label "$::tr($::maintFlags($flag)) ($flag)"
    incr i
  }

  configPgnMenus
  configStatsMenus
  ::tree::configMenus
  configCrosstabMenus
  ::optable::configMenus
  ::tourney::configMenus

  # Check for duplicate menu underline characters in this language:
  # set ::verifyMenus 1
  if {[info exists ::verifyMenus] && $::verifyMenus} {
    foreach m {file edit game search windows tools options help} {
      set list [checkMenuUnderline .menu.$m.m]
      if {[llength $list] > 0} {
        puts stderr "Menu $m has duplicate underline letters: $list"
      }
    }
  }
}

# checkMenuUnderline:
#  Given a menu widget, returns a list of all the underline
#  characters that appear more than once.
#
proc checkMenuUnderline {menu} {
  array set found {}
  set duplicates {}
  set last [$menu index last]
  for {set i [$menu cget -tearoff]} {$i <= $last} {incr i} {
    if {[string equal [$menu type $i] "separator"]} {
      continue
    }
    set char [string index [$menu entrycget $i -label] \
                [$menu entrycget $i -underline]]
    set char [string tolower $char]
    if {$char == ""} { 
      continue 
    }
    if {[info exists found($char)]} {
      lappend duplicates $char
    }
    set found($char) 1
  }
  return $duplicates
}


# standardShortcuts:
#    Sets up a number of standard shortcut keys for the specified window.
#
proc standardShortcuts {w} {
  if {! [winfo exists $w]} { return }
  bind $w <Control-o> fileOpen
  bind $w <Control-slash> fileFinder
  bind $w <Control-m> makeMaintWin
  bind $w <Control-d> makeBaseWin
  bind $w <Control-q> fileExit
  bind $w <Control-L> gameReload
  bind $w <Control-Shift-Up> {gameLoadNextPrev first}
  bind $w <Control-Shift-Down> {gameLoadNextPrev last}
  bind $w <Control-Up> {gameLoadNextPrev previous}
  bind $w <Control-Down> {gameLoadNextPrev next}
  bind $w <Control-g> gameLoadNumber
  bind $w <Control-f> searchReset
  bind $w <Control-B> searchBoard
  bind $w <Control-H> searchHeader
  bind $w <Control-M> searchMaterial
  bind $w <Control-KeyPress-U> useSearchFile
  bind $w <Control-e> makeCommentWin
  bind $w <Control-l> makeGList
  bind $w <Control-p> makePgnWin
  bind $w <Control-T> ::tourney::toggle
  bind $w <Control-i> makeStatsWin
  bind $w <Control-t> ::tree::make
  bind $w <Control-A> makeAnalysisWin
  bind $w <Control-X> crosstabWin
  bind $w <Control-E> makeEmailWin
  bind $w <Control-O> ::optable::makeReportWin
  bind $w <Control-R> {updateRatingGraph both}
  bind $w <Control-Z> updateScoreGraph
  bind $w <Control-I> importPgnGame
  for {set i 1} { $i <= $::totalBaseSlots} {incr i} {
    bind $w "<Control-Key-$i>" "switchBase $i"
  }
}

### End of file: menus.tcl

###
### windows.tcl: part of Scid.
### Copyright (C) 1999-2001  Shane Hudson.
###


########################################################################
###  Optional windows: all off initially.

set treeWin 0
set pgnWin 0
set statsWin 0
set commentWin 0
set bookWin 0

set nagValue 0

# recordWinSize:
#   Records window width and height, for saving in options file.
#
proc recordWinSize {win} {
  global winWidth winHeight tempWidth tempHeight winX winY
  if {![winfo exists $win]} { return }
  set temp [wm geometry $win]
  set n [scan $temp "%dx%d" tempWidth tempHeight]
  if {$n == 2} {
    set winWidth($win) $tempWidth
    set winHeight($win) $tempHeight
  }
  set tempX [winfo rootx $win]
  set tempY [winfo rooty $win]
  incr tempX -$winX(offset)
  incr tempY -$winY(offset)
  set winX($win) $tempX
  set winY($win) $tempY
}

proc setWinLocation {win} {
  global winX winY
  if {[info exists winX($win)]  &&  [info exists winY($win)]  && \
        $winX($win) >= 0  &&  $winY($win) >= 0} {
    wm geometry $win "+$winX($win)+$winY($win)"
  }
}

########################################################################
### Games list window

set glist 0
set glstart 1
set glSelection 0
set glNumber 0

array set glName {
  g Number
  f Filtered
  w White
  W WElo
  b Black
  B BElo
  e Event
  s Site
  n Round
  d Date
  y Year
  E EDate
  r Result
  m Length
  c Country
  o ECO
  O Opening
  F EndMaterial
  D Deleted
  U Flags
  V Vars
  C Comments
  A Annos
  S Start
}

# glistExtra is the window that displays the starting moves of a
# game when the middle mouse button is pressed in the game list window.

toplevel .glistExtra
wm withdraw .glistExtra
wm overrideredirect .glistExtra 1
text .glistExtra.text -font font_Small -background lightYellow \
  -width 40 -height 8 -wrap word -relief solid -borderwidth 1
pack .glistExtra.text -side top

set glistMaxWidth 30

set glFindText ""
set glGoto ""
trace variable glGoto w {forceRegexp {^[0-9]*$}}

proc findGListText {} {
  global glstart glFindtext
  busyCursor .glistWin 1
  set temp [sc_filter textfind $glstart $glFindtext]
  busyCursor .glistWin 0
  if {$temp < 1} { set temp 1 }
  set glstart $temp
  updateGList
}

proc makeGList {} {
  global glist glstart glistSize highcolor glSelection helpMessage
  global glistFields glNumber glGoto glFindText buttoncolor glName
  if [winfo exists .glistWin] {
    focus .
    destroy .glistWin
    set glist 0
    return
  }
  set w .glistWin
  toplevel $w
  # Window is only directly resizable vertically:
  wm resizable $w false true
  setWinLocation $w

  # Pack buttons frame first:
  pack [frame $w.b] -side bottom -fill x -ipady 5 -padx 10
  scale $w.scale -from 1 -length 250 -orient horiz \
    -variable glstart -showvalue 0 -command {setGLstart} \
    -bigincrement $glistSize -takefocus 0 -width 10 -troughcolor $buttoncolor
  pack $w.scale -side bottom -fill x -padx 30 -pady 4
  frame $w.columns -takefocus 1 -highlightcolor black -highlightthickness 2
  pack $w.columns -side top -expand yes -fill both

  # Make each column in the listing:
  foreach i $glistFields {
    set code [lindex $i 0]
    set width [lindex $i 1]
    set justify [lindex $i 2]
    set fgcolor [lindex $i 3]
    set sep [lindex $i 4]
    frame $w.c$code

    if {[info exists glName($code)]} { set name $glName($code) }
    if {[info exists ::tr(Glist$name)]} { set name $::tr(Glist$name) }

    # Each heading is a label:
    label $w.c$code.header -foreground darkBlue -width $width \
      -font font_Small -relief flat -background gray90 \
      -text $name -anchor w
    set helpMessage(E,$w.c$code.header) \
      {Press the left or right mouse button here for a configuration menu}

    bind $w.c$code.header <Control-ButtonPress-3> "incrGLwidth $code; break"
    bind $w.c$code.header <Control-ButtonPress-1> "decrGLwidth $code; break"
    bind $w.c$code.header <Shift-ButtonPress-3> "incrGLwidth $code; break"
    bind $w.c$code.header <Shift-ButtonPress-1> "decrGLwidth $code; break"
    bind $w.c$code.header <ButtonPress-1> "popupGLconfig $code %x %y %X %Y"
    bind $w.c$code.header <ButtonPress-3> "popupGLconfig $code %x %y %X %Y"
    pack $w.c$code -in $w.columns -side left -expand yes -fill y -padx 0
    pack $w.c$code.header -side top
    addHorizontalRule $w.c$code 1 flat

    text $w.c$code.text -background white -width $width \
      -height $glistSize -font font_Small -relief flat \
      -foreground $fgcolor -wrap none -setgrid 1 -cursor top_left_arrow
    $w.c$code.text tag configure align -justify $justify \
      -foreground $fgcolor
    $w.c$code.text tag configure highlight -background lightBlue
    $w.c$code.text tag configure current -background lightYellow2
    $w.c$code.text tag configure underline -underline true

    bind $w.c$code.text <Button1-Motion> "break"
    bind $w.c$code.text <Button2-Motion> "break"
    bind $w.c$code.text <Double-Button-1> \
      "setGLselection $code %x %y; gameLoad \$glNumber; break"
    bind $w.c$code.text <Button-1> \
      "setGLselection $code %x %y; highlightGLline \$glSelection; break"
    bind $w.c$code.text <ButtonRelease-1> \
      "setGLselection $code %x %y; unhighlightGL; break"

    bind $w.c$code.text <ButtonPress-3> "popupGLmenu $code %x %y %X %Y"

    bind $w.c$code.text <ButtonPress-2> \
      "setGLselection $code %x %y; showMovesGList %X %Y; break"
    bind $w.c$code.text <ButtonRelease-2> \
      "wm withdraw .glistExtra; unhighlightGL; break"

    pack $w.c$code.text -side top -expand true -fill y
    if {$sep} { addVerticalRule $w.columns 1 flat }
  }

  menu $w.config -tearoff 0
  $w.config add cascade -label $::tr(GlistMoveField) -menu $w.config.move
  menu $w.config.move -tearoff 0
  $w.config add command -label $::tr(GlistEditField...)
  $w.config add cascade -label $::tr(GlistAddField) -menu $w.config.insert
  menu $w.config.insert -tearoff 0
  $w.config add command -label $::tr(GlistDeleteField)

  menu $w.popup -tearoff 0
  $w.popup add command -label $::tr(BrowseGame) \
    -command {::gbrowser::new 0 $glNumber}
  $w.popup add command -label $::tr(LoadGame) -command {gameLoad $glNumber}
  $w.popup add command -label $::tr(MergeGame) -command mergeGame
  $w.popup add separator
  $w.popup add command -label "Remove this game from Filter" \
    -command removeFromFilter
  $w.popup add command -label "Remove game (and all above it) from Filter" \
    -command {removeFromFilter up}
  $w.popup add command -label "Remove game (and all below it) from Filter" \
    -command {removeFromFilter down}
  $w.popup add separator
  $w.popup add command -label "(Un)Delete this game" \
    -command {toggleGameFlag delete}
  $w.popup add command -label "Delete all games in filter" \
    -command {catch {sc_game flag delete filter 1}; updateGList}
  $w.popup add command -label "Undelete all games in filter" \
    -command {catch {sc_game flag delete filter 0}; updateGList}

  button $w.b.start -image tb_start -command {set glstart 1; updateGList}
  set helpMessage(E,$w.b.start) {Go to the first page of games}

  button $w.b.pgup -image tb_prev -command {
    set glstart [expr $glstart - $glistSize];
    if {$glstart < 1} { set glstart 1 };
    updateGList
  }
  set helpMessage(E,$w.b.pgup) {Previous page of games}

  button $w.b.pgdn -image tb_next  -command {
    set glstart [expr $glstart + $glistSize];
    if {$glstart > [sc_filter count] } {
      set glstart [sc_filter count]
    }
    if {$glstart < 1} { set glstart 1 }
    updateGList
  }
  set helpMessage(E,$w.b.pgdn) {Next page of games}

  button $w.b.end -image tb_end -command {
    set glstart [expr [sc_filter count] - $glistSize + 1]
    if {$glstart < 1} { set glstart 1}
    updateGList
  }
  set helpMessage(E,$w.b.end) {Go to the last page of games}

  button $w.b.current -textvar ::tr(Current) -font font_Small -command {
    set glstart [sc_filter locate [sc_game number]]
    if {$glstart < 1} { set glstart 1}
    updateGList
  }

  bind $w <Up> {
    set glstart [expr $glstart - 1]
    if {$glstart < 1} { set glstart 1 }
    updateGList
  }
  bind $w <Down> {
    set glstart [expr $glstart + 1]
    if {$glstart > [sc_filter count] } {
      set glstart [sc_filter count]
    }
    updateGList
  }

  bind $w <Home>  "$w.b.start invoke"
  bind $w <End>   "$w.b.end invoke"
  bind $w <Prior> "$w.b.pgup invoke"
  bind $w <Next>  "$w.b.pgdn invoke"

  label $w.b.gotolabel -textvar ::tr(GlistGameNumber:)
  entry $w.b.goto -bg white -width 8 -textvariable glGoto
  bind $w.b.goto <Home> "$w.b.start invoke; break"
  bind $w.b.goto <End> "$w.b.end invoke; break"
  bind $w.b.goto <Return> {
    set glstart [sc_filter locate $glGoto]
    if {$glstart < 1} { set glstart 1}
    set glGoto ""
    updateGList
  }

  label $w.b.findlabel -textvar ::tr(GlistFindText:)
  entry $w.b.find -background white -width 15 -textvariable glFindtext
  bind $w.b.find <Return> findGListText
  bind $w.b.find <Home> "$w.b.find icursor 0; break"
  bind $w.b.find <End> "$w.b.find icursor end; break"

  frame $w.b.space -width 0.25c
  frame $w.b.space2 -width 0.25c

  button $w.b.export -textvar ::tr(Save...) -command openExportGList
  button $w.b.help -textvar ::tr(Help) -command { helpWindow GameList }
  button $w.b.close -textvar ::tr(Close) -command { focus .; destroy .glistWin }

  pack $w.b.start $w.b.pgup $w.b.pgdn $w.b.end $w.b.current -side left -padx 1
  pack $w.b.space $w.b.gotolabel $w.b.goto -side left
  pack $w.b.space2 $w.b.findlabel $w.b.find -side left
  pack $w.b.close $w.b.help $w.b.export -side right -padx 5

  set glist 1
  bind $w <F1> { helpWindow GameList }
  bind $w <Destroy> { set glist 0 }
  bind $w <Escape> "$w.b.close invoke"
  standardShortcuts $w

  # Binding to reset glistSize when the window is resized:
  # The way this is done is very ugly, but the only way I could
  # find that actually works.
  # Set temp to window geometry (e.g. 80x20+...) and then
  # extract the part between the "x" and the first "+" or "-":
  bind $w <Configure> {
    recordWinSize .glistWin
    set temp [wm geometry .glistWin]
    set temp [string range $temp [expr [string first "x" $temp] + 1] end]
    set idx [string first "+" $temp]
    if {$idx != -1} {
      set temp [string range $temp 0 [expr $idx - 1]]
    }
    set idx [string first "-" $temp]
    if {$idx != -1} {
      set temp [string range $temp 0 [expr $idx - 1]]
    }
    if {$temp != $glistSize && $temp > 0} {
      set glistSize $temp
      updateGList
    }
  }

  wm iconname $w "Scid: [tr WindowsGList]"
  updateGList
  focus $w.b.goto
}

proc setGLselection {code xcoord ycoord} {
  global glSelection glNumber
  set glSelection [expr int([.glistWin.c$code.text index @$xcoord,$ycoord])]
  set glNumber [.glistWin.cg.text get $glSelection.0 $glSelection.end]
}

proc incrGLwidth {code} {
  global glistSize glistMaxWidth
  set w .glistWin.c$code
  set width [$w.header cget -width]
  if {$width >= $glistMaxWidth} { return }
  incr width
  $w.header configure -width $width
  $w.text configure -width $width
  updateGLwidths $code $width
}

proc decrGLwidth {code} {
  global glistSize
  set w .glistWin.c$code
  set width [$w.header cget -width]
  if {$width <= 1} { return }
  incr width -1
  $w.header configure -width $width
  $w.text configure -width $width
  updateGLwidths $code $width
}

proc updateGLwidths {code width} {
  global glistFields
  set len [llength $glistFields]
  for {set i 0} {$i < $len} {incr i} {
    set column [lindex $glistFields $i]
    set tcode [lindex $column 0]
    if {$tcode != $code} { continue }
    set oldwidth [lindex $column 1]
    if {$oldwidth != $width} {
      set column [lreplace $column 1 1 $width]
      set glistFields [lreplace $glistFields $i $i $column]
    }
  }
}

proc unhighlightGL {} {
  global glistFields glistSize
  foreach column $glistFields {
    set code [lindex $column 0]
    .glistWin.c$code.text tag remove highlight 1.0 end
  }
}

proc highlightGLline {linenum} {
  global glistFields glistSize
  foreach column $glistFields {
    set code [lindex $column 0]
    .glistWin.c$code.text tag remove highlight 1.0 end
    .glistWin.c$code.text tag add highlight $linenum.0 [expr $linenum+1].0
  }
}

proc popupGLconfig {code xcoord ycoord xscreen yscreen} {
  global glistFields glistAllFields
  set menu .glistWin.config

  # Move-field submenu:
  $menu.move delete 0 end
  $menu.move add command -label "|<<" -command "moveGLfield $code -99"
  $menu.move add command -label "<" -command "moveGLfield $code -1"
  $menu.move add command -label ">" -command "moveGLfield $code 1"
  $menu.move add command -label ">>|" -command "moveGLfield $code 99"

  # Configure-field command:
  $menu entryconfig 1 -command "configGLdialog $code"

  # Insert-field submenu:
  array set displayed {}
  foreach column $glistAllFields {
    set field [lindex $column 0]
    set displayed($field) 0
  }
  foreach column $glistFields {
    set tcode [lindex $column 0]
    set displayed($tcode) 1
  }
  $menu.insert delete 0 end
  foreach column $glistAllFields {
    set tcode [lindex $column 0]
    if {! $displayed($tcode)} {
      set name $::glName($tcode)
      $menu.insert add command -label $::tr(Glist$name) \
        -command "insertGLfield $code $tcode"
    }
  }

  # Delete-field command:
  if {$code == "g"} {
    $menu entryconfig 3 -state disabled
  } else {
    $menu entryconfig 3 -state normal -command "deleteGLfield $code"
  }
  # event generate .glistWin <ButtonRelease-3>
  $menu post $xscreen [expr $yscreen + 2]
  event generate $menu <ButtonPress-1>
}

array set glconfig {}

proc configGLdialog {code} {
  global glistFields glconfig glName
  foreach column $glistFields {
    if {$code == [lindex $column 0]} {
      set glconfig(width) [lindex $column 1]
      set glconfig(align) [lindex $column 2]
      set glconfig(color) [lindex $column 3]
      set glconfig(sep) [lindex $column 4]
    }
  }
  set w .glconfig
  if {[winfo exists $w]} { return }
  toplevel $w
  wm title $w "Scid"
  label $w.title -text "$glName($code)" -font font_Bold
  pack $w.title -side top
  pack [frame $w.g] -side top -fill x
  label $w.g.width -text $::tr(GlistWidth)
  set m [tk_optionMenu $w.g.vwidth glconfig(width) 1 2 3 4 5 6 7 8 9 10 \
           11 12 13 14 15 16 17 18 19 20]
  $w.g.vwidth configure -width 3
  $m entryconfigure 10 -columnbreak 1
  label $w.g.align -text $::tr(GlistAlign)
  frame $w.g.valign
  radiobutton $w.g.valign.left -text "<<" -indicatoron 0 \
    -variable glconfig(align) -value left
  radiobutton $w.g.valign.right -text ">>" -indicatoron 0 \
    -variable glconfig(align) -value right
  pack $w.g.valign.left $w.g.valign.right -side left -padx 1
  label $w.g.color -text $::tr(GlistColor)
  frame $w.g.vcolor
  foreach color {black darkBlue blue darkGreen darkRed red2 gray50} {
    image create photo color_$color -width 14 -height 16
    color_$color put $color -to 1 1 12 14
    radiobutton $w.g.vcolor.$color -image color_$color -indicatoron 0 \
      -variable glconfig(color) -value $color
    pack $w.g.vcolor.$color -side left -padx 1
  }
  label $w.g.sep -text $::tr(GlistSep)
  frame $w.g.vsep
  radiobutton $w.g.vsep.yes -text $::tr(Yes) -indicatoron 0 \
    -variable glconfig(sep) -value 1
  radiobutton $w.g.vsep.no -text $::tr(No) -indicatoron 0 \
    -variable glconfig(sep) -value 0
  pack $w.g.vsep.yes $w.g.vsep.no -side left -padx 1

  set row 0
  foreach t {width align color sep} {
    grid $w.g.$t -row $row -column 0 -sticky w
    grid $w.g.v$t -row $row -column 1 -sticky e
    incr row
  }

  addHorizontalRule $w
  pack [frame $w.b] -side top -fill x
  button $w.b.ok -text "OK" \
    -command "catch {grab release $w}; destroy $w; configGLfield $code"
  button $w.b.cancel -text $::tr(Cancel) \
    -command "catch {grab release $w}; destroy $w"
  pack $w.b.cancel $w.b.ok -side right -padx 2 -pady 2
  wm resizable $w 0 0
  centreWin $w
  catch {grab $w}
}

proc configGLfield {code} {
  global glistFields glconfig
  set newcolumn [list $code $glconfig(width) $glconfig(align) \
                   $glconfig(color) $glconfig(sep)]
  set len [llength $glistFields]
  for {set i 0} {$i < $len} {incr i} {
    set column [lindex $glistFields $i]
    set tcode [lindex $column 0]
    if {$tcode == $code} {
      set glistFields [lreplace $glistFields $i $i $newcolumn]
      break
    }
  }
  destroy .glistWin
  makeGList
}

proc moveGLfield {code delta} {
  global glistFields
  set len [llength $glistFields]
  for {set i 0} {$i < $len} {incr i} {
    set column [lindex $glistFields $i]
    set tcode [lindex $column 0]
    if {$tcode == $code} {
      set glistFields [lreplace $glistFields $i $i]
      set insert [expr $i + $delta]
      set glistFields [linsert $glistFields $insert $column]
      break
    }
  }
  destroy .glistWin
  makeGList
}

proc insertGLfield {code newcode} {
  global glistFields glistAllFields
  set len [llength $glistFields]
  set newcolumn ""
  foreach column $glistAllFields {
    set tcode [lindex $column 0]
    if {$tcode == $newcode} { set newcolumn $column }
  }
  if {$newcolumn == ""} { return }

  for {set i 0} {$i < $len} {incr i} {
    set column [lindex $glistFields $i]
    set tcode [lindex $column 0]
    if {$tcode == $code} {
      incr i
      set glistFields [linsert $glistFields $i $newcolumn]
      break
    }
  }
  destroy .glistWin
  makeGList
}

proc deleteGLfield {code} {
  global glistFields
  set len [llength $glistFields]
  for {set i 0} {$i < $len} {incr i} {
    set column [lindex $glistFields $i]
    set tcode [lindex $column 0]
    if {$tcode != $code} { continue }
    set glistFields [lreplace $glistFields $i $i]
  }
  destroy .glistWin
  makeGList
}

proc popupGLmenu {code xcoord ycoord xscreen yscreen} {
  global glSelection glNumber
  setGLselection $code $xcoord $ycoord
  if {$glNumber < 1} {return}
  highlightGLline $glSelection
  if {[sc_base isReadOnly]} {
    .glistWin.popup entryconfig "*elete this*" -state disabled
    .glistWin.popup entryconfig "Delete all*" -state disabled
    .glistWin.popup entryconfig "Undelete all*" -state disabled
  } else {
    .glistWin.popup entryconfig "*elete this*" -state normal
    .glistWin.popup entryconfig "Delete all*" -state normal
    .glistWin.popup entryconfig "Undelete all*" -state normal
  }
  .glistWin.popup post $xscreen [expr $yscreen + 2]
  event generate .glistWin.popup <ButtonPress-1>
}

proc setGLstart { start } {
  global glstart
  set glstart $start
  updateGList
}

proc toggleGameFlag {flag} {
  global glNumber
  # If an invalid game number, just return:
  if {$glNumber < 1} { return }
  if {$glNumber > [sc_base numGames]} { return }
  catch {sc_game flag $flag $glNumber invert}
  updateGList
}

proc removeFromFilter {{dir none}} {
  global glNumber glstart
  if {$glNumber < 1} { return }
  if {$glNumber > [sc_base numGames]} { return }
  if {$dir == "none"} {
    sc_filter remove $glNumber
  } elseif {$dir == "up"} {
    sc_filter remove 1 $glNumber
    set glstart 1
  } else {
    sc_filter remove $glNumber 9999999
  }
  updateGList
}

proc showMovesGList {xcoord ycoord} {
  global glistSelectPly glNumber glSelection
  # If an invalid game number, just return:
  if {$glNumber < 1} { return }
  if {$glNumber > [sc_base numGames]} { return }

  highlightGLline $glSelection
  .glistExtra.text delete 1.0 end
  .glistExtra.text insert end [sc_game firstMoves $glNumber $glistSelectPly]
  wm geometry .glistExtra +$xcoord+$ycoord
  wm deiconify .glistExtra
  raiseWin .glistExtra
}

proc updateGList {} {
  global glistSize glstart
  global glistFields
  updateStatusBar
  if ![winfo exists .glistWin] { return }
  set totalSize [sc_filter count]
  set linenum [sc_game list $glstart $glistSize -current]
  foreach column $glistFields {
    set code [lindex $column 0]
    set cformat $code
    append cformat "*\n"
    .glistWin.c$code.text config -state normal
    .glistWin.c$code.text delete 1.0 end
    .glistWin.c$code.text insert end \
      [sc_game list $glstart $glistSize $cformat] align
    if {$linenum > 0} {
      .glistWin.c$code.text tag add current $linenum.0 [expr $linenum+1].0
    }
    .glistWin.c$code.text config -state disabled
  }

  # Now update the window title:
  set str "Scid [tr WindowsGList]: "
  if {$totalSize > 0} {
    set right [expr $totalSize + 1 - $glistSize]
    if {$right < 1} { set right 1 }
    .glistWin.scale configure -to $right
    set glend [expr $glstart + $glistSize - 1]
    if {$glend > $totalSize} { set glend $totalSize}
    append str [thousands $glstart] " .. " \
      [thousands $glend] " / " [thousands $totalSize] " " $::tr(games)
  } else {
    append str $::tr(noGames)
    .glistWin.scale configure -to 1
  }
  wm title .glistWin $str
}

trace variable glexport w updateExportGList

proc openExportGList {} {
  global glexport
  set w .glexport

  if {[sc_filter count] < 1} {
    tk_messageBox -type ok -icon info -title "Scid" \
      -message "This are no games in the current filter."
    return
  }

  if {[winfo exists $w]} {
    raiseWin $w
    updateExportGList
    return
  }
  toplevel $w
  wm title $w "Scid: Save Game List"

  label $w.lfmt -text "Format:" -font font_Bold
  pack $w.lfmt -side top
  entry $w.fmt -textvar glexport -bg white -fg black -font font_Fixed
  pack $w.fmt -side top -fill x
  text $w.tfmt -width 1 -height 5 -font font_Fixed -fg black \
    -wrap none -relief flat
  pack $w.tfmt -side top -fill x
  $w.tfmt insert end "w: White            b: Black            "
  $w.tfmt insert end "W: White Elo        B: Black Elo        \n"
  $w.tfmt insert end "m: Moves count      r: Result           "
  $w.tfmt insert end "y: Year             d: Date             \n"
  $w.tfmt insert end "e: Event            s: Site             "
  $w.tfmt insert end "n: Round            o: ECO code         \n"
  $w.tfmt insert end "g: Game number      f: Filtered number  "
  $w.tfmt insert end "F: Final material   S: Non-std start pos\n"
  $w.tfmt insert end "D: Deleted flag     U: User flags       "
  $w.tfmt insert end "C: Comments flag    V: Variations flag  \n"
  $w.tfmt configure -cursor top_left_arrow -state disabled
  addHorizontalRule $w
  label $w.lpreview -text $::tr(Preview:) -font font_Bold
  pack $w.lpreview -side top
  text $w.preview -width 80 -height 5 -font font_Fixed -bg gray95 -fg black \
    -wrap none -setgrid 1 -xscrollcommand "$w.xbar set"
  scrollbar $w.xbar -orient horizontal -command "$w.preview xview"
  pack $w.preview -side top -fill x
  pack $w.xbar -side top -fill x
  addHorizontalRule $w
  pack [frame $w.b] -side bottom -fill x
  button $w.b.default -text "Default" -command {set glexport $glexportDefault}
  button $w.b.ok -text "OK" -command saveExportGList
  button $w.b.close -textvar ::tr(Cancel) -command "focus .; grab release $w; destroy $w"
  pack $w.b.close $w.b.ok -side right -padx 2 -pady 2
  pack $w.b.default -side left -padx 2 -pady 2
  wm resizable $w 1 0
  focus $w.fmt
  updateExportGList
  grab $w
}

proc updateExportGList {args} {
  global glexport
  set w .glexport
  if {! [winfo exists $w]} { return }
  set text [sc_game list 1 5 "$glexport\n"]
  $w.preview configure -state normal
  $w.preview delete 1.0 end
  $w.preview insert end $text
  $w.preview configure -state disabled
}

proc saveExportGList {} {
  global glexport
  set ftypes {{"Text files" {.txt}} {"All files" *}}
  set fname [tk_getSaveFile -filetypes $ftypes -parent .glexport \
               -title "Scid: Save Game List"]
  if {$fname == ""} { return }
  set showProgress 0
  if {[sc_filter count] >= 20000} { set showProgress 1 }
  if {$showProgress} {
    progressWindow "Scid" "Saving game list..." $::tr(Cancel) sc_progressBar
  }
  busyCursor .
  set res [catch {sc_game list 1 9999999 "$glexport\n" $fname} err]
  unbusyCursor .
  if {$showProgress} { closeProgressWindow }
  if {$res} {
    tk_messageBox -type ok -icon warning -title "Scid" -message $err
    return
  }
  focus .
  grab release .glexport
  destroy .glexport
  return
}


############################################################
### TREE window

namespace eval ::tree {}
set tree(training) 0
set tree(locked) 0
set tree(base) 0
set tree(status) ""

proc ::tree::configMenus {{lang ""}} {
  if {! [winfo exists .treeWin]} { return }
  if {$lang == ""} { set lang $::language }
  set m .treeWin.menu
  foreach menu {file sort opt help} tag {File Sort Opt Help} {
    configMenuName $m.$menu Tree$tag $lang
  }
  foreach idx {0 1 3 4 6 8} tag {Save Fill Best Graph Copy Close} {
    configMenuText $m.file.m $idx TreeFile$tag $lang
  }
  foreach idx {0 1 2 3} tag {Alpha ECO Freq Score} {
    configMenuText $m.sort.m $idx TreeSort$tag $lang
  }
  foreach idx {0 1 3} tag {Lock Training Autosave} {
    configMenuText $m.opt.m $idx TreeOpt$tag $lang
  }
  foreach idx {0 1} tag {Tree Index} {
    configMenuText $m.help.m $idx TreeHelp$tag $lang
  }
}

proc ::tree::copyToSelection {args} {
  set sel [join [.treeWin.f.tl get 0 end] "\n"]
  append sel "\n"
  return $sel
}

proc ::tree::make {} {
  global tree treeWin highcolor geometry helpMessage
  if {[winfo exists .treeWin]} {
    focus .
    destroy .treeWin
    set treeWin 0
    return
  }
  toplevel .treeWin
  set w .treeWin
  setWinLocation $w

  # Set the tree window title now:
  wm title $w "Scid: [tr WindowsTree]"
  set treeWin 1
  set tree(training) 0

  bind $w <Destroy> { set treeWin 0; set tree(locked) 0 }
  bind $w <F1> { helpWindow Tree }
  bind $w <Escape> { .treeWin.buttons.stop invoke }
  standardShortcuts $w

  frame $w.menu
  pack $w.menu -side top -fill x
  $w configure -menu $w.menu
  menubutton $w.menu.file -text TreeFile -menu $w.menu.file.m
  menubutton $w.menu.sort -text TreeSort -menu $w.menu.sort.m
  menubutton $w.menu.opt  -text TreeOpt  -menu $w.menu.opt.m
  menubutton $w.menu.help -text TreeHelp -menu $w.menu.help.m
  foreach i {file sort opt help} {
    menu $w.menu.$i.m -tearoff 0
    pack $w.menu.$i -side left
  }

  $w.menu.file.m add command -label TreeFileSave -command {
    busyCursor .
    update
    if {[catch {sc_tree write $tree(base)} result]} {
      tk_messageBox -type ok -icon warning -title "Scid: Error writing file" \
        -message $result
    }
    unbusyCursor .
  }
  set helpMessage($w.menu.file.m,0) TreeFileSave
  $w.menu.file.m add command -label TreeFileFill -command ::tree::prime
  set helpMessage($w.menu.file.m,1) TreeFileFill
  $w.menu.file.m add separator
  $w.menu.file.m add command -label TreeFileBest -command ::tree::best
  set helpMessage($w.menu.file.m,3) TreeFileBest
  $w.menu.file.m add command -label TreeFileGraph -command ::tree::graph
  set helpMessage($w.menu.file.m,4) TreeFileGraph
  $w.menu.file.m add separator
  $w.menu.file.m add command -label TreeFileCopy -command {
    clipboard clear
    clipboard append [::tree::copyToSelection]
    selection own .treeWin.f.tl
    selection get
  }
  set helpMessage($w.menu.file.m,6) TreeFileCopy
  $w.menu.file.m add separator
  $w.menu.file.m add command -label TreeFileClose \
    -command {.treeWin.buttons.close invoke}
  set helpMessage($w.menu.file.m,8) TreeFileClose

  foreach label {Alpha ECO Freq Score} value {alpha eco frequency score} {
    $w.menu.sort.m add radiobutton -label TreeSort$label \
      -variable tree(order) -value $value -command ::tree::refresh
  }

  $w.menu.opt.m add checkbutton -label TreeOptLock -variable tree(locked) \
    -command ::tree::toggleLock
  set helpMessage($w.menu.opt.m,0) TreeOptLock

  $w.menu.opt.m add checkbutton -label TreeOptTraining \
    -variable tree(training) -command ::tree::toggleTraining
  set helpMessage($w.menu.opt.m,1) TreeOptTraining

  $w.menu.opt.m add separator
  $w.menu.opt.m add checkbutton -label TreeOptAutosave \
    -variable tree(autoSave)
  set helpMessage($w.menu.opt.m,3) TreeOptAutosave

  $w.menu.help.m add command -label TreeHelpTree \
    -accelerator F1 -command {helpWindow Tree}
  $w.menu.help.m add command -label TreeHelpIndex -command {helpWindow Index}

  ::tree::configMenus

  frame $w.f
  listbox $w.f.tl -borderwidth 2 \
    -width $::winWidth($w) -height $::winHeight($w) \
    -font font_Fixed -foreground black -background white \
    -selectbackground $highcolor -selectmode browse -setgrid 1 \
    -yscroll "$w.f.ybar set" -xscroll "$w.f.xbar set"
  scrollbar $w.f.ybar -command ".treeWin.f.tl yview"
  scrollbar $w.f.xbar -orient horizontal -command ".treeWin.f.tl xview"
  canvas $w.progress -width 250 -height 15 -bg white -relief solid -border 1
  $w.progress create rectangle 0 0 0 0 -fill blue -outline blue -tags bar
  selection handle $w.f.tl ::tree::copyToSelection

  bind $w.f.tl <Destroy> {
    if {$tree(autoSave)} {
      busyCursor .
      catch [sc_tree write $tree(base)]
      unbusyCursor .
    }
  }

  bind $w <Configure> "recordWinSize $w"

  label $w.status -width 1 -anchor w -font font_Small \
    -relief sunken -textvar tree(status)
  pack $w.status -side bottom -fill x
  pack $w.progress -side bottom
  pack [frame $w.buttons -relief sunken] -side bottom -fill x
  pack $w.f -side top -expand 1 -fill both
  grid $w.f.tl -row 0 -column 0 -sticky news
  grid $w.f.ybar -row 0 -column 1 -sticky news
  grid $w.f.xbar -row 1 -column 0 -sticky news
  grid rowconfig $w.f 0 -weight 1 -minsize 0
  grid columnconfig $w.f 0 -weight 1 -minsize 0

  button $w.buttons.best -image b_list -command ::tree::best
  button $w.buttons.graph -image b_bargraph -command ::tree::graph
  checkbutton $w.buttons.lock -textvar ::tr(LockTree) \
    -variable tree(locked) -relief raised -pady 5 -padx 5 \
    -command ::tree::toggleLock
  checkbutton $w.buttons.training -textvar ::tr(Training) \
    -variable tree(training) -relief raised -pady 5 -padx 5 \
    -command ::tree::toggleTraining

  foreach {b t} {
    best TreeFileBest graph TreeFileGraph lock TreeOptLock
    training TreeOptTraining
  } {
    set helpMessage($w.buttons.$b) $t
  }

  button $w.buttons.stop -textvar ::tr(Stop) -command { sc_progressBar }
  button $w.buttons.close -textvar ::tr(Close) -command {
    set geometry(treeWin) [wm geometry .treeWin]
    focus .; destroy .treeWin
  }

  pack $w.buttons.best $w.buttons.graph $w.buttons.lock $w.buttons.training \
    -side left -padx 2 -pady 2
  pack $w.buttons.close $w.buttons.stop -side right -padx 2 -pady 2
  $w.buttons.stop configure -state disabled

  wm minsize $w 40 5

  bind $w.f.tl <Return> {
    tree::select [lindex [ .treeWin.f.tl curselection] 0]
  }
  bind $w.f.tl <ButtonRelease-1> {
    .treeWin.f.tl selection clear 0 end
    tree::select [ .treeWin.f.tl nearest %y ]
    .treeWin.f.tl selection clear 0 end
    break
  }

  wm protocol $w WM_DELETE_WINDOW { .treeWin.buttons.close invoke }
  ::tree::refresh
}

proc ::tree::toggleTraining {} {
  global tree
  if {$tree(training)} {
    ::tree::doTraining
  } else {
    ::tree::refresh
  }
}

proc ::tree::doTraining {{n 0}} {
  global tree
  if {$n != 1  &&  [winfo exists .analysisWin1]  &&  $::analysis(automove1)} {
    automove 1
    return
  }
  if {$n != 2  &&  [winfo exists .analysisWin2]  &&  $::analysis(automove2)} {
    automove 2
    return
  }
  if {[winfo exists .tbWin]  &&  $::tbTraining} {
    makeTBMove
    return
  }
  if {! [winfo exists .treeWin]} { return }
  if {$tree(training) == 0} { return }
  sc_tree click $tree(base) random
  updateBoardAndPgn .board
}

proc ::tree::toggleLock {} {
  global tree
  if {$tree(locked)} {
    set tree(base) [sc_base current]
  } else {
    set tree(base) 0
  }
  ::tree::refresh
}

proc ::tree::select { selection } {
  global tree
  if {! [winfo exists .treeWin]} { return }
  sc_tree click $tree(base) $selection
  .treeWin.f.tl selection clear 0 end
  updateBoardAndPgn .board
}

set tree(refresh) 0

proc ::tree::refresh {} {
  global tree treeWin glstart
  set w .treeWin

  if {![winfo exists $w]} { return }
  busyCursor .
  sc_progressBar $w.progress bar 251 16
  foreach button {best graph training lock close} {
    $w.buttons.$button configure -state disabled
  }
  $w.buttons.stop configure -state normal
  set tree(refresh) 1
  catch {grab $w.buttons.stop}

  update
  set base 0
  if {$tree(locked)} { set base $tree(base) }
  set moves [sc_tree search -hide $tree(training) -sort $tree(order) -base $base]
  catch {grab release $w.buttons.stop}
  set tree(refresh) 0
  foreach button {best graph training lock close} {
    $w.buttons.$button configure -state normal
  }
  $w.buttons.stop configure -state disabled -relief raised

  set moves [split $moves "\n"]
  set len [llength $moves]
  $w.f.tl delete 0 end
  for { set i 0 } { $i < $len } { incr i } {
    $w.f.tl insert end [lindex $moves $i]
  }
  catch {$w.f.tl itemconfigure 0 -foreground darkBlue}

  #set n [expr $len - 4]
  #if {$n > 0} {
  #  for {set i 1} {$i < $n} {incr i} {
  #    set f [string range [lindex $moves $i] 25 27]
  #    if {$f < 5} {
  #      catch {$w.f.tl itemconfigure $i -foreground gray50}
  #    }
  #  }
  #  while {$n < $len} {
  #    catch {$w.f.tl itemconfigure $n -foreground darkBlue}
  #    incr n
  #  }
  #}

  if {[winfo exists .treeBest]} { ::tree::best }

  unbusyCursor .
  $w.f.tl configure -cursor {}
  $w.f.tl selection clear 0 end

  ::tree::status
  set glstart 1
  updateStatsWin
  if {[winfo exists .treeGraph]} ::tree::graph
  updateGList
  updateTitle
}

proc ::tree::status {{msg ""}} {
  global tree
  if {$msg != ""} {
    set tree(status) $msg
    return
  }
  set s "  $::tr(Database)"
  set base [sc_base current]
  if {$tree(locked)} { set base $tree(base) }
  set status "  $::tr(Database) $base: [file tail [sc_base filename $base]]"
  if {$tree(locked)} { append status " ($::tr(TreeLocked))" }
  append status "   $::tr(Filter)"
  append status ": [filterText $base]"
  set tree(status) $status
}

set tree(standardLines) {
  {}
  {1.c4}
  {1.c4 c5}
  {1.c4 c5 2.Nf3}
  {1.c4 e5}
  {1.c4 Nf6}
  {1.c4 Nf6 2.Nc3}
  {1.d4}
  {1.d4 d5}
  {1.d4 d5 2.c4}
  {1.d4 d5 2.c4 c6}
  {1.d4 d5 2.c4 c6 3.Nf3}
  {1.d4 d5 2.c4 c6 3.Nf3 Nf6}
  {1.d4 d5 2.c4 c6 3.Nf3 Nf6 4.Nc3}
  {1.d4 d5 2.c4 c6 3.Nf3 Nf6 4.Nc3 dxc4}
  {1.d4 d5 2.c4 c6 3.Nf3 Nf6 4.Nc3 e6}
  {1.d4 d5 2.c4 c6 3.Nf3 Nf6 4.Nc3 e6 5.e3}
  {1.d4 d5 2.c4 e6}
  {1.d4 d5 2.c4 e6 3.Nc3}
  {1.d4 d5 2.c4 e6 3.Nc3 Nf6}
  {1.d4 d5 2.c4 e6 3.Nf3}
  {1.d4 d5 2.c4 dxc4}
  {1.d4 d5 2.c4 dxc4 3.Nf3}
  {1.d4 d5 2.c4 dxc4 3.Nf3 Nf6}
  {1.d4 d5 2.Nf3}
  {1.d4 d5 2.Nf3 Nf6}
  {1.d4 d5 2.Nf3 Nf6 3.c4}
  {1.d4 d6}
  {1.d4 d6 2.c4}
  {1.d4 Nf6}
  {1.d4 Nf6 2.c4}
  {1.d4 Nf6 2.c4 c5}
  {1.d4 Nf6 2.c4 d6}
  {1.d4 Nf6 2.c4 e6}
  {1.d4 Nf6 2.c4 e6 3.Nc3}
  {1.d4 Nf6 2.c4 e6 3.Nc3 Bb4}
  {1.d4 Nf6 2.c4 e6 3.Nf3}
  {1.d4 Nf6 2.c4 g6}
  {1.d4 Nf6 2.c4 g6 3.Nc3}
  {1.d4 Nf6 2.c4 g6 3.Nc3 Bg7}
  {1.d4 Nf6 2.c4 g6 3.Nc3 Bg7 4.e4}
  {1.d4 Nf6 2.c4 g6 3.Nc3 Bg7 4.e4 d6}
  {1.d4 Nf6 2.c4 g6 3.Nc3 Bg7 4.e4 d6 5.Nf3}
  {1.d4 Nf6 2.c4 g6 3.Nc3 Bg7 4.e4 d6 5.Nf3 O-O}
  {1.d4 Nf6 2.c4 g6 3.Nc3 Bg7 4.e4 d6 5.Nf3 O-O 6.Be2}
  {1.d4 Nf6 2.c4 g6 3.Nf3}
  {1.d4 Nf6 2.Bg5}
  {1.d4 Nf6 2.Bg5 Ne4}
  {1.d4 Nf6 2.Nf3}
  {1.d4 Nf6 2.Nf3 e6}
  {1.d4 Nf6 2.Nf3 g6}
  {1.e4}
  {1.e4 c5}
  {1.e4 c5 2.c3}
  {1.e4 c5 2.c3 d5}
  {1.e4 c5 2.c3 Nf6}
  {1.e4 c5 2.Nc3}
  {1.e4 c5 2.Nc3 Nc6}
  {1.e4 c5 2.Nf3}
  {1.e4 c5 2.Nf3 d6}
  {1.e4 c5 2.Nf3 d6 3.d4}
  {1.e4 c5 2.Nf3 d6 3.d4 cxd4}
  {1.e4 c5 2.Nf3 d6 3.d4 cxd4 4.Nxd4}
  {1.e4 c5 2.Nf3 d6 3.d4 cxd4 4.Nxd4 Nf6}
  {1.e4 c5 2.Nf3 d6 3.d4 cxd4 4.Nxd4 Nf6 5.Nc3}
  {1.e4 c5 2.Nf3 d6 3.d4 cxd4 4.Nxd4 Nf6 5.Nc3 a6}
  {1.e4 c5 2.Nf3 d6 3.d4 cxd4 4.Nxd4 Nf6 5.Nc3 e6}
  {1.e4 c5 2.Nf3 d6 3.d4 cxd4 4.Nxd4 Nf6 5.Nc3 g6}
  {1.e4 c5 2.Nf3 d6 3.d4 cxd4 4.Nxd4 Nf6 5.Nc3 Nc6}
  {1.e4 c5 2.Nf3 d6 3.Bb5+}
  {1.e4 c5 2.Nf3 e6}
  {1.e4 c5 2.Nf3 Nc6}
  {1.e4 c5 2.Nf3 Nc6 3.d4}
  {1.e4 c5 2.Nf3 Nc6 3.Bb5}
  {1.e4 c6}
  {1.e4 c6 2.d4}
  {1.e4 c6 2.d4 d5}
  {1.e4 c6 2.d4 d5 3.e5}
  {1.e4 c6 2.d4 d5 3.Nc3}
  {1.e4 c6 2.d4 d5 3.Nd2}
  {1.e4 d5}
  {1.e4 d6}
  {1.e4 d6 2.d4}
  {1.e4 d6 2.d4 Nf6}
  {1.e4 d6 2.d4 Nf6 3.Nc3}
  {1.e4 e5}
  {1.e4 e5 2.Nf3}
  {1.e4 e5 2.Nf3 Nc6}
  {1.e4 e5 2.Nf3 Nc6 3.d4}
  {1.e4 e5 2.Nf3 Nc6 3.Bb5}
  {1.e4 e5 2.Nf3 Nc6 3.Bb5 a6}
  {1.e4 e5 2.Nf3 Nc6 3.Bb5 a6 4.Ba4}
  {1.e4 e5 2.Nf3 Nc6 3.Bb5 a6 4.Ba4 Nf6}
  {1.e4 e5 2.Nf3 Nc6 3.Bb5 a6 4.Ba4 Nf6 5.O-O}
  {1.e4 e5 2.Nf3 Nc6 3.Bc4}
  {1.e4 e5 2.Nf3 Nf6}
  {1.e4 e6}
  {1.e4 e6 2.d4}
  {1.e4 e6 2.d4 d5}
  {1.e4 e6 2.d4 d5 3.Nc3}
  {1.e4 e6 2.d4 d5 3.Nc3 Bb4}
  {1.e4 e6 2.d4 d5 3.Nc3 Nf6}
  {1.e4 e6 2.d4 d5 3.Nd2}
  {1.e4 e6 2.d4 d5 3.Nd2 c5}
  {1.e4 e6 2.d4 d5 3.Nd2 Nf6}
  {1.e4 Nf6}
  {1.e4 Nf6 2.e5}
  {1.e4 Nf6 2.e5 Nd5}
  {1.Nf3}
  {1.Nf3 Nf6}
}

# ::tree::prime
#   Primes the tree for this database, filling it with a number of
#   common opening positions.
#
proc ::tree::prime {} {
  global tree
  if {! [winfo exists .treeWin]} { return }
  set base [sc_base current]
  if {$tree(locked)} { set base $tree(base) }
  if {! [sc_base inUse]} { return }
  set fname [sc_base filename $base]
  if {[string index $fname 0] == "\["  ||  [file extension $fname] == ".pgn"} {
    tk_messageBox -parent .treeWin -icon info -type ok -title "Scid" \
      -message "Sorry, only Scid-format database files can have a tree cache file."
    return
  }

  set ::interrupt 0
  progressWindow "Scid: [tr TreeFileFill]" "" $::tr(Cancel) {set ::interrupt 1}
  resetProgressWindow
  leftJustifyProgressWindow
  busyCursor .
  sc_game push
  set i 1
  set len [llength $tree(standardLines)]
  foreach line $tree(standardLines) {
    sc_game new
    set text [format "%3d/\%3d" $i $len]
    if {[llength $line] > 0}  {
      sc_move addSan $line
      changeProgressWindow "$text: $line"
    } else {
      changeProgressWindow "$text: start position"
    }
    sc_tree search -base $base
    updateProgressWindow $i $len
    incr i
    if {$::interrupt} {
      closeProgressWindow
      set ::interrupt 0
      sc_game pop
      unbusyCursor .
      ::tree::refresh
      return
    }
  }
  closeProgressWindow
  if {[catch {sc_tree write $base} result]} {
    #tk_messageBox -type ok -icon warning -title "Scid: Error writing file" \
        -message $result
  } else {
    #set a "$fname.stc: [sc_tree positions] positions, "
    #append a "$result bytes: "
    #set pergame [expr double($result) / double([sc_base numGames])]
    #append a [format "%.2f" $pergame]
    #append a " bytes per game"
    #tk_messageBox -type ok -parent .treeWin -title "Scid" -message $a
  }
  sc_game pop
  unbusyCursor .
  ::tree::refresh
}

set tree(bestMax) 50
trace variable tree(bestMax) w ::tree::best
set tree(bestRes) "1-0 0-1 1/2 *"
trace variable tree(bestRes) w ::tree::best

# ::tree::best
#   Updates the window of best (highest-rated) tree games.
#
proc ::tree::best {args} {
  global tree
  set w .treeBest
  if {! [winfo exists .treeWin]} { return }
  if {! [winfo exists $w]} {
    toplevel $w
    wm title $w "Scid: $::tr(TreeBestGames)"
    bind $w <Configure> "recordWinSize $w"
    setWinLocation $w
    bind $w <Escape> "destroy $w"
    bind $w <F1> {helpWindow Tree Best}
    pack [frame $w.b] -side bottom -fill x
    pack [frame $w.opt] -side bottom -fill x
    set pane [::pane::create $w.pane blist bpgn 520 320 0.6]
    ::pane::range $w.pane 0.3 0.8
    pack $pane -side top -expand true -fill both
    scrollbar $pane.blist.ybar -command "$pane.blist.list yview" -takefocus 0
    listbox $pane.blist.list -background white -selectbackground $::highcolor \
      -yscrollcommand "$pane.blist.ybar set" -font font_Small
    pack $pane.blist.ybar -side right -fill y
    pack $pane.blist.list -side left -fill both -expand yes
    bind $pane.blist.list <<ListboxSelect>> ::tree::bestPgn
    bind $pane.blist.list <Double-Button-1> ::tree::bestBrowse

    scrollbar $pane.bpgn.ybar -command "$pane.bpgn.text yview" -takefocus 0
    text $pane.bpgn.text -width 50 -height 20 -wrap none -background gray90 \
      -cursor top_left_arrow -yscrollcommand "$pane.bpgn.ybar set" -wrap word \
      -state disabled -font font_Small
    pack $pane.bpgn.ybar -side right -fill y
    pack $pane.bpgn.text -side left -fill both -expand yes
    set t $pane.bpgn.text
    bind $t <ButtonPress-1> "showPgnBoard $pane.bpgn.text 4 %x %y %X %Y"
    bind $t <ButtonRelease-1> hidePgnBoard
    bind $t <ButtonPress-2> "showPgnBoard $pane.bpgn.text 4 %x %y %X %Y"
    bind $t <ButtonRelease-2> hidePgnBoard
    bind $t <ButtonPress-3> "showPgnBoard $pane.bpgn.text 4 %x %y %X %Y"
    bind $t <ButtonRelease-3> hidePgnBoard

    label $w.opt.lmax -text $::tr(TreeBest:) -font font_Small
    set m [tk_optionMenu $w.opt.max tree(bestMax) 10 20 50 100 200 500]
    $m configure -font font_Small
    $w.opt.max configure -font font_Small
    label $w.opt.lres -text " $::tr(Result):" -font font_Small
    set m [tk_optionMenu $w.opt.res tree(bestRes) \
             "1-0 0-1 1/2 *" 1-0 0-1 "1-0 0-1" 1/2-1/2]
    $m configure -font font_Small
    $w.opt.res configure -font font_Small

    button $w.b.browse -text $::tr(BrowseGame) -command ::tree::bestBrowse
    button $w.b.load -text $::tr(LoadGame) -command ::tree::bestLoad
    button $w.b.merge -text $::tr(MergeGame) -command ::tree::bestMerge
    button $w.b.close -text $::tr(Close) -command "destroy $w"
    foreach i {browse load merge close} { $w.b.$i configure -font font_Small }
    pack $w.b.close $w.b.merge $w.b.load $w.b.browse \
      -side right -padx 1 -pady 2
    pack $w.opt.lmax $w.opt.max -side left -padx 0 -pady 2
    pack $w.opt.lres $w.opt.res -side left -padx 0 -pady 2
    focus $w.pane.blist.list
  }
  $w.pane.blist.list delete 0 end
  set tree(bestList) {}
  set count 0
  if {! [sc_base inUse]} { return }
  foreach {idx line} [sc_tree best $tree(base) $tree(bestMax) $tree(bestRes)] {
    incr count
    $w.pane.blist.list insert end "[format %02d $count]:  $line"
    lappend tree(bestList) $idx
  }
  catch {$w.pane.blist.list selection set 0}
  ::tree::bestPgn
}

proc ::tree::bestLoad {} {
  global tree
  if {[catch {set sel [.treeBest.pane.blist.list curselection]}]} { return }
  if {[catch {set g [lindex $tree(bestList) $sel]}]} { return }
  if {$tree(locked)} { sc_base switch $tree(base) }
  gameLoad $g
}

proc ::tree::bestMerge {} {
  global tree
  if {[catch {set sel [.treeBest.pane.blist.list curselection]}]} { return }
  if {[catch {set gnum [lindex $tree(bestList) $sel]}]} { return }
  set base [sc_base current]
  if {$tree(locked)} { set base $tree(base) }
  mergeGame $base $gnum
}

proc ::tree::bestBrowse {} {
  global tree
  if {[catch {set sel [.treeBest.pane.blist.list curselection]}]} { return }
  if {[catch {set gnum [lindex $tree(bestList) $sel]}]} { return }
  set base [sc_base current]
  if {$tree(locked)} { set base $tree(base) }
  ::gbrowser::new $base $gnum
}

proc ::tree::bestPgn {} {
  global tree
  set t .treeBest.pane.bpgn.text
  $t configure -state normal
  $t delete 1.0 end
  if {[catch {set sel [.treeBest.pane.blist.list curselection]}]} { return }
  if {[catch {set g [lindex $tree(bestList) $sel]}]} { return }
  set base [sc_base current]
  if {$tree(locked)} { set base $tree(base) }
  if {[catch {sc_game summary -base $base -game $g header} header]} { return }
  if {[catch {sc_game summary -base $base -game $g moves} moves]} { return }
  if {[catch {sc_filter value $base $g} ply]} { return }
  $t tag configure header -foreground darkBlue
  $t tag configure start -foreground darkRed
  $t insert end $header header
  $t insert end "\n\n"
  set m 0
  foreach move $moves {
    incr m
    if {$m < $ply} {
      $t insert end $move start
    } else {
      $t insert end $move
    }
    $t insert end " "
  }
  #catch {$t insert end [sc_game pgn -base $base -game $g \
  #                        -short 1 -indentC 1 -indentV 1 -symbol 1 -tags 0]}
  $t configure -state disabled
}

# ::tree::graph
#   Updates the tree graph window, creating it if necessary.
#
proc ::tree::graph {} {
  set w .treeGraph
  if {! [winfo exists .treeWin]} { return }
  if {! [winfo exists $w]} {
    toplevel $w
    setWinLocation $w
    bind $w <Escape> "destroy $w"
    bind $w <F1> {helpWindow Tree Graph}
    frame $w.menu -relief raised -borderwidth 2
    pack $w.menu -side top -fill x
    $w configure -menu $w.menu
    menubutton $w.menu.file -text GraphFile -menu $w.menu.file.m
    menu $w.menu.file.m
    $w.menu.file.m add command -label GraphFileColor \
      -command "saveGraph color $w.c"
    $w.menu.file.m add command -label GraphFileGrey \
      -command "saveGraph gray $w.c"
    $w.menu.file.m add separator
    $w.menu.file.m add command -label GraphFileClose -command "destroy $w"
    pack $w.menu.file -side left

    canvas $w.c -width 500 -height 300
    pack $w.c -side top -fill both -expand yes
    $w.c create text 25 10 -tag text -justify center -width 1 \
      -font font_Regular -anchor n
    bind $w <Configure> {
      .treeGraph.c itemconfigure text -width [expr [winfo width .treeGraph.c] - 50]
      .treeGraph.c coords text [expr [winfo width .treeGraph.c] / 2] 10
      ::graph::configure tree -height [expr [winfo height .treeGraph.c] - 100]
      ::graph::configure tree -width [expr [winfo width .treeGraph.c] - 50]
      ::graph::redraw tree
    }
    bind $w.c <Button-1> ::tree::graph
    wm title $w "Scid: Tree Graph"
    # wm minsize $w 300 200
    standardShortcuts $w
    ::tree::configGraphMenus
  }

  $w.c itemconfigure text -width [expr [winfo width $w.c] - 50]
  $w.c coords text [expr [winfo width $w.c] / 2] 10
  set height [expr [winfo height $w.c] - 100]
  set width [expr [winfo width $w.c] - 50]
  ::graph::create tree -width $width -height $height -xtop 25 -ytop 60 \
    -xmin 0.5 -xtick 1 -ytick 5 -font font_Small -canvas $w.c

  set data {}
  set xlabels {}
  set othersCount 0
  set numOthers 0
  set othersName "..."
  set count 0
  set othersScore 0.0
  set mean 50.0
  set totalGames 0
  set treeData [.treeWin.f.tl get 0 end]

  for {set i 0} {$i < [llength $treeData]} {incr i} {
    # Extract info from each line of the tree window:
    # Note we convert "," decimal char back to "." where necessary.
    set line [lindex $treeData $i]
    set mNum [string trim [string range $line  0  1]]
    set freq [string trim [string range $line 17 23]]
    set fpct [string trim [string range $line 25 29]]
    regsub -all {,} $fpct . fpct
    set move [string trim [string range $line  4 9]]
    set score [string trim [string range $line 33 37]]
    regsub -all {,} $score . score
    if {$score > 99.9} { set score 99.9 }
    # Check if this line is "TOTAL:" line:
    if {![string compare "TO" $mNum]} {
      set mean $score
      set totalGames $freq
    }
    # Add info for this move to the graph if necessary:
    if {[string index $line 2] == ":"  &&  [string compare "<end>" $move]} {
      if {$fpct < 1.0  ||  $freq < 5  ||  $i > 5} {
        incr othersCount $freq
        incr numOthers
        set othersScore [expr $othersScore + (double($freq) * $score)]
        set m $move
        if {$numOthers > 1} { set m "..." }
      } else {
        incr count
        lappend data $count
        lappend data $score
        lappend xlabels [list $count "$move ([expr round($score)]%)\n$freq: [expr round($fpct)]%"]
      }
    }
  }

  # Add extra bar for other moves if necessary:
  if {$numOthers > 0} {
    incr count
    set fpct [expr double($othersCount) * 100.0 / double($totalGames)]
    set sc [expr round($othersScore / double($othersCount))]
    set othersName "$m ($sc%)\n$othersCount: [expr round($fpct)]%"
    lappend data $count
    lappend data [expr $othersScore / double($othersCount)]
    lappend xlabels [list $count $othersName]
  }

  # Plot fake bounds data so graph at least shows range 40-65:
  ::graph::data tree bounds -points 0 -lines 0 -bars 0 -coords {1 41 1 64}

  # Replot the graph:
  ::graph::data tree data -color red -points 0 -lines 0 -bars 1 \
    -barwidth 0.75 -outline black -coords $data
  ::graph::configure tree -xlabels $xlabels -xmax [expr $count + 0.5] \
    -hline [list {gray80 1 each 5} {gray50 1 each 10} {black 2 at 50} \
              {black 1 at 55} [list red 2 at $mean]] \
    -brect [list [list 0.5 55 [expr $count + 0.5] 50 LightSkyBlue1]]

  ::graph::redraw tree
  set moves ""
  catch {set moves [sc_game firstMoves 0 -1]}
  if {[string length $moves] == 0} { set moves $::tr(StartPos) }
  set title "$moves ([thousands $totalGames] $::tr(games))"
  $w.c itemconfigure text -text $title
}

proc ::tree::configGraphMenus {{lang ""}} {
  if {! [winfo exists .treeGraph]} { return }
  if {$lang == ""} { set lang $::language }
  set m .treeGraph.menu
  foreach menu {file} tag {File} {
    configMenuName $m.$menu Graph$tag $lang
  }
  foreach idx {0 1 3} tag {Color Grey Close} {
    configMenuText $m.file.m $idx GraphFile$tag $lang
  }
}

# saveGraph:
#   Saves a graph (e.g. tree graph or rating graph) to a
#   color or greyscale Postscript file. The mode should be
#   "color" or "gray"
#
proc saveGraph {mode w} {
  if {! [winfo exists $w]} { return }
  set ftypes {{"PostScript files" {.eps .ps}} {"All files" *}}
  set fname [tk_getSaveFile -filetypes $ftypes -parent $w \
               -defaultextension ".eps" -title "Scid: Save Graph"]
  if {$fname == ""} { return }
  if {[catch {$w postscript -file $fname -colormode $mode} result]} {
    tk_messageBox -icon info -parent $w -title "Scid" -message $result
  }
}

###############################################
### Filter Statistics window

proc makeStatsWin {} {
  global statsWin stats
  set w .statsWin
  if [winfo exists $w] {
    focus .
    destroy $w
    set statsWin 0
    return
  }
  set w .statsWin
  toplevel $w
  wm title $w "Scid: Filter Statistics"
  setWinLocation $w
  bind $w <Configure> "recordWinSize $w"

  frame $w.menu -borderwidth 3 -relief raised
  pack $w.menu -side top -fill x
  $w configure -menu $w.menu
  menubutton $w.menu.file -text StatsFile -menu $w.menu.file.m
  menubutton $w.menu.opt -text StatsOpt -menu $w.menu.opt.m
  menu $w.menu.file.m
  $w.menu.file.m add command -label StatsFilePrint -command {
    set ftype {
      { "Text files" {".txt"} }
      { "All files"  {"*"}    }
    }
    set fname [tk_getSaveFile -initialdir [pwd] -filetypes $ftype -title "Save text file"]
    if {$fname != ""} {
      if {[catch {set tempfile [open $fname w]}]} {
        tk_messageBox -title "Scid: Error saving file" -type ok -icon warning \
          -message "Unable to save the file: $fname\n\n"
      } else {
        puts $tempfile [.statsWin.stats get 1.0 end-1c]
        close $tempfile
      }
    }
  }
  $w.menu.file.m add separator
  $w.menu.file.m add command -label StatsFileClose -accelerator Esc \
      -command "destroy $w"

  menu $w.menu.opt.m
  $w.menu.opt.m add cascade -label $::tr(OprepStatBoth) -menu $w.menu.opt.m.elo
  menu $w.menu.opt.m.elo
  foreach i [lsort -decreasing [array names stats r*]] {
    set elo [string range $i 1 end]
    $w.menu.opt.m.elo add checkbutton -label "$::tr(OprepStatBoth) $elo+" \
      -variable stats($i) -command updateStatsWin
  }
  $w.menu.opt.m add separator
  $w.menu.opt.m add cascade -label $::tr(OprepStatSince) \
    -menu $w.menu.opt.m.year
  menu $w.menu.opt.m.year
  foreach i [lsort [array names stats y*]] {
    set year [string range $i 1 end]
    $w.menu.opt.m.year add checkbutton \
      -label "$::tr(OprepStatSince) $year.01.01" \
      -variable stats($i) -command updateStatsWin
  }

  pack $w.menu -side top -fill x
  pack $w.menu.file $w.menu.opt -side left

  text $w.stats -borderwidth 0 \
    -width $::winWidth($w) -height $::winHeight($w) -font font_Fixed \
    -foreground black -background white -cursor top_left_arrow -wrap none \
    -setgrid 1
  pack $w.stats -side top -fill both -expand yes
  set statsWin 1
  bind $w <Control-q> "destroy $w"
  bind $w <Escape> "destroy $w"
  bind $w <F1> { helpWindow Index }
  bind $w <Destroy> {
    set statsWin 0
  }
  standardShortcuts $w
  wm resizable $w 1 0
  configStatsMenus
  updateStatsWin
}

proc updateStatsWin {} {
  global statsWin stats
  if {[winfo exists .playerInfoWin]} { playerInfo }
  updateGList
  updateMaintWin
  updateStatusBar
  if {! [winfo exists .statsWin]} { return }

  # Set up variables for translated phrases:
  set all [capital $::tr(allGames)]
  set both $::tr(OprepStatBoth)
  set since $::tr(OprepStatSince)
  set games [capital $::tr(games)]
  set score [capital $::tr(score)]

  # Find length of longest left-hand column:
  set alen [expr [string length $all] + 1]
  set blen [expr [string length $both] + 7]
  set slen [expr [string length $since] + 12]
  set len $alen
  if {$len < $blen} { set len $blen }
  if {$len < $slen} { set len $slen }

  set height 4
  set ratings 0
  set years 0
  set rlist [lsort -decreasing [array names stats r*]]
  set ylist [lsort [array names stats y*]]

  foreach i $rlist {
    if {$stats($i)} { set ratings 1 }
  }
  foreach i $ylist {
    if {$stats($i)} { set years 1 }
  }

  if {$ratings} { incr height }
  if {$years} { incr height }

  set s ""
  set stat ""
  append s " [pad $stat [expr $len - 4]] [padR $games 10]"
  append s "     1-0     =-=     0-1 [padR $score 8]\n"
  append s "------------------------------------------------------------------------"
  append s "\n [pad $all $len]" [sc_filter stats all]

  if {$ratings} {
    append s "\n"
    foreach i $rlist {
      if {$stats($i)} {
        incr height
        set elo [string range $i 1 end]
        set stat "$both $elo+"
        append s "\n [pad $stat $len]"   [sc_filter stats elo $elo]
      }
    }
  }

  if {$years} {
    append s "\n"
    foreach i $ylist {
      if {$stats($i)} {
        incr height
        set year [string range $i 1 end]
        set stat "$since $year.01.01"
        append s "\n [pad $stat $len]"   [sc_filter stats year $year]
      }
    }
  }

  set w .statsWin.stats
  $w configure -state normal
  $w delete 1.0 end
  $w insert end $s
  $w tag configure blue -foreground darkBlue
  $w tag configure red -foreground red
  $w tag add blue 1.0 2.0
  $w tag add red 2.0 3.0
  $w configure -height $height
  $w configure -state disabled
}

proc configStatsMenus {{lang ""}} {
  if {! [winfo exists .statsWin]} { return }
  if {$lang == ""} { set lang $::language }
  set m .statsWin.menu
  foreach menu {file opt} tag {File Opt} {
    configMenuName $m.$menu Stats$tag $lang
  }
  foreach idx {0 2} tag {Print Close} {
    configMenuText $m.file.m $idx StatsFile$tag $lang
  }
}


############################################################
### PGN window

proc choosePgnColor {type name} {
  global pgnColor
  set x [tk_chooseColor -initialcolor $pgnColor($type) \
           -title "PGN $name color"]
  if {$x != ""} { set pgnColor($type) $x; resetPgnColors }
}

proc configPgnMenus {{lang ""}} {
  if {! [winfo exists .pgnWin]} { return }
  if {$lang == ""} { set lang $::language }
  set m .pgnWin.menu
  foreach menu {file opt color help} tag {File Opt Color Help} {
    configMenuName $m.$menu Pgn$tag $lang
  }
  foreach idx {0 2} tag {Print Close} {
    configMenuText $m.file.m $idx PgnFile$tag $lang
  }
  foreach idx {0 1 2 3 4 5 6} tag {Color Short Symbols IndentC IndentV Space Column} {
    configMenuText $m.opt.m $idx PgnOpt$tag $lang
  }
  foreach idx {0 1 2 3 4} tag {Header Anno Comments Vars Background} {
    configMenuText $m.color.m $idx PgnColor$tag $lang
  }
  foreach idx {0 1} tag {Pgn Index} {
    configMenuText $m.help.m $idx PgnHelp$tag $lang
  }
}

proc makePgnWin {} {
  global pgnWin pgnHeight pgnWidth pgnColor pgnColumn
  if [winfo exists .pgnWin] {
    focus .
    destroy .pgnWin
    set pgnWin 0
    return
  }
  set w [toplevel .pgnWin]
  setWinLocation $w
  bind $w <Configure> "recordWinSize $w"

  frame $w.menu -borderwidth 3 -relief raised
  pack $w.menu -side top -fill x
  $w configure -menu $w.menu
  menubutton $w.menu.file -text PgnFile -menu $w.menu.file.m -underline 0
  menubutton $w.menu.opt -text PgnOpt -menu $w.menu.opt.m -underline 0
  menubutton $w.menu.color -text PgnColor -menu $w.menu.color.m -underline 0
  menubutton $w.menu.help -text PgnHelp -menu $w.menu.help.m -underline 0
  foreach i {file opt color help} {
    menu $w.menu.$i.m -tearoff 0
    pack $w.menu.$i -side left
  }

  $w.menu.file.m add command -label PgnFilePrint -command {
    set ftype {
      { "PGN files"  {".pgn"} }
      { "Text files" {".txt"} }
      { "All files"  {"*"}    }
    }
    set fname [tk_getSaveFile -initialdir [pwd] -filetypes $ftype -title "Save PGN file"]
    if {$fname != ""} {
      if {[catch {set tempfile [open $fname w]}]} {
        tk_messageBox -title "Scid: Error saving file" -type ok -icon warning \
          -message "Unable to save the file: $fname\n\n"
      } else {
        puts $tempfile \
          [sc_game pgn -width 75 -symbols $pgnSymbolicNags \
             -indentVar $pgnIndentVars -indentCom $pgnIndentComments \
             -space $pgnMoveNumSpace -format plain -column $::pgnColumn]
        close $tempfile
      }
    }
  }
  $w.menu.file.m add separator
  $w.menu.file.m add command -label PgnFileClose -accelerator Esc \
      -command "focus .; destroy $w"

  $w.menu.opt.m add checkbutton -label PgnOptColor \
    -variable doColorPgn -command {updateBoardAndPgn .board}
  $w.menu.opt.m add checkbutton -label PgnOptShort \
    -variable pgnShortHeader -command {updateBoardAndPgn .board}
  $w.menu.opt.m add checkbutton -label PgnOptSymbols \
    -variable pgnSymbolicNags -command {updateBoardAndPgn .board}
  $w.menu.opt.m add checkbutton -label PgnOptIndentC \
    -variable pgnIndentComments -command {updateBoardAndPgn .board}
  $w.menu.opt.m add checkbutton -label PgnOptIndentV \
    -variable pgnIndentVars -command {updateBoardAndPgn .board}
  $w.menu.opt.m add checkbutton -label PgnOptSpace \
    -variable pgnMoveNumSpace -command {updateBoardAndPgn .board}
  $w.menu.opt.m add checkbutton -label PgnOptColumn \
    -variable pgnColumn -command {updateBoardAndPgn .board}

  $w.menu.color.m add command -label PgnColorHeader \
    -command {choosePgnColor Header "header text"}
  $w.menu.color.m add command -label PgnColorAnno \
    -command {choosePgnColor Nag annotation}
  $w.menu.color.m add command -label PgnColorComments \
    -command {choosePgnColor Comment comment}
  $w.menu.color.m add command -label PgnColorVars \
    -command {choosePgnColor Var variation}
  $w.menu.color.m add command -label PgnColorBackground \
    -command {choosePgnColor Background background}

  $w.menu.help.m add command -label PgnHelpPgn \
    -accelerator F1 -command {helpWindow PGN}
  $w.menu.help.m add command -label PgnHelpIndex -command {helpWindow Index}

  configPgnMenus

  text $w.text -width $::winWidth($w) -height $::winHeight($w) -wrap word \
    -background $pgnColor(Background) -cursor crosshair \
    -yscrollcommand "$w.scroll set" -setgrid 1 -tabs {1c right 2c 4c}
  scrollbar $w.scroll -command "$w.text yview" -takefocus 0
  pack [frame $w.buttons] -side bottom -fill x
  pack $w.scroll -side right -fill y
  pack $w.text -fill both -expand yes
  button $w.buttons.help -textvar ::tr(Help) -command { helpWindow PGN }
  button $w.buttons.close -textvar ::tr(Close) -command { focus .; destroy .pgnWin }
  #pack $w.buttons.close $w.buttons.help -side right -padx 5 -pady 2
  set pgnWin 1
  bind $w <Destroy> { set pgnWin 0 }

  bind $w <ButtonPress-2> "showPgnBoard .pgnWin.text 1 %x %y %X %Y"
  bind $w <ButtonRelease-2> hidePgnBoard
  bind $w <ButtonPress-3> "showPgnBoard .pgnWin.text 1 %x %y %X %Y"
  bind $w <ButtonRelease-3> hidePgnBoard

  # set the same arrow key, etc bindings that the main window has:
  bind $w <F1> { helpWindow PGN }
  bind $w <Home>  {sc_move start; updateBoard .board}
  bind $w <Up>    {sc_move back 10; updateBoard .board}
  bind $w <Left>  {sc_move back; updateBoard .board}
  bind $w <Down>  {sc_move forward 10; updateBoard .board}
  bind $w <Right> {sc_move forward; updateBoard .board}
  bind $w <End>   {sc_move end; updateBoard .board}
  bind $w <Escape> {focus .; destroy .pgnWin}
  standardShortcuts $w

  # Add variation navigation bindings:
  bind $w <KeyPress-v> [bind . <KeyPress-v>]
  bind $w <KeyPress-z> [bind . <KeyPress-z>]

  $w.text tag add Current 0.0 0.0
  resetPgnColors
}

# showPgnBoard:
#    Produces a popup window showing the board position in the
#    game at the current mouse location in the PGN window.
#
proc showPgnBoard {win startLine x y xc yc} {
  global lite dark
  set bd [sc_pos pgnBoard [$win get $startLine.0 @$x,$y]]
  set w .pgnPopup
  set psize 30
  if {$psize > $::boardSize} { set psize $::boardSize }

  if {! [winfo exists $w]} {
    toplevel $w -relief solid -borderwidth 2
    wm withdraw $w
    wm overrideredirect $w 1
    ::board::new $w.bd $psize
    pack $w.bd -side top -padx 2 -pady 2
    wm withdraw $w
  }

  ::board::update $w.bd $bd

  # Make sure the popup window can fit on the screen:
  incr xc 5
  incr yc 5
  update idletasks
  set dx [winfo width $w]
  set dy [winfo height $w]
  if {($xc+$dx) > [winfo screenwidth $w]} {
    set xc [expr [winfo screenwidth $w] - $dx]
  }
  if {($yc+$dy) > [winfo screenheight $w]} {
    set yc [expr [winfo screenheight $w] - $dy]
  }
  wm geometry $w "+$xc+$yc"
  wm deiconify $w
  raiseWin $w
}

# hidePgnBoard:
#    Hides the window produced by showPgnBoard.
#
proc hidePgnBoard {} {
  wm withdraw .pgnPopup
}

# resetPgnColors:
#    Reconfigures the pgn Colors, after a color is changed by the user
proc resetPgnColors {} {
  global pgnColor
  if {![winfo exists .pgnWin]} { return }
  .pgnWin.text configure -background $pgnColor(Background)
  .pgnWin.text tag configure Current -background $pgnColor(Current)
  .pgnWin.text tag configure NextMove -background $pgnColor(NextMove)
  ::htext::init .pgnWin.text
  ::htext::updateRate .pgnWin.text 60
  updatePgnWin 1
}

# updatePgnWin:
#    Updates the PGN window. If $pgnNeedsUpdate == 0, then the
#    window text is not regenerated; only the current and next move
#    tags will be updated.
#
proc updatePgnWin {{pgnNeedsUpdate 0}} {
  global doColorPgn pgnIndentVars pgnIndentComments pgnSymbolicNags
  global pgnMoveNumSpace pgnShortHeader pgnColumn
  if {![winfo exists .pgnWin]} { return }
  set format plain
  if {$doColorPgn} {set format color}
  set pgnStr [sc_game pgn -symbols $pgnSymbolicNags \
                -indentVar $pgnIndentVars -indentCom $pgnIndentComments \
                -space $pgnMoveNumSpace -format $format -column $pgnColumn \
                -short $pgnShortHeader]
  if {$pgnNeedsUpdate} {
    busyCursor .
    wm title .pgnWin "Scid: PGN of Game [sc_game number]"
    .pgnWin.text configure -state normal
    .pgnWin.text delete 1.0 end
    if {$doColorPgn} {
      #set start [clock clicks -milli]
      ::htext::display .pgnWin.text $pgnStr
      #set end [clock clicks -milli]
      #puts "PGN: [expr $end - $start] ms"
    } else {
      .pgnWin.text insert 1.0 $pgnStr
    }
    unbusyCursor .
  }

  if {$doColorPgn} {
    # Now update Current and NextMove tags:
    .pgnWin.text tag remove Current 1.0 end
    set offset [sc_pos pgnOffset]
    set moveRange [.pgnWin.text tag nextrange "m_$offset" 1.0]
    if {[llength $moveRange] == 2} {
      .pgnWin.text tag add Current [lindex $moveRange 0] [lindex $moveRange 1]
      .pgnWin.text see [lindex $moveRange 0]
    }

    .pgnWin.text tag remove NextMove 1.0 end
    set noffset [sc_pos pgnOffset next]
    if {$noffset == $offset} {set noffset 0}
    set moveRange [.pgnWin.text tag nextrange "m_$noffset" 1.0]
    if {[llength $moveRange] == 2} {
      .pgnWin.text tag add NextMove [lindex $moveRange 0] [lindex $moveRange 1]
    }
    .pgnWin.text configure -state disabled
  }
  return
}


############################################################
### Comment Editor window

proc addNag {nag} {
  if {![winfo exists .commentWin]} { return }
  .commentWin.nf.tf.text insert end "$nag  "
  storeComment
  updatePgnWin 1
}

proc makeCommentWin {} {
  global commentWin
  if {[winfo exists .commentWin]} {
    closeCommentWin
  } else {
    openCommentWin
  }
}

proc closeCommentWin {} {
  global commentWin
  if {[winfo exists .commentWin]} {
    focus .
    destroy .commentWin
    set commentWin 0
  }
}

proc openCommentWin {} {
  global commentWin nagValue highcolor helpMessage
  if {[winfo exists .commentWin]} {
    focus .commentWin.cf.text
    return
  }
  set w .commentWin
  toplevel $w
  setWinLocation $w
  bind $w <F1> {helpWindow Comment}

  # Comment frame:
  frame $w.cf
  text $w.cf.text -width $::winWidth($w) -height $::winHeight($w) \
    -background white -wrap word -font font_Regular \
    -yscrollcommand ".commentWin.cf.scroll set" -setgrid 1
  scrollbar $w.cf.scroll -command ".commentWin.cf.text yview"
  label $w.cf.label -font font_Bold -textvar ::tr(Comment)
  bindFocusColors $w.cf.text
  bind $w.cf.text <Alt-KeyRelease-c> { .commentWin.b.close invoke }
  bind $w.cf.text <Alt-KeyRelease-s> { .commentWin.b.store invoke }
  bind $w <Configure> "recordWinSize $w"

  # NAG frame:
  frame $w.nf -width 100
  frame $w.nf.tf
  entry $w.nf.tf.text -width 20 -background white
  bindFocusColors $w.nf.tf.text
  bind $w.nf.tf.text <Alt-KeyRelease-c> { .commentWin.b.close invoke }

  set nagbox $w.nf.tf.text
  set nagbuttons $w.nf.b
  frame $w.nf.b
  button $nagbuttons.b1 -text "!" -command {addNag "!"}
  set helpMessage(E,$nagbuttons.b1) {Good move}
  button $nagbuttons.b2 -text "?" -command {addNag "?"}
  set helpMessage(E,$nagbuttons.b2) {Poor move}
  button $nagbuttons.b3 -text "!!" -command {addNag "!!"}
  set helpMessage(E,$nagbuttons.b3) {Excellent move}
  button $nagbuttons.b4 -text "??" -command {addNag "??"}
  set helpMessage(E,$nagbuttons.b4) {Blunder; terrible move}
  button $nagbuttons.b5 -text "!?" -command {addNag "!?"}
  set helpMessage(E,$nagbuttons.b5) {Interesting move}
  button $nagbuttons.b6 -text "?!" -command {addNag "?!"}
  set helpMessage(E,$nagbuttons.b6) {Dubious move}
  button $nagbuttons.b7 -text "N" -command {addNag "N"}
  set helpMessage(E,$nagbuttons.b7) {Novelty; new move}
  button $nagbuttons.b8 -text "D" -command {addNag "D"}
  set helpMessage(E,$nagbuttons.b8) {Diagram symbol}

  frame $w.nf.b2
  set nagbuttons $w.nf.b2
  button $nagbuttons.b1 -text "+-" -command {addNag "+-"}
  set helpMessage(E,$nagbuttons.b1) {White has a decisive advantage}
  button $nagbuttons.b2 -text "+/-" -command {addNag "+/-"}
  set helpMessage(E,$nagbuttons.b2) {White has a clear advantage}
  button $nagbuttons.b3 -text "+=" -command {addNag "+="}
  set helpMessage(E,$nagbuttons.b3) {White has a slight advantage}
  button $nagbuttons.b4 -text "=" -command {addNag "="}
  set helpMessage(E,$nagbuttons.b4) {Equal or drawish position}
  button $nagbuttons.b5 -text "=+" -command {addNag "=+"}
  set helpMessage(E,$nagbuttons.b5) {Black has a slight advantage}
  button $nagbuttons.b6 -text "-/+" -command {addNag "-/+"}
  set helpMessage(E,$nagbuttons.b6) {Black has a clear advantage}
  button $nagbuttons.b7 -text "-+" -command {addNag "-+"}
  set helpMessage(E,$nagbuttons.b7) {Black has a decisive advantage}

  label $w.nf.label -font font_Bold -textvar ::tr(AnnotationSymbols)
  pack $w.nf -side top
  addHorizontalRule $w

  button $w.nf.tf.clear -textvar ::tr(Clear) \
    -command {.commentWin.nf.tf.text delete 0 end}
  set helpMessage(E,$w.nf.tf.clear) {Clear all symbols for this move}
  pack $w.nf.label -side top -expand 0
  pack $w.nf.tf -side top
  pack $w.nf.tf.text -side left
  pack $w.nf.tf.clear -side right -padx 20 -pady 5
  pack $w.nf.b -side top
  for {set i 1} { $i <= 8 } { incr i } {
    pack $w.nf.b.b$i -side left
  }
  pack $w.nf.b2 -side top
  for {set i 1} { $i <= 7 } { incr i } {
    pack $w.nf.b2.b$i -side left
  }

  frame $w.b
  pack $w.b -side bottom -ipady 4 -fill x -padx 2

  pack $w.cf -side top -expand 1 -fill both
  pack $w.cf.label -side top
  pack $w.cf.scroll -side right -fill y
  pack $w.cf.text -side right -expand 1 -fill both

  addHorizontalRule $w

  wm minsize $w 40 3

  # Buttons:

  button $w.b.mark -text "Insert mark..." -command {
    .commentWin.cf.text insert insert [insertMarkComment]
    storeComment
  }

  button $w.b.clear -textvar ::tr(Clear) \
    -command ".commentWin.cf.text delete 0.0 end"
  set helpMessage(E,$w.b.clear) {Clear this comment}
  button $w.b.revert -textvar ::tr(Revert) \
    -command updateCommentWin
  set helpMessage(E,$w.b.revert) {Revert to the stored comment}
  button $w.b.store -textvar ::tr(Store) \
    -command {storeComment; updatePgnWin 1}
  set helpMessage(E,$w.b.store) {Store this comment in the game}
  frame $w.b.space -width 10
  button $w.b.close -textvar ::tr(Close) \
    -command { set commentWin 0; focus .; destroy .commentWin}
  set helpMessage(E,$w.b.close) {Close the comment editor window}

  pack $w.b.close $w.b.space $w.b.store $w.b.revert $w.b.clear -side right
  pack $w.b.mark -side left

  wm title $w "Scid: Comment editor"
  wm iconname $w "Scid: Comment editor"
  updateCommentWin
  focus $w.cf.text
}

set insertMark(Text) ""
set insertMark(OK) 0
set insertMark(from) -1
set insertMark(to) -1
set insertMark(color) red
set insertMark(colorList) {
  red red2 orange yellow green darkGreen blue darkBlue purple
}

# insertMarkComment:
#   Produces a dialog box for inserting a square color mark
#   or arrow into the current comment.
#
proc insertMarkComment {} {
  global insertMark
  set w .markDlg
  if {![winfo exists .commentWin]} { return }
  toplevel $w
  wm title $w "Scid: Insert mark"
  set insertMark(Text) ""
  set insertMark(OK) 0
  set insertMark(from) -1
  set insertMark(to) -1

  ::board::new $w.bd
  pack $w.bd -side top

  pack [frame $w.c] -side top -pady 2
  foreach i $insertMark(colorList) {
    image create photo markColor_$i -width 20 -height 20
    markColor_$i put $i -to 1 1 18 18
    radiobutton $w.c.c$i -variable insertMark(color) -value $i \
      -indicatoron 0 -image markColor_$i -command insertMarkSelect
    pack $w.c.c$i -side left -padx 1
  }

  pack [frame $w.f] -side bottom -fill x -pady 2
  entry $w.f.e -textvar insertMark(Text) -width 30
  bindFocusColors $w.f.e
  button $w.f.ok -text OK -command "set insertMark(OK) 1; destroy $w"
  button $w.f.cancel -text $::tr(Cancel) -command "destroy $w"
  pack $w.f.cancel $w.f.ok -side right -padx 1
  pack $w.f.e -side left -padx 1

  for {set i 0} {$i < 64} {incr i} {
    ::board::bind $w.bd $i <1> "insertMarkSelect $i"
  }

  update
  catch {grab $w}
  tkwait window $w
  if {$insertMark(OK)} { return $insertMark(Text) }
  return ""
}

# insertMarkSelect:
#   Called when a square is selected in the Insert Mark dialog box.
#
proc insertMarkSelect {{sq -1}} {
  global insertMark
  set w .markDlg
  ::board::update $w.bd
  ::board::recolor $w.bd

  if {$sq >= 0} {
    if {$insertMark(from) < 0  ||  $insertMark(from) != $insertMark(to)} {
      set insertMark(from) $sq
      set insertMark(to) $sq
    } else {
      set insertMark(to) $sq
    }
  }

  set files [list a b c d e f g h]
  set from [lindex $files [expr $insertMark(from) % 8]]
  append from [expr int($insertMark(from)/8) + 1]
  set to [lindex $files [expr $insertMark(to) % 8]]
  append to [expr int($insertMark(to)/8) + 1]

  if {$insertMark(from) < 0} { return }
  if {$insertMark(from) == $insertMark(to)} {
    ::board::colorSquare $w.bd $insertMark(from) $insertMark(color)
    set insertMark(Text) "\[%mark $from $insertMark(color)\]"
  } else {
    ::board::arrow $w.bd $insertMark(from) $insertMark(to) $insertMark(color)
    set insertMark(Text) "\[%arrow $from $to $insertMark(color)\]"
  }
}

proc storeComment {} {
  if {![winfo exists .commentWin]} { return }
  sc_pos clearNags
  foreach i [split [.commentWin.nf.tf.text get] " "] {
    sc_pos addNag $i
  }

  # The "end-1c" below is because Tk adds a newline to text contents:
  set newComment [.commentWin.cf.text get 1.0 end-1c]
  set oldComment [sc_pos getComment]
  if {[string compare $oldComment $newComment]} {
    sc_pos setComment $newComment
    updateStatusBar
    updatePgnWin 1
    updateBoard .board
  }
}


proc updateCommentWin {} {
  if {![winfo exists .commentWin]} { return }
  set nag [sc_pos getNags]
  .commentWin.nf.tf.text configure -state normal
  .commentWin.nf.tf.text delete 0 end
  if {$nag != "0"} {
    .commentWin.nf.tf.text insert end $nag
  }
  .commentWin.cf.text delete 0.0 end
  .commentWin.cf.text insert 0.0 [sc_pos getComment]
}


######################################################################
### Crosstable window

set crosstab(sort) score
set crosstab(type) auto
set crosstab(ages) "+ages"
set crosstab(colors) "+colors"
set crosstab(ratings) "+ratings"
set crosstab(countries) "+countries"
set crosstab(titles) "+titles"
set crosstab(groups) "-groups"
set crosstab(breaks) "-breaks"
set crosstab(text) hypertext

proc configCrosstabMenus {{lang ""}} {
  if {! [winfo exists .crosstabWin]} { return }
  if {$lang == ""} { set lang $::language }
  set m .crosstabWin.menu
  foreach menu {file edit opt sort color help} tag {File Edit Opt Sort Color Help} {
    configMenuName $m.$menu Crosstab$tag $lang
  }
  foreach idx {0 1 2 4} tag {Text Html LaTeX Close} {
    configMenuText $m.file.m $idx CrosstabFile$tag $lang
  }
  foreach idx {0 1 2} tag {Event Site Date} {
    configMenuText $m.edit.m $idx CrosstabEdit$tag $lang
  }
  foreach idx {0 1 2 3 5 6 7 8 9 11 13} tag {All Swiss Knockout Auto Ages Nats Ratings Titles Breaks Colors Group} {
    configMenuText $m.opt.m $idx CrosstabOpt$tag $lang
  }
  foreach idx {0 1 2} tag {Name Rating Score} {
    configMenuText $m.sort.m $idx CrosstabSort$tag $lang
  }
  foreach idx {0 1} tag {Plain Hyper} {
    configMenuText $m.color.m $idx CrosstabColor$tag $lang
  }
  foreach idx {0 1} tag {Cross Index} {
    configMenuText $m.help.m $idx CrosstabHelp$tag $lang
  }
}

proc toggleCrosstabWin {} {
  set w .crosstabWin
  if {[winfo exists $w]} {
    destroy $w
  } else {
    crosstabWin
  }
}

proc updateCrosstabWin {} {
  set w .crosstabWin
  if {[winfo exists $w]} { crosstabWin }
}

proc crosstabWin {} {
  global crosstab
  set w .crosstabWin
  if {! [winfo exists $w]} {
    toplevel $w
    wm title $w "Scid: [tr ToolsCross]"
    wm minsize $w 50 5
    setWinLocation $w

    frame $w.menu -borderwidth 3 -relief raised
    pack $w.menu -side top -fill x
    $w configure -menu $w.menu
    menubutton $w.menu.file -text CrosstabFile -menu $w.menu.file.m
    menubutton $w.menu.edit -text CrosstabEdit -menu $w.menu.edit.m
    menubutton $w.menu.opt -text CrosstabOpt -menu $w.menu.opt.m
    menubutton $w.menu.sort -text CrosstabSort -menu $w.menu.sort.m
    menubutton $w.menu.color -text CrosstabText -menu $w.menu.color.m
    menubutton $w.menu.help -text CrosstabHelp -menu $w.menu.help.m
    foreach i {file edit opt sort color help} {
      menu $w.menu.$i.m -tearoff 0
      pack $w.menu.$i -side left
    }

    $w.menu.file.m add command -label CrosstabFileText -command {
      set ftype {
        { "Text files" {".txt"} }
        { "All files"  {"*"}    }
      }
      set fname [tk_getSaveFile -initialdir [pwd] -filetypes $ftype  -title "Save Crosstable"]
      if {$fname != ""} {
        if {[catch {set tempfile [open $fname w]}]} {
          tk_messageBox -title "Scid: Error saving file" \
            -type ok -icon warning \
            -message "Unable to save the file: $fname\n\n"
        } else {
          puts -nonewline $tempfile [.crosstabWin.f.text get 1.0 end]
          close $tempfile
        }
      }
    }
    $w.menu.file.m add command -label CrosstabFileHtml -command {
      set ftype {
        { "HTML files" {".html" ".htm"} }
        { "All files"  {"*"}    }
      }
      set fname [tk_getSaveFile -initialdir $::initialDir(html) -filetypes $ftype  -title "Save Crosstable as HTML"]
      if {$fname != ""} {
        if {[catch {set tempfile [open $fname w]}]} {
          tk_messageBox -title "Scid: Error saving file" \
            -type ok -icon warning \
            -message "Unable to save the file: $fname\n\n"
        } else {
          catch {sc_game crosstable html $crosstab(sort) $crosstab(type) \
                   $crosstab(ratings) $crosstab(countries) $crosstab(titles) \
                   $crosstab(colors) $crosstab(groups) $crosstab(ages) \
                   $crosstab(breaks)} result
          puts $tempfile $result
          close $tempfile
        }
      }
    }
    $w.menu.file.m add command -label CrosstabFileLaTeX -command {
      set ftype {
        { "LaTeX files" {".tex" ".ltx"} }
        { "All files"  {"*"}    }
      }
      set fname [tk_getSaveFile -initialdir $::initialDir(tex) -filetypes $ftype  -title "Save Crosstable as LaTeX"]
      if {$fname != ""} {
        if {[catch {set tempfile [open $fname w]}]} {
          tk_messageBox -title "Scid: Error saving file" \
            -type ok -icon warning \
            -message "Unable to save the file: $fname\n\n"
        } else {
          catch {sc_game crosstable latex $crosstab(sort) $crosstab(type) \
                   $crosstab(ratings) $crosstab(countries) $crosstab(titles) \
                   $crosstab(colors) $crosstab(groups) $crosstab(ages) \
                   $crosstab(breaks)} result
          puts $tempfile $result
          close $tempfile
        }
      }
    }
    $w.menu.file.m add separator
    $w.menu.file.m add command -label CrosstabFileClose \
      -command { .crosstabWin.b.cancel invoke } -accelerator Esc

    $w.menu.edit.m add command -label CrosstabEditEvent -command {
      makeNameEditor
      setNameEditorType event
      set editName [sc_game info event]
      set editNameNew ""
      set editNameSelect crosstable
    }
    $w.menu.edit.m add command -label CrosstabEditSite -command {
      makeNameEditor
      setNameEditorType site
      set editName [sc_game info site]
      set editNameNew ""
      set editNameSelect crosstable
    }
    $w.menu.edit.m add command -label CrosstabEditDate -command {
      makeNameEditor
      setNameEditorType date
      set editNameNew " "
      set editDate [sc_game info date]
      set editDateNew [sc_game info date]
      set editNameSelect crosstable
    }

    $w.menu.opt.m add radiobutton -label CrosstabOptAll \
      -variable crosstab(type) -value allplay -command crosstabWin
    $w.menu.opt.m add radiobutton -label CrosstabOptSwiss \
      -variable crosstab(type) -value swiss -command crosstabWin
    $w.menu.opt.m add radiobutton -label CrosstabOptKnockout \
      -variable crosstab(type) -value knockout -command crosstabWin
    $w.menu.opt.m add radiobutton -label CrosstabOptAuto \
      -variable crosstab(type) -value auto -command crosstabWin
    $w.menu.opt.m add separator
    $w.menu.opt.m add checkbutton -label CrosstabOptAges \
      -variable crosstab(ages) -onvalue "+ages" \
      -offvalue "-ages" -command crosstabWin
    $w.menu.opt.m add checkbutton -label CrosstabOptNats \
      -variable crosstab(countries) -onvalue "+countries" \
      -offvalue "-countries" -command crosstabWin
    $w.menu.opt.m add checkbutton -label CrosstabOptRatings \
      -variable crosstab(ratings) -onvalue "+ratings" -offvalue "-ratings" \
      -command crosstabWin
    $w.menu.opt.m add checkbutton -label CrosstabOptTitles \
      -variable crosstab(titles) -onvalue "+titles" -offvalue "-titles" \
      -command crosstabWin
    $w.menu.opt.m add checkbutton -label CrosstabOptBreaks \
      -variable crosstab(breaks) -onvalue "+breaks" \
      -offvalue "-breaks" -command crosstabWin
    $w.menu.opt.m add separator
    $w.menu.opt.m add checkbutton -label CrosstabOptColors \
      -underline 0 -variable crosstab(colors) \
      -onvalue "+colors" -offvalue "-colors" -command crosstabWin
    $w.menu.opt.m add separator
    $w.menu.opt.m add checkbutton -label CrosstabOptGroup \
      -underline 0 -variable crosstab(groups) \
      -onvalue "+groups" -offvalue "-groups" -command crosstabWin

    $w.menu.sort.m add radiobutton -label CrosstabSortName \
      -variable crosstab(sort) -value name -command crosstabWin
    $w.menu.sort.m add radiobutton -label CrosstabSortRating \
      -variable crosstab(sort) -value rating -command crosstabWin
    $w.menu.sort.m add radiobutton -label CrosstabSortScore \
      -variable crosstab(sort) -value score -command crosstabWin

    $w.menu.color.m add radiobutton -label CrosstabColorPlain \
      -variable crosstab(text) -value plain -command crosstabWin
    $w.menu.color.m add radiobutton -label CrosstabColorHyper \
      -variable crosstab(text) -value hypertext -command crosstabWin

    $w.menu.help.m add command -label CrosstabHelpCross \
      -accelerator F1 -command {helpWindow Crosstable}
    $w.menu.help.m add command -label CrosstabHelpIndex \
       -command {helpWindow Index}

    configCrosstabMenus

    frame $w.b
    pack $w.b -side bottom -fill x
    frame $w.f
    pack $w.f -side top -fill both -expand true
    text $w.f.text -width $::winWidth($w) -height $::winHeight($w) \
      -wrap none -font font_Fixed \
      -background white -yscroll "$w.f.ybar set" \
      -xscroll "$w.f.xbar set" -setgrid 1 -cursor top_left_arrow
    ::htext::init $w.f.text
    $w.f.text tag configure bgGray -background gray95
    scrollbar $w.f.ybar -command "$w.f.text yview"
    scrollbar $w.f.xbar -orient horizontal -command "$w.f.text xview"
    grid $w.f.text -row 0 -column 0 -sticky nesw
    grid $w.f.ybar -row 0 -column 1 -sticky nesw
    grid $w.f.xbar -row 1 -column 0 -sticky nesw
    grid rowconfig $w.f 0 -weight 1 -minsize 0
    grid columnconfig $w.f 0 -weight 1 -minsize 0
    button $w.b.stop -textvar ::tr(Stop) -state disabled \
      -command { set ::htext::interrupt 1 }
    menubutton $w.b.type -text "" -menu $w.b.type.menu \
      -relief raised -bd 2 -indicatoron 1
    menu $w.b.type.menu
    $w.b.type.menu add radiobutton -label [tr CrosstabOptAll] \
      -variable crosstab(type) -value allplay -command crosstabWin
    $w.b.type.menu add radiobutton -label [tr CrosstabOptSwiss] \
      -variable crosstab(type) -value swiss -command crosstabWin
    $w.b.type.menu add radiobutton -label [tr CrosstabOptKnockout] \
      -variable crosstab(type) -value knockout -command crosstabWin
    $w.b.type.menu add radiobutton -label [tr CrosstabOptAuto] \
      -variable crosstab(type) -value auto -command crosstabWin
    button $w.b.update -textvar ::tr(Update) -command crosstabWin
    button $w.b.cancel -textvar ::tr(Close) -command {
      focus .
      destroy .crosstabWin
    }
    button $w.b.setfilter -textvar ::tr(SetFilter) -command {
        searchReset
        searchNegate
        sc_game crosstable filter
        updateGList
    }
    button $w.b.addfilter -textvar ::tr(AddToFilter) -command {
        sc_game crosstable filter
        updateGList
    }
    pack $w.b.cancel $w.b.update $w.b.type \
      -side right -pady 3 -padx 5
    pack $w.b.setfilter $w.b.addfilter -side left -pady 3 -padx 5
    bind $w <Configure> "recordWinSize $w"
    bind $w <F1> { helpWindow Crosstable }
    bind $w <Return> { .crosstabWin.b.update invoke }
    bind $w <Escape> { .crosstabWin.b.cancel invoke }
    bind $w <Up> { .crosstabWin.f.text yview scroll -1 units }
    bind $w <Down> { .crosstabWin.f.text yview scroll 1 units }
    bind $w <Prior> { .crosstabWin.f.text yview scroll -1 pages }
    bind $w <Next> { .crosstabWin.f.text yview scroll 1 pages }
    bind $w <Left> { .crosstabWin.f.text xview scroll -1 units }
    bind $w <Right> { .crosstabWin.f.text xview scroll 1 units }
    bind $w <Key-Home> {
      .crosstabWin.f.text xview moveto 0
    }
    bind $w <Key-End> {
      .crosstabWin.f.text xview moveto 0.99
    }
    standardShortcuts $w
  }

  switch $crosstab(type) {
    allplay  { $w.b.type configure -text [tr CrosstabOptAll] }
    swiss    { $w.b.type configure -text [tr CrosstabOptSwiss] }
    knockout { $w.b.type configure -text [tr CrosstabOptKnockout] }
    auto     { $w.b.type configure -text [tr CrosstabOptAuto] }
  }
  $w.f.text configure -state normal
  $w.f.text delete 1.0 end
  busyCursor .
  $w.f.text configure -state disabled
  update idle
  $w.b.stop configure -state normal
  foreach button {update cancel setfilter addfilter type} {
    $w.b.$button configure -state disabled
  }
  pack $w.b.stop -side right -padx 5 -pady 3
  catch {grab $w.b.stop}
  update
  catch {sc_game crosstable $crosstab(text) $crosstab(sort) $crosstab(type) \
         $crosstab(ratings) $crosstab(countries) $crosstab(titles) \
         $crosstab(colors) $crosstab(groups) $crosstab(ages) \
         $crosstab(breaks)} result
  $w.f.text configure -state normal
  if {$crosstab(text) == "plain"} {
    $w.f.text insert end $result
  } else {
    ::htext::display $w.f.text $result
  }
  # Shade every second line to help readability:
  set lastLineNum [expr int([$w.f.text index end])]
  for {set i 2} {$i <= $lastLineNum} {incr i 2} {
    $w.f.text tag add bgGray $i.0 "$i.0 lineend +1c"
  }
  unbusyCursor .
  catch {grab release $w.b.stop}
  $w.b.stop configure -state disabled
  pack forget $w.b.stop
  foreach button {update cancel setfilter addfilter type} {
    $w.b.$button configure -state normal
  }
  $w.f.text configure -state disabled
  raiseWin $w
}


####################
# Game score graph

proc updateScoreGraph {} {
  set linecolor red
  set linewidth 2
  set psize 2

  set w .sgraph

  if {! [winfo exists $w]} {
    toplevel $w
    frame $w.menu -relief raised -borderwidth 2
    pack $w.menu -side top -fill x
    $w configure -menu $w.menu
    menubutton $w.menu.file -text GraphFile -menu $w.menu.file.m
    menu $w.menu.file.m
    $w.menu.file.m add command -label GraphFileColor \
      -command "saveGraph color $w.c"
    $w.menu.file.m add command -label GraphFileGrey \
      -command "saveGraph gray $w.c"
    $w.menu.file.m add separator
    $w.menu.file.m add command -label GraphFileClose -command "destroy $w"
    pack $w.menu.file -side left

    canvas $w.c -width 500 -height 300
    $w.c create text 25 5 -tag text -justify center -width 1 \
      -font font_Regular -anchor n
    pack $w.c -side top -expand yes -fill both
    bind $w <F1> {helpWindow Graphs Score}
    bind $w <Configure> {
      .sgraph.c itemconfigure text -width [expr [winfo width .sgraph.c] - 50]
      .sgraph.c coords text [expr [winfo width .sgraph.c] / 2] 10
      ::graph::configure score -height [expr [winfo height .sgraph.c] - 90]
      ::graph::configure score -width [expr [winfo width .sgraph.c] - 100]
      ::graph::redraw score
    }
    bind $w.c <3> updateScoreGraph
    bind $w.c <1> {moveInScoreGraph %x}
    wm title $w "Scid: [tr ToolsScore]"
    configScoreGraphMenus
  }

  $w.c itemconfigure text -width [expr [winfo width $w.c] - 50]
  $w.c coords text [expr [winfo width $w.c] / 2] 10
  set height [expr [winfo height $w.c] - 90]
  set width [expr [winfo width $w.c] - 100]
  ::graph::create score -width $width -height $height -xtop 50 -ytop 45 \
    -ytick 1 -xtick 5 -font font_Small -canvas $w.c -textcolor black \
    -hline {{gray80 1 each 1} {black 1 at 0}} \
    -vline {{gray80 1 each 1} {steelBlue 1 each 5}}

  # Create fake dataset with bounds so we see at least -1.0 to 1.0:
  ::graph::data score bounds -points 0 -lines 0 -bars 0 -coords {1 -0.9 1 0.9}

  # Update the graph:
  $w.c itemconfigure text -text "[sc_game info white] - [sc_game info black]\n[sc_game info site]  [sc_game info date]"
  busyCursor $w
  update
  catch {::graph::data score data -color $linecolor -points 1 -lines 1 \
             -linewidth $linewidth -radius $psize -outline $linecolor \
             -coords [sc_game scores]}
  ::graph::redraw score
  unbusyCursor $w
  update
}

proc configScoreGraphMenus {{lang ""}} {
  if {! [winfo exists .sgraph]} { return }
  if {$lang == ""} { set lang $::language }
  set m .sgraph.menu
  foreach menu {file} tag {File} {
    configMenuName $m.$menu Graph$tag $lang
  }
  foreach idx {0 1 3} tag {Color Grey Close} {
    configMenuText $m.file.m $idx GraphFile$tag $lang
  }
}

proc moveInScoreGraph {xc} {
  set x [expr round([::graph::xunmap score $xc] * 2)]
  sc_move start
  sc_move forward $x
  updateBoard
}

####################
# Rating graph

set rgraph(year) 1900
set rgraph(type) both
set rgraph(player) ""

proc updateRatingGraph {{type ""} {player ""}} {
  global rgraph
  set white [sc_game info white]
  set black [sc_game info black]
  set whiteColor red
  set blackColor blue
  set lwidth 2
  set psize 2

  if {$type == ""} { set type $rgraph(type) }
  if {$player == ""} { set player $rgraph(player) }
  set rgraph(type) $type
  set rgraph(player) $player

  set w .rgraph

  if {! [winfo exists $w]} {
    toplevel $w
    frame $w.menu -relief raised -borderwidth 2
    pack $w.menu -side top -fill x
    $w configure -menu $w.menu
    menubutton $w.menu.file -text GraphFile -menu $w.menu.file.m
    menu $w.menu.file.m
    $w.menu.file.m add command -label GraphFileColor \
      -command "saveGraph color $w.c"
    $w.menu.file.m add command -label GraphFileGrey \
      -command "saveGraph gray $w.c"
    $w.menu.file.m add separator
    $w.menu.file.m add command -label GraphFileClose -command "destroy $w"
    menubutton $w.menu.options -text GraphOptions -menu $w.menu.options.m
    menu $w.menu.options.m
    foreach i {White Black Both PInfo} j {white black both player} {
      $w.menu.options.m add radiobutton -label GraphOptions$i \
        -variable rgraph(type) -value $j -command "updateRatingGraph"
    }
    $w.menu.options.m add separator
    foreach i {1900 1980 1985 1990 1995 2000} {
      $w.menu.options.m add radiobutton -label "Since $i" \
        -variable rgraph(year) -value $i -command "updateRatingGraph"
    }
    pack $w.menu.file $w.menu.options -side left

    canvas $w.c -width 500 -height 300
    $w.c create text 25 10 -tag text -justify center -width 1 \
      -font font_Regular -anchor n
    pack $w.c -side top -expand yes -fill both
    bind $w <F1> {helpWindow Graphs Rating}
    bind $w <Configure> {
      .rgraph.c itemconfigure text -width [expr [winfo width .rgraph.c] - 50]
      .rgraph.c coords text [expr [winfo width .rgraph.c] / 2] 10
      ::graph::configure ratings -height [expr [winfo height .rgraph.c] - 70]
      ::graph::configure ratings -width [expr [winfo width .rgraph.c] - 100]
      ::graph::configure ratings -logy 10
      ::graph::redraw ratings
    }
    bind $w.c <Button-1> "updateRatingGraph"
    bind $w.c <Button-3> "updateRatingGraph"
    wm title $w "Scid: [tr ToolsRating]"
    configRatingGraphMenus
  }

  $w.c itemconfigure text -width [expr [winfo width $w.c] - 50]
  $w.c coords text [expr [winfo width $w.c] / 2] 10
  set height [expr [winfo height $w.c] - 70]
  set width [expr [winfo width $w.c] - 100]
  ::graph::create ratings -width $width -height $height -xtop 50 -ytop 35 \
    -ytick 50 -xtick 1 -font font_Small -canvas $w.c -textcolor black \
    -hline {{gray80 1 each 25} {steelBlue 1 each 100}} \
    -vline {{gray80 1 each 1} {steelBlue 1 each 5}}
  ::graph::redraw ratings
  busyCursor $w
  update

  set title "[tr ToolsRating]: "
  if {$type == "player"} {
    append title $player
    catch {::graph::data ratings d -color $whiteColor -points 1 -lines 1 \
             -linewidth $lwidth -radius $psize -outline $whiteColor \
             -coords [sc_name info -ratings:$rgraph(year) $player]}
  }
  if {$type == "white"  ||  $type == "both"} {
    set key ""
    if {$type == "both"} { set key [surname $white] }
    append title $white
    catch {::graph::data ratings d -color $whiteColor -points 1 -lines 1 \
             -linewidth $lwidth -radius $psize -outline $whiteColor \
             -key $key -coords [sc_name info -ratings:$rgraph(year) $white]}
  }
  if {$type == "both"} { append title " - " }
  if {$type == "black"  ||  $type == "both"} {
    set key ""
    if {$type == "both"} { set key [surname $black] }
    append title $black
    catch {::graph::data ratings d2 -color $blackColor -points 1 -lines 1 \
             -linewidth $lwidth -radius $psize -outline $blackColor \
             -key $key -coords [sc_name info -ratings:$rgraph(year) $black]}
  }
  set minYear [expr int([::graph::cget ratings axmin])]
  set maxYear [expr int([::graph::cget ratings axmax])]
  ::graph::configure ratings -xtick 1
  if {[expr $maxYear - $minYear] > 10} {::graph::configure ratings -xtick 5}
  ::graph::redraw ratings
  $w.c itemconfigure text -text $title
  unbusyCursor $w
}

proc configRatingGraphMenus {{lang ""}} {
  if {! [winfo exists .rgraph]} { return }
  if {$lang == ""} { set lang $::language }
  set m .rgraph.menu
  foreach menu {file options} tag {File Options} {
    configMenuName $m.$menu Graph$tag $lang
  }
  foreach idx {0 1 3} tag {Color Grey Close} {
    configMenuText $m.file.m $idx GraphFile$tag $lang
  }
  foreach idx {0 1 2 3} tag {White Black Both PInfo} {
    configMenuText $m.options.m $idx GraphOptions$tag $lang
  }
}


# surname:
#   Returns the surname of a player name.
#
proc surname {name} {
  set idx [string first "," $name]
  if {$idx > 0} { set name [string range $name 0 [expr $idx - 1]] }
  return $name
}


####################
# Player Info window

set playerInfoName ""

proc playerInfo {{player ""}} {
  global playerInfoName
  if {$player == ""} { set player $playerInfoName }
  if {[catch {sc_name info -htext $player} pinfo]} { return }
  set playerInfoName $player
  set ::rgraph(player) $player
  set w .playerInfoWin
  if {! [winfo exists $w]} {
    toplevel $w
    setWinLocation $w
    wm title $w "Scid: Player Info"
    wm minsize $w 40 5
    pack [frame $w.b2] -side bottom -fill x
    pack [frame $w.b] -side bottom -fill x
    button $w.b.graph -text "Rating graph" \
      -command {updateRatingGraph player $playerInfoName}
    button $w.b.edit -text "Edit ratings" -command {
      makeNameEditor
      setNameEditorType rating
      set editName $playerInfoName
      set editNameSelect crosstable
    }
    button $w.b2.help -textvar ::tr(Help) -command {helpWindow PInfo}
    button $w.b2.update -textvar ::tr(Update) -command {playerInfo $playerInfoName}
    button $w.b2.close -textvar ::tr(Close) -command "focus .; destroy $w"
    pack $w.b2.close $w.b2.update $w.b2.help -side right -padx 3
    pack $w.b.graph $w.b.edit -side left -padx 3
    scrollbar $w.ybar -command "$w.text yview"
    pack $w.ybar -side right -fill y
    text $w.text -font font_Regular -background white \
      -width $::winWidth($w) -height $::winHeight($w) \
      -setgrid 1 -wrap none -yscrollcommand "$w.ybar set"
    pack $w.text -side top -fill both -expand yes
    bind $w <Escape> "focus .; destroy $w"
    ::htext::init $w.text
    ::htext::updateRate $w.text 0
    bind $w <Escape> "focus .; destroy $w"
    bind $w <F1> {helpWindow PInfo}
    bind $w <Configure> "recordWinSize $w"
    standardShortcuts $w
  }
  $w.text configure -state normal
  $w.text delete 1.0 end
  ::htext::display $w.text $pinfo
  $w.text configure -state disabled
  updateGList
  updateMaintWin
  #raiseWin $w
}


####################
# Game Browser window

namespace eval ::gbrowser {}
set ::gbrowser::size 35

proc ::gbrowser::new {base gnum {ply -1}} {
  set n 0
  while {[winfo exists .gb$n]} { incr n }
  set w .gb$n
  toplevel $w
  if {$base < 1} { set base [sc_base current] }
  if {$gnum < 1} { set game [sc_game number] }
  set filename [file tail [sc_base filename $base]]
  wm title $w "Scid: $::tr(BrowseGame) ($filename: $gnum)"
  set header [sc_game summary -base $base -game $gnum header]
  set ::gbrowser::boards($n) [sc_game summary -base $base -game $gnum boards]
  set moves [sc_game summary -base $base -game $gnum moves]

  pack [frame $w.b] -side bottom -fill x
  ::board::new $w.bd $::gbrowser::size
  $w.bd configure -relief solid -borderwidth 1
  pack $w.bd -side left -padx 4 -pady 4

  pack [frame $w.t] -side right -fill both -expand yes
  text $w.t.text -foreground black -background white -wrap word \
    -width 45 -height 12 -font font_Small -yscrollcommand "$w.t.ybar set" \
    -setgrid 1
  scrollbar $w.t.ybar -command "$w.t.text yview" -takefocus 0
  pack $w.t.ybar -side right -fill y
  pack $w.t.text -side left -fill both -expand yes
  set t $w.t.text
  event generate $t <ButtonRelease-1>
  $t tag configure header -foreground darkBlue
  $t tag configure next -foreground yellow -background darkBlue
  $t insert end "$header" header
  $t insert end "\n\n"
  set m 0
  foreach i $moves {
    set moveTag m$m
    $t insert end $i $moveTag
    $t insert end " "
    $t tag bind $moveTag <ButtonRelease-1> "::gbrowser::update $n $m"
    $t tag bind $moveTag <Any-Enter> \
      "$t tag configure $moveTag -foreground red
       $t configure -cursor hand2"
    $t tag bind $moveTag <Any-Leave> \
      "$t tag configure $moveTag -foreground {}
       $t configure -cursor {}"
    incr m
  }
  bind $w <F1> {helpWindow GameList Browsing}
  bind $w <Escape> "destroy $w"
  bind $w <Home> "::gbrowser::update $n start"
  bind $w <End> "::gbrowser::update $n end"
  bind $w <Left> "::gbrowser::update $n -1"
  bind $w <Right> "::gbrowser::update $n +1"
  bind $w <Up> "::gbrowser::update $n -10"
  bind $w <Down> "::gbrowser::update $n +10"
  bind $w <Control-Shift-Left> "::board::resize $w.bd -1"
  bind $w <Control-Shift-Right> "::board::resize $w.bd +1"

  button $w.b.start -image tb_start -command "::gbrowser::update $n start"
  button $w.b.back -image tb_prev -command "::gbrowser::update $n -1"
  button $w.b.forward -image tb_next -command "::gbrowser::update $n +1"
  button $w.b.end -image tb_end -command "::gbrowser::update $n end"
  pack $w.b.start $w.b.back $w.b.forward $w.b.end -side left -padx 1 -pady 1

  set ::gbrowser::flip($n) [::board::isFlipped .board]
  button $w.b.flip -image tb_flip -command "::gbrowser::flip $n"
  pack $w.b.flip -side left -padx 3 -pady 1

  if {$gnum > 0} {
    button $w.b.load -textvar ::tr(LoadGame) \
      -command "sc_base switch $base; gameLoad $gnum"
    button $w.b.merge -textvar ::tr(MergeGame) \
      -command "mergeGame $base $gnum"
  }
  button $w.b.close -textvar ::tr(Close) -command "destroy $w"
  pack $w.b.close -side right -padx 1 -pady 1
  if {$gnum > 0} {
    pack $w.b.merge $w.b.load -side right -padx 1 -pady 1
  }

  wm resizable $w 1 0
  if {$ply < 0} {
    set ply 0
    if {$gnum > 0} {
      set ply [sc_filter value $base $gnum]
      if {$ply > 0} { incr ply -1 }
    }
  }
  ::gbrowser::update $n $ply
}

proc ::gbrowser::flip {n} {
  ::board::flip .gb$n.bd
}

proc ::gbrowser::update {n ply} {
  set w .gb$n
  if {! [winfo exists $w]} { return }
  set oldply 0
  if {[info exists ::gbrowser::ply($n)]} { set oldply $::gbrowser::ply($n) }
  if {$ply == "forward"} { set ply [expr $oldply + 1] }
  if {$ply == "back"} { set ply [expr $oldply - 1] }
  if {$ply == "start"} { set ply 0 }
  if {$ply == "end"} { set ply 9999 }
  if {[string index $ply 0] == "-"  ||  [string index $ply 0] == "+"} {
    set ply [expr $oldply + $ply]
  }
  if {$ply < 0} { set ply 0 }
  set max [expr [llength $::gbrowser::boards($n)] - 1]
  if {$ply > $max} { set ply $max }
  set ::gbrowser::ply($n) $ply
  ::board::update $w.bd [lindex $::gbrowser::boards($n) $ply]

  set t $w.t.text
  $t configure -state normal
  set moveRange [$t tag nextrange m$ply 1.0]
  $t tag remove next 1.0 end
  set moveRange [$t tag nextrange m$ply 1.0]
  if {[llength $moveRange] == 2} {
    $t tag add next [lindex $moveRange 0] [lindex $moveRange 1]
    $t see [lindex $moveRange 0]
  }
  $t configure -state disabled
}


####################
# ECO Browser window

set ecoBrowser(code) ""
set ecoBrowser(count) 0
set ecoBrowserWin 0

proc openCloseEcoBrowser {} {
  if {[winfo exists .ecograph]} {
    destroy .ecograph
  } else {
    updateEcoWin
  }
}

# updateEcoWin:
#    Updates the ECO Browser window, opening it if necessary.
#    If the ECO code "code" is "x", then the value of the global
#    variable ecoBrowser(code) is used instead.
#
proc updateEcoWin {{code "x"}} {
  set w .ecograph
  set graph $w.pane.graph
  set text $w.pane.text
  if {$code != "x"} { set ::ecoBrowser(code) $code }
  if {! [winfo exists $w]} {
    set ::ecoBrowserWin 1
    toplevel $w
    wm minsize $w 200 100
    setWinLocation $w
    bind $w <Escape> "destroy $w"
    bind $w <F1> {helpWindow ECO}
    bind $w <Destroy> {set ::ecoBrowserWin 0}
    text $w.title -relief flat -height 1 -width 1 -wrap word -font font_Bold
    $w.title tag configure center -justify center
    $w.title configure -cursor top_left_arrow
    pack $w.title -side top -fill x
    frame $w.b
    pack $w.b -side bottom -fill x
    button $w.b.classify -textvar ::tr(ReclassifyGames) -command classifyAllGames
    button $w.b.help -textvar ::tr(Help) -command {helpWindow ECO}
    button $w.b.close -textvar ::tr(Close) -command "destroy $w"
    pack $w.b.classify -side left -padx 5 -pady 5
    pack $w.b.close $w.b.help -side right -padx 5 -pady 5
    set pane [::pane::create $w.pane graph text 500 400 0.5]
    ::pane::range $w.pane 0.3 0.7
    ::pane::setdrag $w.pane 0
    pack $pane -side top -expand true -fill both

    canvas $graph.c -width 500 -height 250
    pack $graph.c -side top -fill both -expand yes
    text $text.text -height 12 -width 75 -wrap word -font font_Regular \
      -background white -selectbackground lightBlue \
      -yscroll "$text.ybar set" -xscroll "$text.xbar set"
    $text.text tag configure bold -font font_Bold
    $text.text tag configure indent -lmargin2 20
    $text.text configure -cursor top_left_arrow
    ::htext::init $text.text
    scrollbar $text.ybar -command "$text.text yview"
    scrollbar $text.xbar -orient horizontal -command "$text.text xview"
    grid $text.text -row 0 -column 0 -sticky nesw
    grid $text.ybar -row 0 -column 1 -sticky nesw
    #grid $text.xbar -row 1 -column 0 -sticky nesw
    grid rowconfig $text 0 -weight 1 -minsize 0
    grid columnconfig $text 0 -weight 1 -minsize 0

    foreach i {0 1 2 3 4 5 6 7 8 9 A B C D E a b c d e f g h i j k l m n o p
               q r s t u v w x y z} {
      bind $w <KeyPress-$i> "keyEcoBrowser $i"
    }

    foreach i {Left Delete less BackSpace} {
      bind $w <KeyPress-$i> {keyEcoBrowser "<"}
    }

    bind $w <Home>  {.ecograph.pane.text.text yview moveto 0}
    bind $w <End>   {.ecograph.pane.text.text yview moveto 1.0}
    bind $w <Up>    {.ecograph.pane.text.text yview scroll -1 units}
    bind $w <Down>  {.ecograph.pane.text.text yview scroll 1 units}
    bind $w <Prior> {.ecograph.pane.text.text yview scroll -1 pages}
    bind $w <Next>  {.ecograph.pane.text.text yview scroll 1 pages}
    standardShortcuts $w

    bind $graph.c <1> { selectEcoBrowser %x }
    bind $graph.c <3> { keyEcoBrowser "<" }

    bind $graph <Configure> {
      ::graph::configure eco -height [expr [winfo height .ecograph.pane.graph.c] - 50]
      ::graph::configure eco -width [expr [winfo width .ecograph.pane.graph.c] - 60]
      ::graph::redraw eco
    }
    bind $w <Configure> {
      ::graph::configure eco -height [expr [winfo height .ecograph.pane.graph.c] - 50]
      ::graph::configure eco -width [expr [winfo width .ecograph.pane.graph.c] - 60]
      ::graph::redraw eco
    }
    wm title $w "Scid: [tr WindowsECO]"
    ::graph::create eco -width 1 -height 1 -xtop 50 -ytop 20 \
      -xmin 0.5 -xtick 1 -ytick 5 -font font_Small -canvas $graph.c
    update
  }

  set height [expr [winfo height $graph.c] - 50]
  set width [expr [winfo width $graph.c] - 60]

  set code $::ecoBrowser(code)
  # Collect data:
  set len [string length $code]
  set subcodes {}
  if {$len == 0} {
    set subcodes {A B C D E}
  } elseif {$len == 1  ||  $len == 2} {
    set subcodes {0 1 2 3 4 5 6 7 8 9}
  } elseif {$len == 3} {
    set subcodes {a b c d e f g h i j k l m n o p q r s t u v w x y z}
  }

  set xlabels {}
  set count 0
  set data {}
  set maxfreq 1
  set wins {}
  set draws {}

  foreach i $subcodes {
    set subcode "$code$i"
    set stats [sc_base ecoStats $subcode]
    set freq [lindex $stats 0]
    incr count
    lappend data $count
    lappend data $freq
    lappend wins $count
    lappend wins [lindex $stats 1]
    lappend draws $count
    lappend draws [expr [lindex $stats 1] + [lindex $stats 2] + [lindex $stats 4]]
    if {$freq > $maxfreq} {set maxfreq $freq}
    if {$len == 3} {
      set subcode $i
    }
    lappend xlabels [list $count $subcode]
  }
  set hline 5
  if {$maxfreq >    20} { set hline    10 }
  if {$maxfreq >    50} { set hline    25 }
  if {$maxfreq >   100} { set hline    50 }
  if {$maxfreq >   200} { set hline   100 }
  if {$maxfreq >   500} { set hline   250 }
  if {$maxfreq >  1000} { set hline   500 }
  if {$maxfreq >  2000} { set hline  1000 }
  if {$maxfreq >  5000} { set hline  2500 }
  if {$maxfreq > 10000} { set hline  5000 }
  if {$maxfreq > 20000} { set hline 10000 }
  if {$maxfreq > 50000} { set hline 25000 }
  if {$maxfreq > 100000} { set hline 50000 }

  ::graph::create eco -width $width -height $height -xtop 50 -ytop 20 \
    -xmin 0.5 -xtick 1 -ytick $hline -font font_Small -canvas $graph.c
  ::graph::data eco data -color SteelBlue4 -points 0 -lines 0 -bars 1 \
    -barwidth 0.8 -outline black -coords $data
  ::graph::data eco draws -color SteelBlue3 -points 0 -lines 0 -bars 1 \
    -barwidth 0.8 -outline black -coords $draws
  ::graph::data eco wins -color SteelBlue1 -points 0 -lines 0 -bars 1 \
    -barwidth 0.8 -outline black -coords $wins
  ::graph::data eco bounds -points 0 -lines 0 -bars 0 -coords {1 0 1 1}
  ::graph::configure eco -ymin 0 -xmin 0.4 -xmax [expr $count + 0.6] \
    -xlabels $xlabels -hline [list [list gray80 1 each $hline]]
  ::graph::redraw eco
  $text.text configure -state normal
  $text.text delete 1.0 end
  set stats [sc_base eco $code]
  if {$len == 0} {
    set section $::tr(ECOAllSections)
  } elseif {$len < 3} {
    set section "$::tr(ECOSection) \"$code\""
  } else {
    set section "$::tr(ECOCode) \"$code\""
  }
  set header "<center><b>$::tr(ECOSummary) $section</b><br>"
  append header "[lindex $stats 0] $::tr(games): +[lindex $stats 1] =[lindex $stats 2] -[lindex $stats 3]  ([lindex $stats 5]%)</center>\n\n"
  ::htext::display $text.text "$header[sc_eco summary $code 1]"
  $text.text configure -state disabled
  $w.title configure -state normal
  $w.title delete 1.0 end
  $w.title insert end "$::tr(ECOFrequency) $section" center
  $w.title configure -state disabled
  set ::ecoBrowser(count) $count
}

proc selectEcoBrowser {xc} {
  set count $::ecoBrowser(count)
  set code $::ecoBrowser(code)
  set x [::graph::xunmap eco $xc]
  set selection 0
  for {set i 1} {$i <= $count} {incr i} {
    if {$x >= [expr $i - 0.4]  &&  $x <= [expr $i + 0.4]} {
      set selection $i
    }
  }
  if {$selection == 0} { return }
  incr selection -1
  set len [string length $code]
  if {$len == 0} {
    set code [lindex {A B C D E} $selection]
  } elseif {$len == 1  ||  $len == 2} {
    append code $selection
  } elseif {$len == 3} {
    append code [lindex {a b c d e f g h i j k l m n o p q r s t u v w x y z} $selection]
  } else {
    return
  }
  set ::ecoBrowser(code) $code
  updateEcoWin
}

# keyEcoBrowser:
#    Handles keyboard events in ECO browser window
#
proc keyEcoBrowser {key} {
  set code $::ecoBrowser(code)
  set len [string length $code]
  if {$key == "<"} {
    set ::ecoBrowser(code) [string range $code 0 [expr $len - 2]]
    updateEcoWin
    return
  }
  if {$key == "top"} {
    set ::ecoBrowser(code) ""
    updateEcoWin
    return
  }

  if {$len == 0} {
    set key [string toupper $key]
    switch $key {
      A - B - C - D - E {
        # nothing
      }
      default { set key "" }
    }
  } elseif {$len == 1 || $len == 2} {
    switch $key {
      0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 {
        # nothing
      }
      default { set key "" }
    }
  } elseif {$len == 3} {
    set key [string tolower $key]
    switch $key {
      a - b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r -
      s - t - u - v - w - x - y - z {
        # nothing
      }
      default { set key "" }
    }
  }

  if {$key != ""} {
    set ::ecoBrowser(code) "$code$key"
    updateEcoWin
  }
}


####################
# Tablebase window

set tbWin 0
set tbTraining 0
set tbStatus ""

proc makeTBWin {} {
  set w .tbWin
  if {[winfo exists $w]} {
    #focus .
    destroy $w
    set tbWin 0
    return
  }
  toplevel $w
  wm title $w "Scid: [tr WindowsTB]"
  text $w.t -font font_Fixed -wrap word -width 45 -height 10 \
    -yscrollcommand "$w.ybar set" -setgrid 1 -fg black -bg white
  scrollbar $w.ybar -command "$w.t yview"
  #pack [frame $w.status] -side bottom -fill x -expand yes
  pack [frame $w.b] -side bottom -fill x
  label $w.b.status -width 1 -font font_Small -relief flat -anchor w \
    -textvar tbStatus -height 0
  checkbutton $w.b.training -textvar ::tr(Training) -variable tbTraining \
    -command toggleTBTraining -relief raised -pady 5 -padx 4
  button $w.b.close -textvar ::tr(Close) -command "destroy $w"
  pack $w.ybar -side right -fill y
  pack $w.t -side left -fill both -expand 1
  pack $w.b.training -side left -padx 2 -pady 2
  pack $w.b.close -side right -padx 2 -pady 2
  pack $w.b.status -side left -fill x -expand 1
  $w.t tag configure indent -lmargin2 [font measure font_Fixed  "        "]
  bind $w <Destroy> { set tbWin 0; set tbTraining 0 }
  set ::tbTraining 0
  updateTBWin
}

proc updateTBWin {} {
  global tbTraining
  set w .tbWin
  if {![winfo exists $w]} { return }
  $w.t delete 1.0 end
  if {$tbTraining} {
    $w.t insert end "\n (Training mode; results are hidden)"
  } else {
    $w.t insert end [sc_pos probe report] indent
  }
}

proc toggleTBTraining {} {
  global tbTraining gameInfo
  set w .tbWin
  set ::tbStatus ""
  if {$tbTraining} {
    set gameInfo(showTB_old) $gameInfo(showTB)
    set gameInfo(showTB) 0
    updateBoardAndPgn .board
    updateTBWin
  } else {
    if {$gameInfo(showTB) == 0} { set gameInfo(showTB) $gameInfo(showTB_old) }
    updateBoardAndPgn .board
    updateTBWin
  }
}

proc makeTBMove {} {
  global tbTraining tbStatus
  if {! $tbTraining} { return }
  set moves [split [sc_pos probe optimal]]
  set len [llength $moves]
  if {$len == 0} {
    set ::tbStatus "No optimal move was found."
    return
  }
  set i [expr int(rand() * $len)]
  set move [lindex $moves $i]
  if {[catch {sc_move addSan $move}]} {
    set tbStatus "Error playing $move."
  } else {
    set tbStatus "Played $move."
  }
  updateBoardAndPgn .board
}


####################
# File finder window

set finder(dir) [pwd]
set finder(sort) name
set finder(recurse) 0
set finder(stop) 0
set finder(Scid) 1
set finder(PGN) 1
set finder(Rep) 1
set finder(EPD) 1
set finder(Old) 1

image create photo updir -data {
  R0lGODdhGQAUAKEAANnZ2QAAAPD/gAAngSwAAAAAGQAUAAACToSPqcvtEGJ8LIh7A00WY71B
  0kiWnIemHmh06pshrjAM8CpjdX3HR7fboXifnM6WIvpaHmUTuYQ8g1Tcb0gVWpk9FUvaTX1F
  pfIohE4zCgA7
}

proc fileFinder {} {
  global finder
  set w .finder
  if {[winfo exists $w]} { return }

  toplevel $w
  wm title $w "Scid: $::tr(FileFinder)"
  bind $w <F1> {helpWindow Finder}
  setWinLocation $w
  bind $w <Configure> "recordWinSize $w"

  frame $w.menu -relief raised -borderwidth 2
  pack $w.menu -side top -fill x
  $w configure -menu $w.menu
  menubutton $w.menu.file -text FinderFile -menu $w.menu.file.m
  menu $w.menu.file.m
  $w.menu.file.m add checkbutton -label FinderFileSubdirs \
    -variable finder(recurse) -onvalue 1 -offvalue 0 -command updateFileFinder
  $w.menu.file.m add separator
  $w.menu.file.m add command -label FinderFileClose -command "destroy $w"
  menubutton $w.menu.sort -text FinderSort -menu $w.menu.sort.m
  menu $w.menu.sort.m
  foreach {name value} {Type type Size size Mod mod Filename name Path path} {
    $w.menu.sort.m add radiobutton -label FinderSort$name \
      -variable finder(sort) -value $value -command {updateFileFinder -fast}
  }
  menubutton $w.menu.types -text FinderTypes -menu $w.menu.types.m
  menu $w.menu.types.m
  foreach type {Scid Old PGN Rep EPD} {
    $w.menu.types.m add checkbutton -label FinderTypes$type \
      -variable finder($type) -onvalue 1 -offvalue 0 -command updateFileFinder
  }
  menubutton $w.menu.help -text FinderHelp -menu $w.menu.help.m
  menu $w.menu.help.m
  $w.menu.help.m add command -label FinderHelpFinder \
    -accelerator F1 -command {helpWindow Finder}
  $w.menu.help.m add command -label FinderHelpIndex -command {helpWindow Index}
  pack $w.menu.file $w.menu.sort $w.menu.types $w.menu.help -side left

  pack [frame $w.d] -side top -fill x
  label $w.d.label -text "$::tr(FinderDir):" -font font_Small
  set finder(menu) [tk_optionMenu $w.d.mb finder(dir) ""]
  $w.d.mb configure -font font_Small -width 1 -anchor e
  $finder(menu) configure -font font_Small
  button $w.d.up -image updir -command {updateFileFinder ..}
  pack $w.d.label -side left -padx 5
  pack $w.d.up -side right -padx 5
  pack $w.d.mb -side left -fill x -expand yes

  frame $w.t
  frame $w.b
  text $w.t.text -width 65 -height 25 -font font_Small -wrap none \
    -fg black -bg white -yscrollcommand "$w.t.ybar set" -setgrid 1 \
    -cursor top_left_arrow
  scrollbar $w.t.ybar -command "$w.t.text yview" -width 12
  $w.t.text tag configure Dir -foreground brown
  $w.t.text tag configure Vol -foreground gray25
  $w.t.text tag configure PGN -foreground blue
  $w.t.text tag configure Scid -foreground red
  $w.t.text tag configure Old -foreground black
  $w.t.text tag configure Rep -foreground darkGreen
  $w.t.text tag configure EPD -foreground orange
  $w.t.text tag configure bold -font font_SmallBold
  $w.t.text tag configure center -justify center
  set xwidth [font measure [$w.t.text cget -font] "x"]
  set tablist {}
  foreach {tab justify} {15 r 30 r 32 l 50 l} {
    set tabwidth [expr $xwidth * $tab]
    lappend tablist $tabwidth $justify
  }
  $w.t.text configure -tabs $tablist

  checkbutton $w.b.sub -text [tr FinderFileSubdirs] \
    -relief raised -pady 5 -padx 10 \
    -variable finder(recurse) -onvalue 1 -offvalue 0 -command updateFileFinder
  button $w.b.stop -textvar ::tr(Stop) -command {set finder(stop) 1 }
  button $w.b.help -textvar ::tr(Help) -command {helpWindow Finder}
  button $w.b.close -textvar ::tr(Close) -command "destroy $w"
  bind $w <Escape> "$w.b.stop invoke"

  pack $w.b -side bottom -fill x
  pack $w.b.sub -side left -padx 5 -pady 2
  pack $w.b.close $w.b.help $w.b.stop -side right -padx 5 -pady 2
  pack $w.t -side top -fill both -expand yes
  pack $w.t.ybar -side right -fill y
  pack $w.t.text -side left -fill both -expand yes
  configFinderMenus
  updateFileFinder
}

proc updateFileFinder {{newdir ""}} {
  global finder
  set w .finder
  if {! [winfo exists $w]} { return }
  set t $w.t.text

  # When parameter is "-fast", just re-sort the existing data:
  set fastmode 0
  if {$newdir == "-fast"} {
    set fastmode 1
    set newdir ""
  }
  if {$newdir == ".."} { set newdir [file dirname $finder(dir)] }
  if {$newdir != ""} { set finder(dir) $newdir }

  busyCursor .
  set finder(stop) 0
  $w.b.close configure -state disabled
  $w.b.help configure -state disabled
  $w.b.sub configure -state disabled
  $w.b.stop configure -state normal
  catch {grab $w.b.stop}
  $t configure -state normal
  update

  if {$fastmode} {
    set flist $finder(flist)
  } else {
    set flist [finder_getFiles $finder(dir)]
    set finder(flist) $flist
  }

  switch $finder(sort) {
    "none" {}
    "type" { set flist [lsort -decreasing -index 1 $flist] }
    "size" { set flist [lsort -integer -decreasing -index 0 $flist] }
    "name" { set flist [lsort -dict -index 2 $flist] }
    "path" { set flist [lsort -dict -index 3 $flist] }
    "mod"  { set flist [lsort -integer -decreasing -index 4 $flist] }
  }

  set hc yellow
  $t delete 1.0 end
  set dcount 0
  $t insert end "$::tr(FinderDirs)\n" {center bold}
  set dlist {}

  # Insert drive letters, on Windows:
  if {$::windowsOS} {
    foreach drive [lsort -dictionary [file volume]] {
      $t insert end " $drive " [list Vol v$drive]
      $t insert end "    "
      $t tag bind v$drive <1> [list updateFileFinder $drive]
      $t tag bind v$drive <Any-Enter> \
        "$t tag configure [list v$drive] -background $hc"
      $t tag bind v$drive <Any-Leave> \
        "$t tag configure [list v$drive] -background {}"
    }
    $t insert end "\n"
  }

  # Insert parent directory entry:
  lappend dlist ..

  # Generate other directory entries:
  set dirlist [lsort -dictionary [glob -nocomplain [file join $finder(dir) *]]]
  foreach dir $dirlist {
    if {[file isdir $dir]} {
      lappend dlist $dir
    }
  }
  foreach dir $dlist {
    if {$dcount != 0} {
      set sep "\n"
      if {$dcount % 2 != 0} { set sep "\t\t\t" }
      $t insert end $sep
    }
    incr dcount
    if {$dir == ".."} {
      set d ..
      $t insert end " .. ($::tr(FinderUpDir)) " [list Dir d..]
    } else {
      set d [file tail $dir]
      $t insert end " $d " [list Dir d$d]
    }
    $t tag bind d$d <1> [list updateFileFinder $dir]
    $t tag bind d$d <Any-Enter> \
      "$t tag configure [list d$d] -background $hc"
    $t tag bind d$d <Any-Leave> \
      "$t tag configure [list d$d] -background {}"
  }

  # Add File section headings:
  $t insert end "\n\n"
  if {[llength $flist] != 0} {
    foreach i {Type Size Mod Name Path} v {type size mod name path} {
      $t tag configure s$i -font font_SmallBold
      $t tag bind s$i <1> "set finder(sort) $v; updateFileFinder -fast"
      $t tag bind s$i <Any-Enter> "$t tag config s$i -foreground red"
      $t tag bind s$i <Any-Leave> "$t tag config s$i -foreground {}"
    }
    $t insert end "$::tr(FinderFiles)\n" {center bold}
    $t insert end " "
    $t insert end "[tr FinderSortType]" sType
    $t insert end "\t"
    $t insert end "[tr FinderSortSize]" sSize
    $t insert end "\t"
    $t insert end "[tr FinderSortMod]" sMod
    $t insert end "\t"
    $t insert end "[tr FinderSortName]" sName
    $t insert end "\t"
    $t insert end "[tr FinderSortPath]" sPath
    $t insert end "\n"
  }

  # Add each file:
  foreach i $flist {
    set size [lindex $i 0]
    set type [lindex $i 1]
    set fname [lindex $i 2]
    set path [lindex $i 3]
    set mtime [lindex $i 4]
    set est [lindex $i 5]
    $t insert end "\n "
    $t insert end $type [list $type f$path]
    set esize ""
    if {$est} { set esize "~" }
    append esize [thousands $size]
    $t insert end "\t$esize" f$path
    $t insert end "\t[clock format $mtime -format {%b %d %Y}]" f$path
    $t insert end "\t$fname\t" f$path
    set dir [file dirname $path]
    set tail [file tail $path]
    set fullpath $finder(dir)/$dir/$tail
    $t tag bind f$path <ButtonPress-1> "fileOpen [list $fullpath]"
    $t tag bind f$path <Any-Enter> \
      "$t tag configure [list f$path] -background $hc"
    $t tag bind f$path <Any-Leave> \
      "$t tag configure [list f$path] -background {}"
    if {$dir == "."} {
      set fullpath "$finder(dir)/$tail"
    } else {
      $t tag configure p$path -foreground darkblue
      $t insert end "$dir/" [list p$path f$path]
    }
    $t tag configure t$path -foreground blue
    $t insert end $tail [list t$path f$path]
  }
  $t configure -state disabled

  # Update directory menubutton:
  $finder(menu) delete 0 end
  set mlist {}
  set d {}
  foreach subdir [file split $finder(dir)] {
    set d [file join $d $subdir]
    lappend mlist $d
  }
  foreach m $mlist {
    $finder(menu) add command -label $m -command "updateFileFinder [list $m]"
  }

  catch {grab release $w.b.stop}
  $w.b.stop configure -state disabled
  $w.b.help configure -state normal
  $w.b.close configure -state normal
  $w.b.sub configure -state normal
  unbusyCursor .
}

proc configFinderMenus {{lang ""}} {
  if {! [winfo exists .finder]} { return }
  if {$lang == ""} { set lang $::language }
  set m .finder.menu
  foreach menu {file sort types help} tag {File Sort Types Help} {
    configMenuName $m.$menu Finder$tag $lang
  }
  foreach idx {0 2} tag {Subdirs Close} {
    configMenuText $m.file.m $idx FinderFile$tag $lang
  }
  foreach idx {0 1 2 3 4} tag {Type Size Mod Name Path} {
    configMenuText $m.sort.m $idx FinderSort$tag $lang
  }
  foreach idx {0 1 2 3 4} tag {Scid Old PGN Rep EPD} {
    configMenuText $m.types.m $idx FinderTypes$tag $lang
  }
  foreach idx {0 1} tag {Finder Index} {
    configMenuText $m.help.m $idx FinderHelp$tag $lang
  }
}

proc finder_getFiles {dir {len -1}} {
  global finder
  set dlist {}
  set flist {}
  if {$len < 0} {
    set len [expr [string length $dir] + 1]
  }

  foreach f [glob -nocomplain [file join $dir *]] {
    if {[file isdir $f]} {
      lappend dlist $f
    } elseif {[file isfile $f]} {
      set ext [string tolower [file extension $f]]
      if {[catch {set mtime [file mtime $f]}]} { set mtime 0 }
      set showFile 0
      set rootname [file rootname $f]
      set type PGN
      if {$ext == ".si3"} {
        set showFile 1
        set type Scid
      } elseif {$ext == ".si"} {
        set showFile 1
        set type Old
      } elseif {$ext == ".sor"} {
        set showFile 1
        set type Rep
      } elseif {$ext == ".epd"} {
        set type EPD
        set showFile 1
      } elseif {$ext == ".pgn"} {
        set showFile 1
      } elseif {$ext == ".gz"} {
        set rootname [file rootname $rootname]
        if {[regexp {\.epd\.gz} $f]} { set showFile 1; set type EPD }
        if {[regexp {\.pgn\.gz} $f]} { set showFile 1 }
      }
      if {$showFile  &&  [info exists finder($type)]  &&  $finder($type)} {
        set path [string range $f $len end]
        set est 0
        if {[catch {set size [sc_info fsize $f]}]} {
          # Could not determine file size, probably a PGN or EPD file
          # that the user does not have permission to read.
          set est 1
          set size 0
        }
        if {$size < 0} {
          set est 1
          set size [expr 0 - $size]
        }
        if {[file dirname $path] == "."} { set path "./$path" }
        lappend flist [list $size $type [file tail $rootname] $path $mtime $est]
      }
    }
    update
    if {$finder(stop)} { break }
  }
  if {$finder(recurse)} {
    foreach f $dlist {
      foreach i [finder_getFiles $f $len] {
        lappend flist $i
        update
        if {$finder(stop)} { break }
      }
    }
  }
  return $flist
}


####################
# Tournament window

namespace eval ::tourney {}

foreach {n v} {start 0000.00.00 end 2047.12.31 minPlayers 2 maxPlayers 999 \
                 minGames 1 maxGames 9999 minElo 0 sort Date country "" \
                 site "" player ""} {
  set ::tourney::$n $v
}

trace variable ::tourney::start w forceDate
trace variable ::tourney::end w forceDate
foreach {n v} {minPlayers 999 maxPlayers 999 minGames 9999 maxGames 9999 \
                 minElo 4000} {
  trace variable ::tourney::$n w [list forceInt $v 0]
}

set tourneyWin 0

proc ::tourney::toggle {} {
  set w .tourney
  if {[winfo exists $w]} {
    destroy $w
  } else {
    ::tourney::open
  }
}

proc ::tourney::open {} {
  global tourneyWin
  set w .tourney
  if {[winfo exists $w]} { return }
  set tourneyWin 1

  if {! [info exists ::tourney::_defaults]} { ::tourney::defaults }

  toplevel $w
  wm title $w "Scid: [tr WindowsTmt]"
  setWinLocation $w
  bind $w <Configure> "recordWinSize $w"

  bind $w <F1> {helpWindow Tmt}
  bind $w <Escape> "$w.b.close invoke"
  bind $w <Return> ::tourney::refresh
  bind $w <Destroy> { set tourneyWin 0 }
  standardShortcuts $w
  bind $w <Up> "$w.t.text yview scroll -1 units"
  bind $w <Down> "$w.t.text yview scroll 1 units"
  bind $w <Prior> "$w.t.text yview scroll -1 pages"
  bind $w <Next> "$w.t.text yview scroll 1 pages"
  bind $w <Key-Home> "$w.t.text yview moveto 0"
  bind $w <Key-End> "$w.t.text yview moveto 0.99"

  frame $w.menu -relief raised -borderwidth 2
  pack $w.menu -side top -fill x
  $w configure -menu $w.menu
  menubutton $w.menu.file -text File -menu $w.menu.file.m
  menu $w.menu.file.m
  $w.menu.file.m add command -label Update -command ::tourney::refresh
  $w.menu.file.m add command -label Close -command "destroy $w"
  menubutton $w.menu.sort -text Sort -menu $w.menu.sort.m
  menu $w.menu.sort.m
  foreach name {Date Players Games Elo Site Event Winner} {
    $w.menu.sort.m add radiobutton -label $name \
      -variable ::tourney::sort -value $name -command {::tourney::refresh -fast}
  }
  pack $w.menu.file $w.menu.sort -side left

  foreach i {t o1 o2 o3 b} {frame $w.$i}
  text $w.t.text -width 75 -height 22 -font font_Small -wrap none \
    -fg black -bg white -yscrollcommand "$w.t.ybar set" -setgrid 1 \
    -cursor top_left_arrow -xscrollcommand "$w.t.xbar set"
  scrollbar $w.t.ybar -command "$w.t.text yview" -width 12 -takefocus 0
  scrollbar $w.t.xbar -orient horiz -command "$w.t.text xview" -width 12 \
    -takefocus 0
  set xwidth [font measure [$w.t.text cget -font] "0"]
  set tablist {}
  foreach {tab justify} {3 r 4 l 18 r 23 r 30 r 32 l 55 l} {
    set tabwidth [expr $xwidth * $tab]
    lappend tablist $tabwidth $justify
  }
  $w.t.text configure -tabs $tablist
  $w.t.text tag configure date -foreground darkRed
  $w.t.text tag configure np -foreground darkBlue
  $w.t.text tag configure elo -foreground darkGreen
  $w.t.text tag configure best -foreground steelBlue
  $w.t.text tag configure event -foreground darkRed
  $w.t.text tag configure title -font font_SmallBold

  set font font_Small
  set fbold font_SmallBold
  set f $w.o1
  label $f.from -text "[tr TmtSortDate]:" -font $fbold
  entry $f.efrom -textvariable ::tourney::start -width 10 -font $font
  bindFocusColors $f.efrom
  bind $f.efrom <FocusOut> +::tourney::check
  label $f.to -text "-" -font $font
  entry $f.eto -textvariable ::tourney::end -width 10 -font $font
  bindFocusColors $f.eto
  bind $f.eto <FocusOut> +::tourney::check
  pack $f.from $f.efrom $f.to $f.eto -side left

  label $f.cn -text "  $::tr(Country):" -font $fbold
  entry $f.ecn -textvariable ::tourney::country -width 4 -font $font
  bindFocusColors $f.ecn
  bind $f.ecn <FocusOut> +::tourney::check
  menubutton $f.cm -font font_Small -text "..." -menu $f.cm.m \
    -relief raised
  menu $f.cm.m -font font_Small
  $f.cm.m add command -label --- -command {set ::tourney::country ""}
  foreach c {AUT CZE DEN ENG ESP FRA GER GRE HUN ITA NED POL RUS SUI SWE \
             USA YUG} {
    $f.cm.m add command -label $c -command [list set ::tourney::country $c]
  }
  $f.cm.m entryconfigure 6 -columnbreak 1
  $f.cm.m entryconfigure 12 -columnbreak 1
  pack $f.cn $f.ecn -side left
  pack $f.cm -side left -padx 2

  label $f.size -text $::tr(TmtLimit:) -font $fbold
  set m [tk_optionMenu $f.msize ::tourney::size 10 20 50 100 200]
  $f.msize configure -width 3 -anchor e -font $font
  $m configure -font $font
  pack $f.msize $f.size -side right

  set f $w.o2
  label $f.players -text "[tr TmtSortPlayers]:" -font $fbold
  entry $f.pmin -textvariable ::tourney::minPlayers \
    -width 3 -justify right -font $font
  bindFocusColors $f.pmin
  bind $f.pmin <FocusOut> +::tourney::check
  label $f.pto -text "-"
  entry $f.pmax -textvariable ::tourney::maxPlayers \
    -width 3 -justify right -font $font
  bindFocusColors $f.pmax
  bind $f.pmax <FocusOut> +::tourney::check
  pack $f.players $f.pmin $f.pto $f.pmax -side left

  label $f.games -text "   [tr TmtSortGames]:" -font $fbold
  entry $f.gmin -textvariable ::tourney::minGames \
    -width 4 -justify right -font $font
  bindFocusColors $f.gmin
  bind $f.gmin <FocusOut> +::tourney::check
  label $f.gto -text "-" -font $font
  entry $f.gmax -textvariable ::tourney::maxGames \
    -width 4 -justify right -font $font
  bindFocusColors $f.gmax
  bind $f.gmax <FocusOut> +::tourney::check
  pack $f.games $f.gmin $f.gto $f.gmax -side left
  label $f.elolab -text "$::tr(TmtMeanElo):" -font $fbold
  entry $f.elo -textvariable ::tourney::minElo \
    -width 5 -justify right -font $font
  bindFocusColors $f.elo
  pack $f.elo $f.elolab -side right

  set f $w.o3
  label $f.sitelab -text "$::tr(Site):" -font $fbold
  entry $f.site -textvariable ::tourney::site -width 12 -font $font
  bindFocusColors $f.site
  pack $f.sitelab $f.site -side left
  label $f.playerlab -text "$::tr(Player):" -font $fbold
  entry $f.player -textvariable ::tourney::player -width 12 -font $font
  bindFocusColors $f.player
  pack $f.player $f.playerlab -side right

  button $w.b.defaults -textvar ::tr(Defaults) -command ::tourney::defaults
  button $w.b.help -textvar ::tr(Help) -command {helpWindow Tmt}
  button $w.b.update -textvar ::tr(Update) -command ::tourney::refresh
  button $w.b.close -textvar ::tr(Close) -command "destroy $w"
  pack $w.b -side bottom -fill x
  pack $w.b.close $w.b.update $w.b.help -side right -padx 2 -pady 2
  pack $w.b.defaults -side left -padx 2 -pady 2
  pack $w.o3 -side bottom -fill x -padx 2
  pack $w.o2 -side bottom -fill x -padx 2
  pack $w.o1 -side bottom -fill x -padx 2
  pack $w.t -side top -fill both -expand yes
  grid $w.t.text -row 0 -column 0 -sticky news
  grid $w.t.ybar -row 0 -column 1 -sticky news
  grid $w.t.xbar -row 1 -column 0 -sticky news
  grid rowconfig $w.t 0 -weight 1 -minsize 0
  grid columnconfig $w.t 0 -weight 1 -minsize 0

  ::tourney::configMenus
  ::tourney::refresh
}

proc ::tourney::configMenus {{lang ""}} {
  set w .tourney
  if {! [winfo exists $w]} { return }
  if {$lang == ""} { set lang $::language }
  set m $w.menu
  foreach menu {file sort} tag {File Sort} {
    configMenuName $m.$menu Tmt$tag $lang
  }
  foreach idx {0 2} tag {Update Close} {
    configMenuText $m.file.m $idx TmtFile$tag $lang
  }
  foreach idx {0 1 2 3 4 5 6} tag {Date Players Games Elo Site Event Winner} {
    configMenuText $m.sort.m $idx TmtSort$tag $lang
  }
}

proc ::tourney::defaults {} {
  set ::tourney::_defaults 1
  set year [::date::today year]
  #set ::tourney::start "$year.??.??"
  set ::tourney::start "1800.??.??"
  set ::tourney::end "$year.12.31"
  set ::tourney::size 50
  set ::tourney::minPlayers 2
  set ::tourney::maxPlayers 999
  set ::tourney::minGames 1
  set ::tourney::maxGames 9999
  set ::tourney::minElo 0
  set ::tourney::country ""
  set ::tourney::site ""
  set ::tourney::player ""
}

proc ::tourney::refresh {{option ""}} {
  set w .tourney
  if {! [winfo exists $w]} { return }
  busyCursor $w
  set t $w.t.text
  $t configure -state normal
  $t delete 1.0 end
  update
  set fastmode 0
  if {$option == "-fast"} { set fastmode 1 }

  if {$fastmode  &&  $::tourney::list != ""} {
    set tlist $::tourney::list
  } else {
    if {[catch {sc_base tournaments \
                  -start $::tourney::start \
                  -end $::tourney::end \
                  -size 2500 \
                  -minPlayers $::tourney::minPlayers \
                  -maxPlayers $::tourney::maxPlayers \
                  -minGames $::tourney::minGames \
                  -maxGames $::tourney::maxGames \
                  -minElo $::tourney::minElo \
                  -country [string toupper $::tourney::country] \
                  -site $::tourney::site \
                  -player $::tourney::player \
                } tlist]} {
      $t insert end $tlist
      $t configure -state disabled
      unbusyCursor .
      return
    }
    set ::tourney::list $tlist
  }

  switch $::tourney::sort {
    "None" {}
    "Date" { set tlist [lsort -decreasing -index 0 $tlist] }
    "Players" { set tlist [lsort -integer -decreasing -index 3 $tlist] }
    "Games" { set tlist [lsort -integer -decreasing -index 4 $tlist] }
    "Elo" { set tlist [lsort -integer -decreasing -index 5 $tlist] }
    "Site" { set tlist [lsort -dict -index 1 $tlist] }
    "Event" { set tlist [lsort -dict -index 2 $tlist] }
    "Winner" { set tlist [lsort -dict -index 7 $tlist] }
  }

  if {[llength $tlist] > 0} {
    foreach i {Date Players Games Elo Site Event Winner} {
      $t tag configure s$i -font font_SmallBold
      $t tag bind s$i <1> "set ::tourney::sort $i; ::tourney::refresh -fast"
      $t tag bind s$i <Any-Enter> "$t tag config s$i -foreground red"
      $t tag bind s$i <Any-Leave> "$t tag config s$i -foreground {}"
    }
    $t insert end "\t\t"
    $t insert end [tr TmtSortDate] sDate
    $t insert end "\t"
    $t insert end [tr TmtSortPlayers] sPlayers
    $t insert end "\t"
    $t insert end [tr TmtSortGames] sGames
    $t insert end "\t"
    $t insert end [tr TmtSortElo] sElo
    $t insert end "\t"
    $t insert end [tr TmtSortSite] sSite
    $t insert end ": "
    $t insert end [tr TmtSortEvent] sEvent
    $t insert end "\t"
    $t insert end [tr TmtSortWinner] sWinner
    $t insert end "\n"
  } else {
    $t insert end $::tr(TmtNone)
  }

  set hc yellow
  set count 0
  foreach tmt $tlist {
    incr count
    if {$count > $::tourney::size} { break }
    set date [lindex $tmt 0]
    set site [lindex $tmt 1]
    set event [lindex $tmt 2]
    set np [lindex $tmt 3]
    set ng [lindex $tmt 4]
    set elo [lindex $tmt 5]
    set g [lindex $tmt 6]
    set white [surname [lindex $tmt 7]]
    set welo [lindex $tmt 8]
    set wscore [lindex $tmt 9]
    set black [surname [lindex $tmt 10]]
    set belo [lindex $tmt 11]
    set bscore [lindex $tmt 12]
    if {$welo > 0} { append white "($welo)" }
    if {$belo > 0} { append black "($belo)" }
    append white " $wscore"
    append black " $bscore"
    set one "1."
    set two "2."
    if {$wscore == $bscore} {
      set one "1="; set two "1="
    }
    set best "$one $white, $two $black, ..."
    if {$np == 2} { set best "$one $white, $two $black" }

    $t tag bind g$count <ButtonPress-1> "::tourney::select $g"
    $t tag bind g$count <Any-Enter> \
      "$t tag configure g$count -background $hc"
    $t tag bind g$count <Any-Leave> \
      "$t tag configure g$count -background {}"
    $t insert end "\n"
    $t insert end "\t$count\t" g$count
    $t insert end $date [list date g$count]
    $t insert end "\t" g$count
    $t insert end $np [list np g$count]
    $t insert end "\t" g$count
    $t insert end $ng [list ng g$count]
    $t insert end "\t" g$count
    $t insert end $elo [list elo g$count]
    $t insert end "\t" g$count
    $t insert end "$site: " [list site g$count]
    $t insert end "$event" [list event g$count]
    $t insert end "\t$best" [list best g$count]
  }
  $t insert end "\n"
  $t configure -state disabled
  unbusyCursor .
}

proc ::tourney::check {} {
  set start $::tourney::start
  set end $::tourney::end
  if {[string length $start] == 0} { set start "0000" }
  if {[string length $end] == 0} { set end [sc_info limit year]}
  if {[string length $start] == 4} { append start ".??.??" }
  if {[string length $end] == 4} { append end ".12.31" }
  if {[string length $start] == 7} { append start ".??" }
  if {[string length $end] == 7} { append end ".31" }
  set ::tourney::start $start
  set ::tourney::end $end
  if {$::tourney::minPlayers < 2} {set ::tourney::minPlayers 2}
  if {$::tourney::minPlayers > $::tourney::maxPlayers} {
    set ::tourney::maxPlayers $::tourney::minPlayers
  }
  set s $::tourney::country
  set s [string toupper [string trim $s]]
  if {[string length $s] > 3} { set s [string range $s 0 2] }
  set ::tourney::country $s
}

proc ::tourney::select {gnum} {
  if {[catch {sc_game load $gnum} result]} {
    tk_messageBox -type ok -icon info -title "Scid" -message $result
    return
  }
  updateBoardAndPgn .board
  updateTitle
  updateCrosstabWin
}

###
### End of file: windows.tcl
###

###################
# htext.tcl: Online help/hypertext display module for Scid
#
# The htext module implements html-like display in a text widget.
# It is used in Scid for the help and crosstable windows, and for
# the game information area.

namespace eval ::htext {}

set helpWin(Stack) {}
set helpWin(yStack) {}
set helpWin(Indent) 0

# help_PushStack and help_PopStack:
#   Implements the stack of help windows for the "Back" button.
#
proc help_PushStack {name {heading ""}} {
  global helpWin
  lappend helpWin(Stack) $name
  if {[llength $helpWin(Stack)] > 10} {
    set helpWin(Stack) [lrange $helpWin(Stack) 1 end]
  }
  if {[winfo exists .helpWin]} {
    set helpWin(yStack) [linsert $helpWin(yStack) 0 \
                           [lindex [.helpWin.text yview] 0]]
    if {[llength $helpWin(yStack)] > 10} {
      set helpWin(yStack) [lrange $helpWin(yStack) 0 9]
    }
  }
}

set ::htext::headingColor "\#990000"
array set ::htext:updates {}

proc help_PopStack {} {
  global helpWin helpText
  set len [llength $helpWin(Stack)]
  if {$len < 1} { return }
  incr len -2
  set name [lindex $helpWin(Stack) $len]
  set helpWin(Stack) [lrange $helpWin(Stack) 0 $len]

  set ylen [llength $helpWin(yStack)]
  set yview 0.0
  if {$ylen >= 1} {
    set yview [lindex $helpWin(yStack) 0]
    set helpWin(yStack) [lrange $helpWin(yStack) 1 end]
  }
  updateHelpWindow $name
  .helpWin.text yview moveto $yview
}

proc helpWindow {name {heading ""}} {
  help_PushStack $name
  updateHelpWindow $name $heading
}

proc updateHelpWindow {name {heading ""}} {
  global helpWin helpText helpTitle windowsOS language
  set w .helpWin

  set slist [split $name " "]
  if {[llength $slist] > 1} {
    set name [lindex $slist 0]
    set heading [lindex $slist 1]
  }

  if {[info exists helpText($language,$name)] && [info exists helpTitle($language,$name)]} {
    set title $helpTitle($language,$name)
    set helptext $helpText($language,$name)
  } elseif {[info exists helpText($name)] && [info exists helpTitle($name)]} {
    set title $helpTitle($name)
    set helptext $helpText($name)
  } else {
    return
  }

  if {![winfo exists $w]} {
    toplevel $w
    wm geometry $w -10+0
    wm minsize $w 40 5
    text $w.text -setgrid yes -wrap word -width $::winWidth($w) \
      -height $::winHeight($w) -relief sunken -border 2 \
      -yscroll "$w.scroll set"
    scrollbar $w.scroll -relief sunken -command "$w.text yview"

    frame $w.b -relief raised -border 2
    pack $w.b -side bottom -fill x
    button $w.b.index -textvar ::tr(Index) -command { helpWindow Index }
    button $w.b.back -textvar ::tr(Back) -command { help_PopStack }
    button $w.b.close -textvar ::tr(Close) -command { 
      set ::helpWin(Stack) {}
      set ::helpWin(yStack) {}
      destroy .helpWin 
    }

    pack $w.b.index $w.b.back -side left -padx 5 -pady 2
    pack $w.b.close -side right -padx 5 -pady 2
    pack $w.scroll -side right -fill y -padx 2 -pady 2
    pack $w.text -fill both -expand 1 -padx 5

    $w.text configure -font font_Regular -foreground black -background white
    ::htext::init $w.text
    bind $w <Configure> "recordWinSize $w"
  }

  $w.text configure -cursor top_left_arrow
  $w.text configure -state normal
  $w.text delete 0.0 end

  $w.b.index configure -state normal
  if {$name == "Index"} { $w.b.index configure -state disabled }
  $w.b.back configure -state disabled
  if {[llength $helpWin(Stack)] >= 2} {
    $w.b.back configure -state normal
  }

  wm title $w "Scid Help: $title"
  wm iconname $w "Scid help"

  $w.text delete 0.0 end
  bind $w <Up> "$w.text yview scroll -1 units"
  bind $w <Down> "$w.text yview scroll 1 units"
  bind $w <Prior> "$w.text yview scroll -1 pages"
  bind $w <Next> "$w.text yview scroll 1 pages"
  bind $w <Key-Home> "$w.text yview moveto 0"
  bind $w <Key-End> "$w.text yview moveto 0.99"
  bind $w <Escape> "$w.b.close invoke"
  bind $w <Key-b> "$w.b.back invoke"
  bind $w <Left> "$w.b.back invoke"
  bind $w <Key-i> "$w.b.index invoke"

  ::htext::display $w.text $helptext $heading 0
  focus $w
}

proc ::htext::updateRate {w rate} {
    set ::htext::updates($w) $rate
}

proc ::htext::init {w} {
  set cyan "\#007000"
  set maroon "\#990000"
  set green "darkgreen"

  set ::htext::updates($w) 100
  $w tag configure black -foreground black
  $w tag configure white -foreground white
  $w tag configure red -foreground red
  $w tag configure blue -foreground blue
  $w tag configure darkblue -foreground darkBlue
  $w tag configure green -foreground $green
  $w tag configure cyan -foreground $cyan
  $w tag configure yellow -foreground yellow
  $w tag configure maroon -foreground $maroon
  $w tag configure gray -foreground gray20

  $w tag configure bgBlack -background black
  $w tag configure bgWhite -background white
  $w tag configure bgRed -background red
  $w tag configure bgBlue -background blue
  $w tag configure bgLightBlue -background lightBlue
  $w tag configure bgGreen -background $green
  $w tag configure bgCyan -background $cyan
  $w tag configure bgYellow -background yellow

  $w tag configure tab -lmargin2 50
  $w tag configure li -lmargin2 50
  $w tag configure center -justify center

  if {[$w cget -font] == "font_Small"} {
    $w tag configure b -font font_SmallBold
    $w tag configure i -font font_SmallItalic
  } else {
    $w tag configure b -font font_Bold
    $w tag configure i -font font_Italic
  }
  $w tag configure bi -font font_BoldItalic
  $w tag configure tt -font font_Fixed
  $w tag configure u -underline 1
  $w tag configure h1 -font font_H1 -foreground $::htext::headingColor \
    -justify center
  $w tag configure h2 -font font_H2 -foreground $::htext::headingColor
  $w tag configure h3 -font font_H3 -foreground $::htext::headingColor
  $w tag configure h4 -font font_H4 -foreground $::htext::headingColor
  $w tag configure h5 -font font_H5 -foreground $::htext::headingColor
  $w tag configure footer -font font_Small -justify center

  $w tag configure term -font font_BoldItalic -foreground $::htext::headingColor
  $w tag configure menu -font font_Bold -foreground $cyan

  # PGN-window-specific tags:
  $w tag configure tag -foreground $::pgnColor(Header)
  $w tag configure nag -foreground $::pgnColor(Nag)
  $w tag configure var -foreground $::pgnColor(Var)
  $w tag configure ip1 -lmargin1 25 -lmargin2 25
  $w tag configure ip2 -lmargin1 50 -lmargin2 50
}

proc ::htext::isStartTag {tagName} {
  return [expr ![strIsPrefix "/" $tagName]]
}

proc ::htext::isEndTag {tagName} {
  return [strIsPrefix "/" $tagName]
}

proc ::htext::isLinkTag {tagName} {
  return [strIsPrefix "a " $tagName]
}

proc ::htext::extractLinkName {tagName} {
  if {[::htext::isLinkTag $tagName]} {
    return [lindex [split [string range $tagName 2 end] " "] 0]
  }
  return ""
}

proc ::htext::extractSectionName {tagName} {
  if {[::htext::isLinkTag $tagName]} {
    return [lindex [split [string range $tagName 2 end] " "] 1]
  }
  return ""
}

set ::htext::interrupt 0

proc ::htext::display {w helptext {section ""} {fixed 1}} {
  global helpWin
  set helpWin(Indent) 0
  set ::htext::interrupt 0
  $w mark set insert 0.0
  $w configure -state normal
  set linkName ""

  set count 0
  set str $helptext
  if {$fixed} {
    regsub -all "\n\n" $str "<p>" str
    regsub -all "\n" $str " " str
  } else {
    regsub -all "\[ \n\]+" $str " " str
    regsub -all ">\[ \n\]+" $str "> " str
    regsub -all "\[ \n\]+<" $str " <" str
  }
  set tagType ""
  set seePoint ""

  if {! [info exists ::htext::updates($w)]} {
    set ::htext::updates($w) 100
  }

  # Loop through the text finding the next formatting tag:

  while {1} {
    set startPos [string first "<" $str]
    if {$startPos < 0} { break }
    set endPos [string first ">" $str]
    if {$endPos < 1} { break }

    set tagName [string range $str [expr $startPos + 1] [expr $endPos - 1]]

    # Check if it is a starting tag (no "/" at the start):

    if {![strIsPrefix "/" $tagName]} {

      # Check if it is a link tag:
      if {[strIsPrefix "a " $tagName]} {
        set linkName [::htext::extractLinkName $tagName]
        set sectionName [::htext::extractSectionName $tagName]
        set linkTag "link ${linkName} ${sectionName}"
        set tagName "a"
        $w tag configure "$linkTag" -foreground blue -underline 1
        $w tag bind "$linkTag" <ButtonRelease-1> \
          "helpWindow $linkName $sectionName"
        $w tag bind $linkTag <Any-Enter> \
          "$w tag configure \"$linkTag\" -background yellow
           $w configure -cursor hand2"
        $w tag bind $linkTag <Any-Leave> \
          "$w tag configure \"$linkTag\" -background {}
           $w configure -cursor {}"
      }

      # Check if it is a URL tag:
      if {[strIsPrefix "url " $tagName]} {
        set urlName [string range $tagName 4 end]
        set urlTag "url $urlName"
        set tagName "url"
        $w tag configure "$urlTag" -foreground red -underline 1
        $w tag bind "$urlTag" <ButtonRelease-1> "openURL {$urlName}"
        $w tag bind $urlTag <Any-Enter> \
          "$w tag configure \"$urlTag\" -background yellow
           $w configure -cursor hand2"
        $w tag bind $urlTag <Any-Leave> \
          "$w tag configure \"$urlTag\" -background {}
           $w configure -cursor {}"
      }

      # Check if it is a Tcl command tag:
      if {[strIsPrefix "run " $tagName]} {
        set runName [string range $tagName 4 end]
        set runTag "run $runName"
        set tagName "run"
        $w tag bind "$runTag" <ButtonRelease-1> "catch {$runName}"
        $w tag bind $runTag <Any-Enter> \
          "$w tag configure \"$runTag\" -foreground yellow
           $w tag configure \"$runTag\" -background darkBlue
           $w configure -cursor hand2"
        $w tag bind $runTag <Any-Leave> \
          "$w tag configure \"$runTag\" -foreground {}
           $w tag configure \"$runTag\" -background {}
           $w configure -cursor {}"
      }

      # Check if it is a goto tag:
      if {[strIsPrefix "go " $tagName]} {
        set goName [string range $tagName 3 end]
        set goTag "go $goName"
        set tagName "go"
        $w tag bind "$goTag" <ButtonRelease-1> \
          "catch {$w see \[lindex \[$w tag nextrange $goName 1.0\] 0\]}"
        $w tag bind $goTag <Any-Enter> \
          "$w tag configure \"$goTag\" -foreground yellow
           $w tag configure \"$goTag\" -background maroon
           $w configure -cursor hand2"
        $w tag bind $goTag <Any-Leave> \
          "$w tag configure \"$goTag\" -foreground {}
           $w tag configure \"$goTag\" -background {}
           $w configure -cursor {}"
      }

      # Check if it is a player info tag:
      if {[strIsPrefix "pi " $tagName]} {
        set playerTag $tagName
        set playerName [string range $playerTag 3 end]
        set tagName "pi"
        $w tag configure "$playerTag" -foreground darkBlue
        $w tag bind "$playerTag" <ButtonRelease-1> "playerInfo \"$playerName\""
        $w tag bind $playerTag <Any-Enter> \
          "$w tag configure \"$playerTag\" -foreground yellow
           $w tag configure \"$playerTag\" -background darkBlue
           $w configure -cursor hand2"
        $w tag bind $playerTag <Any-Leave> \
          "$w tag configure \"$playerTag\" -foreground darkBlue
           $w tag configure \"$playerTag\" -background {}
           $w configure -cursor {}"
      }

      # Check if it is a game-load tag:
      if {[strIsPrefix "g_" $tagName]} {
        set gameTag $tagName
        set tagName "g"
        set gnum [string range $gameTag 2 end]
        set glCommand "gameLoadMenu $w [sc_base current] $gnum %X %Y"
        $w tag bind $gameTag <ButtonPress-1> $glCommand
        $w tag bind $gameTag <ButtonPress-3> \
          "::gbrowser::new [sc_base current] $gnum"
        $w tag bind $gameTag <Any-Enter> \
          "$w tag configure $gameTag -foreground yellow
           $w tag configure $gameTag -background darkBlue
           $w configure -cursor hand2"
        $w tag bind $gameTag <Any-Leave> \
          "$w tag configure $gameTag -foreground {}
           $w tag configure $gameTag -background {}
           $w configure -cursor {}"
      }

      # Check if it is a move tag:
      if {[strIsPrefix "m_" $tagName]} {
        set moveTag $tagName
        set tagName "m"
        $w tag bind $moveTag <ButtonRelease-1> \
          "sc_move pgn [string range $moveTag 2 end]; updateBoard"
        $w tag bind $moveTag <Any-Enter> \
          "$w tag configure $moveTag -underline 1
           $w configure -cursor hand2"
        $w tag bind $moveTag <Any-Leave> \
          "$w tag configure $moveTag -underline 0
           $w configure -cursor {}"
      }

      # Check if it is a comment tag:
      if {[strIsPrefix "c_" $tagName]} {
        set commentTag $tagName
        set tagName "c"
        $w tag configure $commentTag -foreground $::pgnColor(Comment)
        $w tag bind $commentTag <ButtonRelease-1> \
          "sc_move pgn [string range $commentTag 2 end]; updateBoard; openCommentWin"
        $w tag bind $commentTag <Any-Enter> \
          "$w tag configure $commentTag -underline 1
           $w configure -cursor hand2"
        $w tag bind $commentTag <Any-Leave> \
          "$w tag configure $commentTag -underline 0
           $w configure -cursor {}"
      }

      if {$tagName == "h1"} {$w insert end "\n"}

    }

    # Now insert the text up to the formatting tag:
    $w insert end [string range $str 0 [expr $startPos - 1]]

    # Check if it is a name tag matching the section we want:
    if {$section != ""  &&  [strIsPrefix "name " $tagName]} {
      set sect [string range $tagName 5 end]
      if {$section == $sect} { set seePoint [$w index insert] }
    }

    if {[string index $tagName 0] == "/"} {
      # Get rid of initial "/" character:
      set tagName [string range $tagName 1 end]
      switch -- $tagName {
        h1 - h2 - h3 - h4 - h5  {$w insert end "\n"}
      }
      if {$tagName == "p"} {$w insert end "\n"}
      #if {$tagName == "h1"} {$w insert end "\n"}
      if {$tagName == "menu"} {$w insert end "\]"}
      if {$tagName == "ul"} {
        incr helpWin(Indent) -4
        $w insert end "\n"
      }
      if {[info exists startIndex($tagName)]} {
        switch -- $tagName {
          a {$w tag add $linkTag $startIndex($tagName) [$w index insert]}
          g  {$w tag add $gameTag $startIndex($tagName) [$w index insert]}
          c  {$w tag add $commentTag $startIndex($tagName) [$w index insert]}
          m  {$w tag add $moveTag $startIndex($tagName) [$w index insert]}
          pi {$w tag add $playerTag $startIndex($tagName) [$w index insert]}
          url {$w tag add $urlTag $startIndex($tagName) [$w index insert]}
          run {$w tag add $runTag $startIndex($tagName) [$w index insert]}
          go {$w tag add $goTag $startIndex($tagName) [$w index insert]}
          default {$w tag add $tagName $startIndex($tagName) [$w index insert]}
        }
        unset startIndex($tagName)
      }
    } else {
      switch -- $tagName {
        ul {incr helpWin(Indent) 4}
        li {
          $w insert end "\n"
          for {set space 0} {$space < $helpWin(Indent)} {incr space} {
            $w insert end " "
          }
        }
        p  {$w insert end "\n"}
        br {$w insert end "\n"}
        q  {$w insert end "\""}
        lt {$w insert end "<"}
        gt {$w insert end ">"}
        h2 - h3 - h4 - h5  {$w insert end "\n"}
      }
      #Set the start index for this type of tag:
      set startIndex($tagName) [$w index insert]
      if {$tagName == "menu"} {$w insert end "\["}
    }

    # Check if it is an image or button tag:
    if {[strIsPrefix "img " $tagName]} {
      set imgName [string range $tagName 4 end]
      set winName $w.$imgName
      while {[winfo exists $winName]} { append winName a }
      label $winName -image $imgName -relief flat -borderwidth 0
      $w window create end -window $winName
    }
    if {[strIsPrefix "button " $tagName]} {
      set imgName [string range $tagName 7 end]
      set winName $w.$imgName
      while {[winfo exists $winName]} { append winName a }
      button $winName -image $imgName
      $w window create end -window $winName
    }

    # Now eliminate the processed text from the string:
    set str [string range $str [expr $endPos + 1] end]
    incr count
    if {$count == $::htext::updates($w)} { update idletasks; set count 1 }
    if {$::htext::interrupt} {
      $w configure -state disabled
      return
    }
  }

  # Now add any remaining text:
  if {! $::htext::interrupt} { $w insert end $str }

  if {$seePoint != ""} { $w yview $seePoint }
  $w configure -state disabled
}


# openURL:
#    Sends a command to the user's web browser to view a webpage given
#    its URL.
#
proc openURL {url} {
  global windowsOS
  busyCursor .
  if {$windowsOS} {
    # On Windows, use the "start" command:
    if {[string match $::tcl_platform(os) "Windows NT"]} {
      catch {exec $::env(COMSPEC) /c start $url &}
    } else {
      catch {exec start $url &}
    }
    unbusyCursor .
    return
  }

  # On Unix systems, there is no standard for invoking favorite
  # web browser, so just try starting Mozilla or Netscape.

  # First, check if Mozilla seems to be available:
  if {[file executable /usr/bin/mozilla]  ||
      [file executable /usr/local/bin/mozilla]} {
    # First, try -remote mode:
    if {[catch {exec /bin/sh -c "mozilla -remote 'openURL($url)'"}]} {
      # Now try a new Mozilla process:
      catch {exec /bin/sh -c "mozilla '$url'" &}
    }
  } else {
    # OK, no Mozilla (poor user) so try Netscape (yuck):
    # First, try -remote mode to avoid starting a new netscape process:
    if {[catch {exec /bin/sh -c "netscape -raise -remote 'openURL($url)'"}]} {
      # Now just try starting a new netscape process:
      catch {exec /bin/sh -c "netscape '$url'" &}
    }
  }
  unbusyCursor .
}
### help.tcl: Help pages for Scid.

#################################################

set helpTitle(Index) "Index"
set helpText(Index) {<h1>Scid Help Index</h1>

<h4>Starting out and general help</h4>
<ul>
<li><a Guide><b>Quick Guide</b> to using Scid</a> <red>(Read this first)</red></li>
<li><a Hints><b>Hints</b> for getting more out of Scid</a></li>
<li><a MainWindow>The Scid <b>main window</b></a></li>
<li><a Menus>Scid <b>menus</b></a></li>
<li><a Moves>Entering <b>chess moves</b></a></li>
<li><a Searches><b>Searches</b> in Scid</a></li>
<li><a Clipbase>Using the <b>Clipbase</b> database</a></li>
</ul>

<h4>Other scid windows</h4>
<ul>
<li><a Analysis><b>Analysis</b> window</a> <red>(updated!)</red></li>
<li><a Comment><b>Comment editor</b> window</a> <red>(updated!)</red></li>
<li><a Crosstable><b>Crosstable</b> window</a> <red>(updated!)</red></li>
<li><a Switcher><b>Database Switcher</b> window</a></li>
<li><a Email><b>Email</b> chess manager window</a></li>
<li><a Finder><b>File Finder</b> window</a></li>
<li><a GameList><b>Game List</b> window</a> <red>(updated!)</red></li>
<li><a Import><b>Import game</b> window</a></li>
<li><a OpReport><b>Opening Report</b> window</a> <red>(updated!)</red></li>
<li><a PGN><b>PGN</b> (game text) window</a></li>
<li><a PInfo><b>Player Info</b> window</a></li>
<li><a Repertoire><b>Repertoire editor</b> window</a></li>
<li><a Tmt><b>Tournament Finder</b> window</a></li>
<li><a Tree><b>Tree</b> window</a></li>
<li><a Graphs><b>Graph</b> windows</a></li>
<li><a TB>Using <b>Tablebases</b> in Scid</a> <red>(updated!)</red></li>
</ul>

<h4>Other utilities and information</h4>
<ul>
<li><a Bookmarks><b>Bookmarks</b></a> <red>(New!)</red></li>
<li><a Cmdline>Command-line options</a> <red>(New!)</red></li>
<li><a Compact><b>Compacting</b> a database</a></li>
<li><a Maintenance><b>Database maintenance</b> tools</a>
    <red>(updated!)</red></li>
<li><a ECO><b>ECO</b> openings classification</a></li>
<li><a EPD><b>EPD</b> files</a></li>
<li><a Export><b>Exporting</b> games to text files</a></li>
<li><a Flags>Game <b>Flags</b></a> <red>(New!)</red></li>
<li><a LaTeX>Using <b>LaTeX</b> with Scid</a></li>
<li><a Options><b>Options</b> and preferences</a></li>
<li><a Sorting><b>Sorting</b> a database</a></li>
<li><a Pgnscid><b>Pgnscid</b>: converting PGN files</a></li>
<li><a NAGs>Standard <b>NAG</b> annotation values</a></li>
<li><a Formats>Scid database <b>file formats</b></a></li>
<li><a Author>Contact information</a></li>
</ul>

<p><footer>(Updated: Scid 3.2, February 2002)</footer></p>
}


####################
### Quick Guide help:

set helpTitle(Guide) "Quick Guide to using Scid"
set helpText(Guide) {<h1>Quick Guide to using Scid</h1>
<p>
Scid is a chess database application; with it you can browse
databases of chess games, edit games and <a Searches>search</a>
for games by various criteria.
</p>
<p>
Scid uses its own special three-file <a Formats>database format</a>
which is very compact and fast, but it can convert to and from
the standard PGN (Portable Game Notation) format.
Scids <a PGN>PGN window</a> displays the text of the current game in
PGN format.
</p>
<p>
You can use Scid to add chess games to a database, using the keyboard or
mouse to enter moves. See the help page on <a Moves>entering chess moves</a>
for more details.
</p>
<p>
You can also use Scid as a <a PGN>PGN</a> file browser, by pasting
PGN text into Scids <a Import>Import</a> window or by opening a PGN file
in Scid.
However, PGN files cannot be edited by Scid (it opens them read-only) and
they use more memory and are slower to load, so for large PGN files it
is recommended that you create a Scid database from them first with the
<a Pgnscid>pgnscid</a> utility.
</p>
<p>
The <a MainWindow>main window</a>
of Scid (with the graphical chess board) shows details of
the active game and database. At any time, you can have up to four
databases open (five including the <a Clipbase>clipbase</a>),
and each will have its own active game.
(A game numbered 0 indicates a scratch game that is not part of the
actual database).
You can switch between the open databases with the
<a Menus File>File menu</a>.
</p>
<p>
For more information, please read the other help pages listed in the
<a Index>Help Index</a>.
</p>
<p>
See the <a Author>contact information</a> page if you need to contact the
author of Scid.
</p>

<p><footer>(Updated: Scid 3.1, December 2001)</footer></p>
}


####################
### Hints page:
set helpTitle(Hints) "Scid Hints"
set helpText(Hints) {<h1>Scid Hints</h1>
<p>
This page contains useful hints in question and answer format to help you
use Scid better. If you are new to Scid, please read the
<a Guide>quick guide</a> first.
Most of the information on this page is available in more detail on the
other help pages listed in the <a Index>index</a>.
If you think of a useful hint to add to this page, please send it
to the <a Author>author of Scid</a>.
</p>

<h4>Can I get Scid to load a database when it starts?</h4>
<p>
Yes, you can add databases, PGN files or <a EPD>EPD files</a>
to the command line. For example:
<ul>
<li> <b>scid  mybase  games.pgn.gz</b> </li>
</ul>
will load the Scid database <b>mybase</b> and also load the
Gzip-compressed PGN file <b>games.pgn.gz</b>.
</p>

<h4>Is there an easier way to change the board size than using the
options menu?</h4>
<p>
Yes, you can use the shortcut keys <b>Control+Shift+LeftArrow</b> and
<b>Control+Shift+RightArrow</b> to decrease or increase the board size.
</p>

<h4>I am training by playing through a game, so I do not want Scid to
print the next move in the game information area below the chessboard.
Can I hide it?</h4>
<p>
You can hide the next move by pressing the <b>right</b> mouse button in the
game information area, and selecting <b>Hide next move</b> from the
menu that appears.
</p>

<h4>How can I see the ECO opening code for the current position?</h4>
<p>
The ECO code is displayed on the bottom line of the game
information box, below the chessboard in the <a MainWindow>main window</a>,
if you have the ECO classification file (<b>scid.eco</b>) loaded. <br>
The <a ECO>ECO codes</a> help page explains how to load the ECO classification
file and save options so it will be loaded every time you start Scid.
</p>

<h4>I am entering a game, and I am up to move 30, but just saw that move
10 was wrong. How can I correct it and keep all the moves after it?</h4>
<p>
You can use the <a Import>Import</a> window; see the
<a Moves Mistakes>entering moves</a> help page for more information.
</p>

<h4>How do I copy games from one database to another?</h4>
<p>
Use the <a Switcher>database switcher window</a>: drag from the source
database to the target database to copy all games in the source database
<a Searches Filter>filter</a>.
</p>

<h4>Every time I enter a move where one already exists, I get a
"Replace move?" dialog box. How do I avoid that?</h4>
<p>
Turn it off with the <b>Ask before replacing moves</b> option in the
<menu>Options: Moves</menu> menu.
Or, get into the habit of taking back moves using the right-mouse button,
which actually removes the move from the game if you are at the last move of
the game.
</p>

<h4>How do I change column widths in the Game List window?</h4>
<p>
Click the left or right mouse button on each column title.
</p>

<h4>How can I use the tree window on a selection of games, not my whole
database?</h4>
<p>
Use the <a Clipbase>clipbase</a>. Set your database filter to contain the
games you want to use the tree on, then copy them to the clipbase using the
<a Switcher>database switcher</a>. Then, just open the tree window in the
clipbase.
</p>

<h4>The Tree is slow for large databases. How do I speed it up?</h4>
<p>
Save the Tree cache often, to save tree results for future use.
See the caching section of the <a Tree>Tree</a> help page for details.
</p>

<h4>How can I edit the PGN representation of the game directly?</h4>
<p>
You cannot use the <a PGN>PGN</a> window to edit the current game, but you can
still edit its PGN representation using the <a Import>Import game</a> window.
Just open it (shortcut key: <b>Control+Shift+I</b>) and then press the
<b>Paste current game</b> button, then edit the game, then press <b>Import</b>.
</p>

<h4>My database has several spellings for some player names. How do I
correct them all?</h4>
<p>
You can edit individual names or spellcheck all the names in a database
with the commands in the <menu>File: Maintenance</menu> menu.
See the <a Maintenance Editing>maintenance</a> page.
</p>

<h4>I have two databases open: one with my own games, and a large database of
grandmaster games. How do I compare one of my games to those in the large
database?</h4>
<p>
In the large database, open the <a Tree>tree window</a> and press the
<term>Lock</term> button to lock the tree to that database. Then switch
to the other database, and the tree will continue to show data for the
large database.
</p>

<p><footer>(Updated: Scid 2.6, August 2001)</footer></p>
}


####################
### Main window help:

set helpTitle(MainWindow) "Scid main window"
set helpText(MainWindow) {<h1>Scid main window</h1>
<p>
The main window in Scid displays the current board position of the
active game and information about the current game and database.
Separate help pages describe the <a Menus>menus</a> and ways to
<a Moves>enter chess moves</a>.
</p>

<h3>Game navigation buttons</h3>
<p>
The navigation buttons above the board have the following meanings, from
left to right:
<ul>
<li> <button tb_start> Move to the start of the game. </li>
<li> <button tb_prev> Move back one move. </li>
<li> <button tb_next> Move forward one move. </li>
<li> <button tb_end> Move to the end of the game. </li>
<li> <button tb_invar> Move into a variation. </li>
<li> <button tb_outvar> Move out of the current variation. </li>
<li> <button tb_addvar> Add a new variation. </li>
<li> <button autoplay_off> Start/stop autoplay mode (see below). </li>
<li> <button tb_trial> Start/stop <a Moves Trial>trial mode</a>. </li>
<li> <button tb_flip> Rotate the board 180 degrees. </li>
<li> <button tb_coords> Show/hide board coordinates. </li>
</ul>

<h4><name Autoplay>Autoplay mode</name></h4>
<p>
In autoplay mode, Scid automatically plays the moves in the current game,
moving forward until the end of the game. The time delay between moves can
be set from the <menu>Options: Moves</menu> menu, and is saved to your
options file when you save options.
</p>
<p>
The shortcut key <b>Control+Z</b> starts or stops autoplay mode, and
you can also exit autoplay mode by pressing the <b>Escape</b> key.
</p>
<p>
If you start autoplay mode when the <a Analysis>analysis window</a> is open,
the game is <term>annotated</term>: the score and analysis for each position
are added to the game as a new variation just before each move is made.
See the <a Analysis>analysis window</a> help page for details.
</p>

<h3>The game information area</h3>
<p>
The area below the chessboard showing information about the game is called
the <term>game information area</term>.
Its first three lines show information such as the players, result,
date, and site.
The fourth line indicates the current position in the game, and what the
next move is.
</p>
<p>
The fifth line shows the <a ECO>ECO</a> (Encyclopedia of Chess
Openings) code for the current position, if the position appears in
the ECO file being used.
</p>
<p>
The game information area has a menu activated with the right mouse button,
with options to hide the next move (useful if you are training using a game
and want to guess each move) and to delete or undelete the current game.
You can also activate this menu without using the mouse, by pressing the
<b>[F9]</b> function key.
</p>

<h4>Tablebases</h4>
<p>
The game information area also displays tablebase results whenever the
displayed position reaches a material configuration found in a
tablebase file. See the <a TB>tablebases</a> help page for details.
</p>

<h3>The status bar</h3>
<p>
The status bar shows information about the current database.
The first field indicates the game status: <b>XX</b> means it has been
altered and not yet saved, while <b>--</b> means it is unchanged,
and <b>%%</b> indicates the database is read-only (not alterable).
</p>
<p>
If you want a database to be opened read-only, just set the permissions
of its Scid files, or at least its index file, for example:
<b>chmod a-w myfile.si3</b>
as a shell command, and it will be opened read-only by Scid.
</p>
<p>
The status bar also shows how many games are currently in the
<a Searches Filter>filter</a>.
</p>

<p><footer>(Updated: Scid 3.1, December 2001)</footer></p>
}


####################
### Menus help screen:

set helpTitle(Menus) "Menus"
set helpText(Menus) {<h1>Scid menus</h1>

<h3><name File>File</name></h3>
<ul>
<li><menu>New</menu>: Creates a new empty Scid database.</li>
<li><menu>Open</menu>: Opens an existing Scid database.</li>
<li><menu>Close</menu>: Closes the current Scid database.</li>
<li><menu>Finder</menu>: Opens the <a Finder>File Finder</a>.</li>
<li><menu>Bookmarks</menu>: <a Bookmarks>Bookmarks</a> and bookmark
    functions.</li>
<li><menu>Maintenance</menu>: Database <a Maintenance>maintenance</a>
functions.</li>
<ul>
  <li><menu>Maintenance window</menu>: Opens/closes the database maintenance
      window.</li>
  <li><menu>Delete twin games</menu>: Finds <a Maintenance Twins>twin</a>
      games in the database.</li>
  <li><menu>ECO-Classify games</menu>: Recomputes the
      <a ECO>ECO code</a> for all games in the database. </li>
  <li><menu>Name editor</menu>: Replaces all occurrences of a player,
      event site or round name.</li>
</ul>
<li><menu>Read-Only</menu>: Makes the current database read-only.</li>
<li><menu>Base 1/2/3/4/5</menu>: These commands let you switch between
    the four available database slots and the <a Clipbase>clipbase</a>
    database.</li>
<li><menu>Exit</menu>: Exits Scid. </li>
</ul>

<h3>Edit</h3>
<ul>
<li><menu>Add Variation</menu>: Adds a new empty variation for the
    next move, or for the previous move if there is no next move yet.</li>
<li><menu>Delete Variation</menu>: Provides a submenu of variations for
    the current move, so one can be deleted.</li>
<li><menu>Make First Variation</menu>: Promotes a variation to be the
    first variation of the current move.</li>
<li><menu>Promote Variation to Main line</menu>: Promotes a variation
    to be the main line, swapping it with its parent.</li>
<li><menu>Try Variation</menu>: Enters <a Moves Trial>trial mode</a> for
    testing a temporary variation without altering the current game.</li>
<li><menu>Strip</menu>: Strips all comments or variations from the current
    game.</li>
<br>
<li><menu>Empty Clipbase</menu>: Empties the <a Clipbase>clipbase</a>
    so it contains no games.</li>
<li><menu>Copy this game to clipbase</menu>: Copies the current game
    to the <a Clipbase>clipbase</a> database.</li>
<li><menu>Paste last clipbase game</menu>: Pastes the active game of
    the <a Clipbase>clipbase</a> to be the active game of the current
    database.</li>
<br>
<li><menu>Setup start board</menu>: Sets the starting position for the
    current game.</li>
<li><menu>Paste start board</menu>: Sets the start board from the current
    text selection (clipboard).</li>
</ul>

<h3>Game</h3>
<ul>
<li><menu>New Game</menu>: Resets the active game to an empty state,
    discarding any unsaved changes.</li>
<li><menu>Load First/Previous/Next/Last Game</menu>: These load the first,
    previous, next or last game in the <a Searches Filter>filter</a>.</li>
<li><menu>Reload this game</menu>: Reloads the current game, discarding
    any changes made.</li>
<li><menu>Load Game Number</menu>: Loads the game given its game number
    in the current database.</li>
<br>
<li><menu>Save: Replace game</menu>: Saves the current game, replacing
    its original version in the database.</li>
<li><menu>Save: Add new game</menu>: Saves the current game as a new
    game, appending to the end of the database.</li>
<br>
<li><menu>Identify opening</menu>: Finds the deepest
    position in the current game that is in the ECO file.</li>
<li><menu>Goto move number</menu>: Goes to the specified move number in
    the current game.</li>
<li><menu>Find novelty</menu>: Finds the first move of the current game
    that has not been played before.</li>
</ul>

<h3>Search</h3>
<ul>
<li><menu>Reset Filter</menu>: Resets the <a Searches Filter>filter</a>
so all games are included.</li>
<li><menu>Negate filter</menu>: Inverts the filter to only include
games that were excluded.</li>
<br>
<li><menu>Current board</menu>: Searches for the
<a Searches Board>current board</a> position.</li>
<li><menu>Header</menu>: Searches by <a Searches Header>header</a>
information such as player names.</li>
<li><menu>Material/Pattern</menu>: Searches by
<a Searches Material>material</a> or chessboard patterns</a>.</li>
<br>
<li><menu>Using search file</menu>: Searches using
<a Searches Settings>settings</a> from a SearchOptions file.</li>
</ul>

<h3>Windows</h3>
<ul>
<li><menu>Comment Editor</menu>: Opens/closes the
    <a Comment>Comment Editor</a> window.</li>
<li><menu>Game List window</menu>: Opens/closes the
    <a GameList>Game List window</a>.</li>
<li><menu>PGN window</menu>: Opens/closes the
    <a PGN>PGN window</a>.</li>
<li><menu>Tournament Finder</menu>: Opens/closes the
    <a Tmt>Tournament Finder</a> window.</li>
<br>
<li><menu>Database switcher</menu>: Opens/closes the
    <a Switcher>Database Switcher</a> window, which lets you switch to
    another database or copy games between databases easily.</li>
<li><menu>Maintenance window</menu>: Opens/closes the database
    <a Maintenance>maintenance</a> window.</li>
<br>
<li><menu>ECO Browser</menu>: Opens/closes the
    <a ECO browser>ECO Browser</a> window.</li>
<li><menu>Repertoire editor</menu>: Opens/closes the
    <a Repertoire>repertoire editor</a>.</li>
<li><menu>Statistics window</menu>: Opens/closes the
    <term>Filter statistics window</term> which gives a win/loss summary
    of the games in the <a Searches Filter>filter.</a></li>
<li><menu>Tree window</menu>: Opens/closes the <a Tree>tree window</a>.</li>
<li><menu>Endgame Tablebase window</menu>: Opens/closes the window that
    displays <a TB>tablebase</a> information.</li>
</ul>

<h3>Tools</h3>
<ul>
<li><menu>Analysis engine</menu>: Starts/stops the chess analysis
    engine, displaying the evaluation of the current position
    in the <a Analysis>analysis window</a>.</li>
<li><menu>Analysis engine #2</menu>: Starts/stops a second analysis
    engine.</li>
<li><menu>Crosstable</menu>: Constructs a tournament
    <a Crosstable>crosstable</a> for the current game. </li>
<li><menu>Email manager</menu>: Opens/closes the <a Email>email manager</a>
    window, for managing email correspondence games.</li>
<br>
<li><menu>Opening report</menu>: Generates an <a OpReport>opening report</a>
    for the current position.</li>
<li><menu>Player information</menu>: Displays <a PInfo>player information</a>
    for one of the two players of the current game.</li>
<li><menu>Rating graph</menu>: Displays the
    <a Graphs Rating>rating graph</a>.</li>
<li><menu>Score graph</menu>: Displays the
    <a Graphs Score>score graph</a>.</li>
<br>
<li><menu>Export current game</menu>: Saves the current game to a text
    file in PGN, HTML or LaTeX format. See the <a Export>export</a> help
    page.</li>
<li><menu>Export all filter games</menu>: Saves all games in the
    search <a Searches Filter>filter</a> to a text file in PGN, HTML or
    LaTeX format. See the <a Export>export</a> help page.</li>
<br>
<li><menu>Import PGN game</menu>: Opens the <a Import>Import window</a>
    for entering a game by typing or pasting its text in
    <a PGN>PGN format</a>.</li>
<li><menu>Import file of PGN games</menu>: Imports a whole file containing
    games in PGN format to the current database.</li>
</ul>

<h3>Options</h3>
<p>
This menu provides entries for setting most of Scid's configurable
options.
The <menu>Save options</menu> entry saves the current options to the
file "<b>~/.scid/scidrc</b>" (or <b>scid.opt</b> in the
directory of the Scid executable programs for Windows users);
this file is loaded each time you start up Scid.
</p>

<h3>Help</h3>
<p>
This menu contains help functions, and access to the tip of the day
window or the startup window which provides information about the
files Scid loaded when it started.
</p>

<p><footer>(Updated: Scid 3.2, February 2002)</footer></p>
}


####################
### Entering moves help:

set helpTitle(Moves) "Entering moves"
set helpText(Moves) {<h1>Entering chess moves</h1>
<p>
In Scid, you can enter the moves for a game using the
mouse or the keyboard. As you move the mouse over a square,
it and one other square will change color if there is a legal
move to or from that square. This is the <term>suggested move</term>.
To make this move simply click the <term>left</term> mouse button.
You can turn off move suggestion using the Options menu if it annoys you.
</p>
<p>
To make any move other than the suggested move, you can use
the <term>left</term> mouse button: just press the button over one square,
and release it over the other square.
</p>
<p>
If you prefer to make moves with two mouse clicks instead of dragging with
the mouse button pressed, you can use the <term>middle</term> button: just
click on one square then the other.
</p>

<h4>Retracting a move</h4>
<p>
To take back a move, click the right mouse button. This goes back one move,
and deletes the move if it is the last in the game or variation.
</p>

<h4>Replacing old moves</h4>
<p>
When you enter a move at a point in the game where a move already exists,
Scid will present a dialog box asking if you really want to replace the
old move (the old move and all moves after it will be lost), or want
to add the new move as a variation instead. Some people may find this
dialog box annoying and always want to replace old moves, so it can be
turned off with the <menu>Options: Moves</menu> menu option
"<i>Ask before replacing moves</i>".
</p>

<h4><name Trial>Trial mode</name></h4>
<p>
If you are studying a game and reach a position where you want to try
an alternative variation on the board without altering the game, select
<b>Try variation</b> from the <menu>Edit</menu> menu to enter trial
mode. In this mode, you can make temporary moves and changes to the
game, then return to the original position when you exit trial mode.
</p>

<h3><name Mistakes>Correcting mistakes</name></h3>
<p>
If you are entering a game and suddenly see an incorrect move several
moves earlier, it is possible to correct it without losing the extra
moves you have added. The only way is to edit the PGN representation
of the game: open the <a Import>Import</a> window, select "Paste current
game", correct the incorrect move, then select "Import".
</p>

<h3>Keyboard move entry</h3>
<p>
To enter moves at the keyboard, simply press letter and digit
keys. Note that accepted moves should be in <term>SAN notation</term>,
<i>without</i> the capture symbol (x) or the promotion symbol (=).
Moves are matched case-insensitively, so you can type
[n][f][3] instead of Nf3, for example -- but see the note below
about conflicts with pawn moves.
</p>
<p>
To ensure that no move is a prefix of any other move, the notation
for kingside and queenside castling is [O][K] and
[O][Q] respectively, instead of the usual O-O and O-O-O.
</p>
<p>
As you enter a move, the status bar will show the list of matching moves.
You can press the [space] bar at any time to choose the first
matching move in the list and add it to the game.
To delete a character, press [Backspace] or [Delete].
</p>
<p>
<b>Note</b> that a lower-case letter matches to a pawn first, so a
[b] can match to a pawn or Bishop, but if there is a conflict
you must use a capital [B] for the Bishop move.
</p>

<h4>Auto-Completion</h4>
<p>
In the Options menu, you can turn on or off <term>Auto-Completion</term>
of moves.
With auto-completion, a move is made as soon as you have typed enough
to distinguish it from any other legal move. For example, with
auto-completion, you would only need to type [n][f] instead
of [n][f][3] for <b>Nf3</b> in the starting position.
</p>

<h4>Entering common annotation symbols</h4>
<p>
You can also add common <a NAGs>annotation symbols</a> using the keyboard
in the main window, without needing to use the <a Comment>comment editor</a>
window. The following list shows which symbols you can add, and their
keyboard shortcuts:
<ul>
<li> !	: [!][Return] </li>
<li> ?	: [?][Return] </li>
<li> !?	: [!][?][Return] </li>
<li> ?!	: [?][!][Return] </li>
<li> !!	: [!][!][Return] </li>
<li> ??	: [?][?][Return] </li>
<li> </li>
<li> +-	: [+][-] </li>
<li> +/-	: [+][/] </li>
<li> +=	: [+][=] </li>
<li> =	: [=][Return] </li>
<li> -+	: [-][+] </li>
<li> -/+	: [-][/] </li>
<li> =+	: [=][+] </li>
</ul>

<p><footer>(Updated: Scid 2.6, August 2001)</footer></p>
}


########################################
### Searches help screen:

set helpTitle(Searches) "Searches"
set helpText(Searches) {<h1>Searches in Scid</h1>
<p>
Scid can perform many different types of search on a database.
The three main types of search are:
<ul>
<li><b>1)</b> for the current board, </li>
<li><b>2)</b> for specified material and piece patterns, and </li>
<li><b>3)</b> by header information such as players, result, date. </li>
</ul>
<p>
In addition to these, there is also an automatic search mode called the
<a Tree>Tree window</a> which is explained separately.
</p>

<h3><name Filter>The Search Filter</name></h3>
<p>
Searches in Scid are based on the concept of a <term>filter</term>.
The filter represents a subset of the current database; at any time,
each game is either included in or excluded from the filter.
</p>
<p>
With each type of search, you can choose to restrict the existing
filter, add to it, or ignore it and search the whole database.
This choice permits complex searches to be built up incrementally.
</p>
<p>
You can also copy all games in the filter of one database to another,
using the <a Switcher>database switcher</a> window.
</p>
<p>
With exact position, <a Tree>tree</a> or material/pattern searches, the
move number of the first matching position of each matching game is
remembered, so when you load each game it will show the matching position
automatically.
</p>
<p>
<b>Note</b> that searches only apply to the main line moves of a game,
not to any moves in variations.
</p>

<h3><name Board>Search: Current Board</name></h3>
<p>
This search finds games that contain the current displayed position,
ignoring castling and <i>en passent</i> rights.
</p>
<p>
There are four board search types available. All four require a position
to have the same exact material and side to move for a match.
The types are:
<ul>
<li> [1] exact (the two positions must match on every square), </li>
<li> [2] pawns (the pawn structure must match exactly, but other pieces
     can be anywhere), </li>
<li> [3] files (the number of white and black pawns on each file must match
     exactly, but other pieces can be anywhere), and </li>
<li> [4] material (pawns and pieces can be anywhere). </li>
</ul>
<p>
The pawns search is useful for studying openings by pawn structure, and
the files and material searches are useful for finding similar positions
in an endgame.
</p>
<p>
To search for an arbitrary position, you can set the position first
(from the <menu>Edit: Setup Start Board</menu> menu) and then
start the search.
</p>
<p>
You can request that the search look in variations (instead of only
examining actual game moves) by selecting the <b>Look in variations</b>
checkbox, but this may make the search much slower if your database
is large and has many games with variations.
</p>

<h3><name Material>Search: Material/Pattern</name></h3>
<p>
This search is useful for finding endgame or middlegame themes.
You can specify minimum and maximum amounts of each type of material,
and find patterns such as a Bishop on f7, or a pawn on the f-file.
</p>
<p>
A number of common material and pattern settings are provided, such
as Rook vs. Pawn endings, or isolated Queens pawns.
</p>
<p>
<b>Hints:</b><br>
The speed of pattern searches can vary widely. You can reduce the time
needed for a search by setting restrictions intelligently. For example,
if you set the minimum move number to 20 for an ending, all games that
end in under 20 moves can be skipped.
</p>

<h3><name Header>Search: Header</name></h3>
<p>
This search can be used to find aspects of the game that are
stored in the header (such as date, result, names, flags and ratings),
so it does not require any moves to be decoded.
</p>
<p>
For a game to match a Header search, <b>all</b> fields that you
specify must match.
</p>
<p>
The name fields (White, Black, Event, Site and Round) match on any text
inside the name, case-insensitive and ignoring spaces.
</p>
<p>
You can do case-sensitive wildcard searches for the White, Black, Event,
Site and Round fields (with <b>?</b> representing one character and
<b>*</b> representing zero or more characters) by putting the
search text in double quotes. For example a search for the site <b>USA</b>
will find American cities and also <b>Lausanne SUI</b>, which is probably
not what you wanted! A search for the site <b>"*USA"</b> (remember to
use the double-quotes) will only match cities in the United States.
</p>
<p>
If you are searching for a particular player (or pair of opponents) as White
or Black and it does not matter what color they played, select the
<b>Ignore Colors</b> option.
</p>
<p>
Finally, the Header search can be used to find any text (case-sensitive
and without wildcards) in the PGN representation of each game.
You may enter up to three text phrases, and they must all appear in a
game for it to be a match.
This search is very useful for searching in the comments or extra tags of
a game (such as <b>lost on time</b> or <b>Annotator</b>),
or for a move sequence like <b>Bxh7+</b> and <b>Kxh7</b> for a bishop
sacrifice on h7 that was accepted.
However, this type of search can be <i>very</i> slow since all the games that
match other criteria must be decoded and scanned for the text phrases.
So it is a good idea to limit these searches as much as possible.
Here are some examples.
To find games with under-promotions to a rook,
search for <b>=R</b> and also set the <b>Promotions</b> flag to Yes.
When searching for text that would appear in comments, set
the <b>Comments</b> flag to Yes.
If you are searching for the moves <b>Bxh7+</b> and <b>Kxh7</b>, you
may want to restrict the search to games with a 1-0 result and at least 40
half-moves, for example, or do a material/pattern search first to find
games where a white bishop moves to h7.
</p>

<h3><name Settings>Saving search settings</name></h3>
<p>
The Material/Pattern and Header search windows provide a
<term>Save settings</term> button. This lets you save the current
search settings for later use, to a <term>SearchOptions</term> file
(suffix .sso).
To search using a previously saved SearchOptions (.sso) file, select
<menu>Open</menu> from the <menu>Search</menu> menu.
</p>

<h3>Search times and skipped games</h3>
<p>
Most searches produce a message indicating the time taken and the number
of games that were <term>skipped</term>. A skipped game is one that can
be excluded from the search without decoding any of its moves, based on
information stored in the index. See the help page on
<a Formats>file formats</a> for more information.
</p>

<p><footer>(Updated: Scid 3.0, November 2001)</footer></p>
}


#################
### Clipbase help:

set helpTitle(Clipbase) "The Clipbase"
set helpText(Clipbase) {<h1>The Clipbase database</h1>
<p>
In addition to the databases you have open, Scid provides
a <term>clipbase</term> database, which is just like any other database
except that it exists in memory only and has no files for permanent storage.
</p>
<p>
The clipbase is useful as a temporary database, for merging
the results of searches on more than one database or for treating the
results of a search as a separate database.
</p>
<p>
For example, assume you want to prepare for an opponent and have searched
a database so the <a Searches Filter>filter</a> contains only games where
the opponent played White.
You can copy these games to the clipbase (by dragging from their database
to the clipbase in the <a Switcher>database switcher</a> window),
switch to the clipbase database, and then open
the <a Tree>Tree window</a> to examine that players repertoire.
</p>
<p>
Note that you can copy games in the filter of one database directly to another
opened database (without needing the clipbase as an intermediary
location) using the <a Switcher>database switcher</a> window.
</p>
<p>
Note that the clipbase <i>cannot</i> be closed; selecting the
<menu>File: Close</menu> command while in the clipbase is equivalent
to <menu>Edit: Reset Clipbase</menu> which empties the clipbase.
</p>
<p>
The clipbase has a limit of 20,000 games at any time, since it exists in
memory only.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}


###############################
### Comment editor window help:

set helpTitle(Comment) "Comment Editor window"
set helpText(Comment) {<h1>The Comment Editor window</h1>
<p>
The Comment Editor window lets you add or edit comments and symbolic
annotation symbols for moves in the active chess game.
</p>

<h3>Annotation symbols</h3>
<p>
Scid uses the <a Author Related>PGN standard</a>
for annotation symbols, accepting
<a NAGs>NAG (numeric annotation glyph)</a> values for annotations.
Some of the most common symbols (such as "!" or "+-") are displayed
as symbols, and have a button in the comment editor window for fast
entry. For other symbols, you can enter the appropriate
numeric NAG value which is a number from 1 to 255.
For example, the NAG value 36 means "White has the initiative" and will
be displayed as "$36" in the <a PGN>PGN text</a> of the game.
</p>
<p>
See the help page of <a NAGs>NAG values</a> for NAG values defined
by the PGN standard.
</p>
<p>
<b>Hint:</b> You can add the common move evaluation symbols (!, ?, !!,
??, !? and ?!) while in the main window, without needing
to use the comment editor window, by typing the symbol followed by
the [Return] key.
This is especially useful if you are <a Moves>entering chess moves</a>
using the keyboard.
</p>

<h3>Comments</h3>
<p>
You can edit comments by typing in the text area provided and using
the Clear, Revert and Store buttons.
You do not need to press the Store button to update a comment; it is
automatically updated whenever you move to another position in the game.
</p>

<h3>Coloring squares</h3>
<p>
You can color any square with any color using a special embedded command
which can appear anywhere in a comment. The command format is:
</p>
<ul>
<li><b>[%mark square color]</b><li>
</ul>
<p>
where <b>square</b> is a square name like d4 and <b>color</b> is any
recognized color name (such as red, blue4, darkGreen, lightSteelBlue, etc)
or RGB code (a <b>#</b> followed by six hexadecimal digits, such as #a0b0c8).
If the color is omitted, it defaults to <red>red</red>.
</p>
<p>
A comment may contain any number of color commands, but each must have
in its own <b>[%mark ...]</b> tag.
For example, the comment text</p>
<p>
  Now d6 [%mark d6] is weak and the knight can attack it
  from b5. [%mark b5 #000070]
</p>
<p>
will color d6 <red>red</red> and b5 with the dark-blue color
<darkblue>#000070</darkblue>.
</p>

<h3>Drawing arrows</h3>
<p>
You can draw an arrow from one square to another using a special
comment command similar to the for coloring squares described above.
The format is:
</p>
<ul>
<li><b>[%arrow fromSquare toSquare color]</b><li>
</ul>
<p>
where <b>fromSquare</b> and <b>toSquare</b> are square names like d4
and <b>color</b> is any recognized color name (such as red, blue4, etc)
or RGB code (like #a0b0c0).
If the color is omitted, it defaults to <red>red</red>.
</p>
<p>
For example, the comment text
</p>
<p>
  The c3-knight and c4-bishop control the weak d5 square.
  [%arrow c3 d5 red] [%arrow c4 d5 blue]
</p>
<p>
will draw a red arrow from c3 to d5 and a blue one from c4 to d5.
</p>

<p><footer>(Updated: Scid 3.2, February 2002)</footer></p>
}

####################
### Crosstable window help:

set helpTitle(Crosstable) "Crosstable window"
set helpText(Crosstable) {<h1>The Crosstable window</h1>
<p>
The crosstable window shows the tournament crosstable for the
current game. Each time you refresh the crosstable window (by
pressing its Refresh button, by pressing the <b>Return</b> key in the
crosstable window, or by typing <b>Control+Shift+X</b> in the
<a MainWindow>main</a> or <a GameList>game list</a> windows), Scid
searches for all games in the same tournament as the current game.
</p>
<p>
Any game played up to <b>three months before or after</b> the current game,
with the <b>exact same Event and Site tags</b>, is considered to be in
the tournament.
</p>
<p>
A single left-mouse button click on any result in the crosstable
loads the corresponding game.
You can add all the games in the tournament to the
<a Searches Filter>filter</a>
with the <b>Add to filter</b> button in the crosstable window.
</p>

<h4>Crosstable window menus</h4>
<p>
The <menu>File</menu> menu lets you print the current table to a file
in plain text, LaTeX or HTML table format.
</p>
<p>
The <menu>Display</menu> menu allows you to choose the table format:
<b>All-play-all</b>, <b>Swiss</b> or <b>Knockout</b> or <b>Auto</b>.
</p>
<p>
The all-play-all format (for round-robin-type events) has a limit of 30
players, but the Swiss format (for tournaments with many players) can
display up to 200 players and up to 20 rounds. <b>Auto</b>, which chooses
the best format automatically for each tournament, is the default.
</p>
<p>
Note that Scid uses the <b>Round</b> tag of each game to produce a Swiss
crosstable, so you will not see any games in the Swiss table for a tournament
if its games do not have numeric round values: 1, 2, 3, etc.
</p>
<p>
The Display menu also lets you customize the data presented to
include or exclude ratings, countries and player titles. You can also
choose whether color allocations in Swiss tables are displayed.
</p>
<p>
The <b>Separate score groups</b> option only affects the layout of the table
when the players are sorted by score: it causes a blank line to be inserted
between each group of players with the same score.
</p>
<p>
The <menu>Sort</menu> menu allows you to sort the players by name, rating
or score; by score is the default.
</p>
<p>
The <menu>Color</menu> menu lets you turn color (hypertext) display on or off.
Since it can take a long time to format and display large crosstables in
hypertext, selecting <b>Plain text</b> for large events will save a
lot of time.
However, in plain text mode you cannot click on players or games.
</p>

<h4>Duplicate games in crosstables</h4>
<p>
To get good results with the crosstable, you should mark duplicate games
for deletion and your games should have consistent spelling of player,
site and event names.
See the <a Maintenance>database maintenance</a> page for help on
deleting duplicate games and editing (or spellchecking)
player/event/site names.
</p>

<p><footer>(Updated: Scid 3.1, December 2001)</footer></p>
}


####################
### Database switcher help:

set helpTitle(Switcher) "Database Switcher"
set helpText(Switcher) {<h1>The Database Switcher window</h1>
<p>
The Database Switcher window provides a view which makes it easy to
switch between databases or copy games between databases.
The name, <a Searches Filter>filter</a> state and graphic type icon
of each database is displayed, and the active database is highlighted
with a yellow background.
</p>
<p>
You can open the database switcher window from the <menu>Windows</menu> menu,
or by its shortcut key: <b>Control+D</b>.
</p>
<p>
To copy all the filtered games in one database to another, drag with the
left mouse button from the source base to the target base. You will then
see a confirmation dialog (if the target database is not the
<a Clipbase>clipbase</a>) if the games can be copied, or an error message
if the games cannot be copied (for example, if a selected database is not
open).
</p>
<p>
Pressing right mouse button over a database produces a popup menu applying
to that database, from which you can change the database type icon or
reset its <a Searches Filter>filter</a>. You can also use this menu to
change the orientation of the window (to arrange the database slots
vertically or horizontally) which is useful for smaller screens.
</p>

<p><footer>(Updated: Scid 3.1, December 2001)</footer></p>
}


####################
### File Finder window help:

set helpTitle(Finder) "File Finder window"
set helpText(Finder) {<h1>The File Finder window</h1>
<p>
The <term>File Finder</term> helps you find files of any type you can
use in Scid: databases, <a PGN>PGN</a> files, <a EPD>EPD</a> files,
and <a Repertoire>repertoire</a> files.
</p>
<p>
The finder shows useful information about each file, such as its size
(see below) and date of last modification. You can open any displayed
file by selecting it with a single left mouse button click.
</p>

<h3>Looking in subdirectories</h3>
<p>
When you want to find all files in all subdirectories of the current
directory, turn on the <b>Look in subdirectories</b> checkbox. This
will make Scid recursively examine every subdirectory for files that
can be opened in Scid. This can take a long time if there are many
subdirectories, so you may not want to do it for a directory near the
root of the file system. You can interrupt the file search by pressing
the <b>Stop</b> button.
</p>

<h3>File sizes</h3>
<p>
The meaning of a file size displayed by the finder depends on the file
type. For Scid databases and PGN files, it is the number of games. For
EPD files, it is the number of positions. For repertoire files, it is
the number of (include or exclude) lines.
</p>
<p>
For all file types except Scid databases, the file size is an estimate
taken by examining only the first 64 kilobytes of the file, so the size
may not be correct for files larger than 64 kb. Estimate sizes are shown
with a tilde (~) to show they are not exact.
</p>

<p><footer>(Updated: Scid 2.7, September 2001)</footer></p>
}

####################
### Tournament Finder window help:

set helpTitle(Tmt) "Tournament Finder window"
set helpText(Tmt) {<h1>The Tournament Finder window</h1>
<p>
The <term>Tournament Finder</term> lets you find tournaments in the
current database. It scans all the database games and collates data
about the tournaments found. Note that two games are considered to
be in the same tournament if they have the same Event tag, same Site
tag and were played within three months of each other.
</p>
<p>
You can limit the list of tournaments by the number of players and
games, date, mean Elo rating and country, by editing the fields below
the tournament list and then pressing the <b>Update</b> button.
</p>
<p>
The displayed list can be sorted by date, number of players, number
of games, mean Elo rating, site, event or the surname of the winner.
Select the category from the <menu>Sort</menu> menu or click on a
column title to change the sort field.
</p>
<p>
To load the first game of any displayed tournament, just click the
left mouse button when its line is highlighted. This will also
update the <a Crosstable>Crosstable</a> window if it is open.
</p>
<p>
To speed up the tournament searching process, it is a good idea to
set a fairly small date range (like a few years at most) or select
a particular country (by its three-letter standard code). Doing
these will greatly reduce the number of games Scid has to consider
when trying to form tournaments out of the games in the database.
</p>

<p><footer>(Updated: Scid 2.7, September 2001)</footer></p>
}

####################
### GameList window help:

set helpTitle(GameList) "Game List window"
set helpText(GameList) {<h1>The Game List window</h1>
<p>
The Game List window displays a one-line summary for each game included
in the current <term>filter</term>.
</p>

<h3>Navigating the game list</h3>
<p>
You can scroll the game list using the slider bar or the four
buttons under the list.
You can also use the [Home], [End],
[Page Up], [Page Down] and arrow keys to scroll
using the keyboard.
</p>
<p>
You can find the next game in the list which has certain text in its
White, Black, Event or Site field, using the <b>Find text</b> box.
</p>

<h3>Actions on games in the list</h3>
<p>
To load a game from the game list, double-click the left mouse button
on the game.
Clicking the middle mouse button shows the initial moves of a game;
this can be useful for checking a games opening before loading it.
</p>
<p>
The right mouse button produces a menu for the selected game, in which
you can browse or merge the game (see below), delete (or undelete) the
game, or exclude it from the filter.
Note that deleting a game only turns on its delete flag; it will remain in
the database until you <a Compact>compact</a> it.
</p>

<h3>Configuring the game list</h3>
<p>
Click the left or right mouse button on a column title to configure the
game list. You can alter widths, add or remove columns, and change
the color for each column.
</p>
<p>
If you only want to change the width of a column, there is a shortcut:
while pressing the <b>Control</b> (or <b>Shift</b>) key, pressing
the left mouse button on the column title will make it narrower
and pressing the right mouse button will make it wider.
</p>

<h3>Altering the size of the game list</h3>
<p>
The size of the game list window is stored in the options file
whenever you save options.
So if you want the game list to show 10 games by default, just resize
the game list window and then select <menu>Save options</menu>
from the <menu>Options</menu> menu.
</p>

<h3><name Browsing>Browsing and merging games</name></h3>
<p>
The game list right-mouse menu (and some other windows, such as the
<a OpReport>opening report</a> window and the
<a Tree Best>best games list</a> of the <a Tree>tree</a> window)
provide the choice of loading, browsing or merging a game.
</p>
<p>
When <term>Browse game</term> is selected, the moves of the selected
game (without comments or variations) will be displayed in a separate
window. This is a useful way of previewing another game without
affecting the currently loaded game.
</p>
<p>
The <term>Merge game</term> feature provides a way to include the
selected game as a variation of the current game. Scid finds the
deepest point where the selected game differs from the current
game (taking transpositions into account) and adds a variation
for the selected game at that position. You can change the number
of moves of the selected game to be shown, depending on whether you
are interested in adding the whole game or just its opening phase.
</p>

<p><footer>(Updated: Scid 3.2, February 2002)</footer></p>
}


####################
### Import window help:

set helpTitle(Import) "Import window"
set helpText(Import) {<h1>The Import window</h1>
<p>
Scids Import window provides an easy way for you to paste a game
in <a PGN>PGN format</a> into Scid from some other application or window.
</p>
<p>
The large white frame in the window is where you type or paste
the text of the game in PGN format, and the gray frame below it
provides feedback of any errors or warnings.
</p>

<h3>Editing the current game with the Import window</h3>
<p>
The Import window also doubles as a convenient way to make a few changes
to the current game: you can paste the current game into the
Import window (with the <b>Paste current game</b> button), edit the
text, and click <b>Import</b> when done.
</p>

<h3>PGN tags in the Import window</h3>
<p>
Scid expects to see PGN header tags such as
<ul>
<li> <b>[Result "*"]</b> </li>
</ul>
before any moves, but you can just paste in a game fragment like
<ul>
<li> <b>1.e4 e5 2.Bc4 Bc5 3.Qh5?! Nf6?? 4.Qxf7# 1-0</b> </li>
</ul>
without any header tags and Scid will import it.
</p>

<h3>Using PGN files in Scid</h3>
<p>
If you want to use a PGN format file in Scid but do not
want to convert it with <a Pgnscid>pgnscid</a> first, there are two
possible ways.
</p>
<p>
First, you can import the games in the file to an existing database
with the <menu>Tools: Import file of PGN games...</menu> menu command.
</p>
<p>
The alternative is to open the PGN file directly in Scid. However, PGN
format files are opened read-only and consume more memory than a
comparable Scid database, so this is only recommended for relatively
small PGN files.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### Exporting help:

set helpTitle(Export) "Exporting games"
set helpText(Export) {<h1>Exporting games</h1>
<p>
You can use commands under the <menu>Tools</menu> menu to export the current
game or all games in the current filter to a text file.
</p>
<p>
Three text file formats are available: <a PGN>PGN</a> (portable game
notation), HTML (for web pages) and LaTeX (a popular typesetting system).
</p>
<p>
When exporting, you can choose to create a new file, or add the games to
an existing file of games exported by Scid.
</p>

<h3>Diagrams</h3>
<p>
When exporting in HTML or LaTeX format, Scid will automatically add a
diagram wherever a diagram <a NAGs>nag</a> ("D") or a <a Comment>comment</a>
that starts with the character "#" appears in the game.
</p>

<h3>HTML Export</h3>
<p>
Scid can export games to an HTML file. For diagrams to appear, you will
need the diagram images (distributed with Scid in the directory
"<b>bitmaps/</b>") to be in a subdirectory <b>bitmaps/</b> under the
directory the HTML file is in.
</p>

<h3>LaTeX Export</h3>
<p>
Scid can export games to a LaTeX file.
Games be printed two columns to a page and moves are in
figurine algebraic notation.
</p>
<p>
See the <a LaTeX>Using LaTeX with Scid</a> help page for more information.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### LaTeX help:

set helpTitle(LaTeX) "Scid and LaTeX"
set helpText(LaTeX) {<h1>Using LaTeX with Scid</h1>
<p>
Scid can save games and opening reports to files in LaTeX format.
LaTeX is an extension to TeX, a popular typesetting system.
</p>
<p>
To typeset the LaTeX files produced by Scid, you must have
LaTeX (of course) and have the "chess12" chess font package installed.
This font package is usually not part of standard LaTeX installations,
so even if you have LaTeX, you may not have the chess font.
</p>
<p>
For information about downloading and installing the LaTeX chess font,
visit the
<url http://scid.sourceforge.net/latex.html>Using LaTeX with Scid</url>
page at the <url http://scid.sourceforge.net/>Scid website</url>.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### PGN window help:

set helpTitle(PGN) "PGN window"
set helpText(PGN) {<h1>The PGN window</h1>
<p>
Scids PGN window displays the contents of the current game
in standard PGN representation. In the move text, comments
appear {in braces} and variations appear (in parentheses).
</p>

<h3>PGN format</h3>
<p>
PGN (Portable Game Notation) is a common standard for transferring
chess games between computer programs.
A PGN game consists of two sections. The first is
the header, which contains tags
such as
<b>[White "Kasparov, Gary"]</b>
and
<b>[Result "1/2-1/2"]</b>.
</p>
<p>
The second section contains the actual moves of the game, in
standard algebraic notation (SAN) along with any variations,
<a NAGs>annotation symbols</a> and <a Comment>comments</a>.
</p>

<h3>Actions in the PGN window</h3>
<p>
You can use the PGN window to navigate around the game: clicking the
left mouse button on a move will jump to that move. Click the left
mouse button on a comment will edit it.
The arrow keys and (<b>v</b> and <b>z</b> keys for entering or leaving
variations) work for game navigation just as in the main window.
</p>

<h3>PGN display options</h3>
<p>
The PGN window menus contain options that affect the PGN window display.
Scid can display the game in color or plain text -- see the
<menu>Display</menu> menu in the PGN window.
The color display is easier to read, and allows you to select moves and
comments using the mouse, but it is much slower to update. For very long
games, you may want to select plain text display.
</p>
<p>
You can also alter the format of comments and variations, choosing
to display them indented on a separate line for greater visibility.
</p>
<p>
The PGN display options, and the size of the PGN window, are saved to the
options file whenever you <b>Save Options</b> from the <menu>Options</menu>
menu of the main window.
</p>

<p><footer>(Updated: Scid 3.1, December 2001)</footer></p>
}


####################
### Repertoire editor help:

set helpTitle(Repertoire) "Repertoire editor"
set helpText(Repertoire) {<h1>The Repertoire editor window</h1>
<p>
The Repertoire editor lets you create, view, edit and <term>repertoire</term>
files. A repertoire (.sor) file is a list of the opening positions you want to
reach or try to avoid, and you can use it to manage your chess opening
preferences and also to search databases in Scid.
</p>

<h3>Repertoire groups and lines</h3>
<p>
A repertoire contains two types of elements: <term>groups</term> and
<term>lines</term>. Groups are not actually part of your repertoire; they
are only used to structure it the same way directories give structure to the
files on a computer disk.
</p>
<p>
Lines in a repertoire come in two types: <term>include</term> lines which
represent opening positions you are interested in and try to reach,
and <term>exclude</term> lines which are those you have no interest in
playing and try to avoid.
For example, if you play the QGA (1.d4 d5 2.c4 dxc4) as Black and you play
all moves after 3.e4 <i>except</i> 3...Nf6, you would have
1.d4 d5 2.c4 dxc4 3.e4 as an include line and 1.d4 d5 2.c4 dxc4 3.e4 Nf6 as
an exclude line.
</p>

<h3>Comments and notes</h3>
<p>
Each group or line can have comments attached to it. There are two types:
short (single-line) comments appear (in red) in the repertoire hierarchy
next to the moves of a group or line, while a long (multiple-line) comment
is only shown when the group or line is selected.
</p>

<h3>Using the repertoire editor window</h3>
<p>
The <b>left</b> side of the window shows the repertoire hierarchy. You can
click on folder icons to expand and collapse groups, and click on the
moves of a group or line to select it and see its comments.
Include lines are shown with a blue tick icon, and exclude lines have
a red cross.
</p>
<p>
If a line or group has a short comment, it is shown after the moves. If it
has a long comment, this is indicated with <b><red>**</red></b> after the
moves. Groups have a number in parentheses after their moves showing the
number of (include and exclude) lines they contain.
</p>
<p>
Clicking the right mouse button on a group or line produces a menu
of functions for it, such as deleting it or changing its state.
</p>
<p>
The <b>right</b> side of the window contains three frames. The first frame
is a list of the moves in the currently selected line or group. You can click
the left mouse button on this to paste the moves in the
<a Import>Import</a> window, which is useful for setting the current game
to start with a line in the repertoire.
The second frame contains the short comment for the line or group, and
the third frame contains its long comment.
</p>

<h3>Adding groups and lines to the repertoire</h3>
<p>
To add a line or group to the window, just make its moves on the
chessboard in the main window, then use the <menu>Edit</menu> menu
in the repertoire editor to add it as a group, include line or exclude line.
</p>
<p>
To delete a group or line, click the right mouse button on it and select
the appropriate command from the menu that appears.
</p>

<h3><name Search>Searching databases using repertoire files</name></h3>
<p>
The repertoire editor <menu>Search</menu> menu lets you search the
current database using the repertoire. Each game will be searched for
the positions in the repertoire and will only match the search if
the <i>deepest</i> repertoire position found is for an <i>include</i> line.
</p>
<p>
You can choose to search using the whole repertoire, or just the displayed
lines. Searching by displayed lines only is useful when you only want to
use some of the repertoire. For example, a repertoire might have two main
groups at the top level, one for 1.e4 and one for 1.d4. If you are only
interested in the 1.e4 lines, simply collapse the 1.d4 group and then
search by displayed lines only.
</p>

<h3>Extra hints</h3>
<p>
A repertoire file is great for finding new games in your opening systems.
For example, each time you get a new PGN file to add to your main database
(such as the excellent weekly PGN file from
<url http://www.chesscenter.com/twic/>The Week In Chess</url>),
just open the PGN file in Scid and do a repertoire search. Then you
can browse the filtered games to see all the games played that are
in your repertoire.
</p>
<p>
You may want to keep two repertoire files: one for Black and one for
White, so you can search with each file separately.
</p>
<p>
A repertoire file can be opened from the command line, for example: <br>
<b>scid mybase white.sor</b>
</p>
<p>
You can edit a repertoire (.sor) file in any text editor, but be careful
to preserve its format or it may not be loadable or searchable in Scid.
</p>

<p><footer>(Updated: Scid 2.6, August 2001)</footer></p>
}

####################
### Tree window help:

set helpTitle(Tree) "Tree window"
set helpText(Tree) {<h1>The Tree window</h1>
<p>
The <term>Tree</term> window displays information on all the
moves made from the current position in games in the database.
In tree mode, the tree window is updated automatically whenever the
main windows board changes. This can be slow for large databases.
</p>
<p>
Note that whenever the tree window is updated, the
<a Searches Filter>filter</a>
is reset and only the games that contain the current position will
be included.
</p>
<p>
Clicking the left mouse button on a move in the tree window adds that
move to the game.
</p>

<h3>Tree window contents</h3>
<p>
The tree window shows the <a ECO>ECO code</a> (if any), frequency (both as
number of games, and a percentage) and score of each move.
The <term>score</term> is always computed from the <b>White</b>
perspective, so 100% means all White wins and 0% means all Black wins.
</p>
<p>
The moves in the tree window can be sorted by move (alphabetically),
ECO code, frequency, or score. You can change the sort method
using the <menu>Sort</menu> menu.
</p>

<h3><name Best>Best games window</name></h3>
<p>
The tree window has a File menu command and button for opening the
<term>Best games</term> window, which shows a list of the highest-rated
games in the currently displayed tree branch.
The games are listed in order of average rating, and you can restrict
the list to show games with a particular result.
</p>

<h3><name Graph>Tree graph window</name></h3>
<p>
The tree window buttons include a button marked <term>Graph</term>
which produces a graphical display of the relative performance of each
move from the current position.
All moves that have been played at least 1% of the time, and at least 5
times, are displayed.
Percentage scores are always from White's perspective even when it is
Black to move.
</p>
<p>
In the tree graph, a red line is plotted showing the mean over all games
from the current position, and the area between 50 and 55% (where most
standard openings are expected to score) is colored blue
to assist comparison of moves. Note that white usually scores around 55%
in master level chess.
</p>

<h3><name Lock>Locking the tree window</name></h3>
<p>
The <term>Lock</term> button in the tree window can be used to lock the
tree to the current database. This means the tree will continue to use
that database even when you switch to another open database. This is
useful if you want to use a large database as a reference while
playing through a game in another database: simply open the tree on the
reference database, lock it, then switch to the other base.
</p>

<h3><name Training>Training</name></h3>
<p>
When the <term>Training</term> checkbox in the tree window is selected,
Scid will randomly make a move every time you add a move to the game.
The move Scid chooses depends on database statistics, so a move played
in 80% of database games will be chosen by Scid with 80% probability.
Turning on this feature, then hiding (or iconifying) the Tree window and
playing openings against a large database, is a great way to test your
knowledge of your opening repertoire.
</p>

<h3>Using the Tree with EPD files open</h3>
<p>
For each open <a EPD>EPD file</a>, the tree window will contain an extra
column that shows a short (five character) summary of the contents of the
EPD file for each position reached from the moves listed.
</p>
<p>
The summary could be an evaluation, an opening code or a suggested move;
it will be the contents of the first EPD field found from the
following list: <b>ce, eco, nic, pv, pm, bm, id</b>,
or just the first EPD field if none of the above are present.
</p>
<p>
For a description of EPD fields, see the <a EPD>EPD file</a> help page.
Note that if the summary is of the <b>ce</b> field, it is shown as an
evaluation in pawns from Whites perspective (rather than as a score in
centipawns from the perspective of the side to move, which is its stored
format in the EPD file) for improved readability.
</p>

<h3>Caching for faster results</h3>
<p>
Scid maintains a cache of tree search results for the positions with the
most matching games. If you move forward and back in a game in tree mode,
you will see the tree window update almost instantly when the position
being searched for is in the cache.
</p>
<p>
The tree window has a file menu command named <term>Save Cache</term>.
When you select this, the current contents of the tree cache in memory
are written to a file (with the suffix <b>.stc</b>) to speed up future
use of Tree mode with this database.
</p>
<p>
The <term>Fill cache file</term> command in the file menu of the tree
window fills the cache file with data for many opening positions.
It does a tree search for about 100 of the most common opening positions,
then saves the cache file.
</p>
<p>
Note that a tree cache (.stc) file is completely redundant; you can remove
it without affecting the database, and in fact it is removed by Scid
whenever an action occurs that could leave it out of date -- for example,
adding or replacing a game, or sorting the database.
</p>

<p><footer>(Updated: Scid 3.0, November 2001)</footer></p>
}



####################
### Compaction help:

set helpTitle(Compact) "Database compaction"
set helpText(Compact) {<h1>Database compaction</h1>
<p>
Database <term>compaction</term> is a specific type of
<a Maintenance>maintenance</a> that keeps a database as small and
efficient as possible.
Compacting a database means removing any unused space in its files.
There are two types: name file and game file compaction.
</p>

<h3>Name file compaction</h3>
<p>
Over time, you may find a database starts to contain a number of player,
event, site or round names that are no longer used in any game. This will
often happen after you spellcheck names. The unused names waste space in
the name file, and can slow down name searches.
Name file compaction removes all names that are not used in any games.
</p>

<h3>Game file compaction</h3>
<p>
Whenever a game is replaced or deleted, wasted space is left in the game
file (the largest of the three files in a Scid database). Game file
compaction removes all wasted space, leaving no deleted games in the
database. Note that this operation is irreversible: after compaction,
the deleted games are gone forever!
</p>
<p>
Game file compaction is also recommended after <a Sorting>sorting</a> a
database, to keep the order of the game file consistent with the sorted
index file.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}


####################
### Database maintenance tools help:

set helpTitle(Maintenance) "Database maintenance"
set helpText(Maintenance) {<h1>Database maintenance</h1>
<p>
Scid provides a number of tools for maintaining databases,
available from the Scid <a Menus File>File</a> menu. The
database <a Compact>compaction</a> and <a Sorting>sorting</a>
functions are explained in separate help pages.
</p>

<h3>Maintenance window</h3>
<p>
Most Scid database maintenance can be done from the Maintenance
window, which can be opened from the <menu>File: Maintenance</menu>
or <menu>Windows</menu> menus or the shortcut key <b>Ctrl+M</b>.
</p>
<p>
You can use this window to maintain <a Flags>game flags</a>,
spellcheck names, <a Compact>compact</a> or <a Sorting>sort</a>
a database. Note that any operations that are not available
for the current database (for example, because it may be read-only
or a PGN file) will be grayed out.
</p>

<h3><name Twins>Deleting twin games</name></h3>
<p>
The <menu>File: Maintenance</menu> menu has a command
<menu>Delete twin games...</menu> for detecting extra copies
(twins) of games in the database.
This command finds all pairs of games that are twins and, for each pair,
flags the shorter game deleted leaving the longer game undeleted.
Two games are considered to be twins if their players
(and any other tags that you can optionally specify) match exactly.
</p>
<p>
If you specify the "same moves" option, each pair of games must have the
same actual moves up to the length of the shorter game (or up to move 60,
whichever comes first) to be twins.
</p>
<p>
When you have deleted twins, it is a good idea to check that each
game deleted really is a copy of another game.
You can do this easily if you selected the
"<b>Set filter to all deleted games</b>" option in the
delete twins dialog box. The filter will now contain all deleted games.
You can browse through them (using the <b>p</b> and <b>n</b> keys) with
the <term>twins checker</term> window (available from the maintenance
menu, or the shortcut key <b>Ctrl+Shift+T</b>) to verify that each game is
deleted because it actually is a twin of another game.
</p>

<h3><name Editing>Editing player, event, site and round names</name></h3>
<p>
You may find mis-spelt names in your databases and want to correct them.
You can do this in Scid with the <term>Name editor</term> window
(shortcut key: <b>Control+Shift+N</b>),
available from the <menu>File: Maintenance</menu> submenu.
</p>
<p>
Each unique name is only stored once in the name file, so changing a name
actually changes all occurrences of it.
</p>

<h3><name Spellcheck>Spellchecking names</name></h3>
<p>
Scid comes with a <term>spellcheck</term> file named <b>spelling.ssp</b>,
for correction of player, event, site and round names.
Scid will try to load the spellcheck file whenever it starts up; if it
does not load, you can load it from the <menu>Options</menu> menu.
</p>
<p>
Once the spellcheck file is loaded, you can use it on a
a Scid database using the spellcheck commands in the
<menu>File: Maintenance</menu> menu, or from the maintenance window.
</p>
<p>
When you spellcheck a database, Scid produces a list of corrections that you
can edit before actually making any corrections, so you can remove any
corrections you do not want to make.
</p>
<p>
Spellchecking is especially useful for standardizing a database so all
instances of a particular player are spelt the same way.
For example, with the standard spellcheck file, the names "Kramnik,V.",
"Vladimir Kramnik", and "V. Kramnik" would all be corrected
to "Kramnik, Vladimir".
</p>
<p>
The spellcheck file has one
additional use: when it is loaded, its player data is
used to enhance the <a PInfo>player information</a> window and the
<a Crosstable>crosstable</a> window:
you will see FIDE master title
(<b>gm</b> = International Grandmaster, <b>im</b> = International Master, etc)
and country information for any player that is
listed in the spellcheck file. Over 6500 strong players of the past and
present are listed in the <b>spelling.ssp</b> file that comes with Scid.
</p>

<h3><name Ratings>Adding Elo ratings to games</name></h3>
<p>
The "Add Elo ratings..." button in the Maintenance window causes Scid
to search the current database for games where a player does not have
a rating, but the spellcheck file has an Elo rating listed for that
player at the date of the game. Scid will add all such ratings
automatically. This is very useful for a database of master-level games
which has few ratings.
</p>
<p>
The spellcheck file "spelling.ssp" that comes with Scid does not contain
the Elo rating information needed for this function, but a larger version
of it called "ratings.ssp" is available from the <a Author>Scid website</a>.
</p>

<h3><name Cleaner>The Cleaner</name></h3>
<p>
The Scid <term>Cleaner</term> (available from the Maintenance window) is
a tool for doing a number of maintenance tasks on a database in one
action. You can choose which tasks you want to do, and Scid will
perform them on the current database without requiring user interaction.
This is especially useful for maintenance of large databases.
</p>

<h3>Setting the database autoload game</h3>
<p>
The <term>autoload</term> game of a database is the game automatically
loaded whenever that database is opened. To change the autoload game of
a database, use the "Autoload game number..." button. If you always want
the last game of a database to be opened (regardless of the actual number
of games in the database), just set it to a very high number such as
9999999.
</p>

<p><footer>(Updated: Scid 3.1, December 2001)</footer></p>
}

####################
### Sorting help:

set helpTitle(Sorting) "Sorting a database"
set helpText(Sorting) {<h1>Sorting a database</h1>
<p>
The <term>sorting</term> function sorts all games in a database.
You can select a number of sort criteria.
When two games are equal according to the the first criteria, they
are sorted using the second criteria, and so on.
</p>

<h3>Sort criteria</h3>
<p>
The available sorting criteria are:
</p>
<ul>
<li> Date (oldest games first)
<li> Year (same as date, but using the year only)
<li> Event name
<li> Site name
<li> Country (last 3 letters of Site name)
<li> Round name
<li> White name
<li> Rating (average of White and Black ratings, highest first)
<li> Black name
<li> Result (White wins, then draws, then Black wins)
<li> Length (number of full moves in the game)
<li> ECO (the <a ECO>Encyclopedia of Chess Openings code</a>)
</ul>

<h3>Sort results</h3>
<p>
When you sort a Scid database that is not read-only, the sort results
are saved so the order of games in the database is permanently changed.
If you want to the sort results to be temporary, make the database
read-only first using the <b>File: Read-only</b> menu command.
</p>
<p>
When you sort a database that is read-only or is actually a PGN file,
the sort results cannot be saved so the sorted order of games will be lost
when the file is closed.
</p>
<p>
Note that sorting a database resets the
<a Searches Filter>search filter</a> to contain all games.
</p>

<h3>Important note about sorting databases:</h3>
<p>
When a database is sorted, the index file is altered but the game file
is not changed. This means sorting a database will leave the game file
records in a scrambled order relative to the index file. This can
really <b>slow down</b> <a Tree>tree</a>, position and material/pattern
<a Searches>searches</a>, so you should reorder the game file by
<a Compact>compacting</a> it after sorting the database to maintain
good search performance.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### Flags help:

set helpTitle(Flags) "Game Flags"
set helpText(Flags) {<h1>Game Flags</h1>

<p>
A <term>flag</term> is an indicator of some chess characteristic
that can be turned on or off for each game in the database.
There are 13 user-settable flags that you can directly set for
each game. Of these, only the Delete flag has any special
significance: games with the Delete flag turned on are marked
for deletion and will removed when the database is
<a Compact>compacted</a>.
</p>
<p>
The other 12 user-settable flags and their symbols are:
</p>

<ul>
<li>White opening (W)</li>
<li>Black opening (B)</li>
<li>Middlegame (M)</li>
<li>Endgame (E)</li>
<li>Novelty (N)</li>
<li>Pawn structure (P)</li>
<li>Tactics (T)</li>
<li>Queenside play (Q)</li>
<li>Kingside play (K)</li>
<li>Brilliancy (!)</li>
<li>Blunder (?)</li>
<li>User-defined (U)</li>
</ul>

<p>
A flag can be set for the current game, all filter games, or all
database games using the <a Maintenance>maintenance</a> window.
</p>
<p>
You can use a <a Searches Header>header search</a> to find all
games in a database that have a particular flag turned on or off,
or use flags as part of more complex searches.
</p>
<p>
Since all the user-settable flags (except the Delete flag) have
no significance to Scid, you can use them for any purpose that
suits your needs. For example, you could use the Kingside (K)
flag for kingside pawn storms, or kingside heavy piece attacks,
or even for endgames with all pawns on the kingside.
</p>

<p><footer>(Updated: Scid 3.0, November 2001)</footer></p>
}

####################
### Analysis window help:

set helpTitle(Analysis) "Analysis window"
set helpText(Analysis) {<h1>The Analysis window</h1>
<p>
The Scid analysis window shows the analysis by a chess program (known
as an <term>engine</term>) of the current board position. Whenever the
board changes, Scid sends the new position to the engine and it
shows its assessment of that position.
</p>
<p>
The score shown in the analysis window is always from the perspective
of White, so a negative score indicates Black is better.
The lower frame in the window (with the scrollbar) shows the history of
evaluations produced by the engine for the current position, so you can
see how the assessment has changed.
</p>
<p>
To add the best move chosen by the engine as a new move in the current
game, press the <b>Add move</b> button.
</p>

<h3><name List>The Analysis Engines List</name></h3>
<p>
Scid maintains a list of the engines you have used, along with an
estimated Elo rating (if you guess one) and the date when each
engine was last used. You can sort the engine list by name, Elo
rating, or date.
Select the <b>New</b> or <b>Edit</b> buttons to add a new engine to
the list or edit the details for an existing entry.
</p>
<h3><name Start>Engine commands and directories</name></h3>
<p>
For each engine, you must specify the executable file to run and
which directory Scid should run it in.
</p>
<p>
The most likely cause of engine starting problems is the choice of
which directory the engine should run in. Some engines require an
initialization or opening book file in their start directory to run
properly.
Other engines (like Crafty) write log files to the directory they start
in, so you will need to run them in a directory where you have write
access.
If the directory setting for an engine is ".", Scid will just start
the engine in the current directory.
</p>
<p>
So if an engine that should work fine in Scid does not start, try
changing its directory setting. To avoid engines creating log files
in many different directories, I recommend starting engines in
the directory of the Scid User files (this is where the <b>scid.exe</b>
file is located on Windows, or <b>~/.scid/</b> on Unix); there is a
button in the dialog box for editing engine details marked
<b>scid.exe dir</b> on Windows or <b>~/.scid</b> on Unix that lets
you set the engine to start in this directory.
</p>

<h3>Training</h3>
<p>
With the <b>Training</b> button, you can play moves against the analysis
engine. The time for each move is fixed, and the analysis results are
not shown when training mode is on.
</p>

<h3>Annotating a game</h3>
<p>
The <b>Add variation</b> button in the analysis window adds the current
score and best line of play as a new variation in the game.
</p>
<p>
You can do this automatically for a number of moves (annotating the game)
by pressing the <b>Annotate</b> button. This prompts you for some
annotation options and then turns on autoplay mode.
When autoplay mode is used and the analysis window is open, a variation
containing the score and best line of play is automatically added for each
position as autoplay mode moves through the game.
Only positions from the current position until the end of the game
(or until you exit autoplay mode) are annotated, so you can skip annotation
of opening moves by moving to a middlegame position before starting autoplay.
</p>
<p>
To cancel annotation at any time, just turn off autoplay mode, for example by
pressing the <b>Escape</b> key in the main window.
</p>
<p>
Note that for simplicity, the <b>Annotate</b> button is only available
in the window opened as analysis engine 1. If you open an engine as
analysis engine 2, you cannot use it to annotate the game.
</p>

<h3>Interface details</h3>
<p>
To use the analysis window, you will need a chess program that supports
the <term>WinBoard/Xboard</term> protocol.
</p>
<p>
Scid sends he <b>xboard</b>, <b>post</b> and <b>protover 2</b> to an
engine when it starts, and will use the <b>setboard</b> and <b>analyze</b>
commands for more efficient communication if the engine responds indicating
that it supports them.
If an engine does not support the <b>setboard</b> command, it will
not be able to provide analysis in any game that begins with a
non-standard start position.
</p>
<p>
For programs that do not support the <b>analyze</b> command, Scid sends
the following commands every time the position changes: <b>new</b> and
<b>force</b>, then the moves in the game to the current position, then
<b>go</b>.
</p>
<p>
Bob Hyatt's excellent free chess program <term>Crafty</term> is what I
use and recommend for the Scid analysis window, but many other WinBoard
or XBoard compatible programs have been successfully used with Scid.
Some download sites for a few engines are listed below.
</p>
<p>
Crafty:
<url ftp://ftp.cis.uab.edu/pub/hyatt/>ftp://ftp.cis.uab.edu/pub/hyatt/</url>
</p>
<p>
Yace:
<url http://home1.stofanet.dk/moq/>http://home1.stofanet.dk/moq/</url>
</p>
<p>
Phalanx:
<url ftp://ftp.math.muni.cz/pub/math/people/Dobes/>ftp://ftp.math.muni.cz/pub/math/people/Dobes/</url>
</p>
<p>
Comet:
<url http://members.aol.com/utuerke/comet/>http://members.aol.com/utuerke/comet/</url>
</p>
<p>
Gnuchess:
<url http://www.gnu.org/software/chess/chess.html>http://www.gnu.org/software/chess/chess.html</url>
</p>
<p>
The Crazy Bishop:
<url http://remi.coulom.free.fr/>http://remi.coulom.free.fr/</url>
</p>

<p><footer>(Updated: Scid 3.2, February 2002)</footer></p>
}

####################
### EPD files help:

set helpTitle(EPD) "EPD files"
set helpText(EPD) {<h1>EPD files</h1>
<p>
An EPD (extended position description) file is a collection of positions,
where each position has some associated text. Like <a PGN>PGN</a>, it
is a common standard for chess information.
</p>
<p>
An EPD file has a number of defined <term>opcodes</term> (fields)
which are stored separated by semicolons (<b>;</b>) in the file
but are shown on separate lines in a Scid EPD window to make editing easier.
A semicolon within an EPD field is stored as "<b>\s</b>" by Scid to
distinguish it from an end-of-field marker.
Each position and its associated opcodes are stored on one single line
in the EPD file.
</p>
<p>
Standard EPD opcodes include:
<ul>
<li> <b>acd</b> Analysis count: depth searched.</li>
<li> <b>acn</b> Analysis count: number of nodes searched.</li>
<li> <b>acs</b> Analysis count: search time in seconds.</li>
<li> <b>bm</b> Best moves: move(s) judged best for some reason.</li>
<li> <b>ce</b> Centipawn evaluation: evaluation in hundredths of a
pawn from the perspective of the <b>side to move</b> -- note this
differs from the Analysis window which shows evaluations in pawns from
Whites perspective. </li>
<li> <b>cX</b> Comment (where <b>X</b> is a digit, 0-9).</li>
<li> <b>eco</b> <a ECO>ECO</a> system opening code.</li>
<li> <b>id</b> Unique Identification for this position.</li>
<li> <b>nic</b> <i>New In Chess</i> system opening code.</li>
<li> <b>pm</b> Predicted move: the first move of the PV.</li>
<li> <b>pv</b> Predicted variation: the line of best play.</li>
</ul>

<p>
EPD files have a number of uses: Scid uses an EPD file to classify
games according to the <a ECO>Encyclopedia of Chess Openings</a> (ECO)
system, and you can create an EPD file for your opening repertoire,
adding comments for positions you regularly reach in games.
</p>
<p>
You can create a new EPD file or open an existing one, from the
<menu>New</menu> and <menu>Open</menu> commands of the
<menu>File</menu> menu. At most four EPD files can be open at any time.
</p>

<h3>EPD windows</h3>
<p>
For each open EPD file, you will see a window which shows the text for
the current position. You do not have to press the Store button to store
any changes you make to a positions text; the text will be stored whenever
you move to a different position in the game.
</p>

<h3>Navigating EPD files</h3>
<p>
To browse through the positions in a EPD file, use the
<menu>Next position</menu> and <menu>Previous position</menu> commands
from the EPD window <menu>Tools</menu> menu, or use the shortcut
keys <b>Ctrl+DownArrow</b> and <b>Ctrl+UpArrow</b>.
These commands move to the next/previous position in the file, clearing
the current game and setting its start position.
</p>

<h3>Stripping out EPD fields</h3>
<p>
EPD files you find on the Internet may contain fields that do not
interest you, and they can waste a lot of space in the file.
For example, an EPD file of computer evaluations might have ce, acd,
acn, pm, pv and id fields but you may only need the ce and pv fields.
</p>
<p>
You can strip out an EPD opcode from all positions in the EPD file using
the <menu>Strip out EPD field</menu> from the EPD window <menu>Tools</menu>
menu.
</p>

<h3>The EPD window status bar</h3>
<p>
The status bar of each EPD window shows:
<ul>
<li>- the file status (<b>--</b> means unchanged, <b>XX</b> means
      changed, and <b>%%</b> means read-only); </li>
<li>- the file name; </li>
<li>- the number of positions in the file; </li>
<li>- legal moves from the current position reach another position
in this EPD file.</li>
</ul>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### Email window help:

set helpTitle(Email) "Email window"
set helpText(Email) {<h1>The Email window</h1>
<p>
Scids email manager window provides a way for you to manage correspondence
chess games played by email.
If you do not play email chess, this will be of no interest to you.
But if you play correspondence chess by email, you can send your email
messages directly from Scid!
</p>
<p>
To use the email manager:
<ul>
<li><b>1)</b> Create the game(s) for your opponent in the
database. </li>
<li><b>2)</b> In the email manager window, select <b>Add</b> and enter
your opponents details: name, email address, and the game numbers in the
database. </li>
<li><b>3)</b> Select <b>Send email</b> in the email window each time you
have added moves to the game(s) and want to send a message. </li>
</ul>

<p>
When you send an email message, Scid generates the message with the games
in PGN format <b>without</b> any comments, annotations or variations, since
you would not usually want your opponent to see your analysis.
You can edit the message before sending it to add conditional moves or
other text.
</p>
<p>
For each opponent, you may have any number of games; one or two is most
common. Note that Scid does not check if game numbers change, so after
setting up the details of your opponents, be careful to avoid deleting games
or sorting your database of email games, since this will rearrange games
and the game numbers for each opponent will be incorrect.
</p>

<h3>Limitations</h3>
<p>
Scid does not have any capability to check your email folder yet, so you
still need to add your opponents moves to the games manually.
</p>

<h3>Configuration</h3>
<p>
A copy of each email message sent by Scid is stored in the file
<b>~/.scid/scidmail.log</b>. If you want them to be stored
in a different file, you will need to edit the file <b>tcl/start.tcl</b>
and recompile Scid.
</p>
<p>
Scid can send email messages using an SMTP server or sendmail.
User the <b>Settings</b> button in the Email Manager to specify which
you want to use.
</p>
<p>
Scid stores the opponent details for a database in a file
with the same name as the database and the suffix "<b>.sem</b>".
</p>

<p><footer>(Updated: Scid 3.0, November 2001)</footer></p>
}

####################
### Opening Report help:

set helpTitle(OpReport) "Opening Reports"
set helpText(OpReport) {<h1>Opening Reports</h1>
<p>
Scid can produce an <term>opening report</term> that displays interesting
facts about an opening position. To generate an opening report, first make
sure the displayed position is the one you want a report for, then select
<b>Opening Report</b> from the <b>Tools</b> menu.
</p>
<p>
The <term>Opening Report</term> window displays the results of the report
Scid generated. The <b>File</b> menu has commands to save the report
to a file in plain text, HTML or <a LaTeX>LaTeX</a> format.
</p>
<p>
The first sections of the report present information on the games that
reach the report position, and moves played from the position. You can
see if the opening is becoming more popular, if it has many short draws,
and what move orders (transpositions) are used to reach it.
</p>
<p>
The final and largest part of the report is the theory table. When saving
the report to a file, you can choose to save just the theory table, a compact
report without the theory table, or the whole report.
</p>
<p>
Almost all the report sections can be turned on or off or adjusted in
the opening report options, so you can customize a report to only show
the information that interests you.
</p>
<p>
Most items of information in the report window that are shown in color,
invoke some action when selected with the left mouse button. For example,
you can click on a game reference to load that game, or click on a
positional theme to set the filter to contain only the report games where
that theme occurred.
</p>

<h3>Limits</h3>
<p>
There is a limit of 2000 games for most data generated by the report, so
if the report position occurs in more than 2000 games, some results may
be slightly incorrect.
</p>
<p>
Also, there is a limit of 500 games for the theory table. If the report
position occurs in more than 500 games, only the 500 games with the highest
average Elo rating are used to generate the theory table. You can adjust the
number of games used to generate the theory table in the Opening Report
options.
</p>

<h3>LaTeX preview</h3>
<p>
The <b>Preview Latex</b> button in the bottom left corner of the report
window (not available in Windows versions) saves the report as a
temporary LaTeX-format file, runs <b>latex</b> on it, and then
executes <b>xdvi</b> to display the results. This will <b>only</b> work if
you have latex, xdvi and all the necessary latex packages installed on
your computer; see the <a LaTeX>Using LaTeX with Scid</a> help page.
</p>

<p><footer>(Updated: Scid 3.1, December 2001)</footer></p>
}

####################
### Player Info help:

set helpTitle(PInfo) "Player Info window"
set helpText(PInfo) {<h1>The Player Info window</h1>
<p>
The <term>Player Information</term> window is produced or updated whenever
you click the left mouse button on a player name in the game information
area (below the chessboard) or in the <a Crosstable>crosstable</a> window.
</p>
<p>
It displays (hopefully) useful information about the player, including their
success with White and Black, favorite openings (by <a ECO>ECO code</a>),
and rating history.
</p>
<p>
All percentages displayed are an expected score (success rate), from the
player's perspective -- so higher is always better for the player, whether they
are White or Black.
</p>
<p>
You can see the player's rating history in a graph by pressing the
<a Graphs Rating>Rating graph</a> button.
</p>
<p>
Any number printed in red can be clicked with the left mouse button to set
the <a Searches Filter>filter</a> to the games it represents.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### Graphs help:

set helpTitle(Graphs) "Graph windows"
set helpText(Graphs) {<h1>Graph windows</h1>
<p>
Scid has a number of windows which display information graphically.
They are explained below.
</p>

<h3><name Rating>Rating Graph window</name></h3>
<p>
The <term>Rating Graph</term> window shows the rating history of one
player or the two players of the current game.
You can produce the graph for a single player by pressing the
<b>Rating graph</b> button in the <a PInfo>player information</a>
window, or produce it for the two players of the current game by
selecting <b>Rating graph</b> from the <menu>Tools</menu> menu.
</p>

<h3><name Score>Score Graph window</name></h3>
<p>
The <term>Score Graph</term> window shows the numeric evaluations (scores)
stored in the comments of the current game as a graph.
You can click the left mouse button anywhere in the score graph to go to the
corresponding position in the game.
</p>
<p>
Two types of evaluation comment are recognized: those produced by
the Scid <a Analysis>analysis</a> window (which have the format
<ul>
<li><b>1.e4 {"+0.25 ...."}</b></li>
</ul>
and are always scores from White's perspective) and those produced
by the Crafty annotate command (which have the format
<ul>
<li><b>1.e4 ({9:+0.25} ....)</b></li>
</ul>
and are also scores from White's perspective).
</p>

<h3><name Tree>Tree Graph window</name></h3>
<p>
The <term>Tree Graph</term> window is available from the tree
window. It shows the performance of the most popular moves from the
current position. More information is available from the
<a Tree Graph>Tree</a> help page.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### Tablebases help:

set helpTitle(TB) "Tablebases"
set helpText(TB) {<h1>Tablebases</h1>

<p>
A <term>tablebase</term> is a file containing the perfect result
information about all positions of a particular material setup,
such as King and Rook versus King and Pawn. Tablebases for all
material situations up to five men (including the Kings) have been
generated, and some simple 6-men tablebases are also available.
</p>
<p>
Scid can use Nalimov-format tablebases that are used by many modern
chess engines. These often end with the file suffix <b>.nbw.emd</b>
or <b>.nbb.emd</b>.
</p>

<h3>Using tablebases in Scid</h3>
<p>
To use tablebase files in Scid, simply set their directories by
selecting <b>Tablebase directory...</b> from the <menu>Options</menu> menu.
You can select up to 4 directories where your tablebase files are stored.
You can press a <b>...</b> button to the right of an entry to choose a
file, to specify that the directory of that file should be used.
</p>
<p>
When a position found in a tablebase file is reached, the game information
area (below the chessboard) will show tablebase information. You can
configure the amount of information shown by clicking the right-mouse
button in that area or selecting <b>Game information</b> from the
<menu>Options</menu> menu. Selecting the "result and best moves" option
gives the most useful information, but is much often slower than
the "result only" option.
</p>

<h3>The Tablebase window</h3>
<p>
You can get even more tablebase information about the current position
by opening the <term>Tablebase window</term> (<menu>Windows</menu> menu,
shortcut: Ctrl+Shift+=). This window shows the result with perfect play
of all legal moves from the current position.
</p>

<h3>Obtaining Tablebase files</h3>
<p>
See the <a Author Related>related links</a> section for help on finding
tablebase files on the Internet.
</p>

<p><footer>(Updated: Scid 3.2, February 2002)</footer></p>
}

####################
### Bookmarks help:

set helpTitle(Bookmarks) "Bookmarks"
set helpText(Bookmarks) {<h1>Bookmarks</h1>
<p>
Scid allows you to <term>bookmark</term> important games for easy
future reference. The bookmarks menu is available from the
<menu>File</menu> menu, the toolbar, or the <B>Ctrl+B</b> shortcut key.
</p>
<p>
When you select a bookmarked game from the Bookmarks menu, Scid will
open its database if necessary, find that game, and move to the game
position at which it was bookmarked.
</p>
<p>
Only games in a Scid format database (not a PGN file or the clipbase)
can be bookmarked.
</p>
<p>
If the database of a bookmarked game is sorted or compacted, the bookmark
details may become out of date. When that happens, Scid will search the
database for the best matching game (comparing player names, site, etc)
when the bookmark is selected, so the bookmarked game should still be
loaded. However, if details of the bookmarked game change, it is possible
that a different game will match the bookmark details better and be
loaded instead. So it is a good idea to re-bookmark a game if you edit
its players, site, result, round or year.
</p>

<h3>Editing bookmarks</h3>
<p>
With the bookmark editor, you can change the menu text displayed for
each bookmarked game and add folders to categorize bookmarks.
</p>

<h3>Hints</h3>
<p>
You can use bookmarks for fast access to databases you use often
by bookmarking a game from each database. Another good use for
bookmarks is to add important games you find when studying a
particular chess opening.
</p>
<p>
The bookmarks menu contains an entry for controlling the display of
bookmark folders: they can be shown as submenus (useful when there are
many bookmarks), or as a single list.
</p>

<p><footer>(Updated: Scid 3.0, November 2001)</footer></p>
}

####################
### Command-line options help:

set helpTitle(Cmdline) "Command-line options"
set helpText(Cmdline) {<h1>Command-line options</h1>
<p>
When you start Scid from a shell or console, there are command-line
options you can specify. Scid-format databases (with or without a
file suffix such as ".si3") and PGN files to be opened can be given,
for example:
<ul>
<li>scid mybase newgames.pgn</li>
</ul>
will start Scid and open the Scid database called mybase and the
PGN file named newgames.pgn.
</p>
<p>
There are also optional arguments to control which files Scid should
search for and use when it starts. You can turn off the use of
<a TB>tablebases</a> with the <b>-xtb</b> (or <b>-xt</b>) option,
avoid loading the <a ECO>ECO openings classification</a> file with
<b>-xeco</b> or <b>-xe</b>, and avoid loading the
<a Maintenance Spellcheck>spelling</a> file
with <b>-xspell</b> or <b>-xs</b>. Also, the option <b>-fast</b>
or <b>-f</b> does all three, so <b>scid -f</b> is equivalent
to <b>scid -xeco -xspell -xtb</b>.
</p>

<p><footer>(Updated: Scid 3.1, November 2001)</footer></p>
}

####################
### Pgnscid help:

set helpTitle(Pgnscid) "Pgnscid"
set helpText(Pgnscid) {<h1>Pgnscid</h1>
<p>
<term>Pgnscid</term> is the separate program that you need to use to
convert PGN (portable game notation) files into Scid databases.
</p>
<p>
To convert a file named <i>myfile.pgn</i>, simply type:
<ul>
<li> <b>pgnscid myfile.pgn</b> </li>
</ul>
and the scid database (consisting of <i>myfile.si3</i>, <i>myfile.sg3</i>
and <i>myfile.sn3</i>) will be created.
Any errors or warnings will be written to the file <i>myfile.err</i>.
</p>
<p>
If you want the database to be created in a different directory or have
a different name, you can add the database name to the command line,
for example:
<ul>
<li> <b>pgnscid myfile.pgn mybase</b> </li>
</ul>
will create a database consisting of the files <i>mybase.si3</i>,
<i>mybase.sg3</i> and <i>mybase.sn3</i>.
</p>
<p>
Note that pgnscid (and scid) can read Gzipped PGN files
(e.g. <b>mybase.pgn.gz</b>)
directly, so if you have a large PGN file compressed with Gzip to save
disk space, you do not have to un-gzip it first.
</p>

<h3>Options</h3>
<p>
There are two optional arguments pgnscid can accept before the filename:
<b>-f</b> and <b>-x</b>.
</p>
<p>
The <b>-f</b> option forces overwriting of an existing database; by
default, pgnscid will not convert to a database that already exists.
</p>
<p>
The <b>-x</b> option causes pgnscid to ignore all text between games.
By default, text between games is stored as a pre-game comment of the
game that follows. This option only affects text between games; standard
comments inside each game are still converted and stored.
</p>

<h3>Formatting player names</h3>
<p>
To reduce the number of multiple spellings of names that refer to the
same player, some basic formatting of player names is done by pgnscid.
For example, the number of spaces after each comma is standardized to one,
any spaces at the start and end of a name are removed, and a dot at the
end of a name is removed.
Dutch prefixes such as "van den" and "Van Der" are also normalized to have
a capital V and small d.
</p>
<p>
You can edit (and even spellcheck) player, event, site and round names in
Scid; see the <a Maintenance Editing>Maintenance</a> help page for details.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}


####################
### File formats help:

set helpTitle(Formats) "File Formats"
set helpText(Formats) {<h1>Scid File Formats</h1>
<p>
Scid databases consist of three essential files: an Index file, a Name
file and a Game file. All have a two-letter suffix starting with "s":
".si" for index files, ".sn" for name files, and ".sg" for game files.
</p>

<h3>The Index (.si) file</h3>
<p>
This file contains a description for the database and a small fixed-size
entry for each game. The current size is 41 bytes per game.
Of this, about 28 bytes is essential information such as the result,
date, player/event/site name ID numbers (the actual names are in the
Name file), etc.
</p>
<p>
The remaining 13 bytes contain redundant but useful information about the
game that is used to speed up position, material and pattern searches.
See the section <a Formats Fast>Fast searches</a> below for more information.
</p>

<h3>The Name (.sn) file</h3>
<p>
This file contains all player, event, site and round names used in the
database. Each name is stored only once even if it occurs in many games.
The name file is usually the smallest of the three essential files in a
database.
</p>

<h3>The Game (.sg) file</h3>
<p>
This file contains the actual moves, variations and comments of each game.
The move encoding format is very compact: most moves take only one byte
of storage.
</p>
<p>
When a game is replaced, its new version is saved to the <i>end</i> of
the game file, so wasted space can accumulate over time. You can restore
a database to its minimal size by <a Compact>compacting</a> it.
</p>

<h3>Other Scid files</h3>
<p>
An <a EPD>EPD</a> file (suffix: ".epd")
contains a number of chess positions, each with a text comment.
The EPD file format is described in the <a Author Related>PGN standard</a>.
</p>
<p>
An email (suffix: ".sem") file for a database stores details of the opponents
you send email messages to.
</p>
<p>
A SearchOptions (suffix: ".sso") file contains Scid
<a Searches Header>header</a> or
<a Searches Material>material/pattern</a> search settings.
</p>

<h3><name Fast>Fast searches in Scid</name></h3>
<p>
As mentioned above, the index file stores some redundant but useful
information about each game to speed up position or material searches.
</p>
<p>
For example, the material of the final position is stored. If you search
for rook and pawn endings, then all games that end with a queen, bishop
or knight on the board (and have no pawn promotions) will be quickly
skipped over.
</p>
<p>
Another useful piece of information stored is the order in which pawns
leave their home squares (by moving, or by being captured). This is used
to speed up tree or exact position searches, especially for opening
positions. For example, when searching for the starting position of the
French defence (1.e4 e6), every game starts with 1.e4 c5, or 1.d4, etc, will
be skipped, but games starting with 1.e4 e5 will still need to be searched.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### Options and Fonts help:

set helpTitle(Options) "Options"
set helpText(Options) {<h1>Options and preferences</h1>
<p>
Many Scid options and preferences (such as the board size, colors, fonts,
and default settings) are adjustable from the <menu>Options</menu> menu.
All these (and more, such as the last directory you loaded a database from
and the sizes of some windows) are saved to an options file when
you select <b>Save Options</b> from the Options menu.
The options file is loaded whenever you start Scid.
</p>
<p>
If you use Windows, the options file is <b>scid.opt</b> in the directory
where the Scid program file <b>scid.exe</b> is located. For users of Unix
operating systems (such as Solaris or Linux) the file
is <b>~/.scid/scidrc</b>.
</p>

<h3><name Fonts>Setting Fonts</name></h3>
<p>
Scid has three basic fonts it uses in most of its windows, and you can
customize all of them. They are called <b>regular</b>, <b>small</b> and
<b>fixed</b>.
</p>
<p>
The fixed font should be a fixed-width (not proportional) font. It is used
for the <a Tree>tree</a> and <a Crosstable>crosstable</a> windows.
</p>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}

####################
### NAG values help:

set helpTitle(NAGs) "NAG values"
set helpText(NAGs) {<h1>Standard NAG values</h1>
<p>
Standard NAG (Numeric Annotation Symbol) values defined in the
<a Author Related>PGN standard</a> are:
</p>
<cyan>
<ul>
<li>  1   Good move (!) </li>
<li>  2   Poor move (?) </li>
<li>  3   Excellent move (!!) </li>
<li>  4   Blunder (??) </li>
<li>  5   Interesting move (!?) </li>
<li>  6   Dubious move (?!) </li>
<li>  7   Forced move </li>
<li>  8   Singular move; no reasonable alternatives </li>
<li>  9   Worst move </li>
<li> 10   Drawish position (=) </li>
<li> 11   Equal chances, quiet position (=) </li>
<li> 12   Equal chances, active position (=) </li>
<li> 13   Unclear position (~) </li>
<li> 14   White has a slight advantage (+=) </li>
<li> 15   Black has a slight advantage (=+) </li>
<li> 16   White has a moderate advantage (+/-) </li>
<li> 17   Black has a moderate advantage (-/+) </li>
<li> 18   White has a decisive advantage (+-) </li>
<li> 19   Black has a decisive advantage (-+) </li>
<li> 20   White has a crushing advantage (+-) </li>
<li> 21   Black has a crushing advantage (-+) </li>
<li> 22   White is in zugzwang </li>
<li> 23   Black is in zugzwang </li>
<li> 24   White has a slight space advantage </li>
<li> 25   Black has a slight space advantage </li>
<li> 26   White has a moderate space advantage </li>
<li> 27   Black has a moderate space advantage </li>
<li> 28   White has a decisive space advantage </li>
<li> 29   Black has a decisive space advantage </li>
<li> 30   White has a slight time (development) advantage </li>
<li> 31   Black has a slight time (development) advantage </li>
<li> 32   White has a moderate time (development) advantage </li>
<li> 33   Black has a moderate time (development) advantage </li>
<li> 34   White has a decisive time (development) advantage </li>
<li> 35   Black has a decisive time (development) advantage </li>
<li> 36   White has the initiative </li>
<li> 37   Black has the initiative </li>
<li> 38   White has a lasting initiative </li>
<li> 39   Black has a lasting initiative </li>
<li> 40   White has the attack </li>
<li> 41   Black has the attack </li>
<li> 42   White has insufficient compensation for material deficit </li>
<li> 43   Black has insufficient compensation for material deficit </li>
<li> 44   White has sufficient compensation for material deficit </li>
<li> 45   Black has sufficient compensation for material deficit </li>
<li> 46   White has more than adequate compensation for material deficit </li>
<li> 47   Black has more than adequate compensation for material deficit </li>
<li> 48   White has a slight center control advantage </li>
<li> 49   Black has a slight center control advantage </li>
<li> 50   White has a moderate center control advantage </li>
<li> 51   Black has a moderate center control advantage </li>
<li> 52   White has a decisive center control advantage </li>
<li> 53   Black has a decisive center control advantage </li>
<li> 54   White has a slight kingside control advantage </li>
<li> 55   Black has a slight kingside control advantage </li>
<li> 56   White has a moderate kingside control advantage </li>
<li> 57   Black has a moderate kingside control advantage </li>
<li> 58   White has a decisive kingside control advantage </li>
<li> 59   Black has a decisive kingside control advantage </li>
<li> 60   White has a slight queenside control advantage </li>
<li> 61   Black has a slight queenside control advantage </li>
<li> 62   White has a moderate queenside control advantage </li>
<li> 63   Black has a moderate queenside control advantage </li>
<li> 64   White has a decisive queenside control advantage </li>
<li> 65   Black has a decisive queenside control advantage </li>
<li> 66   White has a vulnerable first rank </li>
<li> 67   Black has a vulnerable first rank </li>
<li> 68   White has a well protected first rank </li>
<li> 69   Black has a well protected first rank </li>
<li> 70   White has a poorly protected king </li>
<li> 71   Black has a poorly protected king </li>
<li> 72   White has a well protected king </li>
<li> 73   Black has a well protected king </li>
<li> 74   White has a poorly placed king </li>
<li> 75   Black has a poorly placed king </li>
<li> 76   White has a well placed king </li>
<li> 77   Black has a well placed king </li>
<li> 78   White has a very weak pawn structure </li>
<li> 79   Black has a very weak pawn structure </li>
<li> 80   White has a moderately weak pawn structure </li>
<li> 81   Black has a moderately weak pawn structure </li>
<li> 82   White has a moderately strong pawn structure </li>
<li> 83   Black has a moderately strong pawn structure </li>
<li> 84   White has a very strong pawn structure </li>
<li> 85   Black has a very strong pawn structure </li>
<li> 86   White has poor knight placement </li>
<li> 87   Black has poor knight placement </li>
<li> 88   White has good knight placement </li>
<li> 89   Black has good knight placement </li>
<li> 90   White has poor bishop placement </li>
<li> 91   Black has poor bishop placement </li>
<li> 92   White has good bishop placement </li>
<li> 93   Black has good bishop placement </li>
<li> 94   White has poor rook placement </li>
<li> 95   Black has poor rook placement </li>
<li> 96   White has good rook placement </li>
<li> 97   Black has good rook placement </li>
<li> 98   White has poor queen placement </li>
<li> 99   Black has poor queen placement </li>
<li>100   White has good queen placement </li>
<li>101   Black has good queen placement </li>
<li>102   White has poor piece coordination </li>
<li>103   Black has poor piece coordination </li>
<li>104   White has good piece coordination </li>
<li>105   Black has good piece coordination </li>
<li>106   White has played the opening very poorly </li>
<li>107   Black has played the opening very poorly </li>
<li>108   White has played the opening poorly </li>
<li>109   Black has played the opening poorly </li>
<li>110   White has played the opening well </li>
<li>111   Black has played the opening well </li>
<li>112   White has played the opening very well </li>
<li>113   Black has played the opening very well </li>
<li>114   White has played the middlegame very poorly </li>
<li>115   Black has played the middlegame very poorly </li>
<li>116   White has played the middlegame poorly </li>
<li>117   Black has played the middlegame poorly </li>
<li>118   White has played the middlegame well </li>
<li>119   Black has played the middlegame well </li>
<li>120   White has played the middlegame very well </li>
<li>121   Black has played the middlegame very well </li>
<li>122   White has played the ending very poorly </li>
<li>123   Black has played the ending very poorly </li>
<li>124   White has played the ending poorly </li>
<li>125   Black has played the ending poorly </li>
<li>126   White has played the ending well </li>
<li>127   Black has played the ending well </li>
<li>128   White has played the ending very well </li>
<li>129   Black has played the ending very well </li>
<li>130   White has slight counterplay </li>
<li>131   Black has slight counterplay </li>
<li>132   White has moderate counterplay </li>
<li>133   Black has moderate counterplay </li>
<li>134   White has decisive counterplay </li>
<li>135   Black has decisive counterplay </li>
<li>136   White has moderate time control pressure </li>
<li>137   Black has moderate time control pressure </li>
<li>138   White has severe time control pressure </li>
<li>139   Black has severe time control pressure </li>
</ul>
</cyan>

<p>
Other proposed NAG values for Chess Informant publication symbols include:
</p>
<cyan>
<ul>
<li>140   With the idea ... </li>
<li>141   Aimed against ... </li>
<li>142   Better move </li>
<li>143   Worse move </li>
<li>144   Equivalent move </li>
<li>145   Editor's Remark ("RR") </li>
<li>146   Novelty ("N") </li>
<li>147   Weak point </li>
<li>148   Endgame </li>
<li>149   Line </li>
<li>150   Diagonal </li>
<li>151   White has a pair of Bishops </li>
<li>152   Black has a pair of Bishops </li>
<li>153   Bishops of opposite color </li>
<li>154   Bishops of same color </li>
</ul>
</cyan>

<p>
Other suggested values are:
</p>
<cyan>
<ul>
<li>190   Etc. </li>
<li>191   Doubled pawns </li>
<li>192   Isolated pawn </li>
<li>193   Connected pawns </li>
<li>194   Hanging pawns </li>
<li>195   Backwards pawn </li>
</ul>
</cyan>

<p>
Symbols defined by Scid for its own use are:
</p>
<cyan>
<ul>
<li>201   Diagram ("D", sometimes denoted "#") </li>
</ul>
</cyan>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}


set helpTitle(ECO) "ECO guide"
set helpText(ECO) {<h1>ECO openings classification</h1>
<p>
Scid can classify chess games according to the <b>ECO</b>
(Encyclopedia of Chess Openings) chess openings classification.
An standard ECO code consists of a letter (A..E) followed by two
digits, so there are 500 distinct standard ECO codes.
</p>

<h3>Scid extensions to the ECO system</h3>
<p>
The ECO system is very limited and not sufficient for modern games:
some of the 500 codes are almost never seen any more, while some
are seen very often. To improve this situation, Scid allows an optional
extension to the basic ECO codes: each code can be extended with a
letter (a..z), with a further extension (another digit, 1..4) being
possible but not used in the standard Scid ECO file yet.
So an extended Scid ECO code looks like "<b>A41e</b>" or "<b>E99b2</b>".
Many of the most common ECO codes found in modern master-level games have
extensions defined in the Scid ECO file.
</p>

<h3><name Browser>The ECO Browser window</name></h3>
<p>
The <term>ECO Browser</term> window shows you the positions that are
used to classify each ECO code, and the frequency and performance of
ECO codes in the current database.
</p>
<p>
The upper pane shows the frequency of each ECO code in the current
database. The bars in the graph have three sections: the lowest
(lightest color) is the number of White wins, the middle is the
number of draws, and the highest (darkest) is the number of Black wins.
This lets you see at a glance the characteristics of an opening: for
example, if White is scoring very well, or if draws are very common.
</p>
<p>
To go to a deeper ECO level, click the left mouse button
on a bar in the graph (or type the
letter or digit it corresponds to). To go back to the higher level,
click the right mouse button anywhere in the graph, or press the left
arrow (or delete or backspace) key.
</p>
<p>
The lower pane shows the positions that comprise a particular ECO code,
according to the ECO file you have loaded.
</p>

<h3>Loading the Scid ECO file</h3>
<p>
The ECO file that comes with Scid is called <b>scid.eco</b>,
and Scid tries to load this when it starts up.
If Scid cannot find it, you will need to do the following to enable ECO
classification:
<ul>
<li>(a) In Scid, use the menu command
        <menu>Options: Load ECO file</menu>
        and select the file <b>scid.eco</b>. </li>
<li>(b) Save options (from the <menu>Options</menu> menu). </li>
</ul>
After you do this, the ECO file will be loaded every time you start Scid.
</p>

<h3>ECO code system</h3>
<p>
The basic structure of the ECO system is:
</p>
<p>
<b><blue><run updateEcoWin A>A</run></blue></b>
   1.d4 Nf6 2...;  1.d4 ...;  1.c4;  1.various
<ul>
<li>  <b>A0</b>  1.<i>various</i>
      (<b>A02-A03</b> 1.f4: <i>Bird's Opening</i>,
      <b>A04-A09</b>  1.Nf3: <i>Reti, King's Indian Attack</i>) </li>
<li>  <b>A1</b>  1.c4 ...: <i>English</i> </li>
<li>  <b>A2</b>  1.c4 e5: <i>King's English</i> </li>
<li>  <b>A3</b>  1.c4 c5: <i>English, Symmetrical </i> </li>
<li>  <b>A4</b>  1.d4 ...: <i>Queen's Pawn</i> </li>
<li>  <b>A5</b>  1.d4 Nf6 2.c4 ..: <i>Indian Defence </i> </li>
<li>  <b>A6</b>  1.d4 Nf6 2.c4 c5 3.d5 e6: <i>Modern Benoni</i> </li>
<li>  <b>A7</b>  A6 + 4.Nc3 exd5 5.cxd5 d6 6.e4 g6 7.Nf3 </li>
<li>  <b>A8</b>  1.d4 f5: <i>Dutch Defence</i> </li>
<li>  <b>A9</b>  1.d4 f5 2.c4 e6: <i>Dutch Defence</i> </li>
</ul>

<p>
<b><blue><run updateEcoWin B>B</run></blue></b>
   1.e4 c5;  1.e4 c6;  1.e4 d6;  1.e4 <i>various</i>
<ul>
<li>  <b>B0</b>  1.e4 ...
      (<b>B02-B05</b>  1.e4 Nf6: <i>Alekhine Defence</i>;
      <b>B07-B09</b>  1.e4 d6: <i>Pirc</i>) </li>
<li>  <b>B1</b>  1.e4 c6: <i>Caro-Kann</i> </li>
<li>  <b>B2</b>  1.e4 c5: <i>Sicilian Defence </i> </li>
<li>  <b>B3</b>  1.e4 c5 2.Nf3 Nc6: <i>Sicilian</i> </li>
<li>  <b>B4</b>  1.e4 c5 2.Nf3 e6: <i>Sicilian</i> </li>
<li>  <b>B5</b>  1.e4 c5 2.Nf3 d6: <i>Sicilian</i> </li>
<li>  <b>B6</b>  B5 + 3.d4 cxd4 4.Nxd4 Nf6 5.Nc3 Nc6 </li>
<li>  <b>B7</b>  B5 + 4.Nxd4 Nf6 5.Nc3 g6: <i>Sicilian Dragon</i> </li>
<li>  <b>B8</b>  B5 + 4.Nxd4 Nf6 5.Nc3 e6: <i>Sicilian Scheveningen</i> </li>
<li>  <b>B9</b>  B5 + 4.Nxd4 Nf6 5.Nc3 a6: <i>Sicilian Najdorf</i> </li>
</ul>

<p>
<b><blue><run updateEcoWin C>C</run></blue></b>
   1.e4 e5;  1.e4 e6
<ul>
<li>  <b>C0</b>  1.e4 e6: <i>French Defence</i> </li>
<li>  <b>C1</b>  1.e4 e6 2.d4 d5 3.Nc3: <i>French, Winawer/Classical</i> </li>
<li>  <b>C2</b>  1.e4 e5: <i>Open Game</i> </li>
<li>  <b>C3</b>  1.e4 e5 2.f4: <i>King's Gambit</i> </li>
<li>  <b>C4</b>  1.e4 e5 2.Nf3: <i>Open Game</i> </li>
<li>  <b>C5</b>  1.e4 e5 2.Nf3 Nc6 3.Bc4: <i>Italian; Two Knights</i> </li>
<li>  <b>C6</b>  1.e4 e5 2.Nf3 Nc6 3.Bb5: <i>Spanish (Ruy Lopez)</i> </li>
<li>  <b>C7</b>  1.e4 e5 2.Nf3 Nc6 3.Bb5 a6 4.Ba4: <i>Spanish</i> </li>
<li>  <b>C8</b>  C7 + 4...Nf6 5.O-O: <i>Spanish, Closed and Open</i>
      (<b>C80-C83</b>  5.O-O Nxe4: <i>Spanish, Open System</i>;
      <b>C84-C89</b>  5.O-O Be7: <i>Spanish, Closed System</i>) </li>
<li>  <b>C9</b>  C8 + 5...Be7 6.Re1 b5 7.Bb3 d6: <i>Spanish, Closed</i> </li>
</ul>

<p>
<b><blue><run updateEcoWin D>D</run></blue></b>
   1.d4 d5; 1.d4 Nf6 2.c4 g6 with 3...d5
<ul>
<li>  <b>D0</b>   1.d4 d5: <i>Queen's Pawn</i> </li>
<li>  <b>D1</b>   1.d4 d5 2.c4 c6: <i>Slav Defence</i> </li>
<li>  <b>D2</b>  1.d4 d5 2.c4 dxc4: <i>Queen's Gambit Accepted (QGA)</i> </li>
<li>  <b>D3</b>  1.d4 d5 2.c4 e6: <i>Queen's Gambit Declined (QGD)</i> </li>
<li>  <b>D4</b>  D3 + 3.Nc3 Nf6 4.Nf3 c5/c6: <i>Semi-Tarrasch; Semi-Slav</i> </li>
<li>  <b>D5</b>  D3 + 3.Nc3 Nf6 4.Bg5: <i>QGD Classical</i> </li>
<li>  <b>D6</b>  D5 + 4...Be7 5.e3 O-O 6.Nf3 Nbd7: <i>QGD Orthodox</i> </li>
<li>  <b>D7</b>  1.d4 Nf6 2.c4 g6 with 3...d5: <i>Grunfeld</i> </li>
<li>  <b>D8</b>  1.d4 Nf6 2.c4 g6 3.Nc3 d5: <i>Grunfeld</i> </li>
<li>  <b>D9</b>  1.d4 Nf6 2.c4 g6 3.Nc3 d5 4.Nf3: <i>Grunfeld</i> </li>
</ul>

<p>
<b><blue><run updateEcoWin E>E</run></blue></b>
   1.d4 Nf6 2.c4 e6; 1.d4 Nf6 2.c4 g6 </li>
<ul>
<li>  <b>E0</b>  1.d4 Nf6 2.c4 e6: <i>Catalan, etc</i> </li>
<li>  <b>E1</b>  1.d4 Nf6 2.c4 e6 3.Nf3 (b6): <i>Queen's Indian, etc</i> </li>
<li>  <b>E2</b>  1.d4 Nf6 2.c4 e6 3.Nc3 (Bb4): <i>Nimzo-Indian, etc</i> </li>
<li>  <b>E3</b>  E2 + 4.Bg5 or 4.Qc2: <i>Nimzo-Indian</i> </li>
<li>  <b>E4</b>  E2 + 4.e3: <i>Nimzo-Indian, Rubinstein</i> </li>
<li>  <b>E5</b>  E4 + 4...O-O 5.Nf3: <i>Nimzo-Indian, main line</i> </li>
<li>  <b>E6</b>  1.d4 Nf6 2.c4 g6: <i>King's Indian</i> </li>
<li>  <b>E7</b>  1.d4 Nf6 2.c4 g6 3.Nc3 Bg7 4.e4: <i>King's Indian</i> </li>
<li>  <b>E8</b>  E7 + 4...d6 5.f3: <i>King's Indian, Samisch</i> </li>
<li>  <b>E9</b>  E7 + 4...d6 5.Nf3: <i>King's Indian, main lines</i> </li>
</ul>

<p><footer>(Updated: Scid 2.5, June 2001)</footer></p>
}


set helpTitle(Author) "Contact information"
set helpText(Author) {<h1>Contact Information</h1>
<p>
The Scid web page is located at: <br>
<b><url http://scid.sourceforge.net/>http://scid.sourceforge.net/</url></b>
</p>
<p>
It has downloads of the latest version of Scid and any extra
files that are available.
</p>
<p>
Please send any comments, questions, suggestions or bug reports to the
author of Scid, Shane Hudson, at the email address:<br>
<b>shane@cosc.canterbury.ac.nz</b>
</p>

<h3><name Related>Related Links</name></h3>
<p>
If you enjoy using Scid, you may find the following websites interesting:
</p>
<ul>
<li><url http://www.tim-mann.org/chess.html>http://www.tim_mann.org/chess.html</url> --
Home page of Tim Mann's <b>xboard & winboard</b> program which is a PGN
reader and an interface for Internet chess servers. His site also has
good information on Crafty, GNUchess and other free chess programs.</li>

<li><url ftp://ftp.cis.uab.edu/pub/hyatt/>ftp://ftp.cis.uab.edu/pub/hyatt/</url> --
the strong chess-playing program Crafty.
The subdirectory there named <b>TB</b> has many Nalimov-format tablebase
files that you can use in several chess programs and in Scid.</li>

<li><url http://www.chesscenter.com/twic/>http://www.chesscenter.com/twic/</url> --
TWIC (the week in chess), an excellent weekly bulletin of international
chess games in available in PGN format.</li>

<li><url http://scid.sourceforge.net/doc/standard.txt>http://scid.sourceforge.net/doc/standard.txt</url> --
the <b>PGN Standard</b>, created by Steven J. Edwards in 1994.
This text file explains the PGN and EPD formats in detail.</li>
</ul>

<p><footer>(Updated: Scid 2.6, August 2001)</footer></p>
}


namespace eval ::tip {}

proc ::tip::show {{n -1}} {
  global tips language
  set w .tipsWin

  if {! [winfo exists .tipsWin]} {
    toplevel $w
    wm title $w "Scid: [tr HelpTip]"
    pack [frame $w.b] -side bottom -fill x
    text $w.text -background gray95 -foreground black \
      -cursor top_left_arrow -width 40 -height 8 -setgrid 1 \
      -yscrollcommand "$w.ybar set" -wrap word
    ::htext::init $w.text
    scrollbar $w.ybar -command "$w.text yview"
    pack $w.ybar -side right -fill y
    pack $w.text -side left -fill both -expand 1
    checkbutton $w.b.start -textvar ::tr(TipAtStartup) -font font_Small \
      -variable startup(tip)
    button $w.b.prev -text "<" -font font_Small
    button $w.b.next -text ">" -font font_Small
    button $w.b.close -textvar ::tr(Close) -font font_Small \
      -command "destroy $w"
    pack $w.b.start -side left -padx 2
    pack $w.b.close $w.b.next $w.b.prev -side right -padx 2

    bind $w <Up> "$w.text yview scroll -1 units"
    bind $w <Down> "$w.text yview scroll 1 units"
    bind $w <Prior> "$w.text yview scroll -1 pages"
    bind $w <Next> "$w.text yview scroll 1 pages"
    bind $w <Key-Home> "$w.text yview moveto 0"
    bind $w <Key-End> "$w.text yview moveto 0.99"
    bind $w <Escape> "$w.b.close invoke"
    centreWin $w
    raiseWin $w
    focus $w
  }
  $w.text configure -state normal
  $w.text delete 1.0 end
  if {[info exists tips($language)]} {
    set tiplist $tips($language)
  } else {
    set tiplist $tips(E)
  }

  set ntips [llength $tiplist]
  if {$n < 0} {
    set n [expr int(double($ntips) * rand())]
  }
  set prev [expr $n - 1]
  if {$prev < 0} {set prev [expr $ntips - 1]}
  set next [expr ($n + 1) % $ntips]
  $w.b.prev configure -command "::tip::show $prev"
  $w.b.next configure -command "::tip::show $next"
  set tip "<center><b>$::tr(Tip) [expr $n + 1]:</b></center><br><br>"
  append tip [string trim [lindex $tiplist $n]]
  if {$::hasEncoding  &&  $::langEncoding($language) != ""} {
    # Convert tip charset, e.g. from is08859-2 coding:
    catch {set tip [encoding convertfrom $::langEncoding($language) $tip]}
  }
  ::htext::display $w.text $tip "" 0
}

set tips(E) {
  {
    Scid has over 30 <a Index>help pages</a>, and in most Scid windows
    pressing the <b>F1</b> key will produce the help page about that
    window.
  }
  {
    Some Scid windows (e.g. the game information area, database
    <a Switcher>switcher</a>) have a right-mouse button menu. Try
    pressing the right mouse button in each window to see if it has
    one and what functions are available.
  }
  {
    Scid offers you more than one way to enter chess moves, letting
    you choose which suits you best. You can use the mouse
    (with or without move suggestion) or the keyboard
    (with or without move completion). Read the
    <a Moves>entering chess moves</a> help page for details.
  }
  {
    If you have a few databases that you open often, add a
    <a Bookmarks>bookmark</a> for each one, and then you will be able
    to open them faster using the bookmarks menu.
  }
  {
    You can see all the moves of the current game
    (with any variations and comments) using the <a PGN>PGN window</a>.
    In the PGN window, you can go to any move by clicking
    the left mouse button on it, or use the middle or right mouse button
    to see a preview of that position.
  }
  {
    You can copy games from one database to another using drag and drop
    with the left mouse button in the <a Switcher>database switcher</a> window.
  }
  {
    Scid can open PGN files, even if they are compressed with Gzip
    (with a .gz filename suffix). PGN files are opened read-only, so
    if you want to edit a PGN file in Scid, create a new Scid database
    and copy the PGN file games to it using the
    <a Switcher>database switcher</a>.
  }
  {
    If you have a large database you use with the <a Tree>tree</a> window
    often, it is worth selecting <b>Fill cache file</b> from the tree
    window File menu. This will remember tree statistics for many common
    opening positions, making tree access faster for the database.
  }
  {
    The <a Tree>tree</a> window can show you all moves played from the
    current position, but if you also want to see all the move orders
    that reached this position, you can find them by generating
    an <a OpReport>opening report</a>.
  }
  {
    In the <a GameList>game list</a> window, press the left or right mouse
    button on the heading of each column to adjust its width.
  }
  {
    With the <a PInfo>player information</a> window (just click on either
    player name in the game info area below the main window chessboard
    to open it), you can easily set the <a Searches Filter>filter</a> to
    contain all games by a certain player with a certain result by
    clicking on any value that is displayed <red>in red text</red>.
  }
  {
    When studying an opening, it can be very useful to do a
    <a Searches Board>board search</a> with the <b>Pawns</b> or
    <b>Files</b> option on an important opening position, as this may
    reveal other openings that reach the same pawn structure.
  }
  {
    In the game information area (below the chessboard), you can press
    the right mouse button to produce a menu for customising it. For
    example, you can make Scid hide the next move which is useful for
    training by playing though a game guessing the moves.
  }
  {
    If you often do a lot of database <a Maintenance>maintenance</a> on
    a large database, you can do several maintenance jobs at once using
    the <a Maintenance Cleaner>cleaner</a>.
  }
  {
    If you have a large database where most games have an EventDate and
    you want the games in date order, consider <a Sorting>sorting</a> it
    by EventDate then Event instead of Date then Event, as this will
    help to keep games in the same tournament with different dates
    together (assuming they all have the same EventDate, of course).
  }
  {
    Before <a Maintenance Twins>deleting twin games</a>, it is a good idea
    to <a Maintenance Spellcheck>spellcheck</a> your database since this
    will enable to Scid find more twins and mark them for deletion.
  }
  {
    <a Flags>Flags</a> are useful for marking database games with
    characteristics you may want to search for at a later time, such
    as pawn structure, tactics, etc. You can search by flags with a
    <a Searches Header>header search</a>.
  }
  {
    If you are playing through a game and want to try out some moves
    without altering the game, simply turn on Trial mode (with the
    <b>Ctrl+space</b> shortcut or from the toolbar icon), then turn it off
    again to return to the original game when you are done.
  }
  {
    To find the most prominent games (with high-rated opponents)
    reaching a particular position, open the <a Tree>tree</a> window
    and from there, open the best games list. You can even restrict
    the best games list to show only games with a particular result.
  }
  {
    A great way to study an opening using a large database of games is
    to turn on training mode in the <a Tree>tree</a> window, then play
    against the database to see which lines occur often.
  }
  {
    If you have two databases open, and want to see <a Tree>tree</a>
    statistics of the first database while examining a game from the
    second database, just press the <b>Lock</b> button in the tree
    window to lock it to the first database and then switch to the
    second base.
  }
  {
    The <a Tmt>tournament finder</a> is not only useful for finding
    a particular tournament, but can also be used to see what tournaments
    a certain player has competed in recently or browse the top
    tournaments played in a particular country.
  }
  {
    There are a number of common patterns defined in the
    <a Searches Material>Material/Pattern</a> search window that you
    may find useful for openings or middlegame study.
  }
  {
    When searching for a particular material situation in the
    <a Searches Material>Material/Pattern</a> search window, it is
    often useful to restrict the search to games that match for at
    least a few half-moves to eliminate games where the searched-for
    situation only occurred briefly.
  }
  {
    If you have an important database you do not want to accidentally
    alter, select <b>Read-only...</b> from the <b>File</b> menu after
    opening it, or change its file permissions to be read-only.
  }
  {
    If you use XBoard or WinBoard (or some other chess program that
    can copy a chess position in standard FEN notation to the clipboard)
    and want to copy its current chess position to Scid, the fastest and
    easiest way is to select <b>Copy Position</b> from the File menu in
    XBoard/WinBoard, then <b>Paste start board</b> from the Edit menu
    in Scid.
  }
  {
    In a <a Searches Header>header search</a>, player/event/site/round
    names are case-insensitive and match anywhere in a name. You can choose
    to do a case-sensitive wildcard search instead
    (where "?" = any single character and "*" = zero or more characters)
    by entering the search text "in quotes". For example, type "*BEL"
    (with the quote characters) in the site field to find all games played
    in Belgium but not Belgrade.
  }
  {
    If you want to correct a move in a game without losing all the moves
    played after it, open the <a Import>Import</a> window, press the
    <b>Paste current game</b> button, edit the incorrect move and then
    press <b>Import</b>.
  }
  {
    If you have an ECO classification file loaded, you can go to the
    deepest classified position in the current game with
    <b>Identify opening</b> in the <b>Game</b> menu
    (shortcut: Ctrl+Shift+D).
  }
  {
    If you want to check the size of a file or its date of last modification
    before opening it, use the <a Finder>file finder</a> to open it.
  }
  {
    A <a Repertoire>repertoire</a> file is a great way to keep track of
    your favourite opening lines, and also find games where those lines
    were played. Once you have your openings stored in a repertoire file,
    you can do a repertoire search every time you get a new file of
    games and browse the games that feature your favourite openings.
  }
  {
    An <a OpReport>opening report</a> is great for learning more about
    a particular position. You can see how well it scores, whether it
    leads to frequent short draws, and common positional themes.
  }
  {
    You can add the most common annotation symbols (!, !?, +=, etc) to the
    current move or position with keyboard shortcuts without needing to
    use the <a Comment>comment editor<a> -- for example, type "!" then
    the Return key to add a "!" annotation symbol. See the
    <a Moves>Entering chess moves</a> help page for details.
  }
  {
    If you are browsing openings in a database with the <a Tree>tree</a>,
    you can see a useful overview of how well the current opening is
    scoring recently and between high-rated players by opening the
    Statistics window (shortcut: Ctrl+I).
  }
  {
    You can change the main window board size by holding down the <b>Ctrl</b>
    and <b>Shift</b> keys, and pressing the <b>Left</b> or <b>Right</b>
    arrow key.
  }
  {
    After a <a Searches>search</a>, you can easily browse through all
    the matching games by holding down <b>Ctrl</b> and pressing the
    <b>Up</b> or <b>Down</b> key to load the previous or next
    <a Searches Filter>filter</a> game.
  }
}
###
### misc.tcl: part of Scid.
### Copyright (C) 2001  Shane Hudson.
###
### Miscellaneous routines called by other Tcl functions

namespace eval ::date {}

# ::date::today:
#   Returns todays date, in "yyyy.mm.dd" format.
#   The optional parameter "year", "month" or "day" can be used to
#   limit the returned value to just the year, month or day.
#
proc ::date::today {{type all}} {
  set timeNow [clock seconds]
  set year [clock format $timeNow -format "%Y"]
  set month [clock format $timeNow -format "%m"]
  set day [clock format $timeNow -format "%d"]
  switch -- $type {
    "all"   { return [format "%s.%s.%s" $year $month $day] }
    "year"  { return $year }
    "month" { return $month }
    "day"   { return $day }
    default { error "Unrecognised parameter: $type" }
  }
}

image create photo calendar -data {
R0lGODdhFgAUAMIAANnZ2VFR+wAAAP////oTQP//AAAAAAAAACwAAAAAFgAUAAADTwi63A4h
yklrVAFruDO0lCCO5NMIw4CqqWAya9ySdG3LbI7He+vrsxthSLiJfitCoUBAzpwDJRNqFBCL
RqpW1QN6q+DRdrfomsvh2mvtSAAAOw==
}

#::date::chooser:
#   Produce a date-selection dialog box.
#   Originally based on code from Effective Tcl/Tk Programming by
#   Mark Harrison, but with lots of changes and improvements.
#
proc ::date::chooser {{date "now"}} {
  set time [clock seconds]
  if {$date != "now"} {
    catch {set time [clock scan $date]}
  }
  set ::date::_time $time
  set ::date::_selected [clock format $time -format "%Y-%m-%d"]

  set win .dateChooser
  toplevel $win
  canvas $win.cal -width 300 -height 220
  pack [frame $win.b] -side bottom -fill x
  button $win.b.ok -text "OK" -command "destroy $win"
  button $win.b.cancel -text $::tr(Cancel) -command "
    set ::date::_selected {}
    destroy $win"
  pack $win.b.cancel $win.b.ok -side right -padx 5 -pady 5
  pack $win.cal -side top -expand yes -fill both

  button $win.cal.prevY -image tb_start -command "::date::_month $win -12"
  button $win.cal.prev -image tb_prev -command "::date::_month $win -1"
  button $win.cal.next -image tb_next -command "::date::_month $win +1"
  button $win.cal.nextY -image tb_end -command "::date::_month $win +12"
  bind $win.cal <Configure> "::date::_redraw $win"
  bind $win.cal <Double-Button-1> "destroy $win"
  bind $win <Escape> "$win.b.cancel invoke"
  bind $win <Return> "$win.b.ok invoke"
  bind $win <Prior> "$win.cal.prev invoke"
  bind $win <Next> "$win.cal.next invoke"
  bind $win <Shift-Prior> "$win.cal.prevY invoke"
  bind $win <Shift-Next> "$win.cal.nextY invoke"
  bind $win <Up> "::date::_day $win -7"
  bind $win <Down> "::date::_day $win +7"
  bind $win <Left> "::date::_day $win -1"
  bind $win <Right> "::date::_day $win +1"

  wm minsize $win 250 200
  wm title $win "Scid: Choose Date"
  focus $win
  grab $win
  tkwait window $win
  if {$::date::_selected == ""} { return {} }
  set time [clock scan $::date::_selected]
  return [list \
          [clock format $time -format "%Y"] \
          [clock format $time -format "%m"] \
          [clock format $time -format "%d"] \
         ]
}

proc ::date::_day {win delta} {
  set unit "day"
  if {$delta < 0} {set unit "day ago"}
  set time [clock scan "[expr abs($delta)] $unit" -base $::date::_time]
  set day [string trimleft [clock format $time -format "%d"] 0]
  set month [string trimleft [clock format $time -format "%m"] 0]
  set year [clock format $time -format "%Y"]
  ::date::_select $win "$year-$month-$day"
}

proc ::date::_month {win delta} {
  set dir [expr ($delta > 0) ? 1 : -1]
  set day [string trimleft [clock format $::date::_time -format "%d"] 0]
  set month [string trimleft [clock format $::date::_time -format "%m"] 0]
  set year [clock format $::date::_time -format "%Y"]

  for {set i 0} {$i < abs($delta)} {incr i} {
    incr month $dir
    if {$month < 1} {
      set month 12
      incr year -1
    } elseif {$month > 12} {
      set month 1
      incr year 1
    }
  }
  if {[catch {::date::_select $win "$year-$month-$day"}]} {
    ::date::_select $win "$year-$month-28"
  }
}

proc ::date::_redraw {win} {
  $win.cal delete all
  set time $::date::_time
  set wmax [winfo width $win.cal]
  set hmax [winfo height $win.cal]

  $win.cal create window 3 3 -anchor nw -window $win.cal.prevY
  $win.cal create window 40 3 -anchor nw -window $win.cal.prev
  $win.cal create window [expr $wmax-43] 3 -anchor ne -window $win.cal.next
  $win.cal create window [expr $wmax-3] 3 -anchor ne -window $win.cal.nextY
  set bottom [lindex [$win.cal bbox all] 3]

  set month [string trimleft [clock format $time -format "%m"] 0]
  set year [clock format $time -format "%Y"]
  $win.cal create text [expr $wmax/2] $bottom -anchor s -font font_Bold \
    -text "[lindex $::tr(Months) [expr $month - 1]] $year"

  incr bottom 3
  $win.cal create line 0 $bottom $wmax $bottom -width 2
  incr bottom 25

  set current ""

  set layout [::date::_layout $time]
  set weeks [expr [lindex $layout end]+1]

  for {set day 0} {$day < 7} {incr day} {
    set x0 [expr $day*($wmax-7)/7+3]
    set x1 [expr ($day+1)*($wmax-7)/7+3]
    $win.cal create text [expr ($x1+$x0)/2] $bottom -anchor s \
      -text [lindex $::tr(Days) $day] -font font_Small
  }
  incr bottom 3

  foreach {day date dcol wrow} $layout {
    set x0 [expr $dcol*($wmax-7)/7+3]
    set y0 [expr $wrow*($hmax-$bottom-4)/$weeks+$bottom]
    set x1 [expr ($dcol+1)*($wmax-7)/7+3]
    set y1 [expr ($wrow+1)*($hmax-$bottom-4)/$weeks+$bottom]

    if {$date == $::date::_selected} {set current $date}

    $win.cal create rectangle $x0 $y0 $x1 $y1 -outline black -fill white

    $win.cal create text [expr $x0+4] [expr $y0+2] -anchor nw -text "$day" \
      -fill black -font font_Small -tags [list $date-text all-text]

    $win.cal create rectangle $x0 $y0 $x1 $y1 \
      -outline "" -fill "" -tags [list $date-sensor all-sensor]

    $win.cal bind $date-sensor <ButtonPress-1> "::date::_select $win $date"
  }

  if {$current != ""} {
    $win.cal itemconfigure $current-sensor -outline red -width 3
    $win.cal raise $current-sensor
  } elseif {$::date::_selected == ""} {
    set date [clock format $time -format "%Y-%m-%d"]
    ::date::_select $win $date
  }
}

proc ::date::_layout {time} {
  set month [string trimleft [clock format $time -format "%m"] 0]
  set year  [clock format $time -format "%Y"]

  foreach lastday {31 30 29 28} {
    if {[catch {clock scan "$year-$month-$lastday"}] == 0} { break }
  }
  set seconds [clock scan "$year-$month-1"]
  set firstday [clock format $seconds -format %w]
  set weeks [expr ceil(double($lastday+$firstday)/7)]

  set rlist ""
  for {set day 1} {$day <= $lastday} {incr day} {
    set seconds [clock scan "$year-$month-$day"]
    set date [clock format $seconds -format "%Y-%m-%d"]
    set daycol [clock format $seconds -format %w]
    set weekrow [expr ($firstday+$day-1)/7]
    lappend rlist $day $date $daycol $weekrow
  }
  return $rlist
}

proc ::date::_select {win date} {
  set time [clock scan $date]
  set date [clock format $time -format "%Y-%m-%d"]

  set currentMonth [clock format $::date::_time -format "%m %Y"]
  set selectedMonth [clock format $time -format "%m %Y"]
  set ::date::_time $time
  set ::date::_selected $date

  if {$currentMonth == $selectedMonth} {
    $win.cal itemconfigure all-sensor -outline "" -width 1
    $win.cal itemconfigure $date-sensor -outline red -width 3
    $win.cal raise $date-sensor
  } else {
    ::date::_redraw $win
  }
}


# centreWin:
#   Centers a window on the screen.
#
proc centreWin {w} {
  wm withdraw $w
  update idletasks
  set x [expr {[winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \
                 - [winfo vrootx .]}]
  set y [expr {[winfo screenheight $w]/2 - [winfo reqheight $w]/2 \
                 - [winfo vrooty .]}]
  wm geom $w +$x+$y
  wm deiconify $w
}

# plural:
#   Returns "s" if the number is > 1, "" otherwise.
#   Useful for printing values, e.g. "$value game[plural $value]"
#   will yield "1 game" or "2 games".
#
proc plural {n} {
  if {$n == 1} { return "" }
  return "s"
}

# thousands, percentFormat:
#   Functions to format integer numbers.
#   thousands inserts the thousands separator (usually "," or ".") for
#   every three digits before the decimal separator in the number.
#   percentFormat does the same as thousands, but also adds a percentage.
#   If "kilo" is nonzero, numbers >= $kilo are divided by 100 and have
#   the unit "K" appended.
#
proc thousands {n {kilo 0}} {
  global locale
  set commaChar [string index $locale(numeric) 1]
  set unit ""
  if {$kilo > 0  &&  $n >= $kilo} {
    set unit "K"
    set n [expr int($n / 1000)]
  }
  if {$commaChar == ""} { return "$n$unit" }
  while {[regsub {^([-+]?[0-9]+)([0-9][0-9][0-9])} $n "\\1$commaChar\\2" n]} {}
  return "$n$unit"
}

proc percentFormat {num denom} {
  # Ensure denominator is not zero:
  if {$denom == 0} {set denom 1}
  return "[thousands $num] ([expr $num * 100 / $denom]%)"
}

# pad:
#   Given a string and a length, pads the string with padChar to have
#   the required length.
#
proc pad {str length {padChar " "}} {
  set s $str
  for {set actual [string length $s]} {$actual < $length} {incr actual} {
    append s $padChar
  }
  return $s
}

# padR:
#   Like pad, but adds the padding characters to the start of the string.
#
proc padR {str length {padChar " "}} {
  set s $str
  for {set actual [string length $s]} {$actual < $length} {incr actual} {
    set s "$padChar$s"
  }
  return $s
}

# padC:
#   Like pad and padR, but centers the specified string.
#
proc padC {str length {padChar " "}} {
  set pre 1
  set s $str
  for {set actual [string length $s]} {$actual < $length} {incr actual} {
    if {$pre} {
      set s "$padChar$s"
      set pre 0
    } else {
      append s $padChar
      set pre 1
    }
  }
  return $s
}

# capital:
#    Returns a string with the first character capitalised.
#
proc capital {str} {
  set s [string toupper [string index $str 0]]
  append s [string range $str 1 end]
  return $s
}


# bindFocusColors:
#   Configures a text or entry widget so it turns lightYellow when it
#   gets the focus, and turns white again when it loses focus.
#
proc bindFocusColors {w {inColor lightYellow} {outColor white}} {
  $w configure -background white
  bind $w <FocusIn> "$w configure -background $inColor"
  bind $w <FocusOut> "$w configure -background $outColor"
}


# busyCursor, unbusyCursor:
#   Sets all cursors to watch (indicating busy) or back to their normal
#   setting again.

array set scid_busycursor {}
set scid_busycursorState 0

proc doBusyCursor {w flag} {
  global scid_busycursor
  if {! [winfo exists $w]} { return }
  # The comment editor window "flashes" when its cursor is changed,
  # no idea why but skip over it:
  if {$w == ".commentWin"} { return }

  if {$flag} {
    set scid_busycursor($w) [$w cget -cursor]
    catch {$w configure -cursor watch}
  } else {
    catch {$w configure -cursor $scid_busycursor($w)}
  }
  foreach i [winfo children $w] { doBusyCursor $i $flag }
}

proc busyCursor {w {flag 1}} {
  global scid_busycursor scid_busycursorState
  if {$scid_busycursorState == $flag} { return }
  set scid_busycursorState $flag
  doBusyCursor $w $flag
}

proc unbusyCursor {w} {busyCursor $w 0}


# addHorizontalRule, addVerticalRule
#   Add a horizontal/vertical rule frame to a window.
#   The optional parameters [x/y]padding and sunken allow the spacing and
#   appearance of the rule to be specified.
#
set horizRuleCounter 0
set vertRuleCounter 0

proc addHorizontalRule {w {ypadding 5} {relief sunken} {height 2} } {
  global horizRuleCounter
  set f [ frame $w.line$horizRuleCounter -height $height -borderwidth 2 \
            -relief $relief -background white ]
  pack $f -fill x -pady $ypadding
  incr horizRuleCounter
  return $f
}

proc addVerticalRule {w {xpadding 5} {relief sunken}} {
  global vertRuleCounter
  set f [ frame $w.line$vertRuleCounter -width 2 -borderwidth 2 \
            -relief $relief -background white ]
  pack $f -fill y -padx $xpadding -side left
  incr vertRuleCounter
  return $f
}


## Variable tracing:

# forceInt:
#   Used to check the size of integers in entry boxes.
#
proc forceInt {maxValue allowQuestionMarks name el op} {
  global $name ${name}_old
  if {[string comp {} $el]} {
    set old  ${name}_old\($el\)
    set name $name\($el\)
  } else {
    set old ${name}_old
  }

  if {$allowQuestionMarks > 0} {
    if {[regexp {^\?*$} [set $name]]} {
      # Accept this value:
      set $old [set $name]
      return
    }
  }

  # Only non-negative integers up to maxValue are allowed, unless the
  # value is negative:
  set allowNegatives 0
  if {$maxValue < 0} {
    set allowNegatives 1
    set maxValue [expr 0 - $maxValue]
  }

  if {$allowNegatives} {
    if {![regexp {^[-+]?[0-9]*$} [set $name]]} {
      set $name [set $old]
      bell
      return
    }
  } else {
    if {![regexp {^[+]?[0-9]*$} [set $name]]} {
      set $name [set $old]
      bell
      return
    }
  }
  if {[set $name] > $maxValue} {
    set $name [set $old]
    bell
    return
  }
  #if {[expr {0 - [set $name]}] < [expr {0 - $maxValue}]} {
  #  set $name [set $old]
  #  bell
  #  return
  #}
  set $old [set $name]
}

# forceDate:
#    Used to check the validity of a date string as it is entered.
#
proc forceDate {name el op} {
  global $name ${name}_old
  set old ${name}_old
  if {![sc_info validDate [set $name]]} {
    set $name [set $old]
    bell
    return
  }
  set $old [set $name]
}

# forceResult:
#    Used to check the validity of a result entrybox value.
#    Result can be empty, "1", "0", "=", or "*".
#
proc forceResult {name el op} {
  global $name ${name}_old
  set old ${name}_old
  if {![regexp {^[1|0|=|\*]?$} [set $name]]} {
    set $name [set $old]
    bell
    return
  }
  set $old [set $name]
}

# forceAlpha:
#    Used to check that an entrybox contains only letters.
proc forceAlpha {name el op} {
  global $name ${name}_old
  set old ${name}_old
  if {![regexp {^[A-Za-z]*$} [set $name]]} {
    set $name [set $old]
    bell
    return
  }
  set $old [set $name]

}

# forceRegexp:
#    Used to check the validity of an entrybox given a regular expression.
#    Used to verify a file is "a-h", for example.
#
proc forceRegexp {expression name el op} {
  global $name ${name}_old
  set old ${name}_old
  if ![regexp $expression [set $name]] {
    set $name [set $old]
    bell
    return
  }
  set $old [set $name]
}


# progressWindow:
#   Creates a window with a label, progress bar, and (if specified),
#   a cancel button and cancellation command.
#
proc progressWindow {args} {
  set w .progressWin
  if {[winfo exists $w]} { return }
  toplevel $w
  wm withdraw $w
  wm resizable $w 0 0
  if {[llength $args] == 2} {
    set title [lindex $args 0]
    set text [lindex $args 1]
    set b 0
  } elseif {[llength $args] == 4} {
    set title [lindex $args 0]
    set text [lindex $args 1]
    set button [lindex $args 2]
    set command [lindex $args 3]
    set b 1
  } else { return }
  wm title $w $title
  label $w.t -text $text
  pack $w.t -side top
  canvas $w.c -width 400 -height 20 -bg white -relief solid -border 1
  $w.c create rectangle 0 0 0 0 -fill blue -outline blue -tags bar
  $w.c create text 395 10 -anchor e -font font_Regular -tags time \
    -fill black -text "0:00 / 0:00"
  pack $w.c -side top -pady 10
  if {$b} {
    pack [frame $w.b] -side bottom -fill x
    button $w.b.cancel -text $button -command $command
    pack $w.b.cancel -side right -padx 5 -pady 2
  }
  # Set up geometry for middle of screen:
  set x [winfo screenwidth $w]
  set x [expr $x - 400]
  set x [expr $x / 2]
  set y [winfo screenheight $w]
  set y [expr $y - 20]
  set y [expr $y / 2]
  wm geometry $w +$x+$y
  sc_progressBar $w.c bar 401 21 time
  update idletasks
  wm deiconify $w
  raiseWin $w
  if {$b} {
    grab $w.b.cancel
  } else {
    grab $w
  }
  bind $w <Visibility> "raiseWin $w"
  set ::progressWin_time [clock seconds]
}

proc leftJustifyProgressWindow {} {
  set w .progressWin
  if {! [winfo exists $w]} { return }
  pack configure $w.t -fill x
  $w.t configure -width 1 -anchor w
}

proc changeProgressWindow {newtext} {
  set w .progressWin
  if {[winfo exists $w]} { 
    $w.t configure -text $newtext
    update idletasks
  }
}

proc resetProgressWindow {} {
  set w .progressWin
  set ::progressWin_time [clock seconds]
  if {[winfo exists $w]} { 
    $w.c coords bar 0 0 0 0
    $w.c itemconfigure time -text "0:00 / 0:00"
    update idletasks
  }
}

proc updateProgressWindow {done total} {
  set w .progressWin
  if {! [winfo exists $w]} { return }
  set elapsed [expr [clock seconds] - $::progressWin_time]
  set width 401
  if {$total > 0} { 
    set width [expr int(double($width) * double($done) / double($total))]
  }
  $w.c coords bar 0 0 $width 21
  set estimated $elapsed
  if {$done != 0} {
    set estimated [expr int(double($elapsed) * double($total) / double($done))]
  }
  set t [format "%d:%02d / %d:%02d" \
           [expr $elapsed / 60] [expr $elapsed % 60] \
           [expr $estimated / 60] [expr $estimated % 60]]
  $w.c itemconfigure time -text $t
  update
}

proc closeProgressWindow {} {
  set w .progressWin
  if {! [winfo exists $w]} {
    # puts stderr "Hmm, no progress window -- bug?"
    return
  }
  grab release $w
  destroy $w
}


# The following paned window code is from the book:
#
#  Effective Tcl/Tk Programming
#     Mark Harrison, DSC Communications Corp.
#     Michael McLennan, Bell Labs Innovations for Lucent Technologies
#     Addison-Wesley Professional Computing Series
#  Copyright (c) 1996-1997  Lucent Technologies Inc. and Mark Harrison
#
# Some modifications and improvements for use in Scid have been made,
# including namespacing the code.
#
#  -- Shane Hudson, February 2000.

namespace eval ::pane {}
array set ::pane::_data {}

proc ::pane::create {win pane1 pane2 width height {ratio 0.5} {orient vert}} {
  set ::pane::_data($win,1) $pane1
  set ::pane::_data($win,2) $pane2
  set ::pane::_data($win,drag) 1
  set vertical 1
  if {[string index $orient 0] == "h"} { set vertical 0 }
  set ::pane::_data($win,vertical) $vertical
  # Default minimum size of each frame is 10%:
  set ::pane::_data($win,min) 0.1
  set ::pane::_data($win,max) 0.9

  frame $win -width $width -height $height
  frame $win.$pane1
  frame $win.$pane2
  if {$vertical} {
    place $win.$pane1 -relx 0.5 -rely 0 -anchor n -relwidth 1.0 -relheight 0.5
    place $win.$pane2 -relx 0.5 -rely 1 -anchor s -relwidth 1.0 -relheight 0.5

    frame $win.pane_sash -height 1 -borderwidth 1 -relief flat \
      -cursor sb_v_double_arrow -background black
    place $win.pane_sash -relx 0.5 -rely 0.5 -relwidth 1.0 -anchor c

    frame $win.pane_grip -width 20 -height 7 -borderwidth 1 -relief solid \
      -cursor sb_v_double_arrow -background gray
    place $win.pane_grip -relx 0.95 -rely 0.5 -anchor c
  } else {
    place $win.$pane1 -relx 0 -rely 0.5 -anchor w -relwidth 0.5 -relheight 1.0
    place $win.$pane2 -relx 1 -rely 0.5 -anchor e -relwidth 0.5 -relheight 1.0

    frame $win.pane_sash -width 1 -borderwidth 1 -relief flat \
      -cursor sb_h_double_arrow -background black
    place $win.pane_sash -relx 0.5 -rely 0.5 -relheight 1.0 -anchor c

    frame $win.pane_grip -height 20 -width 7 -borderwidth 1 -relief solid \
      -cursor sb_h_double_arrow -background gray
    place $win.pane_grip -relx 0.5 -rely 0.95 -anchor c
  }

  #bind $win.pane_grip <Enter>           "::pane::enter $win"
  #bind $win.pane_grip <Leave>           "::pane::leave $win"
  #bind $win.pane_sash <Enter>           "::pane::enter $win"
  #bind $win.pane_sash <Leave>           "::pane::leave $win"

  if {$vertical} { set c "%Y" } else { set c "%X" }
  bind $win.pane_grip <ButtonPress-1>   "::pane::grab $win"
  bind $win.pane_grip <B1-Motion>       "::pane::drag $win $c"
  bind $win.pane_grip <ButtonRelease-1> "::pane::drop $win $c"
  bind $win.pane_sash <ButtonPress-1>   "::pane::grab $win"
  bind $win.pane_sash <B1-Motion>       "::pane::drag $win $c"
  bind $win.pane_sash <ButtonRelease-1> "::pane::drop $win $c"

  ::pane::divide $win $ratio
  return $win
}

proc ::pane::setdrag {win bool} {
  set ::pane::_data($win,drag) $bool
}

proc ::pane::range {win min max} {
  set ::pane::_data($win,min) $min
  set ::pane::_data($win,max) $max
}

proc ::pane::enter {win} {
  $win.pane_sash configure -background yellow
  $win.pane_grip configure -background yellow
}

proc ::pane::leave {win} {
  $win.pane_sash configure -background black
  $win.pane_grip configure -background black
}

proc ::pane::grab {win} {
  $win.pane_sash configure -background red
  $win.pane_grip configure -background red
}

proc ::pane::drag {win y} {
  set vertical $::pane::_data($win,vertical)
  if {$vertical} {
    set realY [expr $y-[winfo rooty $win]]
    set Ymax  [winfo height $win]
  } else {
    set realY [expr $y-[winfo rootx $win]]
    set Ymax  [winfo width $win]
  }
  set frac [expr double($realY)/$Ymax]
  if {$frac < $::pane::_data($win,min)} {set frac $::pane::_data($win,min)}
  if {$frac > $::pane::_data($win,max)} {set frac $::pane::_data($win,max)}

  if {$::pane::_data($win,drag)} {
    ::pane::divide $win $frac
  } else {
    if {$vertical} {
      place $win.pane_sash -rely $frac
      place $win.pane_grip -rely $frac
    } else {
      place $win.pane_sash -relx $frac
      place $win.pane_grip -relx $frac
    }
  }
  return $frac
}

proc ::pane::drop {win y} {
  set frac [::pane::drag $win $y]
  ::pane::divide $win $frac
  $win.pane_sash configure -background black
  $win.pane_grip configure -background gray
}

proc ::pane::divide {win frac} {
  if {$::pane::_data($win,vertical)} {
    place $win.pane_sash -rely $frac
    place $win.pane_grip -rely $frac
    place $win.$::pane::_data($win,1) -relheight $frac
    place $win.$::pane::_data($win,2) -relheight [expr 1-$frac]
  } else {
    place $win.pane_sash -relx $frac
    place $win.pane_grip -relx $frac
    place $win.$::pane::_data($win,1) -relwidth $frac
    place $win.$::pane::_data($win,2) -relwidth [expr 1-$frac]
  }
}


###
### search.tcl: Search routines for Scid.
###

# searchType: set to Header or Material in a SearchOptions file
set searchType 0


# search_addFilterOpFrame:
#   Adds a search filter operation selection frame to the window.
#   Adds a frame of radiobuttons allowing the filter operation
#   (AND with current filter, OR with current filter, or RESET filter)
#   to be chosen.
#   The default value for the first search is RESET:
set filterOp 2

proc search_addFilterOpFrame {w {small 0}} {
  global filterOp
  frame $w.filterop
  set f $w.filterop
  pack $f -side top
  set regular font_Regular
  set bold font_Bold
  if {$small} {
    set regular font_Small
    set bold font_SmallBold
  }
  label $f.title -font $bold -textvar ::tr(FilterOperation)
  radiobutton $f.and -textvar ::tr(FilterAnd) -variable filterOp \
    -value 0 -indicatoron 0 -pady 5 -padx 5 -font $regular
  radiobutton $f.or -textvar ::tr(FilterOr) -variable filterOp \
    -value 1 -indicatoron 0 -pady 5 -padx 5 -font $regular
  radiobutton $f.ignore -textvar ::tr(FilterIgnore) -variable filterOp \
    -value 2 -indicatoron 0 -pady 5 -padx 5 -font $regular
  pack $f.title -side top
  pack $f.and $f.or $f.ignore -side left
}


########################################
### BOARD searching

set searchInVars 0
set sBoardIgnoreCols 0
set sBoardSearchType Exact

# searchBoard:
#   Searches for the current board position.
#
proc searchBoard {} {
  global glstart filterOp searchInVars sBoardType sBoardIgnoreCols

  set w .sb
  if {[winfo exists $w]} {
    wm deiconify $w
    raiseWin $w
    return
  }

  toplevel $w
  wm title $w "Scid: $::tr(BoardSearch)"

  bind $w <Escape> "$w.b.cancel invoke"
  bind $w <Return> "$w.b.search invoke"
  bind $w <F1> { helpWindow Searches Board }

  label $w.type -textvar ::tr(SearchType) -font font_Bold
  pack $w.type -side top
  pack [frame $w.g] -side top -fill x
  radiobutton $w.g.exact -textvar ::tr(SearchBoardExact) \
    -variable sBoardSearchType -value Exact
  radiobutton $w.g.pawns -textvar ::tr(SearchBoardPawns) \
    -variable sBoardSearchType -value Pawns
  radiobutton $w.g.files -textvar ::tr(SearchBoardFiles) \
    -variable sBoardSearchType -value Fyles
  radiobutton $w.g.material -textvar ::tr(SearchBoardAny) \
    -variable sBoardSearchType -value Material
  set row 0
  foreach i {exact pawns files material} {
    grid $w.g.$i -row $row -column 0 -sticky w
    incr row
  }
  addHorizontalRule $w

  search_addFilterOpFrame $w
  addHorizontalRule $w

  ### Progress bar:

  canvas $w.progress -height 20 -width 300 -bg white -relief solid -border 1
  $w.progress create rectangle 0 0 0 0 -fill blue -outline blue -tags bar
  $w.progress create text 295 10 -anchor e -font font_Regular -tags time \
    -fill black -text "0:00 / 0:00"

  frame $w.b
  pack $w.b -side top -ipady 5 -fill x
  checkbutton $w.b.vars -textvar ::tr(LookInVars) -padx 10 -pady 5 \
    -onvalue 1 -offvalue 0 -variable searchInVars -relief raised
  checkbutton $w.b.flip -textvar ::tr(IgnoreColors) -padx 10 -pady 5 \
    -onvalue 1 -offvalue 0 -variable sBoardIgnoreCols -relief raised

  button $w.b.stop -textvar ::tr(Stop) -command sc_progressBar
  $w.b.stop configure -state disabled

  button $w.b.search -textvar ::tr(Search) -command {
    busyCursor .
    .sb.b.stop configure -state normal
    grab .sb.b.stop
    sc_progressBar .sb.progress bar 301 21 time
    set str [sc_search board $filterOp $sBoardSearchType $searchInVars \
              $sBoardIgnoreCols]
    unbusyCursor .
    grab release .sb.b.stop
    .sb.b.stop configure -state disabled
    #tk_messageBox -type ok -title $::tr(SearchResults) -message $str
    .sb.status configure -text $str
    set glstart 1
    updateGList
    updateStatsWin
  }
  button $w.b.cancel -textvar ::tr(Close) -command "focus .; destroy $w"
  pack $w.b.vars $w.b.flip -side left -pady 5 -padx 5
  pack $w.b.cancel .sb.b.search .sb.b.stop -side right -pady 5 -padx 5
  pack $w.progress -side top -pady 2
  label $w.status -text "" -width 1 -font font_Small -relief sunken -anchor w
  pack $w.status -side bottom -fill x
  wm resizable $w 0 0
  standardShortcuts $w
  configSearchState
  focus $w.b.search
}

########################################
### MATERIAL searching

set ignoreColors 0
set minMoveNum 1
set maxMoveNum 999
set minHalfMoves 1
set oppBishops "Either"
set minMatDiff -40
set maxMatDiff +40

trace variable minMoveNum w {forceInt 999 0}
trace variable maxMoveNum w {forceInt 999 0}
trace variable minHalfMoves w {forceInt 99 0}
trace variable minMatDiff w {forceInt -99 0}
trace variable maxMatDiff w {forceInt -99 0}

set nPatterns 9

array set pMin [list wq 0 bq 0 wr 0 br 0 wb 0 bb 0 wn 0 bn 0 wm 0 bm 0 wp 0 bp 0]
array set pMax [list wq 2 bq 2 wr 2 br 2 wb 2 bb 2 wn 2 bn 2 wm 4 bm 4 wp 8 bp 8]
for { set i 1 } { $i <= $nPatterns } { incr i } {
  set pattPiece($i) "?";  set pattFyle($i) "?";  set pattRank($i) "?"
}

proc checkPieceCounts {name el op} {
  global pMin pMax
  forceInt 9 0 $name $el $op
  # Now make sure minor piece counts fit with bishop/knight counts:
  set wmMin [expr $pMin(wn) + $pMin(wb)]
  set wmMax [expr $pMax(wn) + $pMax(wb)]
  set bmMin [expr $pMin(bn) + $pMin(bb)]
  set bmMax [expr $pMax(bn) + $pMax(bb)]
  if {$pMin(wm) < $wmMin} { set pMin(wm) $wmMin }
  if {$pMax(wm) > $wmMax} { set pMax(wm) $wmMax }
  if {$pMin(bm) < $bmMin} { set pMin(bm) $bmMin }
  if {$pMax(bm) > $bmMax} { set pMax(bm) $bmMax }
  foreach p {wq wr wb wn wm wp bq br bb bn bm bp} {
    if {$pMax($p) != ""  &&  $pMax($p) < $pMin($p)} { set pMax($p) $pMin($p) }
  }
}

trace variable pMin w checkPieceCounts
trace variable pMax w checkPieceCounts


proc makePieceMenu {w varName} {
  global dark
  upvar #0 $varName var
  if {![info exists var]} { set var "?" }
  menubutton $w -textvariable $varName -indicatoron 0 -menu $w.menu \
    -relief raised -bd 2 -highlightthickness 2 -anchor w -image ""
  menu $w.menu -tearoff 0
  $w.menu add radiobutton -label " ? " -variable $varName -value "?" \
    -command "$w configure -image e20" -hidemargin 1
  foreach i {wk wq wr wb wn wp bk bq br bb bn bp} {
    $w.menu add radiobutton -label $i -image ${i}20 -value $i \
      -variable $varName \
      -command "$w configure -image ${i}20" -hidemargin 1
  }
  foreach i {" ? " wk bk} {
    $w.menu entryconfigure $i -columnbreak 1
  }
  return $w.menu
}

proc updatePatternImages {} {
  global pattPiece nPatterns
  if {! [winfo exists .sm]} { return }
  for {set i 1} {$i <= $nPatterns} {incr i} {
    if {$pattPiece($i) == "?"} {
      .sm.patt.p$i configure -image e20
    } else {
      .sm.patt.p$i configure -image "$pattPiece($i)20"
    }
  }
}

# zeroMaterial:
#   Called to clear all material minumum/maximum values to zero.
#
proc zeroMaterial {} {
  global pMin pMax
  array set pMin {wq 0 bq 0 wr 0 br 0 wb 0 bb 0 wn 0 bn 0 wm 0 bm 0 wp 0 bp 0}
  array set pMax {wq 0 bq 0 wr 0 br 0 wb 0 bb 0 wn 0 bn 0 wm 0 bm 0 wp 0 bp 0}
}

proc anyMaterial {} {
  global pMin pMax
  array set pMin {wq 0 bq 0 wr 0 br 0 wb 0 bb 0 wn 0 bn 0 wm 0 bm 0 wp 0 bp 0}
  array set pMax {wq 2 bq 2 wr 2 br 2 wb 2 bb 2 wn 2 bn 2 wm 4 bm 4 wp 8 bp 8}
  set ::minMatDiff -40
  set maxMatDiff +40
}

proc clearPatterns {} {
  global pattPiece pattFyle pattRank pattBool nPatterns

  for { set i 1 } { $i <= $nPatterns } { incr i } {
    set pattPiece($i) "?";  set pattFyle($i) "?";  set pattRank($i) "?"
    set pattBool($i) "Yes"
  }
  updatePatternImages
}

proc setPatterns {pattlist} {
  global pattPiece pattFyle pattRank pattBool nPatterns

  clearPatterns
  set count 1
  foreach patt $pattlist {
    if {$count <= $nPatterns  &&  [llength $patt] == 4} {
      set pattPiece($count) [lindex $patt 0]
      set pattFyle($count) [lindex $patt 1]
      set pattRank($count) [lindex $patt 2]
      set pattBool($count) [lindex $patt 3]
      incr count
    }
  }
  updatePatternImages
}

set smDisplayed(Material) 1
set smDisplayed(Patterns) 0

# searchMaterial:
#   Search by material or patterns.
#
proc searchMaterial {} {
  global glstart dark pMin pMax ignoreColors filterOp minMoveNum maxMoveNum
  global pattPiece pattFyle pattRank pattBool oppBishops nPatterns
  global minHalfMoves smDisplayed

  set w .sm
  if {[winfo exists $w]} {
    wm deiconify $w
    raiseWin $w
    return
  }
  set small font_Small

  toplevel $w
  wm title $w "Scid: $::tr(MaterialSearch)"
  button $w.piecelabel -font font_Bold -textvar ::tr(Material:) -command {
    if {$smDisplayed(Material)} {
      set smDisplayed(Material) 0
      pack forget .sm.q .sm.r .sm.b .sm.n .sm.m .sm.p .sm.b1 .sm.mdiff
    } else {
      set smDisplayed(Material) 1
      pack .sm.q .sm.r .sm.b .sm.n .sm.m .sm.p .sm.b1 .sm.mdiff \
        -after .sm.piecelabel
    }
  }
  pack $w.piecelabel -side top
  foreach piece {q r b n m p} {
    frame $w.$piece
    pack $w.$piece -side top -padx 2
  }

  bind $w <F1> { helpWindow Searches Material }
  bind $w <Escape> "$w.b3.cancel invoke"
  bind $w <Return> "$w.b3.search invoke"

  foreach i {q r b n m p} {
    set f $w.$i
    button $f.w0 -text "0" -command "set pMin(w$i) 0; set pMax(w$i) 0"
    button $f.w1 -text "1" -command "set pMin(w$i) 1; set pMax(w$i) 1"
    button $f.w2 -text "2" -command "set pMin(w$i) 2; set pMax(w$i) 2"
    button $f.wa -text "0+" -command "set pMin(w$i) 0; set pMax(w$i) 2"
    button $f.w1p -text "1+" -command "set pMin(w$i) 1; set pMax(w$i) 2"
    label $f.wi -image w${i}20 -font font_Small
    label $f.wto -text "-" -font font_Small -padx 0
    entry $f.wmin -width 2 -relief sunken -textvar pMin(w$i) -font font_Small \
      -justify right
    entry $f.wmax -width 2 -relief sunken -textvar pMax(w$i) -font font_Small \
      -justify right
    pack $f.w0 $f.w1 $f.w2 $f.wa $f.w1p $f.wi $f.wmin $f.wto $f.wmax -side left

    pack [frame $f.space -width 20] -side left
    button $f.b0 -text "0" -command "set pMin(b$i) 0; set pMax(b$i) 0"
    button $f.b1 -text "1" -command "set pMin(b$i) 1; set pMax(b$i) 1"
    button $f.b2 -text "2" -command "set pMin(b$i) 2; set pMax(b$i) 2"
    button $f.ba -text "0+" -command "set pMin(b$i) 0; set pMax(b$i) 2"
    button $f.b1p -text "1+" -command "set pMin(b$i) 1; set pMax(b$i) 2"
    label $f.bi -image b${i}20 -font font_Small
    label $f.bto -text "-" -font font_Small
    entry $f.bmin -width 2 -relief sunken -textvar pMin(b$i) -font font_Small \
      -justify right
    entry $f.bmax -width 2 -relief sunken -textvar pMax(b$i) -font font_Small \
      -justify right
    pack $f.b0 $f.b1 $f.b2 $f.ba $f.b1p $f.bi $f.bmin $f.bto $f.bmax -side left

    foreach b {0 1 2 a 1p} {
      $f.w$b configure -width 4 -padx 1 -pady 3 -takefocus 0 -font $small
      $f.b$b configure -width 4 -padx 1 -pady 3 -takefocus 0 -font $small
    }
    foreach widget {wmin wmax bmin bmax} {
      bindFocusColors $f.$widget
    }
  }

  $w.p.w1p configure -command "set pMin(wp) 1; set pMax(wp) 8"
  $w.p.wa configure -command "set pMin(wp) 0; set pMax(wp) 8"
  $w.p.b1p configure -command "set pMin(bp) 1; set pMax(bp) 8"
  $w.p.ba configure -command "set pMin(bp) 0; set pMax(bp) 8"

  # Buttons that manipulate material settings:
  set f $w.b1
  pack [frame $f] -side top -ipady 2

  button $f.zero -textvar ::tr(Zero) -font $small -command zeroMaterial
  button $f.reset -textvar ::tr(Any) -font $small -command anyMaterial
  button $f.current -textvar ::tr(CurrentBoard) -font $small -command {
      zeroMaterial
      set bd [sc_pos board]
      for {set i 0} {$i < 64} {incr i} {
        set piece $images([ string index $bd $i ])
        if {$piece != "e"  &&  $piece != "wk"  &&  $piece != "bk"} {
          incr pMin($piece); set pMax($piece) $pMin($piece)
        }
      }
    }

  menubutton .sm.b1.common -textvar ::tr(CommonEndings...) \
    -menu .sm.b1.common.m -relief raised -font $small
  menu .sm.b1.common.m -font $small
  set m .sm.b1.common.m
  $m add command -label "Pawn(s) --- Pawn(s)" -command {
    zeroMaterial
    array set pMin {wp 1 bp 1}
    array set pMax {wp 8 bp 8}
  }
  $m add command -label "Rook --- Pawn(s)" -command {
    zeroMaterial
    array set pMin {wr 1 bp 1}
    array set pMax {wr 1 bp 8}
  }
  $m add command -label "Rook + 1 Pawn --- Rook" -command {
    zeroMaterial
    array set pMin {wr 1 br 1 wp 1}
    array set pMax {wr 1 br 1 wp 1}
  }
  $m add command -label "Rook + Pawn(s) --- Rook" -command {
    zeroMaterial
    array set pMin {wr 1 br 1 wp 1}
    array set pMax {wr 1 br 1 wp 8}
  }
  $m add command -label "Rook vs. Rook endings" -command {
    zeroMaterial
    array set pMin {wr 1 br 1}
    array set pMax {wr 1 br 1 wp 8 bp 8}
    set pMin(wr) 1; set pMax(wr) 1; set pMin(wp) 0; set mPax(wp) 8
    set pMin(br) 1; set pMax(br) 1; set pMin(bp) 0; set mPax(bp) 8
  }
  $m add command -label "Rook vs. Rook: passed a-pawn" -command {
    zeroMaterial
    array set pMin {wr 1 br 1 wp 1}
    array set pMax {wr 1 br 1 wp 8 bp 8}
    setPatterns {{wp a ? Yes} {bp a ? No} {bp b ? No}}
    set ignoreColors 1
  }
  $m add command -label "Double Rooks endings" -command {
    zeroMaterial
    array set pMin {wr 2 br 2}
    array set pMax {wr 2 br 2 wp 8 bp 8}
  }
  $m add command -label "Bishop vs. Bishop endings" -command {
    zeroMaterial
    array set pMin {wb 1 bb 1 wm 1 bm 1}
    array set pMax {wb 1 bb 1 wm 1 bm 1 wp 8 bp 8}
  }
  $m add command -label "Bishop vs. Knight endings" -command {
    zeroMaterial
    array set pMin {wb 1 bn 1 wm 1 bm 1}
    array set pMax {wb 1 bn 1 wm 1 bm 1 wp 8 bp 8}
  }
  $m add command -label "Knight vs. Knight endings" -command {
    zeroMaterial
    array set pMin {wn 1 bn 1 wm 1 bm 1}
    array set pMax {wn 1 bn 1 wm 1 bm 1 wp 8 bp 8}
  }
  $m add command -label "Queen + 1 Pawn --- Queen" -command {
    zeroMaterial
    array set pMin {wq 1 bq 1 wp 1}
    array set pMax {wq 1 bq 1 wp 1}
  }
  $m add command -label "Queen vs. Queen endings" -command {
    zeroMaterial
    array set pMin {wq 1 bq 1}
    array set pMax {wq 1 bq 1 wp 8 bp 8}
  }
  $m add command -label "2B vs. 2N middlegame" -command {
    zeroMaterial
    array set pMin {wb 2 bn 2 wm 2 bm 2}
    array set pMax {wq 1 bq 1 wr 2 br 2 wb 2 bn 2 wm 2 bm 2 wp 8 bp 8}
  }

  pack $f.zero $f.reset $f.current $f.common -side left -pady 5 -padx 10
  if {! $smDisplayed(Material)} {
    pack forget .sm.q .sm.r .sm.b .sm.n .sm.m .sm.p .sm.b1 .sm.mdiff
  }

  set f $w.mdiff
  pack [frame $f] -side top
  label $f.label -font font_SmallBold -textvar ::tr(MaterialDiff)
  label $f.label2 -font $small \
    -text "($::tr(White)-$::tr(Black), Q=9 R=5 B=N=3 P=1): "
  entry $f.min -width 3 -relief sunken -textvar minMatDiff -font $small \
    -justify right
  bindFocusColors $f.min
  label $f.sep -text "-" -font $small
  entry $f.max -width 3 -relief sunken -textvar maxMatDiff -font $small \
    -justify right
  bindFocusColors $f.max
  label $f.sep2 -text " " -font $small
  button $f.any -textvar ::tr(Any) -font $small -padx 1 -pady 1 \
    -command {set minMatDiff -40; set maxMatDiff +40}
  button $f.w1 -text " + " -font $small -padx 1 -pady 1 \
    -command {set minMatDiff +1; set maxMatDiff +40}
  button $f.equal -text " = " -font $small -padx 1 -pady 1 \
    -command {set minMatDiff 0; set maxMatDiff 0}
  button $f.b1 -text " - " -font $small -padx 1 -pady 1 \
    -command {set minMatDiff -40; set maxMatDiff -1}
  pack $f.label $f.label2 $f.min $f.sep $f.max -side left
  pack $f.sep2 $f.any $f.w1 $f.equal $f.b1 -side left

  addHorizontalRule $w

  button $w.pattl -font font_Bold -textvar ::tr(Patterns:) -command {
    if {$smDisplayed(Patterns)} {
      set smDisplayed(Patterns) 0
      pack forget .sm.patt .sm.b2
    } else {
      set smDisplayed(Patterns) 1
      pack .sm.patt .sm.b2 -after .sm.pattl
    }
  }
  pack $w.pattl -side top
  set f $w.patt
  frame $f
  pack $f -ipady 5 -side top
  for { set i 1 } { $i <= $nPatterns } { incr i } {
    tk_optionMenu $f.b$i pattBool($i) "Yes" "No"
    set menuPiece1 [ makePieceMenu .sm.patt.p$i pattPiece($i) ]
    tk_optionMenu $f.f$i pattFyle($i) "?" a b c d e f g h
    tk_optionMenu $f.r$i pattRank($i) "?" 1 2 3 4 5 6 7 8
    $f.b$i configure -indicatoron 0 -width 4
    $f.f$i configure -indicatoron 0 -width 2
    $f.r$i configure -indicatoron 0 -width 2
    set column [expr 5 * (($i - 1) / 3)]
    set row [expr ($i - 1) % 3]
    grid $f.b$i -row $row -column $column; incr column
    grid $f.p$i -row $row -column $column; incr column
    grid $f.f$i -row $row -column $column; incr column
    grid $f.r$i -row $row -column $column; incr column
    if {$column == 4  ||  $column == 9} {
      label $f.sp_$i -text "  "
      grid $f.sp_$i -row $row -column $column
    }
  }

  updatePatternImages

  ### Buttons that manipulate patterns:
  set f .sm.b2
  frame $f
  button $f.clearPat -textvar ::tr(Clear) -command clearPatterns
  menubutton $f.common -textvar ::tr(CommonPatterns) \
    -menu $f.common.m -relief raised
  menu $f.common.m
  $f.common.m add command -label "White IQP" -command {
    if {$pMin(wp) < 1} { set pMin(wp) 1 }
    setPatterns {{wp d ? Yes} {wp c ? No} {wp e ? No}}
  }
  $f.common.m add command -label "White IQP: d4-d5 break vs e6" -command {
    if {$pMin(wp) < 1} { set pMin(wp) 1 }
    if {$pMin(bp) < 1} { set pMin(bp) 1 }
    setPatterns {{wp d 5 Yes} {wp c ? No} {wp e ? No} {wp d 4 No} \
                   {bp e 6 Yes} {bp c ? No} {bp d ? No}}
  }
  $f.common.m add command -label "Black IQP" -command {
    if {$pMin(bp) < 1} { set pMin(bp) 1 }
    setPatterns {{bp d ? Yes} {bp c ? No} {bp e ? No}}
  }
  $f.common.m add command -label "White IQP + Black IQP" -command {
    if {$pMin(wp) < 1} { set pMin(wp) 1 }
    if {$pMin(bp) < 1} { set pMin(bp) 1 }
    setPatterns {{wp d ? Yes} {wp c ? No} {wp e ? No} \
                   {bp d ? Yes} {bp c ? No} {bp e ? No}}
  }
  $f.common.m add command -label "White c3+d4 isolated pawn couple" -command {
    set pMin(wp) 4; set pMax(wp) 6
    set pMin(bp) 4; set pMax(bp) 6
    setPatterns {{wp c 3 Yes} {wp d 4 Yes} {wp b ? No} {wp e ? No}
      {bp c ? No} {bp d ? No}}
  }
  $f.common.m add command -label "Hanging Black c5+d5 pawns" -command {
    set pMin(bp) 4; set pMax(bp) 6
    set pMin(wp) 4; set pMax(wp) 6
    setPatterns {{bp c 5 Yes} {bp d 5 Yes} {bp b ? No} {bp e ? No}
      {wp c ? No} {wp d ? No}}
  }
  $f.common.m add command -label "Maroczy center" -command {
    if {$pMin(bp) < 1} { set pMin(bp) 1 }
    if {$pMax(bp) > 7} { set pMax(bp) 7 }
    if {$pMin(wp) < 2} { set pMin(wp) 2 }
    if {$pMax(wp) > 7} { set pMax(wp) 7 }
    setPatterns {{wp c 4 Yes} {wp e 4 Yes} {bp d ? Yes} {wp d ? No}
                 {bp c ? No} {bp d 5 No}}
  }
  $f.common.m add command -label "Rook-sac on c3" -command {
    set pMin(br) 2; set pMax(br) 2
    set pMin(wr) 2; set pMax(wr) 2
    setPatterns { {br c 3 Yes} {wp b 2 Yes} }
  }
  $f.common.m add command -label "White Kc1; Black Kg8" -command {
    setPatterns { {wk c 1 Yes} {bk g 8 Yes} }
  }
  $f.common.m add command -label "White Kg1; Black Kc8" -command {
    setPatterns { {wk g 1 Yes} {bk c 8 Yes} }
  }
  $f.common.m add command -label "4 fianchettos" -command {
    set pMin(wb) 2; set pMin(bb) 2
    setPatterns { {wb b 2 Yes} {wb g 2 Yes} {bb b 7 Yes} {bb g 7 Yes} }
  }

  pack $f -side top
  pack $f.clearPat $f.common -side left -pady 5 -padx 10
  if {! $smDisplayed(Patterns)} {
    pack forget $w.patt $w.b2
  }

  addHorizontalRule $w

  ### Now the move counter:

  set f $w.bishops
  pack [frame $f] -side top
  label $f.t1 -text "1"
  label $f.t2 -image wb20
  label $f.t3 -text "- 1"
  label $f.t4 -image bb20
  label $f.t5 -textvar ::tr(squares:)
  radiobutton $f.same -textvar ::tr(SameColor) -variable oppBishops \
    -value "Same" -indicatoron 0 -pady 5 -padx 5
  radiobutton $f.opp -textvar ::tr(OppColor) -variable oppBishops \
    -value "Opposite" -indicatoron 0 -pady 5 -padx 5
  radiobutton $f.either -textvar ::tr(Either) -variable oppBishops \
    -value "Either" -indicatoron 0 -pady 5 -padx 5
  foreach i {t1 t2 t3 t4 t5 same opp either} { pack $f.$i -side left }

  set f $w.move
  pack [frame $f] -side top -ipady 5
  label $f.fromlab -textvar ::tr(MoveNumberRange:)
  entry $f.from -width 4 -relief sunken -textvar minMoveNum -justify right
  label $f.tolab -text "-"
  entry $f.to -width 4 -relief sunken -textvar maxMoveNum -justify right
  label $f.space -text "  "
  label $f.label1 -textvar ::tr(MatchForAtLeast)
  entry $f.hmoves -width 3 -relief sunken -textvar minHalfMoves -justify right
  label $f.label2 -textvar ::tr(HalfMoves)
  bindFocusColors $f.from
  bindFocusColors $f.to
  bindFocusColors $f.hmoves
  pack $f.fromlab $f.from $f.tolab $f.to $f.space \
    $f.label1 $f.hmoves $f.label2 -side left

  addHorizontalRule $w
  search_addFilterOpFrame $w 1
  addHorizontalRule $w

  ### Progress bar:

  canvas $w.progress -height 20 -width 300 -bg white -relief solid -border 1
  $w.progress create rectangle 0 0 0 0 -outline blue -fill blue -tags bar
  $w.progress create text 295 10 -anchor e -font font_Regular -tags time \
    -fill black -text "0:00 / 0:00"

  ### Last of all, the buttons frame:

  set f $w.b3
  pack [frame $f] -side top -ipady 5 -fill x
  checkbutton $f.ignorecol -textvar ::tr(IgnoreColors) \
    -variable ignoreColors -relief raised -padx 8 -pady 5

  button $f.save -textvar ::tr(Save...) -padx 10 -command saveMaterialSearch

  button $f.stop -textvar ::tr(Stop) -command sc_progressBar
  $f.stop configure -state disabled

  button $f.search -textvar ::tr(Search) -padx 20 -command {
    busyCursor .
    .sm.b3.stop configure -state normal
    grab .sm.b3.stop
    sc_progressBar .sm.progress bar 301 21 time
    set str [sc_search material \
               -wq [list $pMin(wq) $pMax(wq)] -bq [list $pMin(bq) $pMax(bq)] \
               -wr [list $pMin(wr) $pMax(wr)] -br [list $pMin(br) $pMax(br)] \
               -wb [list $pMin(wb) $pMax(wb)] -bb [list $pMin(bb) $pMax(bb)] \
               -wn [list $pMin(wn) $pMax(wn)] -bn [list $pMin(bn) $pMax(bn)] \
               -wm [list $pMin(wm) $pMax(wm)] -bm [list $pMin(bm) $pMax(bm)] \
               -wp [list $pMin(wp) $pMax(wp)] -bp [list $pMin(bp) $pMax(bp)] \
               -flip $ignoreColors -filter $filterOp \
               -range [list $minMoveNum $maxMoveNum] \
               -length $minHalfMoves -bishops $oppBishops \
               -diff [list $minMatDiff $maxMatDiff] \
               -patt "$pattBool(1) $pattPiece(1) $pattFyle(1) $pattRank(1)" \
               -patt "$pattBool(2) $pattPiece(2) $pattFyle(2) $pattRank(2)" \
               -patt "$pattBool(3) $pattPiece(3) $pattFyle(3) $pattRank(3)" \
               -patt "$pattBool(4) $pattPiece(4) $pattFyle(4) $pattRank(4)" \
               -patt "$pattBool(5) $pattPiece(5) $pattFyle(5) $pattRank(5)" \
               -patt "$pattBool(6) $pattPiece(6) $pattFyle(6) $pattRank(6)" \
               -patt "$pattBool(7) $pattPiece(7) $pattFyle(7) $pattRank(7)" \
               -patt "$pattBool(8) $pattPiece(8) $pattFyle(8) $pattRank(8)" \
               -patt "$pattBool(9) $pattPiece(9) $pattFyle(9) $pattRank(9)" ]
    grab release .sm.b3.stop
    .sm.b3.stop configure -state disabled
    unbusyCursor .
    #tk_messageBox -type ok -title $::tr(SearchResults) -message $str
    .sm.status configure -text $str
    set glstart 1
    updateGList
    updateStatsWin
  }

  button $f.cancel -textvar ::tr(Close) -padx 20 \
    -command { focus .; destroy .sm }

  pack $f.ignorecol $w.b3.save -side left -pady 5 -padx 5
  pack $w.b3.cancel $w.b3.search $w.b3.stop -side right -pady 5 -padx 5
  pack $w.progress -side top -pady 2

  label $w.status -text "" -width 1 -font font_Small -relief sunken -anchor w
  pack $w.status -side bottom -fill x

  update
  wm resizable $w 0 0
  standardShortcuts $w
  configSearchState
  focus $f.search
}

proc saveMaterialSearch {} {
  global pMin pMax ignoreColors filterOp minMoveNum maxMoveNum minHalfMoves
  global pattPiece pattFyle pattRank pattBool oppBishops nPatterns

  set ftype { { "Scid SearchOptions files" {".sso"} } }
  set fName [tk_getSaveFile -initialdir [pwd] -filetypes $ftype -title "Create a SearchOptions file"]
  if {$fName == ""} { return }

  if {[string compare [file extension $fName] ".sso"] != 0} {
    append fName ".sso"
  }

  if {[catch {set searchF [open $fName w]}]} {
    tk_messageBox -title "Error: Unable to open file" -type ok -icon error \
      -message "Unable to create SearchOptions file: $fName"
    return
  }
  puts $searchF "\# SearchOptions File created by Scid [sc_info version]"
  puts $searchF "set searchType Material"
  # First write the material counts:
  foreach i {wq bq wr br wb bb wn bn wp bp} {
    puts $searchF "set pMin($i) $pMin($i)"
    puts $searchF "set pMax($i) $pMax($i)"
  }
  # Now write other numeric values:
  foreach i {ignoreColors filterOp minMoveNum maxMoveNum minHalfMoves oppBishops} {
    puts $searchF "set $i [set $i]"
  }
  # Last, write the patterns:
  for {set i 1} {$i <= $nPatterns} {incr i} {
    puts $searchF "set pattPiece($i) $pattPiece($i)"
    puts $searchF "set pattFyle($i) $pattFyle($i)"
    puts $searchF "set pattRank($i) $pattRank($i)"
    puts $searchF "set pattBool($i) $pattBool($i)"
  }
  tk_messageBox -type ok -icon info -title "Search Options saved" \
    -message "Material/pattern search options saved to: $fName"
  close $searchF
}


########################################
### HEADER Searching (Name, etc).

set sWhite "";  set sBlack "";  set sEvent ""; set sSite "";  set sRound ""
set sWhiteEloMin 0; set sWhiteEloMax 4000
set sBlackEloMin 0; set sBlackEloMax 4000
set sEloDiffMin -4000; set sEloDiffMax +4000
set sTitleList [list gm im fm none wgm wim wfm w]
foreach i $sTitleList {
  set sTitles(w:$i) 1
  set sTitles(b:$i) 1
}
set sGlMin 0; set sGlMax 999
set sEcoMin "A00";  set sEcoMax "E99"; set sEco Yes
set sDateMin "0000.00.00"; set sDateMax "[sc_info limit year].12.31"
set sResWin 1; set sResLoss 1; set sResDraw 1; set sResOther 1
set sGnumMin 1; set sGnumMax -1
set sIgnoreCol No
set sHeaderFlagList {StdStart Promotions Comments Variations Annotations \
      DeleteFlag WhiteOpFlag BlackOpFlag MiddlegameFlag EndgameFlag \
      NoveltyFlag PawnFlag TacticsFlag KsideFlag QsideFlag \
      BrilliancyFlag BlunderFlag UserFlag
}
foreach i $sHeaderFlagList {
    set sHeaderFlags($i) both
}
set sPgntext(1) ""
set sPgntext(2) ""
set sPgntext(3) ""

trace variable sDateMin w forceDate
trace variable sDateMax w forceDate

foreach i {sWhiteEloMin sWhiteEloMax sBlackEloMin sBlackEloMax} {
  trace variable $i w {forceInt 4000 0}
}
trace variable sEloDiffMin w {forceInt -4000 0}
trace variable sEloDiffMax w {forceInt -4000 0}

trace variable sGlMin w {forceInt 9999 0}
trace variable sGlMax w {forceInt 9999 0}

trace variable sGnumMin w {forceInt -9999999 0}
trace variable sGnumMax w {forceInt -9999999 0}

# Forcing ECO entry to be valid ECO codes:
foreach i {sEcoMin sEcoMax} {
  trace variable $i w {forceRegexp {^$|^[A-Ea-e]$|^[A-Ea-e][0-9]$|^[A-Ea-e][0-9][0-9]$|^[A-Ea-e][0-9][0-9][a-z]$|^[A-Ea-e][0-9][0-9][a-z][1-4]$}}
}

# checkDates:
#    Checks minimum/maximum search dates in header search window and
#    extends them if necessary.
proc checkDates {} {
  global sDateMin sDateMax
  if {[string length $sDateMin] == 0} { set sDateMin "0000" }
  if {[string length $sDateMax] == 0} { set sDateMax [sc_info limit year]}
  if {[string length $sDateMin] == 4} { append sDateMin ".??.??" }
  if {[string length $sDateMax] == 4} { append sDateMax ".12.31" }
  if {[string length $sDateMin] == 7} { append sDateMin ".??" }
  if {[string length $sDateMax] == 7} { append sDateMax ".31" }
}

# configSearchState:
#   Sets state of Search button in Header, Board and Material windows
#
proc configSearchState {{state ""}} {
  if {$state == ""} {
    set state disabled
    if {[sc_base inUse]} { set state normal }
  }
  catch {.sh.b.search configure -state $state }
  catch {.sb.b.search configure -state $state }
  catch {.sm.b3.search configure -state $state }
  catch {.spprep.b.search configure -state $state }
}

proc searchHeaderDefaults {} {
  global sWhite sBlack sEvent sSite sRound sDateMin sDateMax sIgnoreCol
  global sWhiteEloMin sWhiteEloMax sBlackEloMin sBlackEloMax
  global sEloDiffMin sEloDiffMax
  global sEco sEcoMin sEcoMax sHeaderFlags sGlMin sGlMax
  global sGnumMin sGnumMax
  global sResWin sResLoss sResDraw sResOther glstart filterOp
  global sPgntext sTitles

  set sWhite "";  set sBlack ""
  set sEvent ""; set sSite "";  set sRound ""
  set sWhiteEloMin 0; set sWhiteEloMax 4000
  set sBlackEloMin 0; set sBlackEloMax 4000
  set sEloDiffMin  -4000; set sEloDiffMax +4000
  set sGlMin 0; set sGlMax 999
  set sEcoMin "A00";  set sEcoMax "E99"; set sEco Yes
  set sGnumMin 1; set sGnumMax -1
  set sDateMin "0000.00.00"; set sDateMax "[sc_info limit year].12.31"
  set sResWin 1; set sResLoss 1; set sResDraw 1; set sResOther 1
  set sIgnoreCol No
  foreach flag $::sHeaderFlagList { set sHeaderFlags($flag) both }
  foreach i [array names sPgntext] { set sPgntext($i) "" }
  foreach i $::sTitleList {
    set sTitles(w:$i) 1
    set sTitles(b:$i) 1
  }
}

searchHeaderDefaults

set sHeaderFlagFrame 0

# searchHeader:
#   Search by header information.
#
proc searchHeader {} {
  global sWhite sBlack sEvent sSite sRound sDateMin sDateMax sIgnoreCol
  global sWhiteEloMin sWhiteEloMax sBlackEloMin sBlackEloMax
  global sEloDiffMin sEloDiffMax
  global sEco sEcoMin sEcoMax sHeaderFlags sGlMin sGlMax sTitleList sTitles
  global sResWin sResLoss sResDraw sResOther glstart filterOp sPgntext

  set w .sh
  if {[winfo exists $w]} {
    wm deiconify $w
    raiseWin $w
    return
  }

  toplevel $w
  wm title $w "Scid: $::tr(HeaderSearch)"
  foreach frame {white black ignore tw tb eventsite dateround res gl eco} {
    frame $w.$frame
  }

  bind $w <F1> { helpWindow Searches Header }
  bind $w <Escape> "$w.b.cancel invoke"
  bind $w <Return> "$w.b.search invoke"

  set regular font_Small
  set bold font_SmallBold

  foreach color {white black} Color {White Black} {
    pack $w.$color -side top -fill x
    label $w.$color.lab -textvar ::tr($Color:) -font $bold -width 9 -anchor w
    entry $w.$color.e -textvariable "s$Color" -width 40 -font $regular
    label $w.$color.space
    label $w.$color.elo1 -textvar ::tr(Rating:) -font $bold
    entry $w.$color.elomin -textvar s${Color}EloMin -width 6 -justify right \
      -font $regular
    label $w.$color.elo2 -text "-" -font $regular
    entry $w.$color.elomax -textvar s${Color}EloMax -width 6 -justify right \
      -font $regular
    bindFocusColors $w.$color.e
    bindFocusColors $w.$color.elomin
    bindFocusColors $w.$color.elomax
    pack $w.$color.lab $w.$color.e $w.$color.space -side left
    pack $w.$color.elomax $w.$color.elo2 $w.$color.elomin $w.$color.elo1 \
      -side right
  }

  pack $w.ignore -side top -fill x
  label $w.ignore.l -textvar ::tr(IgnoreColors:) -font $bold
  radiobutton $w.ignore.yes -variable sIgnoreCol -value Yes \
    -textvar ::tr(Yes) -font $regular
  radiobutton $w.ignore.no  -variable sIgnoreCol -value No \
    -textvar ::tr(No) -font $regular
  pack $w.ignore.l $w.ignore.yes $w.ignore.no -side left
  label $w.ignore.rdiff -textvar ::tr(RatingDiff:) -font $bold
  entry $w.ignore.rdmin -width 6 -textvar sEloDiffMin -justify right \
    -font $regular
  label $w.ignore.rdto -text "-" -font $regular
  entry $w.ignore.rdmax -width 6 -textvar sEloDiffMax -justify right \
    -font $regular
  bindFocusColors $w.ignore.rdmin
  bindFocusColors $w.ignore.rdmax
  pack $w.ignore.rdmax $w.ignore.rdto $w.ignore.rdmin $w.ignore.rdiff \
    -side right

  set spellstate normal
  if {[lindex [sc_name read] 0] == 0} { set spellstate disabled }
  foreach c {w b} name {White Black} {
    pack $w.t$c -side top -fill x
    label $w.t$c.label -text "$::tr($name) FIDE:" \
      -font $bold -width 14 -anchor w
    pack $w.t$c.label -side left
    foreach i $sTitleList {
      set name [string toupper $i]
      if {$i == "none"} { set name "-" }
      checkbutton $w.t$c.b$i -text $name -width 5 -font $regular \
        -variable sTitles($c:$i) -offvalue 0 -onvalue 1 -indicatoron 0 \
        -state $spellstate -pady 0
      pack $w.t$c.b$i -side left -padx 1
    }
  }

  addHorizontalRule $w

  set f $w.eventsite
  pack $f -side top -fill x
  foreach i {Event Site} {
    label $f.l$i -textvar ::tr(${i}:) -font $bold
    entry $f.e$i -textvariable s$i -width 30 -font $regular
    bindFocusColors $f.e$i
  }
  pack $f.lEvent $f.eEvent -side left
  pack $f.eSite $f.lSite -side right

  set f $w.dateround
  pack $f -side top -fill x
  label $f.l1 -textvar ::tr(Date:) -font $bold
  label $f.l2 -text "-" -font $regular
  label $f.l3 -text " " -font $regular
  entry $f.emin -textvariable sDateMin -width 10 -font $regular
  button $f.eminCal -image calendar -padx 0 -pady 0 -command {
    regsub -all {[.]} $sDateMin "-" newdate
    set ndate [::date::chooser $newdate]
    if {[llength $ndate] == 3} {
      set sDateMin "[lindex $ndate 0].[lindex $ndate 1].[lindex $ndate 2]"
    }
  }
  entry $f.emax -textvariable sDateMax -width 10 -font $regular
  button $f.emaxCal -image calendar -padx 0 -pady 0 -command {
    regsub -all {[.]} $sDateMax "-" newdate
    set ndate [::date::chooser $newdate]
    if {[llength $ndate] == 3} {
      set sDateMax "[lindex $ndate 0].[lindex $ndate 1].[lindex $ndate 2]"
    }
  }
  bindFocusColors $f.emin
  bindFocusColors $f.emax
  bind $f.emin <FocusOut> +checkDates
  bind $f.emax <FocusOut> +checkDates
  button $f.lyear -textvar ::tr(YearToToday) -font $regular -pady 2 -command {
    set sDateMin "[expr [::date::today year]-1].[::date::today month].[::date::today day]"
    set sDateMax [::date::today]
  }
  if {$::tcl_version >= 8.3} {
    pack $f.l1 $f.emin $f.eminCal $f.l2 $f.emax $f.emaxCal $f.l3 $f.lyear \
      -side left
  } else {
    pack $f.l1 $f.emin $f.l2 $f.emax $f.l3 $f.lyear -side left
  }

  label $f.lRound -textvar ::tr(Round:) -font $bold
  entry $f.eRound -textvariable sRound -width 10 -font $regular
  bindFocusColors $f.eRound
  pack $f.eRound $f.lRound -side right

  addHorizontalRule $w

  pack .sh.res -side top -fill x
  label $w.res.l1 -textvar ::tr(Result:) -font $bold
  pack $w.res.l1 -side left
  foreach i {win draw loss other} \
          v {sResWin sResDraw sResLoss sResOther} \
          text {"1-0:"  " =-=:"  " 0-1:"  " *:"} {
    checkbutton $w.res.e$i -variable $v -offvalue 0 -onvalue 1
    label $w.res.$i -text $text -font $regular
    pack $w.res.$i $w.res.e$i -side left
  }

  label $w.gl.l1 -textvar ::tr(GameLength:) -font $bold
  label $w.gl.l2 -text "-" -font $regular
  label $w.gl.l3 -textvar ::tr(HalfMoves) -font $regular
  entry $w.gl.emin -textvariable sGlMin -justify right -width 4 -font $regular
  entry $w.gl.emax -textvariable sGlMax -justify right -width 4 -font $regular
  bindFocusColors $w.gl.emin
  bindFocusColors $w.gl.emax
  pack $w.gl -in $w.res -side right -fill x
  pack $w.gl.l1 $w.gl.emin $w.gl.l2 $w.gl.emax $w.gl.l3 -side left

  label $w.eco.l1 -textvar ::tr(ECOCode:) -font $bold
  label $w.eco.l2 -text "-" -font $regular
  label $w.eco.l3 -text " " -font $regular
  label $w.eco.l4 -textvar ::tr(GamesWithNoECO:) -font $bold
  entry $w.eco.emin -textvariable sEcoMin -width 5 -font $regular
  entry $w.eco.emax -textvariable sEcoMax -width 5 -font $regular
  bindFocusColors $w.eco.emin
  bindFocusColors $w.eco.emax
  button $w.eco.range -text "..." -font $regular -pady 2 -padx 4 -command {
    set tempResult [chooseEcoRange]
    if {[scan $tempResult "%\[A-E0-9a-z\]-%\[A-E0-9a-z\]" sEcoMin_tmp sEcoMax_tmp] == 2} {
      set sEcoMin $sEcoMin_tmp
      set sEcoMax $sEcoMax_tmp
    }
    unset tempResult
  }
  radiobutton $w.eco.yes -variable sEco -value Yes -textvar ::tr(Yes) \
     -font $regular
  radiobutton $w.eco.no -variable sEco -value No -textvar ::tr(No) \
     -font $regular
  pack $w.eco -side top -fill x
  pack $w.eco.l1 $w.eco.emin $w.eco.l2 $w.eco.emax \
    $w.eco.range $w.eco.l3 $w.eco.l4 $w.eco.yes $w.eco.no -side left

  set f [frame $w.gnum]
  pack $f -side top -fill x
  label $f.l1 -textvar ::tr(GlistGameNumber:) -font $bold
  entry $f.emin -textvariable sGnumMin -width 8 -justify right -font $regular
  label $f.l2 -text "-" -font $regular
  entry $f.emax -textvariable sGnumMax -width 8 -justify right -font $regular
  pack $f.l1 $f.emin $f.l2 $f.emax -side left
  bindFocusColors $f.emin
  bindFocusColors $f.emax
  label $f.l3 -text " " -font $regular
  button $f.all -text [capital $::tr(all)] -pady 2 -font $regular \
    -command {set sGnumMin 1; set sGnumMax -1}
  menubutton $f.first -textvar ::tr(First...) -pady 2 -font $regular \
    -menu $f.first.m -indicatoron 0 -relief raised
  menubutton $f.last -textvar ::tr(Last...) -pady 2 -font $regular \
    -menu $f.last.m -indicatoron 0 -relief raised
  menu $f.first.m -font $regular
  menu $f.last.m -font $regular
  foreach x {10 50 100 500 1000 5000 10000} {
    $f.first.m add command -label $x \
      -command "set sGnumMin 1; set sGnumMax $x"
    $f.last.m add command -label $x \
      -command "set sGnumMin -$x; set sGnumMax -1"
  }
  pack $f.l3 $f.all $f.first $f.last -side left -padx 2

  set f [frame $w.pgntext]
  pack $f -side top -fill x
  label $f.l1 -textvar ::tr(PgnContains:) -font $bold
  entry $f.e1 -textvariable sPgntext(1) -width 15 -font $regular
  label $f.l2 -text "+" -font $regular
  entry $f.e2 -textvariable sPgntext(2) -width 15 -font $regular
  label $f.l3 -text "+" -font $regular
  entry $f.e3 -textvariable sPgntext(3) -width 15 -font $regular
  bindFocusColors $f.e1
  bindFocusColors $f.e2
  bindFocusColors $f.e3
  pack $f.l1 $f.e1 $f.l2 $f.e2 $f.l3 $f.e3 -side left

  addHorizontalRule $w

  button $w.flagslabel -textvar ::tr(FindGamesWith:) -font $bold -command {
    if {$sHeaderFlagFrame} {
      set sHeaderFlagFrame 0
      pack forget .sh.flags
    } else {
      set sHeaderFlagFrame 1
      pack .sh.flags -side top -after .sh.flagslabel
    }
  }
  pack $w.flagslabel -side top

  frame $w.flags
  if {$::sHeaderFlagFrame} {
    pack $w.flags -side top
  }

  set count 0
  set row 0
  set col 0
  foreach var $::sHeaderFlagList {
    set lab [label $w.flags.l$var -textvar ::tr($var) -font font_Small]
    grid $lab -row $row -column $col -sticky e
    incr col
    grid [radiobutton $w.flags.yes$var -variable sHeaderFlags($var) \
            -ind 0 -value yes -text $::tr(Yes) -padx 2 -pady 0 \
            -font font_Small] \
      -row $row -column $col
    incr col
    grid [radiobutton $w.flags.no$var -variable sHeaderFlags($var) \
            -ind 0 -value no -text $::tr(No) -padx 2 -pady 0 \
            -font font_Small] \
      -row $row -column $col
    incr col
    grid [radiobutton $w.flags.both$var -variable sHeaderFlags($var) \
            -ind 0 -value both -text $::tr(Both) -padx 2 -pady 0 \
            -font font_Small] \
      -row $row -column $col
    incr count
    incr col -3
    incr row
    if {$count == 6} { set col 5; set row 0 }
    if {$count == 12} { set col 10; set row 0 }
  }
  grid [label $w.flags.space -text "" -font $regular] -row 0 -column 4
  grid [label $w.flags.space2 -text "" -font $regular] -row 0 -column 9

  addHorizontalRule $w
  search_addFilterOpFrame $w 1
  addHorizontalRule $w

  ### Header search: search/cancel buttons

  frame $w.b
  pack $w.b -side top -pady 2 -fill x
  button $w.b.defaults -textvar ::tr(Defaults) -padx 20 \
    -command searchHeaderDefaults
  button $w.b.save -textvar ::tr(Save...) -padx 20 -command saveHeaderSearch
  button $w.b.stop -textvar ::tr(Stop) -command sc_progressBar
  button $w.b.search -textvar ::tr(Search) -padx 20 -command {
    set sPgnlist {}
    foreach i {1 2 3} {
        set temp [string trim $sPgntext($i)]
        if {$temp != ""} { lappend sPgnlist $temp }
    }
    busyCursor .
    pack .sh.b.stop -side right -padx 5
    grab .sh.b.stop
    sc_progressBar .sh.progress bar 301 21 time
    set wtitles {}
    set btitles {}
    foreach i $sTitleList {
      if $sTitles(w:$i) { lappend wtitles $i }
      if $sTitles(b:$i) { lappend btitles $i }
    }
    set str [sc_search header -white $sWhite -black $sBlack \
               -event $sEvent -site $sSite -round $sRound \
               -date [list $sDateMin $sDateMax] \
               -results [list $sResWin $sResDraw $sResLoss $sResOther] \
               -welo [list $sWhiteEloMin $sWhiteEloMax] \
               -belo [list $sBlackEloMin $sBlackEloMax] \
               -delo [list $sEloDiffMin $sEloDiffMax] \
               -eco [list $sEcoMin $sEcoMax $sEco] \
               -length [list $sGlMin $sGlMax] \
               -gameNumber [list $sGnumMin $sGnumMax] \
               -flip $sIgnoreCol -filter $filterOp \
               -fStdStart $sHeaderFlags(StdStart) \
               -fPromotions $sHeaderFlags(Promotions) \
               -fComments $sHeaderFlags(Comments) \
               -fVariations $sHeaderFlags(Variations) \
               -fAnnotations $sHeaderFlags(Annotations) \
               -fDelete $sHeaderFlags(DeleteFlag) \
               -fWhiteOp $sHeaderFlags(WhiteOpFlag) \
               -fBlackOp $sHeaderFlags(BlackOpFlag) \
               -fMiddlegame $sHeaderFlags(MiddlegameFlag) \
               -fEndgame $sHeaderFlags(EndgameFlag) \
               -fNovelty $sHeaderFlags(NoveltyFlag) \
               -fPawnStruct $sHeaderFlags(PawnFlag) \
               -fTactics $sHeaderFlags(TacticsFlag) \
               -fKingside $sHeaderFlags(KsideFlag) \
               -fQueenside $sHeaderFlags(QsideFlag) \
               -fBrilliancy $sHeaderFlags(BrilliancyFlag) \
               -fBlunder $sHeaderFlags(BlunderFlag) \
               -fUser $sHeaderFlags(UserFlag) \
               -pgn $sPgnlist -wtitles $wtitles -btitles $btitles \
              ]

    grab release .sh.b.stop
    pack forget .sh.b.stop
    unbusyCursor .

    .sh.status configure -text $str
    set glstart 1
    updateGList
    updateStatsWin
  }

  button $w.b.cancel -textvar ::tr(Close) -padx 20 \
    -command {focus .; destroy .sh}

  foreach i {defaults save cancel search stop} {
    $w.b.$i configure -font $regular
  }

  pack $w.b.defaults $w.b.save -side left -padx 5
  pack $w.b.cancel $w.b.search -side right -padx 5


  canvas $w.progress -height 20 -width 300 -bg white -relief solid -border 1
  $w.progress create rectangle 0 0 0 0 -fill blue -outline blue -tags bar
  $w.progress create text 295 10 -anchor e -font font_Regular -tags time \
    -fill black -text "0:00 / 0:00"
  pack $w.progress -side top -pady 2
  label $w.status -text "" -width 1 -font font_Small -relief sunken -anchor w
  pack $w.status -side bottom -fill x
  update
  wm resizable $w 0 0
  standardShortcuts $w
  configSearchState
  focus $w.white.e
}

proc saveHeaderSearch {} {
  global sWhite sBlack sEvent sSite sRound sDateMin sDateMax sIgnoreCol
  global sWhiteEloMin sWhiteEloMax sBlackEloMin sBlackEloMax
  global sEloDiffMin sEloDiffMax
  global sEco sEcoMin sEcoMax sHeaderFlags
  global sResWin sResLoss sResDraw sResOther glstart filterOp sPgntext

  set ftype { { "Scid SearchOptions files" {".sso"} } }
  set fName [tk_getSaveFile -initialdir [pwd] -filetypes $ftype -title "Create a SearchOptions file"]
  if {$fName == ""} { return }

  if {[string compare [file extension $fName] ".sso"] != 0} {
    append fName ".sso"
  }

  if {[catch {set searchF [open [file nativename $fName] w]} ]} {
    tk_messageBox -title "Error: Unable to open file" -type ok -icon error \
      -message "Unable to create SearchOptions file: $fName"
    return
  }
  puts $searchF "\# SearchOptions File created by Scid [sc_info version]"
  puts $searchF "set searchType Header"

  # First write the regular variables:
  foreach i {sWhite sBlack sEvent sSite sRound sDateMin sDateMax sResWin
     sResLoss sResDraw sResOther sWhiteEloMin sWhiteEloMax sBlackEloMin
     sBlackEloMax sEcoMin sEcoMax filterOp sEloDiffMin sEloDiffMax
     sIgnoreCol} {
    puts $searchF "set $i [list [set $i]]"
  }

  # Now write the array values:
  foreach i [array names sHeaderFlags] {
    puts $searchF "set sHeaderFlags($i) [list $sHeaderFlags($i)]"
  }
  foreach i [array names sPgntext] {
    puts $searchF "set sPgntext($i) [list $sPgntext($i)]"
  }

  tk_messageBox -type ok -icon info -title "Search Options saved" \
    -message "Header search options saved to: $fName"
  close $searchF
}


##############################
### Selecting common ECO ranges

set ecoCommonRanges {
  {A04-A09  Reti: 1.Nf3}
  {A10-A39  English: 1.c4}
  {A40-A49  1.d4, 1.d4 Nf6 Miscellaneous}
  {A45l-A45z  Trompowsky: 1.d4 Nf6 2.Bg5}
  {A51-A52  Budapest: 1.d4 Nf6 2.c4 e5}
  {A53-A55  Old Indian: 1.d4 Nf6 2.c4 d6}
  {A57-A59  Benko Gambit: 1.d4 Nf6 2.c4 c5 3.d5 b5}
  {A60-A79  Modern Benoni: 1.d4 Nf6 2.c4 c5 3.d5 e6}
  {A80-A99  Dutch Defence: 1.d4 f5}
  {____________________________________________________________}
  {B00-C99  1.e4}
  {B01-B01     Scandinavian: 1.e4 d5}
  {B02-B05     Alekhine Defence: 1.e4 Nf6}
  {B07-B09     Pirc: 1.e4 d6}
  {B10-B19     Caro-Kann: 1.e4 c6}
  {B12i-B12z      Caro-Kann: Advance: 1.e4 c6 2.d4 d5 3.e5}
  {B20-B99  Sicilian: 1.e4 c5}
  {B22-B22     Sicilian: Alapin: 1.e4 c5 2.c3}
  {B23-B26     Sicilian: Closed: 1.e4 c5 2.Nc3}
  {B30-B39     Sicilian: 1.e4 c5 2.Nf3 Nc6}
  {B40-B49     Sicilian: 1.e4 c5 2.Nf3 e6}
  {B50-B59     Sicilian Rauzer: 1.e4 c5 2.Nf3 d6 ... 5.Nc3 Nc6}
  {B70-B79     Sicilian Dragon: 1.e4 c5 2.Nf3 d6 ... 5.Nc3 g6}
  {B80-B89     Sicilian Scheveningen: 1.e4 c5 2.Nf3 d6 ... 5.Nc3 e6}
  {B90-B99     Sicilian Najdorf: 1.e4 c5 2.Nf3 d6 ... 5.Nc3 a6}
  {____________________________________________________________}
  {C00-C19  French Defence: 1.e4 e6}
  {C02-C02     French: Advance: 1.e4 e6 2.d4 d5 3.e5}
  {C03-C09     French: Tarrasch: 1.e4 e6 2.d4 d5 3.Nd2}
  {C15-C19     French: Winawer: 1.e4 e6 2.d4 d5 3.Nc3 Bb4}
  {C20-C99  Open Game: 1.e4 e5}
  {C25-C29     Vienna: 1.e4 e5 2.Nc3}
  {C30-C39     King's Gambit: 1.e4 e5 2.f4}
  {C42-C43     Russian Game: 1.e4 e5 2.Nf3 Nf6}
  {C44-C49     Open Game: 1.e4 e5 2.Nf3 Nc6}
  {C50-C59     Italian/Two Knights: 1.e4 e5 2.Nf3 Nc6 3.Bc4}
  {C60-C99  Spanish: 1.e4 e5 2.Nf3 Nc6 3.Bb5}
  {C68-C69      Spanish: Exchange: 3.Bb5 a6 4.Bxc6}
  {C80-C83      Spanish: Open: 3.Bb5 a6 4.Ba4 Nf6 5.O-O Nxe4}
  {C84-C99      Spanish: Closed: 3.Bb5 a6 4.Ba4 Nf6 5.O-O Be7}
  {____________________________________________________________}
  {D00-D99  Queen's Pawn: 1.d4 d5}
  {D10-D19  Slav: 1.d4 d5 2.c4 c6}
  {D20-D29  QGA: 1.d4 d5 2.c4 dxc4}
  {D30-D69  QGD: 1.d4 d5 2.c4 e6}
  {D35-D36     QGD: Exchange: 1.d4 d5 2.c4 e6 3.cxd5 exd5}
  {D43-D49     Semi-Slav: 3.Nc3 Nf6 4.Nf3 c6}
  {D50-D69     QGD with Bg5: 1.d4 d5 2.c4 e6 3.Nc3 Nf6 4.Bg5}
  {D60-D69     QGD: Orthodox: 4.Bg5 Be7 5.e3 O-O 6.Nf3 Nbd7}
  {D70-D99  Grnfeld: 1.d4 Nf6 2.c4 g6 with 3...d5}
  {D85-D89     Grnfeld: Exchange: 3.Nc3 d5 4.e4 Nxc3 5.bxc3}
  {D96-D99     Grnfeld: Russian: 3.Nc3 d5 4.Nf3 Bg7 5.Qb3}
  {____________________________________________________________}
  {E00-E09  Catalan: 1.d4 Nf6 2.c4 e6 3.g3/...}
  {E02-E05     Catalan: Open: 3.g3 d5 4.Bg2 dxc4}
  {E06-E09     Catalan: Closed: 3.g3 d5 4.Bg2 Be7}
  {E12-E19  Queen's Indian: 1.d4 Nf6 2.c4 e6 3.Nf3 b6}
  {E20-E59  Nimzo-Indian: 1.d4 Nf6 2.c4 e6 3.Nc3 Bb4}
  {E32-E39     Nimzo-Indian: Classical: 4.Qc2}
  {E40-E59     Nimzo-Indian: Rubinstein: 4.e3}
  {E60-E99  King's Indian: 1.d4 Nf6 2.c4 g6}
  {E80-E89     King's Indian: Smisch: 4.e4 d6 5.f3}
  {E90-E99     King's Indian: Main Line: 4.e4 d6 5.Nf3}
}

set scid_ecoRangeChosen ""

proc chooseEcoRange {} {
  global ecoCommonRanges scid_ecoRangeChosen
  if {[winfo exists .ecoRangeWin]} { return }
  set w .ecoRangeWin
  toplevel $w
  wm title $w "Scid: Choose ECO Range"
  wm minsize $w 30 5

  listbox $w.list -yscrollcommand "$w.ybar set" -height 20 -width 60 \
    -background white -selectbackground lightBlue -setgrid 1
  foreach i $ecoCommonRanges { $w.list insert end $i }
  scrollbar $w.ybar -command "$w.list yview" -takefocus 0
  pack [frame $w.b] -side bottom -fill x
  pack $w.ybar -side right -fill y
  pack $w.list -side left -fill both -expand yes

  button $w.b.ok -text "OK" -command {
    set sel [.ecoRangeWin.list curselection]
    if {[llength $sel] > 0} {
      set scid_ecoRangeChosen [lindex $ecoCommonRanges [lindex $sel 0]]
    }
    focus .
    destroy .ecoRangeWin
  }
  button $w.b.cancel -text $::tr(Cancel) -command "focus .; destroy $w"
  pack $w.b.cancel $w.b.ok -side right -padx 5 -pady 2
  bind $w <Escape> "
    set scid_ecoRangeChosen {}
    grab release $w
    focus .
    destroy $w
    break"
  bind $w <Return> "$w.b.ok invoke; break"
  bind $w.list <Double-ButtonRelease-1> "$w.b.ok invoke; break"
  focus $w.list
  grab $w
  tkwait window $w
  return $scid_ecoRangeChosen
}


###
### End of file: search.tcl

# ezsmtp.tcl --
#
#	"Easy" SMTP-base mail sending library.  See the ezsmtp.html
#	file for documentation on using this package.
#
# Copyright (c) 1999-2000 by D. J. Hagberg and other parties
#
# See the file "license.txt" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

package provide ezsmtp 1.0.0

namespace eval ::ezsmtp {
    global env tcl_platform
    variable mail

    # Make CVS version ID accessible.
    set mail(cvsid) \
            {$Id: ezsmtp.tcl,v 1.1.1.1 2002/01/18 20:46:30 petervr Exp $}

    # Global variables that may be altered through ezsmtp::config.
    set mail(vars) [list verbose mailhost port from batchsize \
                         logproc strictaddr]
    set mail(verbose) 0                 ;# No logging output
    set mail(mailhost) localhost        ;# Host with smtp daemon
    set mail(port) 25                   ;# port for smtp daemon
    set mail(batchsize) 0               ;# no batching of RCPT TO's.
    set mail(logproc) {}		;# empty means log to stdout.
    set mail(strictaddr) 0		;# should we enforce RFC821 addresses?

    # Try to figure out a reasonable default FROM.
    # Tcl8.1 already has figured out the username for us.
    # Older versions are not so nice-- need to look in the environment
    if {[info exists tcl_platform(user)]} {set mail(from) $tcl_platform(user)}\
    elseif {[info exists env(LOGNAME)]}   {set mail(from) $env(LOGNAME)} \
    elseif {[info exists env(USERNAME)]}  {set mail(from) $env(USERNAME)} \
    elseif {[info exists env(USER)]}      {set mail(from) $env(USER)} \
    else   {set mail(from) {}}
    
    # Trim any leading/trailing spaces and add @ current host name
    set mail(from) [string trim $mail(from)]
    if {[string length $mail(from)] > 0} {
        append mail(from) @ [info hostname]
    }

    # Regular-expression for validating email addresses.
    set mail(hostre) {[A-Za-z]([A-Za-z0-9-]*[A-Za-z0-9])*|\#[0-9]+|}
    append mail(hostre) {\[[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\]}
    set mail(hostre) "($mail(hostre))(\\.($mail(hostre)))*"
    set mail(strictre) "^\[^\x01-\x20\x7F-\xFF<>@\]+@"
    append mail(strictre) $mail(hostre) {$}
    set mail(!strictre) {^[^@]+|[^@]+@[^@]+$}

    # Default character set/encoding settings
    set mail(tclcharset) ascii
    set mail(mimecharset) us-ascii

    # Package-wide header settings to be sent in the DATA section of the email.
    # Note each header variable is a list -- one element per line.
    set mail(x-mailer) "Tcl ezsmtp Mailer Package"
    if {[llength $mail(cvsid)] > 2} {
        append mail(x-mailer) " (build " [lindex $mail(cvsid) 3] ")"
    }
    set mail(x-mailer:)     [list $mail(x-mailer)]
    set mail(mime-version:) [list "1.0"]
}


#############################################################################
##
## PUBLICALLY-DOCUMENTED PROCS
##
#############################################################################


# ezsmtp::config --
#
#	See documentation for details.
#
# Arguments:
#	args		Options parsed by the procedure.
# Results:
#	See documentation
#
proc ::ezsmtp::config {args} {
    variable mail

    if {[llength $args] == 0} {
        set resl {}
        foreach v $mail(vars) {lappend resl "-$v" [set mail($v)]}
        return $resl
    }

    # Build up a list of valid switches.
    set swl {}
    foreach sw $mail(vars) {lappend swl "-$sw"}

    # If we got a single arg, return its associated variable value
    if {[llength $args] == 1} {
        set v [lindex $args 0]
        if {[lsearch $swl $v] == -1} {
            error "invalid config option, must be one of: $swl"
	}
        return $mail([string trimleft $v -])
    }

    # If we got multiple args, make sure we got an even number.
    set argc [llength $args]
    if {$argc % 2} {
        error "must have an even number of config -option value's."
    }

    # Try each -option/value
    foreach {sw v} $args {
        if {[lsearch $swl $sw] == -1} {
            error "invalid config option, must be one of $swl"
	}

        # Verify numeric & other config values.
        switch -regexp -- $sw {
            {^-(verbose|batchsize)} { 
                set v [expr {int($v)}]
                if {$v < 0} {
                    error "config value for $sw must be a number >= 0"
		}
	    }
            {^-strictaddr$} {
                set v [expr {$v ? 1 : 0}]
	    }
            {^-from$} {
                set v [private_valid_address $v -from]
	    }
            default { }
        }
        set mail([string trimleft $sw -]) $v
    }

    return 1
}


# ezsmtp::send --
#
#	See documentation for details.
#
# Arguments:
#	args		Options parsed by the procedure.
# Results:
#	Throws an error if anything goes wrong.
#
proc ::ezsmtp::send {args} {
    global errorInfo errorCode
    variable mail

    # Set defaults for the current send based on global variables
    foreach v [list mailhost port from batchsize tclcharset mimecharset] {
        set cur($v) [set mail($v)]
    }

    # Start with an empty recipient list and return-receipt disabled
    set cur(rcpt) {}
    set cur(receipt) 0

    # process arguments to smtp::send.
    set validopts [list -subject -from -mailhost -port -channel -body \
            -batchsize]
    set argc [llength $args]
    for {set i 0} {$i < $argc} {incr i} {
        set arg [lindex $args $i]
        switch -regexp -- $arg {
            {^-headers$} {
                incr i; set arg [lindex $args $i]
                if {[llength $arg] % 2} {
                    error "Invalid -headers.  Must be a well-formatted list\
                            of even length with alternating keys/values."
                }
                foreach {k v} $arg { private_add_header cur $k $v }
            }
            {^-(to|cc|bcc|tolist|cclist|bcclist|replyto|replytolist)$} {
                incr i
                set recip [lindex $args $i]
                private_add_recip cur [string trimleft $arg -] $recip
            }
            {^-receipt$} {
                incr i
                private_return_receipt cur [lindex $args $i]
            }
            {^-charset$} {
                incr i
                private_set_charset cur [lindex $args $i]
            }
	    {^-} {
                if {[lsearch $validopts $arg] == -1} {
                    error "Unknown option: $arg.  Must be one of: -headers\
                            -to -cc -bcc -tolist -cclist -bcclist -replyto\
                            -replytolist $validopts"
		}
                incr i
                set cur([string trimleft $arg -]) [lindex $args $i]
            }
            default {
                break
            }
        }
    }

    # Throw an error on any remaining arguments.  Older versions (< 1.0)
    # allowed addresses to be specified after the last arg...
    if {$i < [llength $args]} {
        error "Unknown argument(s): [lrange $args $i [expr\
                {[llength $args]-1}]].  Please read the docs about\
                ezsmtp::send -to/-cc/-bcc/-tolist/-cclist/-bcclist."
    }

    # Make sure we have at least one recipient.
    if {[llength $cur(rcpt)] < 1} {
        error "Missing RECIPIENTs.  Must be: ...send ?options?\
                ?RECIPIENT? ?RECIPIENT...?"
    }

    # Make sure we have a from address and header configured
    set cur(from) [string trim $cur(from)]
    if {![string length $cur(from)]} {
        error "no from address has been specified (length=0)"
    }
    if {![info exists cur(from:)]} {private_add_header cur from $cur(from)}
    set cur(from) [private_valid_address $cur(from) -from]

    # Make sure we have either -channel or -body specified.
    if {[info exists cur(channel)] && [info exists cur(body)]} {
        error "Cannot specify both -channel and -body options."
    } elseif {!([info exists cur(channel)] || [info exists cur(body)])} {
        error "Must specify either -channel or -body option."
    }

    # Open a socket to the SMTP server and send the message, catching any
    # errors to ensure the socket gets closed.  Rethrow error after close.
    set s [socket $cur(mailhost) $cur(port)]
    if {[catch [list private_smtp_begin $s cur] msg]} {
        set tmp_EI $::errorInfo; set tmp_EC $::errorCode
        private_log 9 "errorCode=$tmp_EC errorInfo=$tmp_EI"
        catch [list close $s]
        error $msg $tmp_EI $tmp_EC
    }
    catch [list close $s]
    return $msg
}



#############################################################################
##
## PRIVATE PROCS - SUBJECT TO RADICAL CHANGE ON THE SLIGHTEST WHIM.
##
#############################################################################


# ezsmtp::private_add_header --
#
#	Validate and add a single header to the list of email headers to be 
#	sent before the message.
#
# Arguments:
#	var		Variable name for associative array in the calling 
#			proc containing the specification for this send.
#	key		An RFC822-compliant header name without the trailing
#			colon.  Example: Reply-To
#	value		Value to be sent for the above header name.  Multi-line
#			headers may be specified using newline (\n) separators.
# Results:
#	Throws an error if anything goes wrong.
#
proc ::ezsmtp::private_add_header {var key value} {
    upvar 1 $var cur
    variable mail

    # Force the header name to lower case and ensure RFC compliance.
    set key [string tolower $key]
    if {[regexp "\[\x01-\x20\x7F-\xFF:\]" $key]} {
        error "Invalid header name ($key).  RFC 822 stipulates ASCII\
                Characters excluding CTRL characters, space, and `:'"
    }

    # split value into lines, trimming leading and trailing space.
    set vall {}
    foreach ln [split $value \n] {
        set ln [string trim $ln]
        if {[string length $ln] > 65} {
            private_log 2 "Header $key contains line longer than 65\
                    chars:\n$ln"
        }
        lappend vall $ln
    }
    
    # set in the current send session's array by appending colon to key.
    private_log 6 "Header $key=[join $vall "\n\t"]"
    set cur([set key]:) $vall
}


# ezsmtp::private_set_charset --
#
#	Validate and set the Tcl socket encoding and default MIME charset 
#	for this send.
#
# Arguments:
#	var		Variable name for associative array in the calling 
#			proc containing the specification for this send.
#	value		A Tcl list with either 1 or 2 elements, per the
#			docs for ezsmtp::send -charset
# Results:
#	Throws an error if anything goes wrong.
#
proc ::ezsmtp::private_set_charset {var value} {
    upvar 1 $var cur
    global tcl_version

    if {$tcl_version < 8.1} {
        error "Cannot specify -charset running in Tcl versions < 8.1"
    }

    if {[llength $value] == 1} {
        set cstcl [string tolower [lindex $value 0]]
        if {[string compare $cstcl ascii] == 0} {
            set csmime us-ascii
	} else {
            set csmime $cstcl
	}
    } elseif {[llength $value] == 2} {
        set cstcl [string tolower [lindex $value 0]]
        set csmime [string tolower [lindex $value 1]]
    } else {
        error "-charset value must be a Tcl list with either one or two\
                elements"
    }
    if {[lsearch -exact [encoding names] $cstcl] == -1} {
        error "charset $cstcl is not a valid Tcl encoding"
    }
    set cur(mimecharset) $csmime
    set cur(tclcharset) $cstcl
}


# ezsmtp::private_add_recip --
#
#	Add a single or list of recipients/respondants as either `To:', 
#	`Cc:', Bcc, or `Reply-To:' addresses.
#
# Arguments:
#	var		Variable name for associative array in the calling 
#			proc containing the specification for this send.
#	type		One of to, cc, bcc, replyto, tolist, cclist, bcclist,
#			or replytolist.
#	value		If the `type' specified is one of tolist, cclist, 
#			bcclist, or replytolist this must be a well-formed Tcl
#			list of addresses.  If the `type' specified is one of
#			to, cc, bcc, or replyto this must be a single email 
#			address to add.
# Results:
#	Throws an error if anything goes wrong.
#
proc ::ezsmtp::private_add_recip {var type value} {
    upvar 1 $var cur
    variable mail
    set rcpt_added 0
    set is_replyto 0
    set is_bcc 0

    # decide whether "value" is a list or a single-element address 
    # based on whether the type ends in "list".  If it ends in "list", 
    # strip that off the end.  If no recipients, return immediately.
    if {[string match *list $type]} {
        set reciplist $value
        regsub {list$} $type {} type
    } else {
        set reciplist [list $value]
    }
    if {[llength $reciplist] < 1} {
        return $rcpt_added
    }

    # At this point $type will be "bcc", "to", "cc", or "replyto".
    # Determine which header variable we will be affecting and make
    # sure it exists, skipping bcc.  "replyto" should be "reply-to" in
    # the headers, so we switch it here.
    if {[string compare $type bcc] == 0} {
        set is_bcc 1
    } elseif {[string compare $type replyto] == 0} {
        set is_replyto 1
        set type reply-to
    }
    if {!$is_bcc} {
        set headvar "cur([set type]:)"
        if {[info exists $headvar]} {
            set curlist [set $headvar]
        } else {
            set curlist {}
        }

        # If current stuff in header and we need to add more to the header,
        # make sure the last element ends with a comma (,).
        if {([llength $curlist] > 0) && ([llength $reciplist] > 0)} {
            set idxend [expr {[llength $curlist]-1}]
            set lastelem [lindex $curlist $idxend]
            append lastelem ","
            set curlist [lreplace $curlist $idxend $idxend $lastelem]
        }
    }

    # Loop through all the addresses passed to this proc
    foreach addr $reciplist {
        set addr [string trim $addr]
        if {![string length $addr]} {
            private_log 1 "WARNING: empty address ignored"
            continue
        }

        # Add the address to `To:', `Cc:', and `Reply-To:' headers verbatim.
        if {!$is_bcc} { lappend curlist "$addr," }

        # Do fussy-validation on the recipient address before adding to rcpt's
        set addr [private_valid_address $addr -$type]

        # Add all but Reply-To addresses to the recipient list
        if {!$is_replyto} {
            lappend cur(rcpt) $addr
	}

        incr rcpt_added
    }

    # Nuke any trailing comma in To:/Cc:/Reply-To: header var's, 
    # then and set header var.
    if {!$is_bcc} {
        if {[llength $curlist] > 0} {
            set idxend [expr {[llength $curlist]-1}]
            set lastelem [string trimright [lindex $curlist $idxend] ,]
            set curlist [lreplace $curlist $idxend $idxend $lastelem]
        }
        set $headvar $curlist
    }

    # Return number of addresses added
    set rcpt_added
}


# ezsmtp::private_return_receipt --
#
#	Sets the return-receipt behavior of this send.  See the docs
#	for ezsmtp::send -receipt to describe the arglist argument.
#
# Arguments:
#	var		Variable name for associative array in the calling 
#			proc containing the specification for this send.
#	arglist		May be either a single boolean element or a key/value
#			list of return-receipt settings, per the docs.
# Results:
#	Throws an error if anything goes wrong.
#
proc ::ezsmtp::private_return_receipt {var arglist} {
    upvar 1 $var cur

    # List of valid keys for -receipt list options
    set validopts [list delivery delay nsmail returnfull envelopeid]

    # Set receipt off and array values to default settings.
    array set cur [list receipt 0 receipt,delivery 1 receipt,delay 1 \
            receipt,nsmail 0 receipt,returnfull 0 receipt,envelopeid {}]

    # Single-argument to -receipt should be a boolean on/off for defaults.
    if {[llength $arglist] == 1} {
        set cur(receipt) [expr {[lindex $arglist 0] ? 1 : 0}]
        return
    }

    # Otherwise, we have a list of arguments that must be validated & set.
    # First, make sure the argument list has a valid length...
    if {([llength $arglist] < 2) || ([llength $arglist] % 2)} {
        error "ERROR: keyvaluelist passed to ezsmtp::send -receipt must have\
                an even number of elements and a length of at least 2 elements"
    }

    # And validate each setting, setting appropriate current-send variable.
    foreach {k v} $arglist {
        switch -exact -- $k {
            envelopeid {
                if {[string length [set v [private_xtext $v]]] > 38} {
                    error "ERROR: encoded envelope ID ($v) is too long.  Must\
                            be < 38 chars encoded."
		}
                set cur(receipt,$k) $v
	    }
            default {
                if {[lsearch -exact $validopts $k] == -1} {
                    error "ERROR: bad setting for -receipt key.  Must be 1 of:\
                             [join $validopts { }]"
		}
                set cur(receipt,$k) [expr {$v ? 1 : 0}]
	    }
	}
    }
    set cur(receipt) 1
}


# ezsmtp::private_smtp_begin --
#
#	Start the send by trying EHLO/HELO greeting followed by one or more
#	SMTP conversations, optionally batching some number of recipients.
#
# Arguments:
#	s		Open socket to SMTP server.
#	var		Variable name for associative array in the calling 
#			proc containing the specification for this send.
# Results:
#	Throws an error if anything goes wrong.
#
proc ::ezsmtp::private_smtp_begin {s var} {
    upvar 1 $var cur
    global tcl_version
    variable mail

    # Set up the socket for line-buffering/translation.  Only set encoding
    # if we're running in Tcl 8.1 or newer that supports encodings.
    if {$tcl_version < 8.1} {
        fconfigure $s -buffering line -blocking 1 -eofchar {} \
                -translation {auto crlf}
    } else {
        fconfigure $s -buffering line -blocking 1 -eofchar {} \
                -translation {auto crlf} -encoding $cur(tclcharset)
    }
    private_log 2 "Opened connection to SMTP server $cur(mailhost)"
    private_read_all $s 3 220

    # Try to set up for ESMTP conversation
    set cur(esmtp) 0
    private_send_line $s 3 "EHLO [info hostname]"
    set buf [private_read_all $s 3 {[0-9][0-9][0-9]}]
    if {[string match "250*" $buf]} {
        set cur(esmtp) 1
        set buf [split $buf \n]
        foreach ln [lrange $buf 1 [expr {[llength $buf]-1}]] {
            if {[regexp -nocase \
		    "^250\[ -\](\[A-Z0-9\]\[A-Z0-9-\]*) (\[^\x01-\x20\x7F\])"\
                    $ln nil ehlo_keyword ehlo_param]} {
                set ehlo_keyword [string tolower $ehlo_keyword]
                set ehlo_param [string tolower $ehlo_param]
                set cur(esmtp,$ehlo_keyword) $ehlo_param
	    } elseif {[regexp -nocase "^250\[ -\](\[A-Z0-9\]\[A-Z0-9-\]*)" \
                    $ln nil ehlo_keyword]} {
                set ehlo_keyword [string tolower $ehlo_keyword]
                set cur(esmtp,$ehlo_keyword) 1
	    }
	}
    } else {
        # Otherwise, set up for normal RFC-821 SMTP conversation.
        private_send_line $s 3 "HELO [info hostname]"
        private_read_all $s 3 250
    }

    # If user requested return-receipt but not supported by server, bail.
    if {$cur(receipt) && ![info exists cur(esmtp,dsn)]} {
        error "ERROR: Server does not support DSN for return receipt"
    }

    # If user requested 8bit charset but not supported by server, bail.
    if {([string compare $cur(tclcharset) ascii] != 0) && \
            ![info exists cur(esmtp,8bitmime)]} {
        error "Server does not support 8-bit characters"
    }

    # If we are not doing any batching, do a straightforward send
    set sentcnt 0
    set rcptlen [llength $cur(rcpt)]
    if {($cur(batchsize) <= 0) || ($rcptlen <= $cur(batchsize))} {
        private_log 1 "Starting mail send to [join $cur(rcpt) {, }]"
        private_smtp_batch $s cur 0 [expr {$rcptlen-1}]
        incr sentcnt $rcptlen
        private_log 1 "Mail sent OK"
        return $sentcnt
    }

    # If we are batching sends and reading message body from a channel,
    # find out what position we are in the channel if we are sending to
    # more addr's than our batch size, to allow multiple send batches.
    if {[info exists cur(channel)] && [info exists cur(batchsize)]} {
        set cur(channelpos) [tell $cur(channel)]
        if {($cur(channelpos) == -1) && ($cur(batchsize) > 0)} {
            error "Channel must be seek-able when a batch size has been\
                    specified."
	}
    }

    # Loop through the batches of recipients
    set i 0
    while {$i < $rcptlen} {
        set e [expr {$i+$cur(batchsize)-1}]
        if {$e >= $rcptlen} {
            set e [expr {$rcptlen-1}] 
        }
        private_log 1 "Starting mail send for recipients $i to $e:\n \
                [join [lrange $cur(rcpt) $i $e] "\n  "]"
        private_smtp_batch $s cur $i $e
        incr sentcnt [expr {$e-$i+1}]
        private_log 1 "Mail sent OK"

        # If we need to, send server a reset and rewind the channel position.
        if {($e < ($rcptlen-1)) && [info exists cur(channelpos)]} {
            seek $cur(channelpos)
        }

        set i [expr {$e + 1}]
    }

    # Return the count of unique recipients
    set sentcnt
}


# ezsmtp::private_smtp_batch --
#
#	Implement the SMTP conversation necessary to send the message
#	to a batch of recipients.  This proc works off a subset of the
#	cur(rcpt) array of recipient email addresses specified by the
#	rcptstart and rcptend arguments.
#
# Arguments:
#	s		Open socket to SMTP server.
#	var		Variable name for associative array in the calling 
#			proc containing the specification for this send.
#	rcptstart	index in the cur(rcpt) array to start
#	rcptend		index in the cur(rcpt) array to end
# Results:
#	Throws an error if anything goes wrong.
#
proc ::ezsmtp::private_smtp_batch {s var rcptstart rcptend} {
    upvar 1 $var cur
    variable mail

    # Reset the SMTP server's state to begin a new conversation
    private_send_line $s 3 "RSET"
    private_read_all $s 3

    # Try to build a valid "MAIL FROM:" command, including return-receipt info
    set cmd "MAIL FROM:<$cur(from)>"
    if {$cur(receipt)} {
        if {$cur(receipt,returnfull)} {append cmd " RET=FULL"} \
        else {append cmd " RET=HDRS"}
        if {[string length $cur(receipt,envelopeid)]} {
            append cmd " ENVID=" $cur(receipt,envelopeid)
	}
    }
    private_send_line $s 3 $cmd
    private_read_all $s 3

    # Build up our `NOTIFY=' extension if necessary
    set notifystr {}
    if {$cur(receipt)} {
        set notifyl [list FAILURE]
        if {$cur(receipt,delivery)} { lappend notifyl SUCCESS }
        if {$cur(receipt,delay)}    { lappend notifyl DELAY }
        append notifystr " NOTIFY=" [join $notifyl ,]
    }

    # Each recipent may be specified as "emailaddr" or "Full Name <emailaddr>"
    set rcptlist [lrange $cur(rcpt) $rcptstart $rcptend]
    foreach r $rcptlist {
        if {$cur(receipt)} {
            set orcptstr " ORCPT=rfc822;[private_xtext $r]"
            private_send_line $s 3 "RCPT TO:<$r>${notifystr}${orcptstr}"
	} else {
            private_send_line $s 3 "RCPT TO:<$r>"
	}
        private_read_all $s 3 {25[01]}
    }

    private_send_line $s 3 "DATA"
    private_read_all $s 3 354

    # Send all the mail headers followed by a blank line
    private_send_mail_headers $s cur

    private_log 4 ">>\[message body\]"
    # If we were given a -body in the send command, split into lines and send,
    # ensuring that we strip any stray CR's.
    if {[info exists cur(body)]} {
        set linenum 0
        regsub -all "\r" $cur(body) {} cur(body)
        foreach line [split $cur(body) \n] {
            incr linenum

            # Force breaks at 998 chars to comply with RFC 821 limit.
            while {[string length $line] > 998} {
                private_log 1 "WARNING: >998 chars split at line $linenum"
                set first998 [string range $line 0 997]
                set line [string range 998 [expr \
                        {[string length $line]-1}]]
                if {[string match ".*" $first998]} {
                    set first998 ".$first998"
                }
                private_send_line $s 5 $first998
	    }

            # Send remainder <= 998 chars.
            if {[string match ".*" $line]} {          ;# Double up leading '.'
                set line ".$line"
            }
            private_send_line $s 5 $line
	}
    }

    # If we were given a -channel in the send command, read from the channel
    # one line at a time and send.  Assuming channel configured to strip CRs.
    if {[info exists cur(channel)]} {
        set linenum 0
        while {[gets $cur(channel) line] != -1} {
            incr linenum

            # Force breaks at 998 chars to comply with RFC 821 limit.
            while {[string length $line] > 998} {
                private_log 1 "WARNING: >998 chars split at line $linenum"
                set first998 [string range $line 0 997]
                set line [string range 998 [expr \
                        {[string length $line]-1}]]
                if {[string match ".*" $first998]} {
                    set first998 ".$first998"
                }
                private_send_line $s 5 $first998
	    }

            # Send remainder <= 998 chars.
            if {[string match ".*" $line]} {          ;# Double up leading '.'
                set line ".$line"
            }
            private_send_line $s 5 $line
        }
    }

    # Finally, send the message terminator and read any result.
    private_send_line $s 4 "."
    private_read_all $s 3
}


# ezsmtp::private_send_mail_headers --
#
#	Output all the available email headers at the beginning of the 
#	message, followed by a single empty line.
#
# Arguments:
#	s		Open socket to SMTP server.
#	var		Variable name for associative array in the calling 
#			proc containing the specification for this send.
# Results:
#	Throws an error if anything goes wrong.
#
proc ::ezsmtp::private_send_mail_headers {s var} {
    upvar 1 $var cur
    variable mail

    set doNotSend [list date: subject: from: bcc: content-type: \
            content-transfer-encoding:]

    # If user didn't force a custom date, use the current time in GMT.
    set frm "%a, %d %b %Y %H:%M:%S +0000"
    if {[info exists cur(date:)]} {
        private_send_header $s date: $cur(date:)
    } else {
        private_send_line $s 4 "Date: [clock format [clock seconds] -gmt 1 \
                -format $frm]"
    }

    # If user didn't specify a custom "From:" header, use the one specified
    # by -from parameter or system default.
    if {[info exists cur(from:)]} {
        private_send_header $s from: $cur(from:)
    } else {
        private_send_line $s 4 "From: $cur(from)"
    }

    # Send -subject parameter if specified, or from Subject: custom header.
    if {[info exists cur(subject)]} {
        private_send_line $s 4 "Subject: $cur(subject)"
    } elseif {[info exists cur(subject:)]} {
        private_send_header $s subject: $cur(subject:)
    }

    # Send the required MIME content-type and content-transfer-encoding.
    if {[info exists cur(content-type:)]} {
        private_send_header $s content-type: $cur(content-type:)
    } else {
        private_send_line $s 4 "Content-Type: text/plain;\
                charset=$cur(mimecharset)"
    }
    if {[info exists cur(content-transfer-encoding:)]} {
        private_send_header $s content-transfer-encoding: \
                $cur(content-transfer-encoding:)
    } elseif {[string compare $cur(tclcharset) ascii] == 0} {
        private_send_line $s 4 "Content-Transfer-Encoding: 7bit"
    } else {
        private_send_line $s 4 "Content-Transfer-Encoding: 8bit"
    }

    # Send the custom headers for this current session.
    foreach h [array names cur *:] {
        if {[lsearch $doNotSend $h] != -1} continue
        private_send_header $s $h $cur($h)
    }

    # Send our global headers IFF they are not excluded or custom to 
    # the current sending session.
    foreach h [array names mail *:] {
        if {[lsearch $doNotSend $h] != -1} continue
        if {[info exists cur($h)]} continue
        private_send_header $s $h $mail($h)
    }

    # Check to see if the user requested netscape-style return-receipt on open
    if {$cur(receipt)} {
        if {$cur(receipt,nsmail) && \
                ![info exists cur(disposition-notification-to:)]} {
            private_send_line $s 4 "Disposition-Notification-To: $cur(from)"
	}
    }

    private_send_line $s 4 ""
}


# ezsmtp::private_send_header --
#
#	Sends a header (possibly multi-line) to the SMTP server socket, 
#	formatting the header in proper-text and indenting subsequent
#	lines with a single tab.
#
# Arguments:
#	s		Open socket to SMTP server.
#	name		Name of the header being sent w/trailing colon,
#			like reply-to:
#	valuel		value of header as a list -- one line per list
#			element.
# Results:
#	Header is formatted and output.  Returns number of lines output.
#
proc ::ezsmtp::private_send_header {s name valuel} {
    set lines 0
    set first [lindex $valuel 0]
    set remain [lrange $valuel 1 [expr {[llength $valuel]-1}]]
    private_send_line $s 4 "[private_proper_header $name] $first"
    incr lines
    foreach ln $remain {
        private_send_line $s 4 "\t$ln"
        incr lines
    }
    set lines
}
       

# ezsmtp::private_send_line --
#
#	Sends a line of text to the SMTP server socket, logging at the
#	specified level.
#
# Arguments:
#	s		Open socket to SMTP server.
#	level		Log level between 0 and 9, where 0 is always,
#			1 is whenever -verbose is on, and 9 is the highest
#			debug level available.  Suggested: 4
#	line		Line of text to be sent to the SMTP server, minus
#			any trailing newline or carriage-return characters.
# Results:
#	Closes socket $s and un-sets buffer and status variables.
#
proc ::ezsmtp::private_send_line {s level line} {
    private_log $level "S: $line"
    puts $s $line
    flush $s
}


# ezsmtp::private_read_all --
#
#	Read all available data from the SMTP server socket, handling
#	multi-line responses if necessary, and checking  for a response 
#	code.
#
# Arguments:
#	s		Open socket to SMTP server.
#	level		log level for data read from the socket.
#	resp		glob-style expression to match against the start of
#			data received from the SMTP server.  If left un-
#			specified, the standard 250 (OK) is expected.
# Results:
#	Throws an error if anything goes wrong or an unexpected response 
#	is seen.  Otherwise, returns the data read from the server, with
#	multi-line responses separated by newline (\n) characters.
#
proc ::ezsmtp::private_read_all {s level {resp 250}} {
    variable mail

    # Read response from SMTP server.  Single line or last line of multi-line
    # response will have three digits followed by a space.  Other multi-line
    # responses will have three digits followed by a dash (RFC 821 appendix E).
    # Anything else, including eof, is an error.
    set buf {}
    while {1} {
        if {[eof $s]} {
            error "ERROR: unexpected EOF waiting for output from SMTP server"
        }
        set ln [gets $s]
        append buf $ln \n
        private_log $level "R: $ln"
        if {[string match {[0-9][0-9][0-9] *} $ln]} {
            break
	}
        if {![string match {[0-9][0-9][0-9]-*} $ln]} {
            error "ERROR: unexpected response from SMTP server.  Expected\
                    three digits followed by either a space or a dash (-)"
	}
    }

    # Validate the start of the response
    if {![string match "$resp*" $buf]} {
        error "ERROR: bad response `$buf', wanted: `$resp'"
    }

    # and return the contents of all lines read, separated by newlines.
    set buf
}


# ezsmtp::private_proper_header --
#
#	Proper-cases an RFC 822-style email header name.
#
# Arguments:
#	h		header name like reply-to
# Results:
#	Returns the header name capitalized as most email users 
#	expect: the first letter of each dash-separated word is 
#	capitalized and the remainder is lower-cased, thus the
#	result from above would be Reply-To
#
proc ::ezsmtp::private_proper_header {h} {
    set h [string tolower $h]
    set resl {}

    # RFC 1521 clearly specifies the exact case, verbatim, for mime-version.
    if {[regexp -nocase mime-version: $h]} {
        return "MIME-Version:"
    }

    # For other headers, we capitalize the leading letter of each dash-
    # separated word.
    foreach elem [split $h -] {
        set str [string toupper [string index $elem 0]]
        append str [string range $elem 1 [expr {[string length $elem]-1}]]
        lappend resl $str
    }
    join $resl -
}


# ezsmtp::private_xtext --
#
#	Encode a string as an RFC 1891-compliant xtext value.  Characters 
#	outside the range ! (33) to ~ (126) or the plus (+ (43)) or 
#	equals (= (61)) characters are coded as the plus sign (+) followed
#	by two upper-case hexadecimal digits representing the character code.
#
# Arguments:
#	str		string to be encoded
# Results:
#	xtext-encoded value of str, per the above spec.
#
proc ::ezsmtp::private_xtext {str} {
    set result {}
    foreach c [split $str {}] {
        scan $c %c x
        if {($x < 33) || ($x > 126) || ($x == 43) || ($x == 61)} {
            append result + [format %02X $x]
        } else {
            append result $c
	}
    }
    set result
}


# ezsmtp::private_valid_address --
#
#	Validate and return the essential part of an email address,
#	using the contents of <addr> inside a `Full Name <addr>' spec.
#
# Arguments:
#	addrspec	address spec like `user@a.com' or
#			`Full Name <user@b.com>'
#	setting		setting to be output in an error message, like
#			-from, -to, ...
# Results:
#	stripped-down email address, if valid.  If invalid, an error is 
#	thrown.
#
proc ::ezsmtp::private_valid_address {addrspec setting} {
    variable mail

    set addrspec [string trim $addrspec]
    if {[regexp {<([^>]*)>$} $addrspec nil inneraddr]} {
        set addrspec [string trim $inneraddr]
    }
    if {$mail(strictaddr)} {set re $mail(strictre)} \
    else {set re $mail(!strictre)}
    if {![regexp $re $addrspec]} {
        error "ERROR: $setting address specified ($addrspec) is not compliant.\
                Must be in a form like `user@a.domain' or `Full Name\
                <user@b.domain>'"
    }
    set addrspec
}


# ezsmtp::private_log --
#
#	Log a progress/debug message to stdout or to a user-customized 
#	procedure.
#
# Arguments:
#	level		numeric level at which to log, usu. between 0 (always)
#			and 9 (low-level full debug).
#	msg		message text to log
# Results:
#	xtext-encoded value of str, per the above spec.
#
proc ::ezsmtp::private_log {level msg} {
    variable mail

    if {$mail(verbose) >= $level} {
        if {[string length $mail(logproc)]} {
            uplevel #0 $mail(logproc) $msg
	} else {
            puts stdout "$msg"
            flush stdout
	}
    }
}
###
### email.tcl: part of Scid.
### Copyright (C) 1999-2001  Shane Hudson.
###

# Email manager window: closed by default
set emailWin 0

# makeEmailWin:
#   Opens the email chess manager window, for sending moves to opponents.
#
proc makeEmailWin {} {
  global emailWin emailData
  if {[winfo exists .emailWin]} {
    destroy .emailWin
    set emailwin 0
    return
  }
  set emailWin 1
  toplevel .emailWin
  wm title .emailWin "Scid: Email Manager"
  wm minsize .emailWin 25 10

  bind .emailWin <Destroy> { set .emailWin 0 }
  bind .emailWin <F1> { helpWindow Email }

  frame .emailWin.f
  frame .emailWin.b
  pack .emailWin.f -side left -fill y
  addVerticalRule .emailWin
  pack .emailWin.b -side right -fill y

  set w .emailWin.f
  label $w.title -text "Opponent list" -font font_Bold
  listbox $w.list -height 16 -width 40 -exportselection false \
    -selectmode browse -selectbackground lightBlue -font font_Fixed \
    -yscrollcommand "$w.scroll set" -background white -setgrid 1
  scrollbar $w.scroll -command "$w.list yview" -takefocus 0
  pack $w -side left -expand true -fill both
  pack $w.title -side top
  pack $w.scroll -side right -fill y
  pack $w.list -side right -expand true -fill both

  bind $w.list <ButtonRelease-1> updateEmailWinButtons
  bind $w.list <Enter> updateEmailWinButtons
  bind $w.list <Key-Up> updateEmailWinButtons
  bind $w.list <Key-Down> updateEmailWinButtons

  bind $w.list <Key-a> {.emailWin.b.add invoke}
  bind $w.list <Key-e> {.emailWin.b.edit invoke}
  bind $w.list <Key-d> {.emailWin.b.delete invoke}
  bind $w.list <Key-l> {.emailWin.b.load invoke}
  bind $w.list <Key-s> {.emailWin.b.send invoke}
  bind $w.list <Key-t> {tkMbPost .emailWin.b.time}

  set w .emailWin.b

  button $w.add -text "Add..." -underline 0 -command {
    set idx [llength $emailData]
    lappend emailData [list "" "" "" "" ""]
    modifyEmailDetails $idx
    updateEmailWin
  }

  button $w.edit -text "Edit..." -underline 0 -command email_EditButton
  button $w.delete -text "Delete..." -underline 0 -command email_DeleteButton
  button $w.load -text "Load game" -underline 0 -command email_LoadButton
  button $w.send -text "Send email..." -underline 0 -command email_SendButton
  menubutton $w.time -text "Time" -underline 0 -indicatoron 1 \
    -menu $w.time.m -relief raised
  menu $w.time.m
  $w.time.m add command -label "Received today" -underline 0 \
    -command {email_TimesButton r}
  $w.time.m add command -label "Sent today" -underline 0 \
    -command {email_TimesButton s}
  $w.time.m add command -label "Edit..." -underline 0 \
    -command {email_TimesButton e}

  button $w.config -text "Settings..." -command email_Config
  button $w.help -text $::tr(Help) -command { helpWindow Email }
  button $w.close -text $::tr(Close) -command { destroy .emailWin }

  foreach i {add edit delete load send time config help close} {
    $w.$i configure -font font_Small
  }
  pack $w.add $w.edit $w.delete $w.load $w.send $w.time \
    -side top -pady 1 -padx 5 -fill x
  pack $w.close $w.help $w.config -side bottom -pady 1 -padx 5  -fill x

  bind .emailWin <Destroy> { set emailWin 0 }
  set emailData [email_readOpponentFile]
  focus .emailWin.f.list
  updateEmailWin
}

proc email_Config {} {
  global email
  set w .emailConf
  toplevel $w
  wm title $w "Scid"
  label $w.use -text "Send email using:" -font font_Bold
  frame $w.smtp
  radiobutton $w.smtp.b -text "SMTP server:" -variable email(smtp) -value 1
  entry $w.smtp.s -width 30 -textvar email(server) -bg white
  frame $w.sm
  radiobutton $w.sm.b -text "sendmail process:" -variable email(smtp) -value 0
  entry $w.sm.s -width 30 -textvar email(smproc) -bg white
  pack $w.use -side top
  pack $w.smtp $w.sm -side top -fill x
  pack $w.smtp.s $w.smtp.b -side right
  pack $w.sm.s $w.sm.b -side right
  addHorizontalRule $w
  label $w.addr -text "Email address fields:" -font font_Bold
  frame $w.from
  label $w.from.lab -text "From:"
  entry $w.from.e -textvar email(from) -width 30 -bg white
  frame $w.bcc
  label $w.bcc.lab -text "Bcc:"
  entry $w.bcc.e -textvar email(bcc) -width 30 -bg white
  pack $w.addr $w.from $w.bcc -side top -fill x
  pack $w.from.e $w.from.lab -side right
  pack $w.bcc.e $w.bcc.lab -side right
  addHorizontalRule $w
  pack [frame $w.b] -side top -fill x
  button $w.b.ok -text [tr OptionsSave] -command {
    .menu.options.m invoke [tr OptionsSave]
    catch {grab release .emailConf}
    destroy .emailConf
  }
  button $w.b.cancel -text $::tr(Cancel) \
    -command "catch {grab release $w}; destroy $w"
  pack $w.b.cancel $w.b.ok -side right -padx 2 -pady 2
  wm resizable $w 1 0
  catch {grab $w}
}

proc email_EditButton {} {
  global emailData
  set sel [.emailWin.f.list curselection]
  if {[llength $sel] == 1} {
    set idx [lindex $sel 0]
    if {[llength $emailData] > $idx} {
      modifyEmailDetails $idx
    }
  }
  updateEmailWin
}

proc email_DeleteButton {} {
  global emailData
  set sel [.emailWin.f.list curselection]
  if {[llength $sel] != 1} { return }
  set idx [lindex $sel 0]
  if {[llength $emailData] <= $idx} { return }
  set confirm [tk_messageBox -icon question -type yesno -default yes \
                 -parent .emailWin -title "Really delete opponent?" \
                 -message "Do you really want to delete this opponent?"]
  if {$confirm == "yes"} {
      set emailData [lreplace $emailData $idx $idx]
    email_writeOpponentFile $emailData
    updateEmailWin
  }
}

proc email_LoadButton {} {
  global emailData
  set sel [.emailWin.f.list curselection]
  if {[llength $sel] != 1} { return }
  set idx [lindex $sel 0]
  if {[llength $emailData] <= $idx} { return }
  set details [lindex $emailData $idx]
  if {[llength [lindex $details 3]] > 0} {
    if {[catch {sc_game load [lindex [lindex $details 3] 0]} result]} {
      tk_messageBox -type ok -icon warning -title "Scid" -message $result
    } else {
      sc_move end
      updateBoardAndPgn .board
      updateTitle
    }
  }
}

proc email_SendButton {} {
  global emailData
  set sel [.emailWin.f.list curselection]
  if {[llength $sel] != 1} { return }
  set idx [lindex $sel 0]
  if {[llength $emailData] <= $idx} { return }
  set details [lindex $emailData $idx]
  emailMessageEditor $idx [lindex $details 0] [lindex $details 1] \
    [lindex $details 2] [lindex $details 3] [lindex $details 4]
}

set emailTimesIdx 0

proc email_TimesButton {type} {
  global emailData emailTimesIdx
  set sel [.emailWin.f.list curselection]
  if {[llength $sel] != 1} { return }
  set idx [lindex $sel 0]
  if {[llength $emailData] <= $idx} { return }
  set details [lindex $emailData $idx]
  while {[llength $details] < 6} { lappend details {} }
  set timeList [lindex $details 5] 
  set last [lindex $timeList end]

  if {$type == "r"  || $type == "s"} {
    email_addSentReceived $idx $type
    return
  }

  set emailTimesIdx $idx
  set w .emailTimesWin
  if {[winfo exists $w]} { return }
  toplevel $w
  wm title $w "Scid: Email Times"
  label $w.title -text "Email Times for [lindex $details 0]"
  frame $w.t
  text $w.t.text -height 15 -width 30 -font font_Fixed -setgrid 1 \
    -yscrollcommand "$w.t.ybar set" -bg white -fg black
  scrollbar $w.t.ybar -command "$w.t.text yview"
  frame $w.b
  button $w.b.ok -text "OK" -command {
    set details [lindex $emailData $emailTimesIdx]
    set timeList [split [string trim [.emailTimesWin.t.text get 1.0 end]] "\n"]
    set details [lreplace $details 5 5 $timeList]
    set emailData [lreplace $emailData $emailTimesIdx $emailTimesIdx $details]
    email_writeOpponentFile $emailData
    grab release .emailTimesWin
    updateEmailWin 0
    catch {focus .emailWin}
    destroy .emailTimesWin
  }
  button $w.b.cancel -text $::tr(Cancel) \
    -command "grab release $w; catch {focus .emailWin}; destroy $w"
  pack $w.title -side top -fill x
  pack $w.t -side top -fill both
  pack $w.t.ybar -side right -fill y
  pack $w.t.text -side left -fill both -expand yes
  pack $w.b -side bottom -fill x
  pack $w.b.cancel $w.b.ok -side right -padx 2 -pady 2
  foreach i $timeList {
    $w.t.text insert end "$i\n"
  }
  grab $w
}

proc email_addSentReceived {idx type} {
  global emailData
  if {[llength $emailData] <= $idx} { return }
  set details [lindex $emailData $idx]
  while {[llength $details] < 6} { lappend details {} }
  set timeList [lindex $details 5] 
  set last [lindex $timeList end]

  set new ""
  if {$type == "r"} { append new "Received " } else { append new "Sent     " }

  set oppGList [lindex $details 3]
  if {[llength $oppGList] > 0} {
    set oppGNum [lindex $oppGList 0]
    sc_game push
    set mnum "     "
    if {[catch {sc_game load $oppGNum}]} {
    } else {
      sc_move end
      set m [llength [split [sc_game moves coord list]]]
      if {$m > 0} {
        set m [expr int(($m+1)/2)]
        set mnum [format "%3d  " $m]
      }
    }
    sc_game pop
    append new $mnum
  }
  append new [::date::today]
  if {! [string compare $last $new]} { return }
  lappend timeList $new
  set details [lreplace $details 5 5 $timeList]
  set emailData [lreplace $emailData $idx $idx $details]
  email_writeOpponentFile $emailData
  updateEmailWin 0
}

proc updateEmailWinButtons {} {
  set sel [.emailWin.f.list curselection]
  if {[llength $sel] > 0} {
    .emailWin.b.edit configure -state normal
    .emailWin.b.delete configure -state normal
    .emailWin.b.load configure -state normal
    .emailWin.b.send configure -state normal
  } else {
    .emailWin.b.edit configure -state disabled
    .emailWin.b.delete configure -state disabled
    .emailWin.b.load configure -state disabled
    .emailWin.b.send configure -state disabled
  }
}

proc updateEmailWin {{clearSelection 1}} {
  global emailWin emailData
  if {! [winfo exists .emailWin]} { return }
  if {$clearSelection} {
    set sel ""
    .emailWin.f.list selection clear 0 end
  } else {
    set sel [lindex [.emailWin.f.list curselection] 0]
  }
  .emailWin.f.list delete 0 end
  # set emailData [lsort -dictionary -index 0 $emailData]
  foreach i $emailData {
    set name [lindex $i 0]
    set time ""
    if {[llength $i] == 6} {
      set timeList [lindex $i 5]
      set time [lindex $timeList end]
    }
    .emailWin.f.list insert end [format "%-14s %s" $name $time]
  }
  if {$sel != ""} {
    .emailWin.f.list selection set $sel
  }
  updateEmailWinButtons
}

#Initial values for globals:
set emailData {}
set emailData_index 0
set emailData_name ""
set emailData_addr ""
set emailData_subj ""
set emailData_glist ""
set emailData_dates ""
set emailData_helpBar {}
array set email_helpBar ""

#Force the game numbers list to be digits and spaces only:
trace variable emailData_glist w {forceRegexp {^[0-9\ ]*$}}


# emailCount: counter to give each email window a unique name.
set emailCount 0

# emailMessageEditor:
#    Contsructs the email message to the opponent and
#    creates the editor window for editing and sending the message.
#
proc emailMessageEditor {idx name addr subj gamelist sig} {
  global emailCount emailData email
  incr emailCount
  if {$emailCount >= 10000} { set emailCount 1 }

  set w ".emailMessageWin$emailCount"
  toplevel $w
  wm title $w "Send email to $name"
  set f [frame $w.fields]

  label $f.fromlab -text "From: "
  entry $f.from -background white
  $f.from insert end $email(from)

  label $f.tolab -text "To: "
  entry $f.to -background white
  $f.to insert end $addr

  label $f.subjlab -text "Subject: "
  entry $f.subj -background white
  $f.subj insert end $subj

  label $f.bcclab -text "Bcc: "
  entry $f.bcc -background white
  $f.bcc insert end $email(bcc)

  button $f.send -text "Send" -command "email_processMessage $w $idx"
  button $f.cancel -text "Cancel" -command "destroy $w"

  grid $f.send -row 0 -column 3 -rowspan 2 -sticky nesw
  grid $f.cancel -row 2 -column 3 -rowspan 2 -sticky nesw
  grid $f.fromlab -row 0 -column 0 -sticky e
  grid $f.from -row 0 -column 1 -sticky ew
  grid $f.tolab -row 1 -column 0 -sticky e
  grid $f.to -row 1 -column 1 -sticky ew
  grid $f.subjlab -row 2 -column 0 -sticky e
  grid $f.subj -row 2 -column 1 -sticky ew
  grid $f.bcclab -row 3 -column 0 -sticky e
  grid $f.bcc -row 3 -column 1 -sticky ew
  grid columnconfigure $f 1 -weight 1

  set f [frame $w.message]
  pack $w.fields -fill x -padx 4 -pady 4
  pack $w.message -expand yes -fill both -padx 4 -pady 4

  scrollbar $f.ybar -command "$f.text yview"
  scrollbar $f.xbar -orient horizontal -command "$f.text xview"
  text $f.text -yscrollcommand "$f.ybar set" -xscrollcommand "$f.xbar set" \
    -setgrid 1 -width 72 -height 20 -background white -wrap none

  grid $f.text -row 0 -column 0 -sticky news
  grid $f.ybar -row 0 -column 1 -sticky news
  grid $f.xbar -row 1 -column 0 -sticky news

  grid rowconfig $w.message 0 -weight 1 -minsize 0
  grid columnconfig $w.message 0 -weight 1 -minsize 0

  # Right-mouse button cut/copy/paste menu:
  menu $f.text.edit -tearoff 0
  $f.text.edit add command -label "Cut" -command "tk_textCut $f.text"
  $f.text.edit add command -label "Copy" -command "tk_textCopy $f.text"
  $f.text.edit add command -label "Paste" -command "tk_textPaste $f.text"
  bind $f.text <ButtonPress-3> "tk_popup $f.text.edit %X %Y"

  set text $w.message.text
  # $text insert end "Hi $name,\n\n"
  $text insert end "\n"
  foreach i $gamelist {
    catch {set gamePgn [sc_game pgn -gameNumber $i -width 70 -tags 0 \
                          -variations 0 -comments 0]}
    $text insert end "$gamePgn\n"
  }
  $text insert end $sig
  return
}

proc email_processMessage {w idx} {
  global emailData
  set from [$w.fields.from get]
  set to [$w.fields.to get]
  set subj [$w.fields.subj get]
  set bcc [$w.fields.bcc get]
  set message [$w.message.text get 1.0 end]
  if {[string trim $to] == ""} {
    tk_messageBox -icon error -type ok -title "Empty email address" \
      -message "You must specify an email address."
    return
  }
  set cmd {email_sendMessage $from $to $subj $bcc $message}
  if {[catch $cmd result] != 0} {
    tk_messageBox -icon error -type ok -title "Error sending email" \
      -message "Error sending email: $result"
  } else {
    email_addSentReceived $idx s
    tk_messageBox -icon info -type ok -title "Scid" -message $result
    destroy $w
  }
}

proc email_sendMessage {from to subject bcc message} {
  global email

  ### Uncomment following line for testing, to avoid sending email:
  # return "Testing, no email was actually sent"

  set copy_id ""
  catch {set copy_id [open [file nativename $email(logfile)] "a+"]}
  if {$copy_id == ""} {
    return -code error "Unable to open $email(logfile)"
  }
  if {$email(smtp)} {
    set cmdargs "-to {$to} -subject {$subject} "
    if {$email(server) != ""} { ::ezsmtp::config -mailhost $email(server) }
    if {$email(from) != ""} {
      if {[catch {::ezsmtp::config -from $from} result]} {
        close $copy_id
        return -code error "Error configuring SMTP: $result"
      }
      append cmdargs "-from {$from} "
    }
    if {$email(bcc) != ""} {
      append cmdargs "-bcc {$bcc} "
    }
    if {[catch {eval "::ezsmtp::send $cmdargs -body {$message}"} result]} {
      close $copy_id
      return -code error "Error sending mail with SMTP: $result"
    }
  } else {
    if {[catch {open "| $email(smproc) -oi -t" "w"} email_id]} {
      close $copy_id
      return -code error "Scid could not find the sendmail program: $email(smproc)"
    }
    if {[string trim $from] != ""} {
      puts $email_id "From: $from"
    }
    puts $email_id "To: $to"
    puts $email_id "Subject: $subject"
    if {[string trim $bcc] != ""} {
      puts $email_id "Bcc: $bcc"
    }
    puts $email_id ""
    puts $email_id $message
    close $email_id
  }
  puts $copy_id  "To: $to"
  puts $copy_id  "Subject: $subject"
  puts $copy_id  ""
  puts $copy_id $message
  close $copy_id
  return "The email message was sent; a copy was appended to $email(logfile)"
}

proc modifyEmailDetails {i} {
  global emailData emailData_name emailData_addr emailData_glist emailData_subj
  global emailData_sig emailData_index emailData_helpBar email_helpBar

  toplevel .emailEditor
  set w .emailEditor
  bind $w <F1> { helpWindow Email }
  set emailData_index $i
  if {[lindex [lindex $emailData $i] 0] == ""} {
    wm title $w "Add opponent details"
  } else {
    wm title $w "Edit opponent details"
  }
  set f [frame $w.name]
  label $f.label -text "Name: "
  entry $f.entry -width 30 -background white -textvariable emailData_name
  set email_helpBar(name) "Enter the opponent's name"

  set f [frame $w.addr]
  label $f.label -text "Email address: "
  entry $f.entry -width 30 -background white -textvariable emailData_addr
  set email_helpBar(addr) "Enter the opponent's email address"

  set f [frame $w.subj]
  label $f.label -text "Subject: "
  entry $f.entry -width 30 -background white -textvariable emailData_subj
  set email_helpBar(subj) "Enter the subject for each message"

  set f [frame $w.glist]
  label $f.label -text "Game Numbers: "
  entry $f.entry -width 30 -background white -textvariable emailData_glist
  set email_helpBar(glist) \
    "Enter opponent's game numbers, separated by spaces"

  foreach f {name addr subj glist} {
    pack $w.$f -side top -fill x
    pack $w.$f.entry $w.$f.label -side right -anchor e
    set e $w.$f.entry
    bind $e <FocusIn> "$e configure -background lightYellow;
      set emailData_helpBar \$email_helpBar($f)"
    bind $e <FocusOut> "$e configure -background white"
  }

  addHorizontalRule $w

  set f [frame $w.sig]
  label $f.label -text "Signature: " -anchor n
  text $f.entry -width 30 -height 5 -background white
  bind $f.entry <FocusIn> "$f.entry configure -background lightYellow
    set emailData_helpBar {Enter the closing text for each message}"
  bind $f.entry <FocusOut> "$f.entry configure -background white"

  pack $f -side top -fill x
  pack $f.entry $f.label -side right -anchor n

  addHorizontalRule $w

  set f [frame $w.buttons]
  button $w.buttons.save -text "Save" -command {
    set gNumberErr [email_validGameNumbers $emailData_glist]
    if {$gNumberErr != -1} {
      tk_messageBox -icon error -type ok -title "Invalid data" \
        -message "The games list contains an invalid game number: $gNumberErr; there are only [sc_base numGames] games in this database."
    } else {
      set emailData [lreplace $emailData $emailData_index \
                       $emailData_index \
                       [list $emailData_name $emailData_addr $emailData_subj \
                          $emailData_glist \
                          [.emailEditor.sig.entry get 1.0 end-1c]]]
      email_writeOpponentFile $emailData
      destroy .emailEditor
      updateEmailWin
    }
  }
  button $f.cancel -text "Cancel" -command {
    set emailData [email_readOpponentFile]
    destroy .emailEditor
    updateEmailWin
  }
  pack $f -side top
  pack $f.save $f.cancel -side left -padx 20 -pady 10

  label $w.helpBar -width 1 -textvariable emailData_helpBar -relief sunken \
    -font font_Small -anchor w
  pack $w.helpBar -side bottom -fill x

  # Set up the initial values in the entry boxes:
  set details [lindex $emailData $emailData_index]
  set emailData_name [lindex $details 0]
  set emailData_addr [lindex $details 1]
  set emailData_subj [lindex $details 2]
  set emailData_glist [lindex $details 3]
  $w.sig.entry insert 1.0 [lindex $details 4]
  grab .emailEditor
}

proc email_validGameNumbers {numberList} {
  foreach i $numberList {
    if {$i < 1  ||  $i > [sc_base numGames]} { return $i }
  }
  return -1
}

proc email_opponentFilename {} {
  set filename [sc_base filename]
  append filename ".sem"
  return $filename
}

proc email_readOpponentFile {} {
  set filename [email_opponentFilename]
  if {[catch {set f [open $filename "r"]} ]} {
    # puts "Unable to open opponent file"
    return {}
  }
  set data [read -nonewline $f]
  close $f
  return $data
}

proc email_writeOpponentFile {data} {
  set filename [email_opponentFilename]
  if {[catch {set f [open $filename "w"]} ]} {
    # puts "Unable to write opponent file"
    return {}
  }
  puts $f $data
  close $f
}

# epd.tcl: EPD editing windows for Scid.
# Copyright (C) 2000  Shane Hudson

set maxEpd [sc_info limit epd]

proc storeEpdText {id} {
  sc_epd set $id [.epd$id.text get 1.0 "end-1c"]
}

proc storeEpdTexts {} {
  global maxEpd
  for {set i 1} {$i <= $maxEpd} {incr i} {
    if {[winfo exists .epd$i]} { storeEpdText $i }
  }
}

proc updateEpdWin {id} {
  set w .epd$id
  $w.text delete 1.0 end
  $w.text insert end [sc_epd get $id]

  # Update the EPD window status bar:
  set str "  --  "
  if {[sc_epd readonly $id]} {
    set str "  %%  "
  } elseif {[sc_epd altered $id]} {
    set str "  XX  "
  }
  append str "[file tail [sc_epd name $id]]  [sc_epd size $id] positions"
  set moves [lsort -ascii [sc_epd moves $id]]
  set len [llength $moves]
  if {$len} {
    append str "  \[[llength $moves]: [join $moves " "]\]"
  } else {
    append str {  [No moves from this position]}
  }
  $w.status configure -text $str
  unset str
}

proc updateEpdWins {} {
  global maxEpd
  for {set i 1} {$i <= $maxEpd} {incr i} {
    if {[winfo exists .epd$i]} { updateEpdWin $i }
  }
}

proc closeEpdWin {id} {
  catch {sc_epd close $id}
}

proc confirmCloseEpd {id} {
  if {! [winfo exists .epd$id]} { return }
  storeEpdText $id
  if {[sc_epd altered $id]  &&  ! [sc_epd readonly $id]} {
    set result [tk_dialog .dialog "Save changes?" \
      "This file has been altered; do you want to save it?" \
      "" 0 "Save changes" "Close without saving" "Cancel"]
    if {$result == 2} { return }
    if {$result == 0} { sc_epd write $id }
  }
  sc_epd close $id
  focus .
  destroy .epd$id
  return
}

proc saveEpdWin {id} {
  set w .epd$id
  busyCursor . 1
  set temp_oldcursor [$w.text cget -cursor]
  $w.text configure -cursor watch
  update idletasks
  storeEpdText $id
  sc_epd write $id
  updateEpdWin $id
  $w.text configure -cursor $temp_oldcursor
  busyCursor . 0
}

proc epd_MoveToDeepestMatch {id} {
  if {! [winfo exists .epd$id]} { return }
  sc_move ply [sc_epd deepest $id]
  updateBoard .board
  return
}

proc newEpdWin {cmd {fname ""}} {
  global maxEpd
  set showErrors 1
  if {$cmd == "openSilent"} { set showErrors 0 }
  if {$fname == ""} { set showErrors 1 }
  if {[sc_epd available] < 1} {
    if {$showErrors} {
      tk_messageBox -type ok -icon info -title "Too many EPD files open" \
        -message "You already have $maxEpd EPD files open; close one first."
    }
    return 0
  }
  set new_types { {"EPD files" {".epd"} } }
  set open_types $new_types
  if {[sc_info gzip]} {
    set open_types { {"EPD files" {".epd" ".epd.gz"} } }
  }
  if {$fname == ""} {
    if {$cmd == "create"} {
      set fname [tk_getSaveFile -initialdir $::initialDir(epd) -filetypes $new_types -title "Create an EPD file"]
    } elseif {$cmd == "open"} {
      set fname [tk_getOpenFile -initialdir $::initialDir(epd) -filetypes $open_types -title "Open an EPD file"]
    } else { return 0 }
  }
  if {$fname == ""} { return 0 }

  busyCursor . 1
  if {[catch {sc_epd $cmd $fname} result]} {
    if {$showErrors} {
      busyCursor . 0
      tk_messageBox -type ok -icon error -title "Scid: EPD file error" \
        -message $result
    }
    return 0
  }
  busyCursor . 0
  set id $result
  set w .epd$id
  toplevel $w
  wm title $w "Scid EPD: [file tail $fname]"
  wm minsize $w 40 1
  bind $w <Destroy> "closeEpdWin $id"
  bind $w <F1> { helpWindow EPD }

  frame $w.grid
  text $w.text -background white -font font_Regular -width 60 -height 7 \
    -wrap none -setgrid 1 -yscrollcommand "$w.ybar set" \
    -xscrollcommand "$w.xbar set"
  scrollbar $w.ybar -takefocus 0 -command "$w.text yview"
  scrollbar $w.xbar -orient horizontal -takefocus 0 -command "$w.text xview"
  label $w.status -width 1 -anchor w -font font_Small -relief sunken

  frame $w.menu -borderwidth 3 -relief raised
  pack $w.menu  -side top -fill x
  menubutton $w.menu.file -text File -menu $w.menu.file.m -underline 0
  menubutton $w.menu.edit -text Edit -menu $w.menu.edit.m -underline 0
  menubutton $w.menu.tools -text Tools -menu $w.menu.tools.m -underline 0
  menubutton $w.menu.help -text Help -menu $w.menu.help.m -underline 0

  foreach i {file edit tools help} {
    menu $w.menu.$i.m -tearoff 0
    pack $w.menu.$i -side left
  }

  set m $w.menu.file.m
  $m add command -label "New" -acc "Ctrl+N" -underline 0 \
    -command {newEpdWin create}
  bind $w <Control-n> {newEpdWin create}
  $m add command -label "Open" -acc "Ctrl+O" -underline 0 \
    -command {newEpdWin open}
  bind $w <Control-o> {newEpdWin open}
  $m add command -label "Save" -acc "Ctrl+S" -underline 0 \
    -command "saveEpdWin $id"
  if {[sc_epd readonly $id]} {
    $m entryconfig "Save" -state disabled
  } else {
    bind $w <Control-s> "saveEpdWin $id; break"
  }
  $m add command -label "Close" -acc "Ctrl+Q" -underline 0 \
    -command "confirmCloseEpd $id"
  bind $w <Control-q> "confirmCloseEpd $id"

  set m $w.menu.edit.m
  $m add command -label "Cut" -acc "Ctrl+X" -underline 2 -command "tk_textCut $w.text"
  bind $w <Control-x> "tk_textCut $w.text; break"
  $m add command -label "Copy" -acc "Ctrl+C" -underline 0 -command "tk_textCopy $w.text"
  bind $w <Control-c> "tk_textCopy $w.text; break"
  $m add command -label "Paste" -acc "Ctrl+V" -underline 0 -command "tk_textPaste $w.text"
  bind $w <Control-v> "tk_textPaste $w.text; break"
  $m add command -label "Select All" -acc "Ctrl+A" -underline 7 \
    -command "$w.text tag add sel 1.0 end"
  bind $w <Control-a> "$w.text tag add sel 1.0 end; break"
  $m add separator
  $m add command -label "Revert" -acc "Ctrl+R" -underline 0 \
    -command "updateEpdWin $id"
  bind $w <Control-r> "updateEpdWin $id; break"
  $m add command -label "Sort lines" -accel "Ctrl+Shift+S" \
    -underline 0 -command "epd_sortLines $w.text"
  bind $w <Control-S> "epd_sortLines $w.text; break"

  set m $w.menu.tools.m
  $m add command -label "Find Deepest game position" \
    -underline 5 -command "epd_MoveToDeepestMatch $id"
  $m add separator
  $m add command -label "Next position in file" \
    -accelerator "Ctrl+DownArrow" -underline 0 \
    -command "sc_epd next $id; updateBoardAndPgn .board"
  bind $w <Control-Down> "sc_epd next $id; updateBoardAndPgn .board; break"
  $m add command -label "Previous position in file" \
    -accelerator "Ctrl+UpArrow" -underline 0 \
    -command "sc_epd prev $id; updateBoardAndPgn .board"
  bind $w <Control-Up> "sc_epd prev $id; updateBoardAndPgn .board; break"
  $m add separator
  $m add command -label "Paste analysis" -accelerator "Ctrl+Shift+A" \
    -underline 6 -command "epd_pasteAnalysis $w.text"
  bind $w <Control-A> "epd_pasteAnalysis $w.text; break"
  $m add separator
  $m add command -label "Strip out EPD field" -underline 0 \
    -command "epd_chooseStripField $id"

  $w.menu.help.m add command -label "EPD files help" -underline 0 \
    -acc "F1" -command "helpWindow EPD"
  $w.menu.help.m add command -label "General index" -underline 0 \
    -command "helpWindow Index"

  pack $w.status -side bottom -fill x
  pack $w.grid -fill both -expand yes
  grid $w.text -in $w.grid -row 0 -column 0 -sticky news
  grid $w.ybar -in $w.grid -row 0 -column 1 -sticky news
  grid $w.xbar -in $w.grid -row 1 -column 0 -sticky news

  grid rowconfig $w.grid 0 -weight 1 -minsize 0
  grid columnconfig $w.grid 0 -weight 1 -minsize 0

  # Right-mouse button cut/copy/paste menu:
  menu $w.text.edit -tearoff 0
  $w.text.edit add command -label "Cut"  -command "tk_textCut $w.text"
  $w.text.edit add command -label "Copy" -command "tk_textCopy $w.text"
  $w.text.edit add command -label "Paste" -command "tk_textPaste $w.text"
  bind $w.text <ButtonPress-3> "tk_popup $w.text.edit %X %Y"

  updateEpdWin $id
  return 1
}


proc epd_sortLines {textwidget} {
  if {! [winfo exists $textwidget]} { return }
  set text [$textwidget get 1.0 "end-1c"]
  set fieldlist [split $text "\n"]
  set sortedlist [lsort $fieldlist]
  while {[lindex $sortedlist 0] == ""} {
    set sortedlist [lrange $sortedlist 1 end]
  }
  set newtext [join $sortedlist "\n"]
  append newtext "\n"
  if {! [string compare $text $newtext]} { return }
  $textwidget delete 1.0 end
  $textwidget insert end "$newtext"
}

# epd_pasteAnalysis:
#    Pastes current chess engine analysis into this EPD file position.
proc epd_pasteAnalysis {textwidget} {
  global analysis
  if {! [winfo exists $textwidget]} { return }
  if {! [winfo exists .analysisWin1]} { return }
  $textwidget insert insert "acd $analysis(depth1)\n"
  $textwidget insert insert "acn $analysis(nodes1)\n"
  set ce [expr int($analysis(score1) * 100)]
  if {[sc_pos side] == "black"} { set ce [expr 0 - $ce] }
  $textwidget insert insert "ce $ce\n"
  $textwidget insert insert "pv $analysis(moves1)\n"
}


set epd_stripField ""

proc epd_chooseStripField {id} {
  global epd_stripField
  if {! [winfo exists .epd$id]} { return }
  set w [toplevel .epdStrip]
  wm title $w "Scid: Strip EPD field"
  wm resizable $w false false
  label $w.label -text "Enter the name of the EPD field you want\n\
removed from all positions in this file:"
  entry $w.e -width 10 -background white -textvariable epd_stripField
  pack $w.label $w.e -side top -pady 5 -padx 5
  addHorizontalRule $w
  set b [frame $w.buttons]
  pack $b -side bottom -pady 5
  button $b.ok -text "Strip EPD field" \
    -command "epd_stripEpdField $id \$epd_stripField"
  button $b.cancel -text "Cancel" -command "focus .epd$id; destroy $w"
  pack $b.ok $b.cancel -side left -padx 5
  bind $w <Return> "$b.ok invoke"
  bind $w <Escape> "$b.cancel invoke"
  focus .epdStrip.e
  grab .epdStrip
}

proc epd_stripEpdField {id field} {
  if {! [winfo exists .epdStrip]} { return }
  if {! [string compare $field ""]} { beep; return }
  set result [sc_epd strip $id $field]
  updateEpdWin $id
  tk_messageBox -type ok -icon info -title "Scid: EPD field stripped" \
    -message "Scid found and stripped an EPD field named \"$field\" from\
$result positions."
  focus .epd$id
  destroy .epdStrip
}
########################################
### fontsel.tcl: part of Scid.
#
# The following procs implement a font selection dialog. I found the code
# at codearchive.com (I dont think there was an author listed for it) and
# simplified it for use with Scid.

# FontDialog:
#   Creates a font dialog to select a font.
#   Returns 1 if user chose a font, 0 otherwise.
#
proc FontDialog {font_name} {
    global fd_family fd_style fd_size fd_close
    global fd_strikeout fd_underline

    set fd_family {}; set fd_style {}; set fd_size {}
    set fd_close  -1

    set unsorted_fam [font families]
    set families [lsort $unsorted_fam]

    # Get current font's family and so on.
    set slant     [font actual $font_name -slant]
    set weight    [font actual $font_name -weight]

    # Default style.
    set fd_style "Regular"
    if { $slant == "italic" } {
        if { $weight == "bold" } {
            set fd_style "Bold Italic"
        } else {
            set fd_style "Italic"
        }
    } else {
        if { $weight == "bold" } {
            set fd_style "Bold"
        }
    }

    set family [font actual $font_name -family]
    set fd_family $family
    set size   [font actual $font_name -size]
    set fd_size   $size

    # Create font dialog.
    set dlg .fontdialog
    toplevel $dlg
    wm protocol $dlg WM_DELETE_WINDOW "set fd_close 0"
    wm title $dlg Font

    label $dlg.family_lbl -text "Font:" -anchor w
    entry $dlg.family_ent -textvariable fd_family -background white
    bind  $dlg.family_ent <Key-Return> "FontDialogRegen $font_name"
    grid config $dlg.family_lbl -column 0 -row 0 -sticky w
    grid config $dlg.family_ent -column 0 -row 1 -sticky snew

    label $dlg.style_lbl  -text "Font Style:" -anchor w
    entry $dlg.style_ent  -textvariable fd_style -width 11 -background white
    bind  $dlg.style_ent  <Key-Return>  "FontDialogRegen $font_name"
    grid config $dlg.style_lbl  -column 1 -row 0 -sticky w
    grid config $dlg.style_ent  -column 1 -row 1 -sticky snew

    label $dlg.size_lbl   -text "Size:" -anchor w
    entry $dlg.size_ent   -textvariable fd_size -width 4 -background white
    bind  $dlg.size_ent   <Key-Return> "FontDialogRegen $font_name"
    grid config $dlg.size_lbl   -column 2 -row 0 -sticky w
    grid config $dlg.size_ent   -column 2 -row 1 -sticky snew

    # Font family listbox.
    set fr $dlg.family_list
    frame $fr -bd 0
    listbox $fr.list -height 6 -selectmode single -width 30 \
         -background white -yscrollcommand "$fr.scroll set"
    scrollbar $fr.scroll -command "$fr.list yview"

    foreach f $families {
        $fr.list insert end $f
    }

    bind $fr.list <Double-Button-1> \
     "FontDialogFamily $fr.list $font_name $dlg.family_ent"

    pack $fr.scroll -side right -fill y
    pack $fr.list -side left
    grid config $fr -column 0 -row 2 -rowspan 16

    # Font style listbox.
    set fr $dlg.style_list
    frame $fr -bd 0
    listbox $fr.list -height 6 -selectmode single -width 11 \
        -background white -yscrollcommand "$fr.scroll set"
    scrollbar $fr.scroll -command "$fr.list yview"

    $fr.list insert end "Regular"
    $fr.list insert end "Bold"
    $fr.list insert end "Italic"
    $fr.list insert end "Bold Italic"

    bind $fr.list <Double-Button-1> \
     "FontDialogStyle $fr.list $font_name $dlg.style_ent"

    pack $fr.scroll -side right -fill y
    pack $fr.list -side left
    grid config $fr -column 1 -row 2 -rowspan 16

    # Font size listbox.
    set fr $dlg.size_list
    frame $fr -bd 0
    listbox $fr.list -height 6 -selectmode single -width 4 \
        -background white -yscrollcommand "$fr.scroll set"
    scrollbar $fr.scroll -command "$fr.list yview"

    for {set i 9} {$i <= 20} {incr i} {
        $fr.list insert end $i
    }

    bind $fr.list <Double-Button-1> \
      "FontDialogSize $fr.list $font_name $dlg.size_ent"

    pack $fr.scroll -side right -fill y
    pack $fr.list -side left
    grid config $fr -column 2 -row 2 -rowspan 16

    # OK/Cancel
    set fr $dlg.ok_cancel
    frame $fr -bd 0

    button $fr.ok -text "OK" -command "set fd_close 1"
    button $fr.cancel  -text "Cancel" -command "set fd_close 0"
    pack $fr.ok -side top -fill x
    pack $fr.cancel -side top -fill x -pady 2
    button $fr.help -text "Help" -command "helpWindow Options"
    pack $fr.help -side top -fill x -pady 10
    grid config $fr -column 4 -row 1 -rowspan 2 \
         -sticky snew -padx 12

    # Sample text
    set fr $dlg.sample
    frame $fr -bd 3 -relief groove
    label $fr.l_sample -text "Sample" -anchor w

    label $fr.sample -font $font_name -bd 2 -relief sunken -text \
     "This is some sample text\nAaBbCcDdEeFfGgHhIiJjKkLlMm\n 0123456789. +=-"


    pack  $fr.l_sample -side top -fill x -pady 4
    pack  $fr.sample -side top -pady 4 -ipadx 10 -ipady 10

    grid config $fr -column 0 -columnspan 3 -row 20 \
        -rowspan 2 -sticky snew -pady 10 -padx 2

    # Make this a modal dialog.
    tkwait variable fd_close

    # Get rid of dialog and return value.
    destroy $dlg

    # Restore old font characteristics on a cancel:
    if { $fd_close == 0 } {
        font configure $font_name -family $family \
            -size $size -slant $slant -weight $weight
    }

    return $fd_close
}


proc FontDialogFamily { listname font_name entrywidget } {
    # Get selected text from list.
    catch {
        set item_num [$listname curselection]
        set item [$listname get $item_num]

        # Set selected list item into entry for font family.
        $entrywidget delete 0 end
        $entrywidget insert end $item

        # Use this family in the font and regenerate font.
        FontDialogRegen $font_name
    }
}


proc FontDialogStyle { listname font_name entrywidget } {
    # Get selected text from list.
    catch {
        set item_num [$listname curselection]
        set item [$listname get $item_num]

        # Set selected list item into entry for font family.
        $entrywidget delete 0 end
        $entrywidget insert end $item

        # Use this family in the font and regenerate font.
        FontDialogRegen $font_name
    }
}


proc FontDialogSize { listname font_name entrywidget } {
    # Get selected text from list.
    catch {
        set item_num [$listname curselection]
        set item [$listname get $item_num]

        # Set selected list item into entry for font family.
        $entrywidget delete 0 end
        $entrywidget insert end $item

        # Use this family in the font and regenerate font.
        FontDialogRegen $font_name
    }
}

# FontDialogRegen: Regenerates font from attributes.
proc FontDialogRegen { font_name } {
    global fd_family fd_style fd_size

    set weight "normal"
    if { $fd_style == "Bold Italic" || $fd_style == "Bold" } {
        set weight "bold"
    }

    set slant "roman"
    if { $fd_style == "Bold Italic" || $fd_style == "Italic" } {
        set slant "italic"
    }

    # Change font to have new characteristics.
    font configure $font_name -family $fd_family \
        -size $fd_size -slant $slant -weight $weight
}

## End of file: fontsel.tcl
# basewind.tcl: part of Scid
# Copyright (C) 2000   Shane Hudson.


# 0: Unknown/empty
image create photo dbt0 -format gif -data \
 "R0lGODdhIAAgAIAAAAAAAP///ywAAAAAIAAgAAACHoyPqcvtD6OctNqLs968+w+G4kiW5omm
  6sq27gubBQA7"

# 1: Temporary database
image create photo dbt1 -format gif -data \
 "R0lGODdhIAAgAKEAAP///wAAAOHh4X9/fywAAAAAIAAgAAACXYSPqcvtD6OctNKAs9Y2iA+G
  X2AB20mWnhimHduWpjDQX127lYfftn6x1YQC4IRnIxolyGFvGWn6cjKpskq8qrJPbE/7+na3
  4p83OX7BRth1UWZCYeD0uv2Oz+sXBQA7"

# 2: Clipbase
image create photo dbt2 -format gif -data \
 "R0lGODdhIAAgAMIAAP///wAAqgAAAP//AOrq6gAAAAAAAAAAACwAAAAAIAAgAAADwAi63P4Q
  hKkCs9NKWvVd2KeFUmmCjVeOG3tWqIpxrHvR2Xp7XOT/wKBwISgaj8ik8SEYOJ/QqPTpaE6v
  2IZ1oOx2tU7BEGgVj39lUGbNbvcA6QphbpwT6vTinBGX2PF3enkCe0RhIH+CgYSDhQp9AYCS
  ikV8hxWTjIuJllwgmYmalYaeco2nmwSdZn6ooKqkrAGhtKern5S5oqxwlxKvqYG3mLq1wrGI
  rsWwj76zyruMw63Br9ORy9W8TbzY0cZFCQA7"

# 3: PGN file
image create photo dbt3 -format gif -data \
 "R0lGODdhIAAgAKEAAP////8AAAAA/wAAACwAAAAAIAAgAAACZISPqcvtD6MMlKIajAXbiP9p
  WMaNpfhsVoWyHQCG5/mKWGqqq3nEgq2z0WqKGmtYInliqMQoE3QQk7vmEiTJaiW+rvcr227B
  ZLBYXE77zmO1m611v+FceZpet5PxEX2ZDxiIVwAAOw=="

# 4: My games
image create photo dbt4 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAEg9DISau9lOjNu//eI45kaZ7cqa5kyr6mC8+PTL/2veY6uo2B
  gCkIDBqNIxmxtHw0fZqiUFpkKZ9I0TP202aP1V3X+c2Sj8/rWdjcltTg9lSlJnvD9PFyP3e3
  9HN4fkmAQ31oZjw9b2OLUASOYlGRj5SVloyTmISamzWNmyCio6SlphsRADs="

# 5: Large database
image create photo dbt5 -format gif -data \
 "R0lGODdhIAAgAKEAAP8AAP///wAA/wAAACwAAAAAIAAgAAACiYSPqcvtH6KctFpks544iA9+
  WRhGHQmOqGAeUblR8AnH3uzeNxunYkB7/VS8X1DIq6SELQNTspxEdcCcZTqldIjIzZaYrXzB
  tvE1LLaChxmz9IeWuLtQtjbHDmN5xx33eRRHZ4THIlhnyFd4+LZEY9fjuEiyJum0Q3mG0gRg
  4ymn9un1QFpqeloAADs="

# 6: Correspondence chess
image create photo dbt6 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAEuPDJ+YC1NOs97fkfxo0UcDxgKpIcgL5p6LLZPJ24atM7leu8
  1waHAo5MMM4PtKoliRniwTPdmFLJ4ZWpuVI/2U6sWgsxvk/UltrzMs5f6TpEFk/fF/RpLivf
  zzJUaipqbTKATBd0XFNta1uJi5E9EnFjTJd1XZCXnFwkliqZlJueU52kNQYGlpxNoKusX480
  JbEeuI21qqsmvhe7Xbe/wS23p6nBAMO6xcK9yM7Pss3SGdAuydKvNBEAOw=="

# 7: Computer chess
image create photo dbt7 -format gif -data \
 "R0lGODdhIAAgAKEAAP///wAAAOHh4QAA/ywAAAAAIAAgAAACdISPqcvtD6OctNrrgt680yCE
  4kgGEigM6squoQmBrRrMgwA/cmvWLR7ZrXI+Vy6T4gGKxmByeGDejg3hgMoExp7XRJbKsHY0
  LK0uZJu9TqT2CJwZy+HxuSdoz9Oj7v77rDdmFuZXuGcQaIexyNjo+AgZ6VAAADs="

# 8: Index of games
image create photo dbt8 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAEovDJSau9OOvNu/9gKALkE5wPqa5A10pJHGtvxrImqkrAcWC1
  i2zGS/kut1wglUwZf5UgbIh09qCT0ml5w1mflNcwsWmZwbyuuvQ1H52hs/z9WkvbVvoIfy0y
  11F8enFtCQGDgBZyKYeDIHKGPo4fco1vW5iZmDVmkZI8Y6FjAEtWllh2ajqebxSir2OnGJq0
  mpJYF7e6u7scvL+3IsLDxMUUEQA7"

# 9: Player collection
image create photo dbt9 -format gif -data \
 "R0lGODdhIAAgAKEAAP///wAAANjGpuFCACwAAAAAIAAgAAACg4SPqcvtD6NMoYYJg9jiYqZx
  m/dR4liaJ5oa4Uq2LxfLcKuyOBLW++wrVWBByewmXCExR2VRYYlKp9FGYIDNarfcQfCadXkq
  YrHWB8aSAeu250zZltnj+jaWVtfn6/shj8W3R8c1VjjoZlDI1iUo2FUBiTgI2WV5iZmpKUnV
  6Tm141AAADs="

# 10: Tournament, all-play-all
image create photo dbt10 -format gif -data \
 "R0lGODdhIAAgAKEAAP///wAAAAAA//8AACwAAAAAIAAgAAACZoSPqcvtH6KMYM6HM7RVdq+F
  4kg2gnEC6YqW7usIsmwExnDnAL7rmA1rAF0zWq+i4yl9mmFQ4QwVU0vkscojRZ+HbayY1AGx
  QS/XnJiGr7X1E13+ztZka5ZrxSO8ara/CqcnOJhQAAA7"

# 11: Tournament, Swiss
image create photo dbt11 -format gif -data \
 "R0lGODdhIAAgAIAAAP8AAP///ywAAAAAIAAgAAACRYSPqcvtD6OctFoQss437d0hnxYeI1di
  Z6qO7BlU8Pw59B03OG3vcO9z6YJCBrG4ONYov1Sz9AxFO9NL1XJlabfcrldRAAA7"

# 12: GM games
image create photo dbt12 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAEjNDISau9lOjNu//eI45kaZ7cqa5kyr6mC8+PTL/2veY6upWB
  YNA0BAZEMuFIuTwakT9RsUliSouuadX5sHaxUa1K6CRDNVeY+QtGf5vrt7lNSBO5w7kzy91S
  34BJfWx/RXRwcHiDgVGJR1NijG49O42UPpOXMZaaLZydZ3WgJTygpZ2nmiCrrK2urxsRADs="

# 13: IM games
image create photo dbt13 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAEhNDISau9lOjNu//eI45kaZ7cqa5kyr6mC8+PTL/2veY6up2B
  wChoIpZ4D2NSWFKOkMogUySN/YrT6tApgma10unz2vwaw1YN8LskcmtkUlSIfnu3VKY9js/7
  l2kEa31yYl18f4BlgT04iI0tj5CHapM+lZZHkpNIlp2cm5Ago6SlpqcbEQA7"

# 14: Blitz games
image create photo dbt14 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAEgvDJSau9OOvNu89AKI7AV4VOqqqlKaHrGroPHKfh4dp3rn+8
  mO/XCcoAhyQQcGMhlR6jM0nkSHGk2ebaxFm7XZGVBHYMo8zwsApKN9dsDHeNVj+hYzUV/33f
  +WM2Ins0NW5whYJ/cUVpg1SFhlh7jI2TkJEoj4A7ZouRE5uchZSgEhEAOw=="

# 15: Tactics
image create photo dbt15 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAEdtDISau9lOjNu//eI45kaZ7cqa5kyr6mC8+PTL/2veY6uqmB
  wCkY9GmAwlLxsWz9hslRkxkV8URTKil71bK4T1NWWbWGyatx7bwtS93mIxSp6vZG9vtaLoZ7
  Y2x6TnyCJXl3hz2JOos3jTSPM5EwIJWWl5iZGxEAOw=="

# 16: Endings
image create photo dbt16 -format gif -data \
 "R0lGODdhIAAgAKEAAP///wAAAP/73wAAACwAAAAAIAAgAAAChYSPqcsZDWOYsa5ns5lYXwoE
  AsZ54TQ+orqCFToK6RynVsulONpBO6/L9Ro/Hkd4Kx6FQ2JLBpUZPbBltfmyWjeg0ql3jAY3
  wTJYuySLxec1tIs+OuJD0RpLRZsUdvbe4Yan0RclmEH49oeAKKV4wDjiyKUlCcNm6EPnMghZ
  iMmn6SXJUAAAOw=="

# 17: Openings for White
image create photo dbt17 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAErvDJSau9F+jNu9cYMBxDaZ4oCoRj6rqgJZJvXQLHWs22jec6
  Ca/3+gWCjyExZUQqURLf4XCkPE2UWtPaSmWL0+rkWvrCws6u9yGlpmnQiRbNhWMrYHd9bVbR
  x2plF2d6gHYDGIRiQoGIg0x/jIdLN5FJjZQDW4aZfoWSnSeboKGVn5eTlKOopaaLSRqtmpY/
  H7YetD9Tu7y9vpawv8LCr0IbAcjJysvMSFa30BwSEQA7"

# 18: Openings for Black
image create photo dbt18 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAErvDJSau9F+jNu9cYMBxDaZ4oCoRj6rqgJZJvXQLHWs22jec6
  Ca/3+gWCjyExZUQqVaJak/I0caSHw5HaYm6wWmcXqgFvJ1VrtJg9C8enKzvMpcU7c3cSfsPD
  2mJ2fR5/dGh8H2txgHVkfiqMh4JLVpFvk5QDU5KZkIaXnYufe5iUm6ChN5akqaqjX62nSVmJ
  tRyrGlm6u7y9u3pJP77DvcDBGgHJysvMzUhUttExEQA7"

# 19: Openings for either color
image create photo dbt19 -format gif -data \
 "R0lGODdhIAAgANMAAAAAAAAAqgCqAACqqqoAAKoAqqpVAKqqqlVVVVVV/1X/VVX///9VVf9V
  ////Vf///ywAAAAAIAAgAAAEuvDJSau9F+jNu9cYMBxDaZ4oCoRj6rqgJZKq+JrAsVZzrd2l
  nG4n6Z04wIEwQHwYcZvksvmEJpWHA5NSVUaBU24LiryFJ1UPOLtFj73q17n4/tgkKja1/hlQ
  jnpiNEB/OIFugzeFQYd0iYoPeVp7jy6LWJOCSRaGmYibFZ1tjoQXjJ6kkJyYo05vlqaslFdy
  ja6VtLJcP7mSrUJ2wRy2GlnGx8jJx61OQsrPyczNGgHV1tfY2U27wt07EQA7"

# 20: Theory: 1.c4
image create photo dbt20 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACfYRvoauIzNyBSyYaLMDZcv15
  GDiKFHmaELqqkVvBXCN3UniXebq3/fuLBWlDmwN31CV5S18T+BRqokSqTSCYKB8lwWCQ3Wy1
  PCzZyU15wRdmerX+ZpHvCPY+H7fRZ2h9VvUX2CclaGTI4kc4uKfYWLh4GJkI+cgo5jZZo1EA
  ADs="

# 21: Theory: 1.d4
image create photo dbt21 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACf4RvoauIzNyBSyYaLMDZcv15
  GDiKFHmaELqqkVvBXCN3UniXebq3/fuLBWlDmwN31CV5S18T+BRqokSq8aEQCKRYJlYwGGyv
  E2VXyy17y2Bxtet8tMNbFlSuzZMva35cPXMHKOhHuGE2mFaoeNjX+Lf4ligZufdoiASHiVip
  UQAAOw=="

# 22: Theory: 1.d4 d5
image create photo dbt22 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACh4RvoauIzNyBSyYaLMDZcv15
  GDiKFHmaELqqkVvBXCN3UggIwlTepa67pHzDoLBFbAF3m57jswzinqPobvpwZocaKneL9Opi
  yZdPMBgIaGWyeM32hrNodRxsftbTa1b+YWUj98fzVThDeJTYZKjohvd4uIglGel4V4l5KQip
  yTiXyRnqZwlQAAA7"

# 23: Theory: QGD
image create photo dbt23 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACmYRvoauIzNyB6wgxaZBJm3t1
  FAdo24eJEGmiYelxLQjCo+zRYYvfksn7xYS+l23VQ9JUkWQTYAw6eMvjc5rTWSvOig4jfQyx
  PhIZSURHFRduuikYDFJsuaDRxUNTtrb+DGfXETf3JzZCKBiQWMiStbSoc/LmBlh5CHSFqZlR
  tnnZiWZpGMrJBHpKmjo5yvqpugUbVooa63pQAAA7"

# 24: Theory: Slav
image create photo dbt24 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACmIRvoauIzI4QBy5XbTBzJo19
  lkSJUAhoG9CVKvq23hvGcgrWOUbz6u7oBXceU0Q3YnWMF+SJU8IlfckWs+GMyCjCB2grfVLF
  wymqTPZOi9JJc3wUDAaugJyOhb/ZC3ceHTdXdyfwp3ZyJ5iSiAfzdWMns6JnmGF2+PMGqInJ
  aZn2eUQ5uVl5RdppGiZaihrqeep4+aradVAAADs="

# 25: Theory: 1.d4 Nf6
image create photo dbt25 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACioRvoauIKqJoLrFVrYwhg4tl
  wcZ5IFWNZCeeJiexqdtCZX29q0lXZNxznGTC4MN4GPJAyxyO0YQ+QzPmFFW0Vp1baZfqyXLF
  3iwHe9QWBYPBhJgep8/wJFLTfkfBD3bbXWeh1rdzFfhxhzg0aMcoKNcI+VgWRxlpOcl3qZmJ
  tunZeahkuAeqKAlQAAA7"

# 26: Theory: 1.e4
image create photo dbt26 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACfYRvoauIzNyBSyYaLMDZcv15
  GDiKFHmaELqqkVvBXCN3UniXebq3/fuLBWlDmwN31CV5S18T+BRqokSq8aETCCZKbEowGGw3
  XS5Pa3Z6W2DxhbmOtMNbZLyizdfLb3V6JnVXJXj1F2g4iFjYB0XI0qj4eMg4SQYXWSOZaFAA
  ADs="

# 27: Theory: Sicilian
image create photo dbt27 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAAChYRvoauIzNyBSyYaLMDZcv15
  GDiKFHmaELqqkVvBXCN30iII8V3yeU7jpYTAoCPk+xkfveNPyXrdnsDo7thkDjXYrbYlBOcm
  WXJKMBgILl6zeM0Gd1todVw6j9TTa2S+QtVXdnf1NVPohmeISLiUyLgxGNnWaPPnWGmFOSm3
  uOnnaRmqUQAAOw=="

# 28: Theory: Sicilian 1.e4 c5 2.Nd3 d6 3.d4
image create photo dbt28 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACo4RvoauIzNxZQiyZYMOq1i1p
  oENZ4yNiQOedU8p5rSoGtPzRcLiTdY/S6AIfV0bIIbZsSSRPeWlCdDLjCjjBWYbTGI757IYj
  UrJqHEVbS+nKy+kTDAYmg5x+FPugIHfeHDdXB3An8JdGcidoo4hXc/NFiHMFF6Rn+YOIGSVz
  uJbSaPhYRjFnKorlSURXSHn5BuFB6JjqatY6qsaoiFoJy6BVUQAAOw=="

# 29: Theory: Caro-Kann
image create photo dbt29 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACh4RvoauIzI4QBy5XbTBzJo19
  lkSJUAhoG9CVKvq23hvGcgrWOUbz6u7oBYEPYmakQ/qUQ2bReTwlpUtq0/rERiNTLqrqvYaz
  Xo9pvL2wBgOX8axmlXBQeGPdtq/AFwGbTSFE1ncjmHbH97MnFseI6Lg4+CgZeVipB/NGp4XZ
  1UiZWbeJ1olRAAA7"

# 30: Theory: French
image create photo dbt30 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACiIRvoauIzNyB6wgxaZBJm3t1
  FAdo24eJEGmiYelxLQjCo+zRYYvfksn7xYQ+R9A4RBYfSeYy81RFeivqlFjFXpVZ7pbk7Ia/
  0OzLJi5PBYNB6jiuoNRyrZztlta9FXwbA0fXoAPYJHhiB4TI12C1F9eYuAg5echiqBfJWJnJ
  iUbWeRn1+WjJUQAAOw=="

# 31: Theory: Open Games
image create photo dbt31 -format gif -data \
 "R0lGODdhIAAgAKEAAP/739jGpgAAAP///ywAAAAAIAAgAAACh4RvoauIzNyBSyYaLMDZcv15
  GDiKFHmaELqqkVvBXCN3UngrghDnab7b0Xwtn3DowCUDQZ5t+Us2hazXbcqr9qBFDdf63T5K
  gN2EHKYJBgPBJTr+md/deGvdpoPtETzbrcRXgbWBJoh0OKOFeAbXWPe4Fyk2yahHeWlZ6Jj5
  lLjoWRnaCapRAAA7"


set base_types {
  Unknown
  {Temporary database}
  Clipbase
  {PGN format file}
  {My games}
  {Large database}
  {Correspondence chess}
  {Computer chess}
  {Sorted Index of games}
  {Player collection}
  {Tournament: All-play-all}
  {Tournament: Swiss}
  {Grandmaster games}
  {International Master games}
  {Blitz (fast) games}
  {Tactics}
  {Endgames}
  {Openings for White}
  {Openings for Black}
  {Openings for either color}
  {Theory: 1.c4}
  {Theory: 1.d4}
  {Theory: 1.d4 d5}
  {Theory: QGD: 1.d4 d5 2.c4 e6}
  {Theory: Slav: 1.d4 d5 2.c4 c6}
  {Theory: 1.d4 Nf6}
  {Theory: 1.e4}
  {Theory: Sicilian: 1.e4 c5}
  {Theory: Sicilian: 1.e4 c5 2.Nf3 d6 3.d4}
  {Theory: Caro-Kann: 1.e4 c6}
  {Theory: French: 1.e4 e6}
  {Theory: Open Games: 1.e4 e5}
}


set numBaseTypeIcons [llength $base_types]

set temp_dbtype 0

proc selectBaseType {type} {
  global temp_dbtype
  set w .btypeWin
  if {![winfo exists $w]} { return }
  $w.t configure -state normal
  set temp_dbtype $type
  set linenum [expr $type + 1]
  $w.t tag remove sel 1.0 end
  $w.t tag remove selected 1.0 end
  $w.t tag add selected "${linenum}.2 linestart" "$linenum.2 lineend"
  $w.t see $linenum.2
  $w.t configure -state disabled
}

proc clickBaseType {x y} {
  set type [.btypeWin.t index "@$x,$y linestart"]
  set type [expr int($type) - 1]
  selectBaseType $type
}

proc changeBaseType {baseNum} {
  global temp_dbtype base_types numBaseTypeIcons
  if {$baseNum > [sc_base count total]} { return }
  set temp_dbtype [sc_base type $baseNum]
  if {$temp_dbtype >= $numBaseTypeIcons} { set temp_dbtype 0 }
  toplevel .btypeWin
  set w .btypeWin
  wm title $w "Scid: Choose database icon"

  text $w.t -yscrollcommand "$w.yscroll set" -font font_Regular \
    -height 25 -width 40 -background white -wrap none \
    -cursor top_left_arrow
  $w.t tag configure selected -background {#ffff80}

  scrollbar $w.yscroll -command "$w.t yview" -takefocus 0
  pack [frame $w.b] -side bottom -pady 5
  pack $w.yscroll -side right -fill y
  pack $w.t -side left -fill both -expand yes

  button $w.b.set -text "OK" -command \
    "catch {sc_base type $baseNum \$temp_dbtype}; updateBaseWin;
     focus .; destroy $w"

  button $w.b.cancel -text "Cancel" -command "focus .; destroy $w; focus ."
  pack $w.b.set $w.b.cancel -side left -padx 5

  set numtypes [llength $base_types]
  for {set i  0} {$i < $numtypes} {incr i} {
    if {$i > 0} { $w.t insert end "\n" }
    $w.t image create end -image dbt$i -pady 3 -padx 3
    $w.t insert end "   [lindex $base_types $i]  "
  } 

  bind $w.t <Double-ButtonRelease-1> "clickBaseType %x %y; $w.b.set invoke"
  bind $w.t <ButtonRelease-1> "clickBaseType %x %y"
  bind $w.t <Button1-Motion> "clickBaseType %x %y; break"

  bind $w <Up> {
    if {$temp_dbtype != 0} { selectBaseType [expr $temp_dbtype - 1] }
    break
  }

  bind $w <Down> {
    if {$temp_dbtype < [expr [llength $base_types] - 1]} {
      selectBaseType [expr $temp_dbtype + 1]
    }
    break
  }

  bind $w <Home> { selectBaseType 0 }
  bind $w <End> { selectBaseType [expr [llength $base_types] - 1] }
  bind $w <Escape> "$w.b.cancel invoke"
  bind $w <Return> "$w.b.set invoke"

  focus $w.t
  grab $w
  update
  selectBaseType $temp_dbtype
}



proc baseWin_onCursor {i} {
  if {! [winfo exists .baseWin]} {return}
  foreach win {"" .img .name .ngames} {
    .baseWin.f$i$win configure -cursor exchange
  }
}

proc baseWin_offCursor {fromBase x y} {
  if {! [winfo exists .baseWin]} {return}
  foreach win {"" .img .name .ngames} {
    .baseWin.f$fromBase$win configure -cursor {}
  }
  set dropPoint [winfo containing $x $y]
  if {! [string match ".baseWin.f*" $dropPoint]} {return}
  set toBase [string range $dropPoint 10 10]
  if {$toBase == $fromBase} {switchBase $toBase} else {
    copyFilter $fromBase $toBase
  }
}

set baseWin 0

proc makeBaseWin {} {
  global baseWin
  if {[winfo exists .baseWin]} {
    focus .
    destroy .baseWin
    set baseWin 0
    return
  }
  set baseWin 1
  set w [toplevel .baseWin]
  bind $w <Configure> "recordWinSize $w"
  setWinLocation $w

  wm resizable $w false false
  wm title $w "Scid: [tr WindowsSwitcher]"
  bind $w <Escape> makeBaseWin
  bind $w <Destroy> { set baseWin 0 }
  bind $w <F1> { helpWindow Switcher }
  standardShortcuts $w

  set side left
  if {$::switcherVertical} { set side top }
  set numBases [sc_base count total]

  for {set i 1} {$i <= $numBases} {incr i} {
    set f [frame $w.f$i -background white -borderwidth 1 -relief ridge]
    pack $f -side $side
    label $f.img -image dbt0 -relief solid -borderwidth 1
    label $f.name -width 13 -anchor w -font font_Small
    label $f.ngames -text "0" -width 13 -anchor e -font font_Small
    pack $f.img -side top -padx 4 -pady 4
    pack $f.name -side top -padx 2 -fill x
    pack $f.ngames -side top -padx 2 -fill x
    foreach win {"" .img .name .ngames} {
      bind $f$win <ButtonPress-1> "baseWin_onCursor $i"
      bind $f$win <ButtonRelease-1> "baseWin_offCursor $i %X %Y"
    }
    menu $f.menu -tearoff 0
    $f.menu add command -label [tr SearchReset] -command "sc_filter reset $i"
    $f.menu add command -label "Change icon..." -command "changeBaseType $i"
    $f.menu add separator
    set closeLabel [tr FileClose]
    if {$i == [sc_info clipbase]} { set closeLabel [tr EditReset] }
    $f.menu add command -label $closeLabel \
      -command "catch {sc_base close $i}"
    foreach win {"" .img .name .ngames} {
      bind $f$win <ButtonPress-3> "tk_popup $f.menu %X %Y"
    }
    $f.menu add separator
    $f.menu add command -label $::tr(ChangeOrient) -command orientBaseWin
  }
  updateBaseWin
}

proc orientBaseWin {} {
  global switcherVertical
  if {$switcherVertical} {
    set switcherVertical 0
    set side left
  } else {
    set switcherVertical 1
    set side top
  }

  set w .baseWin
  set numBases [sc_base count total]

  for {set i 1} {$i <= $numBases} {incr i} {
    pack forget $w.f$i
  }
  for {set i 1} {$i <= $numBases} {incr i} {
    pack $w.f$i -side $side
  }
}

proc updateBaseWin {} {
  global numBaseTypeIcons
  if {! [winfo exists .baseWin]} { return }
  set numBases [sc_base count total]
  set current [sc_base current]
  for {set i 1} {$i <= $numBases} {incr i} {
    .baseWin.f$i configure -background white
    set dbtype [sc_base type $i]
    if {$dbtype >= $numBaseTypeIcons} { set dbtype 0 }
    .baseWin.f$i.img configure -image dbt$dbtype -background white
    .baseWin.f$i.name configure -background white \
      -text "$i: [file tail [sc_base filename $i]]"
    .baseWin.f$i.ngames configure -background white \
      -text "[filterText $i 100000]"
  }

  .baseWin.f$current configure -background {#ffff80}
  foreach i {.img .name .ngames} {
    .baseWin.f$current$i configure -background {#ffff80}
  }
}

###
### import.tcl: part of Scid.
### Copyright (C) 2000  Shane Hudson.
###

### Import game window

proc importPgnGame {} {
  if {[winfo exists .importWin]} { return }
  set w [toplevel .importWin]
  wm title $w "Scid: Import PGN game"
  wm minsize $w 50 5
  frame $w.b
  pack $w.b -side bottom
  set pane [::pane::create $w.pane edit err 650 300 0.8]
  pack $pane -side top -expand true -fill both
  set edit $w.pane.edit
  text $edit.text -height 12 -width 75 -wrap none \
    -background white -selectbackground lightBlue \
    -yscroll "$edit.ybar set" -xscroll "$edit.xbar set"  -setgrid 1
  scrollbar $edit.ybar -command "$edit.text yview"
  scrollbar $edit.xbar -orient horizontal -command "$edit.text xview"
  grid $edit.text -row 0 -column 0 -sticky nesw
  grid $edit.ybar -row 0 -column 1 -sticky nesw
  grid $edit.xbar -row 1 -column 0 -sticky nesw
  grid rowconfig $edit 0 -weight 1 -minsize 0
  grid columnconfig $edit 0 -weight 1 -minsize 0

  # Right-mouse button cut/copy/paste menu:
  menu $edit.text.rmenu -tearoff 0
  $edit.text.rmenu add command -label "Cut" -command "tk_textCut $edit.text"
  $edit.text.rmenu add command -label "Copy" -command "tk_textCopy $edit.text"
  $edit.text.rmenu add command -label "Paste" -command "tk_textPaste $edit.text"
  $edit.text.rmenu add command -label "Select all" -command \
    "$edit.text tag add sel 1.0 end"
  bind $edit.text <ButtonPress-3> "tk_popup $edit.text.rmenu %X %Y"

  text $pane.err.text -height 4 -width 75 -wrap word \
    -yscroll "$pane.err.scroll set"
  $pane.err.text insert end $::tr(ImportHelp1)
  $pane.err.text insert end "\n"
  $pane.err.text insert end $::tr(ImportHelp2)
  $pane.err.text configure -state disabled
  scrollbar $pane.err.scroll -command "$pane.err.text yview"
  pack $pane.err.scroll -side right -fill y
  pack $pane.err.text -side left -expand true -fill both

  button $w.b.paste -text "$::tr(PasteCurrentGame) (Alt-P)" -command {
    .importWin.pane.edit.text delete 1.0 end
    .importWin.pane.edit.text insert end [sc_game pgn -width 70]
    .importWin.pane.err.text configure -state normal
    .importWin.pane.err.text delete 1.0 end
    .importWin.pane.err.text configure -state disabled
  }
  button $w.b.clear -text "$::tr(Clear) (Alt-C)" -command {
    .importWin.pane.edit.text delete 1.0 end
    .importWin.pane.err.text configure -state normal
    .importWin.pane.err.text delete 1.0 end
    .importWin.pane.err.text configure -state disabled
  }
  button $w.b.ok -text "$::tr(Import) (Alt-I)" -command {
    set err [catch {sc_game import \
                      [.importWin.pane.edit.text get 1.0 end]} result]
    .importWin.pane.err.text configure -state normal
    .importWin.pane.err.text delete 1.0 end
    .importWin.pane.err.text insert end $result
    .importWin.pane.err.text configure -state disabled
    if {! $err} {
      updateBoardAndPgn .board
      updateTitle
    }
  }
  button $w.b.cancel -textvar ::tr(Close) -command {
    destroy .importWin; focus .
  }
  frame $w.b.space -width 20
  pack $w.b.paste $w.b.clear $w.b.space -side left -padx 2 -pady 2
  pack $w.b.cancel $w.b.ok -side right -padx 10 -pady 5
  # Paste the current selected text automatically:
  if {! [catch {$w.pane.edit.text insert end [selection get]}]} {
    # Select all of the pasted text:
    $w.pane.edit.text tag add sel 1.0 end
  }
  bind $w <F1> { helpWindow Import }
  bind $w <Alt-i> { .importWin.b.ok invoke }
  bind $w <Alt-p> { .importWin.b.paste invoke }
  bind $w <Alt-c> { .importWin.b.clear invoke }
  bind $w <Escape> { .importWin.b.cancel invoke }
  focus $w.pane.edit.text
}


proc importPgnLine {line} {
  importPgnGame
  set w .importWin.pane.edit.text
  $w delete 1.0 end
  $w insert end $line
  focus $w
}

proc importMoveList {line} {
  sc_move start
  sc_move addSan $line
  updateBoardAndPgn .board
}

set importPgnErrors ""

### Import file of Pgn games:

proc importPgnFile {} {
  global importPgnErrors

  set err ""
  if {[sc_base isReadOnly]} { set err "This database is read-only." }
  if {![sc_base inUse]} { set err "This is not an open database." }
  if {$err != ""} {
    tk_messageBox -type ok -icon error -title "Scid: Error" -message $err
    return
  }
  if {[sc_info gzip]} {
    set ftypes {
      { "Portable Game Notation files" {".pgn" ".PGN" ".pgn.gz"} }
      { "Text files" {".txt" ".TXT"} }
      { "All files" {"*"} }
    }
  } else {
    set ftypes {
      { "Portable Game Notation files" {".pgn" ".PGN"} }
      { "Text files" {".txt" ".TXT"} }
      { "All files" {"*"} }
    }
  }
  set fname [tk_getOpenFile -filetypes $ftypes -title "Import from a PGN file"]
  if {$fname == ""} {return}
  doPgnFileImport $fname ""
}

proc doPgnFileImport {fname text} {
  set w .ipgnWin
  if {[winfo exists $w]} { destroy $w }
  toplevel $w
  wm title $w "Scid: Importing PGN file"
  canvas $w.progress -width 400 -height 20 -bg white -relief solid -border 1
  $w.progress create rectangle 0 0 0 0 -fill blue -outline blue -tags bar
  $w.progress create text 395 10 -anchor e -font font_Regular -tags time \
    -fill black -text "0:00 / 0:00"

  pack $w.progress -side bottom

  frame $w.buttons
  pack $w.buttons -side bottom -fill x
  button $w.buttons.stop -textvar ::tr(Stop) -command {sc_progressBar}
  button $w.buttons.close -textvar ::tr(Close) -command "focus .; destroy $w"
  pack $w.buttons.close $w.buttons.stop -side right -ipadx 5 -padx 5 -pady 2

  pack [frame $w.tf] -side top -expand yes -fill both
  text $w.text -height 8 -width 60 -background gray90 \
    -wrap none -cursor watch -setgrid 1 -yscrollcommand "$w.ybar set"
  scrollbar $w.ybar -command "$w.text yview"
  pack $w.ybar -in $w.tf -side right -fill y
  pack $w.text -in $w.tf -side left -fill both -expand yes
  update

  busyCursor .
  sc_progressBar $w.progress bar 401 21 time
  grab $w.buttons.stop
  bind $w <Escape> "$w.buttons.stop invoke"
  $w.buttons.close configure -state disabled
  $w.text insert end $text
  $w.text insert end "Importing PGN games from [file tail $fname]...\n\n"
  $w.text configure -state disabled

  set importPgnErrors ""
  catch {sc_base import file $fname} result
  $w.text configure -state normal
  $w.text configure -cursor top_left_arrow
  $w.text insert end $result
  $w.text configure -state disabled
  $w.buttons.close configure -state normal
  $w.buttons.stop configure -state disabled
  grab release $w.buttons.stop
  bind $w <Escape> "$w.buttons.close invoke; break"
  unbusyCursor .
  updateTitle
  updateMenuStates
  updateBaseWin
  updateMaintWin
  update
}

###
### End of file: import.tcl
###

### spellchk.tcl
### Part of Scid.
### Copyright (C) 2000 Shane Hudson.

set spellcheckType Player
set spell_maxCorrections 2000
set spellcheckSurnames 0
set spellcheckAmbiguous 1

# readSpellCheckFile:
#    Presents a File Open dialog box for a Scid spellcheck file,
#    then tries to read the file. If the parameter "message" is true
#    (which is the default), a message box indicating the results
#    is displayed.
#
proc readSpellCheckFile {{message 1}} {
  global spellCheckFile
  set ftype { { "Scid Spellcheck files" {".ssp" ".ssp.gz"} } }
  set fullname [tk_getOpenFile -initialdir [pwd] -filetypes $ftype -title "Open Spellcheck file"]
  if {![string compare $fullname ""]} { return 0 }
  
  if {[catch {sc_name read $fullname} result]} {
      if {$message} {
        tk_messageBox -title "ERROR: Unable to read file" -type ok \
          -icon error -message "Scid could not correctly read the spellcheck file you selected:\n\n$result"
      }
    return 0
  }
  set spellCheckFile $fullname
  if {$message} {
    tk_messageBox -title "Spellcheck file loaded." -type ok -icon info \
      -message "Spellcheck file [file tail $fullname] loaded:\n[lindex $result 0] players, [lindex $result 1] events, [lindex $result 2] sites, [lindex $result 3] rounds.\n\nTo have this file automatically loaded every time you start Scid, select the \"Save Options\" from the Options menu before exiting."
  }
  return 1
}

proc updateSpellCheckWin {type} {
  global spellcheckType spell_maxCorrections spellcheckSurnames
  global spellcheckAmbiguous
  busyCursor .
  .spellcheckWin.text.text delete 1.0 end
  #.spellcheckWin.text.text insert end "Finding player corrections..."
  update idletasks
  catch {sc_name spellcheck -max $spell_maxCorrections \
           -surnames $spellcheckSurnames \
           -ambiguous $spellcheckAmbiguous $type} result
  .spellcheckWin.text.text delete 1.0 end
  .spellcheckWin.text.text insert end $result
  unbusyCursor .
}

proc openSpellCheckWin {type {parent .}} {
  global spellcheckType spell_maxCorrections spellcheckSurnames
  global spellcheckAmbiguous
  set w .spellcheckWin
  if {[winfo exists $w]} {
    tk_messageBox -type ok -icon info -title "Scid: Spellcheck error" \
      -parent $parent \
      -message "The spellcheck window is already open; close it first."
    return
  }
  if {[lindex [sc_name read] 0] == 0} {
    # No spellcheck file loaded, so try to open one:
    if {![readSpellCheckFile]} {
      return
    }
  }
  busyCursor .
  if {[catch {sc_name spellcheck -max $spell_maxCorrections \
                -surnames $spellcheckSurnames \
                -ambiguous $spellcheckAmbiguous $type} result]} {
    unbusyCursor .
    tk_messageBox -type ok -icon info -title "Scid: Spellcheck results" \
      -parent $parent -message $result
    return
  }
  unbusyCursor .
  set spellcheckType $type

  toplevel $w
  wm title $w "Scid: Spellcheck Results"
  wm minsize $w 50 10

  bind $w <F1> { helpWindow Maintenance }
  bind $w <Configure> "recordWinSize $w"

  set f [frame $w.buttons]
  pack $f -side bottom -ipady 1 -fill x

  checkbutton $f.ambig -variable spellcheckAmbiguous -relief raised \
    -text "Ambiguous" -command "updateSpellCheckWin $type"
  pack $f.ambig -side left -padx 2 -ipady 2 -ipadx 3
  if {$type == "Player"} {
    checkbutton $f.surnames -variable spellcheckSurnames -relief raised \
      -text "Surnames" -command "updateSpellCheckWin Player"
    pack $f.surnames -side left -padx 2 -ipady 2 -ipadx 3
  }

  button $f.ok -text "Make Corrections" -underline 0 -command {
    busyCursor .
    set spelltext ""
    catch {set spelltext [.spellcheckWin.text.text get 1.0 end-1c]}
    .spellcheckWin.text.text delete 1.0 end
    .spellcheckWin.text.text insert end \
      "Scid is making the spelling corrections.\nPlease wait..."
    update idletasks
    set spell_result ""
    set result [catch {sc_name correct $spellcheckType $spelltext} spell_result]
    set messageIcon info
    if {$result} { set messageIcon error }
    tk_messageBox -type ok -parent .spellcheckWin -icon $messageIcon \
      -title "Scid: Spellcheck results" -message $spell_result
    unbusyCursor .
    focus .
    destroy .spellcheckWin
  }
  bind $w <Alt-m> "$f.ok invoke; break"

  button $f.cancel -text "Cancel" -underline 0 -command {
    focus .
    destroy .spellcheckWin
  }
  bind $w <Alt-c> "$f.cancel invoke; break"

  pack $f.cancel $f.ok -side right -padx 5

  set f [frame $w.text]
  pack $w.text -expand yes -fill both
  scrollbar $f.ybar -command "$f.text yview"
  scrollbar $f.xbar -orient horizontal -command "$f.text xview"
  text $f.text -yscrollcommand "$f.ybar set" -xscrollcommand "$f.xbar set" \
    -setgrid 1 -width $::winWidth($w) -height $::winHeight($w) \
    -background white -wrap none
  $f.text configure -tabs \
    [font measure font_Regular  "xxxxxxxxxxxxxxxxxxxxxxxxx"]

  grid $f.text -row 0 -column 0 -sticky news
  grid $f.ybar -row 0 -column 1 -sticky news
  grid $f.xbar -row 1 -column 0 -sticky news

  grid rowconfig $w.text 0 -weight 1 -minsize 0
  grid columnconfig $w.text 0 -weight 1 -minsize 0

  $f.text insert end $result
  focus $f.text
}


# graph.tcl: Graph plotting package for Scid.
#

namespace eval ::graph {}

# Configuration options, specific to each graph:
#
#  -width:     width of graph in canvas units.
#  -height:    height of graph in canvas units.
#  -xtop:      x-coord of top-left graph corner in canvas.
#  -ytop:      y-coord of top-left graph corner in canvas.
#  -background: background color in graph.
#  -font:      font of axis text.
#  -textcolor: color of axis text.
#  -ticksize:  length of ticks on axes, in canvas units.
#  -textgap:   distance from graph border to text, in canvas units.
#  -xtick:     distance between x-axis ticks, in graph units.
#  -ytick:     distance between y-axis ticks, in graph units.
#  -xlabels, -ylabels: lists of {value,label} pairs to print on each axis.
#              If a list has no pairs, values are printed at each tick.
#  -xmin, -xmax, -ymin, -ymax:  miminum/maximum graph units to plot.
#  -canvas:    canvas to plot the graph in.
#  -vline, -hline: list of vertical/horizontal lines to plot. Each
#              element is a list of four items: {color width type value}
#              where color is the line color, width is its width in
#              pixels, type is "each" or "at", and value is the value.
#  -brect: list of background rectangles. Each element is a list of 5 items:
#              the graph coordinates of a rectangle, and its color.
#
set ::graph::_options(graph) {
  width height xtop ytop background font ticksize textgap xtick ytick
  xmin xmax ymin ymax canvas vline hline textcolor xlabels ylabels brect
}
set ::graph::_defaults(graph) \
  { -width 400 -height 300 -xtop 50 -ytop 30 -ticksize 5 -textgap 4 \
    -xtick 5 -ytick 5 -font fixed -background white -canvas {} \
      -hline {} -vline {} -textcolor black -xlabels {} -ylabels {} -brect {} }

# Data options, specific to each data set within a graph:
#
#   -points:  1 to display data points.
#   -lines:   1 to display data line.
#   -bars:    1 to display vertical bars.
#   -color:   color to display points, lines and bars in.
#   -outline: color for outline of bars or points. Not used for lines.
#   -radius:  radius of points in canvas units.
#   -linewidth: width of line in canvas units.
#   -barwidth:  width of bars -- in GRAPH units, NOT canvas units.
#   -key:     key name to print by line.
#   -coords:  actual data to plot; should be a list containing an
#             EVEN number of numeric values.
#
set ::graph::_options(data) {
  points lines bars color outline radius linewidth barwidth coords key
}
set ::graph::_defaults(data) \
  { -points 0 -lines 1 -bars 0 -color red -outline black -radius 2 \
    -linewidth 1 -barwidth 1.0 -key {} -coords {} }

set ::graph::_graphs {}
array set ::graph::_data {}


# create:
#    Create a new graph. Sets up the graph configuration and creates a
#    new proc (in the global namespace) with the same name as the graph.
#
proc ::graph::create args {
  set graph [lindex $args 0]
  lappend ::graph::_graphs $graph
  
  # Remove any existing data for this graph name:
  foreach key [array names ::graph::_data] {
    if {[string match "$graph,*" $key]} { unset ::graph::_data($key) }
  }
  set ::graph::_data($graph,sets) {}

  set args [concat graph $graph $::graph::_defaults(graph) [lrange $args 1 end]]
  set extraArgs [eval "::graph::_configure $args"]
  if {$extraArgs != ""} {
    error "Unrecognised arguments: $extraArgs"
  }
  return $graph
}


# delete:
#    Removes all privately stored information about a graph.
#
proc ::graph::delete {graph} {
  # Remove from the list of available graphs:
  set index [lindex $::graph::_graphs $graph]
  if {$index < 0} { return }
  set ::graph::_graphs [lreplace $::graph::_graphs $index $index]
  # Remove all configuration data for the graph:
  foreach key [array names ::graph::_data] {
    if {[string match "$graph,*" $key]} {
      unset ::graph::_data($key)
    }
  }
}


# isgraph:
#    Returns true if the named graph exists.
#
proc graph::isgraph {graph} {
  if {[lsearch $::graph::_graphs $graph] >= 0} { return 1 }
  return 0
}


# data:
#    Adds a new data set to the graph, or modifies an existing one.
#
proc ::graph::data args {
  set graph [lindex $args 0]
  set dataset [lindex $args 1]

  set args [concat data $graph,$dataset $::graph::_defaults(data) \
              [lrange $args 2 end]]

  set extraArgs [eval "::graph::_configure $args"]
  if {$extraArgs != ""} {
    error "Unrecognised graph data options: $extraArgs"
  }

  set marklist $::graph::_data($graph,sets)
  if {[lsearch -exact $marklist $dataset] < 0} {
    lappend ::graph::_data($graph,sets) $dataset
  }

  set datalength 0
  set ncoords [llength $::graph::_data($graph,$dataset,coords)]
  if {$ncoords % 2 != 0} {
    error "Error: coordinates list must have an even length"
  }

  # Redraw graph: do we want to do this here?
  #::graph::redraw $graph
}


# cget:
#    Return a stored attribute of a graph.
#
proc ::graph::cget {graph opt} {
  # Remove initial "-" if necessary:
  if {[string index $opt 0] == "-"} { set opt [string range $opt 1 end] }

  # If asking for axmin/axmax/aymin/aymax, set ranges first:
  if {[string match "a?m??" $opt]} { ::graph::set_range $graph }

  if {! [info exists ::graph::_data($graph,$opt)]} {
    error "No such graph option: $opt"
  }
  return $::graph::_data($graph,$opt)
}

# configure:
#    Modify stored attributes for a graph.
#
proc ::graph::configure args {
  set newargs [concat "graph" [lindex $args 0] [lrange $args 1 end]]
  eval "::graph::_configure $newargs"
}


# _configure:
#    Handle configuration of both the graph, and individual data sets.
#    The first arg (type) should be "graph" or "data". The second should
#    be a graph name for graph configuration, or a "graph,set" pair
#    for dataset configuration.
#
proc ::graph::_configure args {
  set type [lindex $args 0]
  set dataset [lindex $args 1]
  set args [lrange $args 2 end]

  set optionList $::graph::_options($type)
  set option {}

  if {[llength $args] % 2} { error "Error: odd-length options list: $args" }

  for {set i 0} {$i < [llength $args]} {incr i 2} {
    set option [lindex $args $i]
    if {[string index $option 0] != "-"} { return [lrange $args $i end] }
    set option [string range $option 1 end]
    if {[lsearch $optionList $option] >= 0} {
      set ::graph::_data($dataset,$option) [lindex $args [expr $i+1]]
    }
  }
}


# redraw:
#    Redraw the entire graph, axes and data.
#
proc ::graph::redraw {graph} {
  if {! [::graph::isgraph $graph]} { error "$graph: no such graph" }
  if {! [info exists ::graph::_data($graph,canvas)]} { return }
  $::graph::_data($graph,canvas) delete -withtag g$graph
  ::graph::plot_axes $graph
  ::graph::plot_data $graph
}

# plot_axes:
#    Replot the graph axes.
#
proc ::graph::plot_axes {graph} {
  # Set ranges and scaling factors:
  ::graph::set_range $graph
  ::graph::rescale $graph

  set xmin $::graph::_data($graph,axmin)
  set xmax $::graph::_data($graph,axmax)
  set ymin $::graph::_data($graph,aymin)
  set ymax $::graph::_data($graph,aymax)

  set xminc [::graph::xmap $graph $xmin]
  set xmaxc [::graph::xmap $graph $xmax]
  set yminc [::graph::ymap $graph $ymin]
  set ymaxc [::graph::ymap $graph $ymax]

  set canvas $::graph::_data($graph,canvas)
  set tag g$graph

  $canvas create rectangle $xminc $yminc $xmaxc $ymaxc -outline black \
    -fill $::graph::_data($graph,background) -tag $tag

  set brect $::graph::_data($graph,brect)
  for {set i 0} {$i < [llength $brect]} {incr i} {
    set item [lindex $brect $i]
    set x1 [::graph::xmap $graph [lindex $item 0]]
    set y1 [::graph::ymap $graph [lindex $item 1]]
    set x2 [::graph::xmap $graph [lindex $item 2]]
    set y2 [::graph::ymap $graph [lindex $item 3]]
    if {$x1 < $xminc} { set x1 $xminc }
    if {$x1 > $xmaxc} { set x1 $xmaxc }
    if {$x2 < $xminc} { set x2 $xminc }
    if {$x2 > $xmaxc} { set x2 $xmaxc }
    if {$y1 > $yminc} { set y1 $yminc }
    if {$y1 < $ymaxc} { set y1 $ymaxc }
    if {$y2 > $yminc} { set y2 $yminc }
    if {$y2 < $ymaxc} { set y2 $ymaxc }
    $canvas create rectangle $x1 $y1 $x2 $y2 -fill [lindex $item 4] -width 0 \
      -tag $tag
  }

  # Plot vertical guide lines:
  foreach vline $::graph::_data($graph,vline) {
    set color [lindex $vline 0]
    set width [lindex $vline 1]
    set type [lindex $vline 2]
    set inc [lindex $vline 3]
    if {$type == "at"} {
      # Plot just one line:
      set xvalue [::graph::xmap $graph $inc]
      $canvas create line $xvalue $yminc $xvalue $ymaxc -width $width \
        -fill $color -tag $tag
    } elseif {$inc > 0} {
      # Plot a line at each multiple of "inc" units:
      set x [expr int($xmin/$inc) * $inc + $inc]
      while {$x < $xmax} {
        set xvalue [::graph::xmap $graph $x]
        $canvas create line $xvalue $yminc $xvalue $ymaxc -width $width \
          -fill $color -tag $tag
        set x [expr $x + $inc]
      }
    }
  }

  # Plot horizontal guide lines:
  foreach hline $::graph::_data($graph,hline) {
    set color [lindex $hline 0]
    set width [lindex $hline 1]
    set type [lindex $hline 2]
    set inc [lindex $hline 3]
    if {$type == "at"} {
      set yvalue [::graph::ymap $graph $inc]
      $canvas create line $xminc $yvalue $xmaxc $yvalue -width $width \
        -fill $color -tag $tag
    } elseif {$inc > 0} {
      set y [expr int($ymin/$inc) * $inc + $inc]
      while {$y < $ymax} {
        set yvalue [::graph::ymap $graph $y]
        $canvas create line $xminc $yvalue $xmaxc $yvalue -width $width \
          -fill $color -tag $tag
        set y [expr $y + $inc]
      }
    }
  }

  # Plot x ticks and y ticks:
  # Extract the graph attributes we will need to use:
  foreach attr {ticksize font textcolor textgap xtick ytick xlabels ylabels} {
    set $attr $::graph::_data($graph,$attr)
  }
  set nxlabels [llength $xlabels]
  set nylabels [llength $ylabels]

  if {$xtick > 0} {
    set x [expr int($xmin/$xtick) * $xtick]
    while {$x < $xmin} { set x [expr $x + $xtick] }
    while {$x <= $xmax} {
      set xc [::graph::xmap $graph $x]
      $canvas create line $xc $yminc $xc [expr $yminc - $ticksize] -tag $tag
      $canvas create line $xc $ymaxc $xc [expr $ymaxc + $ticksize] -tag $tag
      if {$nxlabels == 0} {
        $canvas create text $xc [expr $yminc + $textgap] -font $font \
          -text [::graph::round $x] -anchor n -tag $tag -fill $textcolor
      }
      set x [expr $x + $xtick]
    }
  }
  for {set i 0} {$i < $nxlabels} {incr i} {
    set label [lindex $xlabels $i]
    set x [lindex $label 0]
    set text [lindex $label 1]
    set xc [::graph::xmap $graph $x]
    $canvas create text $xc [expr $yminc + $textgap] -font $font \
      -text $text -anchor n -tag $tag -fill $textcolor -justify center
  }

  if {$ytick > 0} {
    set y [expr int($ymin/$ytick) * $ytick]
    while {$y < $ymin} { set y [expr $y + $ytick] }
    while {$y <= $ymax} {
      set yc [::graph::ymap $graph $y]
      $canvas create line $xminc $yc [expr $xminc + $ticksize] $yc -tag $tag
      $canvas create line [expr $xmaxc - $ticksize] $yc $xmaxc $yc -tag $tag
      if {$nylabels == 0} {
        $canvas create text [expr $xminc - $textgap] $yc -font $font \
          -text [::graph::round $y] -anchor e -tag $tag -fill $textcolor
      }
      set y [expr $y + $ytick]
    }
  }
  for {set i 0} {$i < $nylabels} {incr i} {
    set label [lindex $ylabels $i]
    set y [lindex $label 0]
    set text [lindex $label 1]
    set yc [::graph::ymap $graph $y]
    $canvas create text [expr $xminc - $textgap] $yc -font $font \
      -text $text -anchor e -tag $tag -fill $textcolor
  }
}

# plot_data:
#    Plot the lines/points/bars for each data set in the graph.
#
proc ::graph::plot_data {graph} {
  set canvas $::graph::_data($graph,canvas)

  foreach dataset $::graph::_data($graph,sets) {
    set color $::graph::_data($graph,$dataset,color)
    set outline $::graph::_data($graph,$dataset,outline)
    set tag g$graph
    set coords [::graph::scale_data $graph $::graph::_data($graph,$dataset,coords)]
    set ncoords [expr [llength $coords] - 1]

    # Draw key:
    if {$::graph::_data($graph,$dataset,key) != ""} {
      set key $::graph::_data($graph,$dataset,key)
      if {$ncoords >= 1} {
        set dy 3
        set anchor nw
        set x [expr [lindex $coords 0] + 3]
        set y [lindex $coords 1]
        if {$ncoords >= 3} {
          set nexty [lindex $coords 3]
          if {$nexty > $y} { set dy -3; set anchor sw }
        }
        incr y $dy
        catch {$canvas create text $x $y -fill $color -tag $tag \
                 -text $::graph::_data($graph,$dataset,key) \
                 -font $::graph::_data($graph,font) -anchor $anchor}
      }
    }

    # Plot line:
    if {$::graph::_data($graph,$dataset,lines)} {
      # Catch errors drawing line in case the data set contains no data:
      catch {eval "$canvas create line $coords -fill $color \
                   -width $::graph::_data($graph,$dataset,linewidth) -tag $tag"}
    }

    # Plot points:
    if {$::graph::_data($graph,$dataset,points)} {
      for {set i 0} {$i < $ncoords} {incr i 2} {
        set x [lindex $coords $i]
        set y [lindex $coords [expr $i + 1]]
        set p $::graph::_data($graph,$dataset,radius)
        $canvas create oval [expr $x-$p] [expr $y-$p] [expr $x+$p] [expr $y+$p] \
          -fill $color -outline $outline -width 1 -tag $tag
      }
    }

    # Plot bars:
    if {$::graph::_data($graph,$dataset,bars)} {
      set base [::graph::ymap $graph $::graph::_data($graph,aymin)]
      set hwidth [::graph::xmap $graph $::graph::_data($graph,$dataset,barwidth)]
      set hwidth [expr $hwidth - [::graph::xmap $graph 0]]
      set hwidth [expr $hwidth / 2]
      if {$hwidth < 1} { set hwidth 1 }

      for {set i 0} {$i < $ncoords} {incr i 2} {
        set x [lindex $coords $i]
        set y [lindex $coords [expr $i + 1]]
        $canvas create rectangle [expr $x-$hwidth] $y [expr $x+$hwidth] $base \
          -fill $color -outline $outline -tag $tag
      }
    }
  }
}


# ::graph::round:
#    Returns a value n rounded to the nearest integer if it is
#    within 0.1 of n, or to one decimal place otherwise.
#    Used to print axis values to a sensible precision.
#
proc ::graph::round {n} {
  set intn [expr int($n)]
  if {[expr $n - $intn] < 0.1  &&  [expr $intn - $n] < 0.1} {
    return [expr round($n)]
  }
  return [expr double(round($n * 10.0)) / 10.0]
}


# point_visible:
#    Returns true if a point (in graph coordinates) is visible given
#    the current display boundaries.
#
proc ::graph::point_visible {graph x y} {
  set xmin $::graph::_data($graph,xtop)
  set ymin $::graph::_data($graph,ytop)
  set xmax [expr $xmin + $::graph::_data($graph,width)]
  set ymax [expr $ymin + $::graph::_data($graph,height)]

  if {$x >= xmin && $x <= $xmax && $y >= $ymin && $y <= $ymax} { return 1 }
  return 0
}


# rescale:
#    Sets the scaling factors used for mapping graph to canvas coordinates.
#
proc ::graph::rescale {graph} {
  set width $::graph::_data($graph,width)
  set height $::graph::_data($graph,height)
  set xdelta [expr double($::graph::_data($graph,axmax) - \
                          $::graph::_data($graph,axmin))]
  set ydelta [expr double($::graph::_data($graph,aymax) - \
                          $::graph::_data($graph,aymin))]
  # Ensure deltas are not zero or too close to it:
  if {$xdelta < 0.0001} { set xdelta 0.0001 }
  if {$ydelta < 0.0001} { set ydelta 0.0001 }

  set ::graph::_data($graph,xfac) [expr double($width)/$xdelta]
  set ::graph::_data($graph,yfac) [expr double($height)/$ydelta]
}


# xmap:
#    Map a graph X coordinate to its canvas unit equivalent.
#
proc ::graph::xmap {graph x} {
  return [expr int(($x - $::graph::_data($graph,axmin)) * \
            $::graph::_data($graph,xfac) + $::graph::_data($graph,xtop))]
}

# ymap:
#    Map a graph Y coordinate to its canvas unit equivalent.
#
proc ::graph::ymap {graph y} {
  return [expr int(($::graph::_data($graph,aymax) - $y) * \
            $::graph::_data($graph,yfac) + $::graph::_data($graph,ytop))]
}

#xunmap:
#    Transform a canvas unit to its graph X coordinate equivalent.
#
proc ::graph::xunmap {graph cx} {
  return [expr $::graph::_data($graph,axmin) + \
            double($cx - $::graph::_data($graph,xtop)) / \
            double($::graph::_data($graph,xfac))]
}

#yunmap:
#    Transform a canvas unit to its graph Y coordinate equivalent.
#
proc ::graph::yunmap {graph cy} {
  return [expr $::graph::_data($graph,aymax) - \
            double($cy - $::graph::_data($graph,ytop)) / \
            double($::graph::_data($graph,yfac))]
}

# scale_data:
#    Transforms an even-sized list of graph coordinates to canvas units.
#
proc ::graph::scale_data {graph coords} {
  set result {}
  for {set i 0} {$i < [llength $coords] - 1} {incr i 2} {
    lappend result [::graph::xmap $graph [lindex $coords $i]]
    lappend result [::graph::ymap $graph [lindex $coords [expr $i+1]]]
  }
  return $result
}

# set_range:
#    Sets any range boundaries that are not already set for a graph.
#
proc ::graph::set_range {graph} {
  set xmin 1000000000; set xmax -100000000
  set ymin 1000000000; set ymax -100000000

  foreach dataset $::graph::_data($graph,sets) {
    set coords $::graph::_data($graph,$dataset,coords)
    for {set i 0} {$i < [llength $coords] - 1} {incr i 2} {
      set x [lindex $coords $i]
      set y [lindex $coords [expr $i+1]]

      if {$x < $xmin} { set xmin $x }
      if {$x > $xmax} { set xmax $x }
      if {$y < $ymin} { set ymin $y }
      if {$y > $ymax} { set ymax $y }
    }
  }

  # Set sane values if no data coordinates exist at all:
  if {$xmax < $xmin} { set xmin 0; set xmax 1 }
  if {$ymax < $ymin} { set ymin 0; set ymax 1 }

  set xtick $::graph::_data($graph,xtick)
  set ytick $::graph::_data($graph,ytick)
  set ::graph::_data($graph,axmin) [expr floor($xmin/$xtick) * $xtick]
  set ::graph::_data($graph,axmax) [expr floor($xmax/$xtick) * $xtick + $xtick]
  set ::graph::_data($graph,aymin) [expr floor($ymin/$ytick) * $ytick]
  set ::graph::_data($graph,aymax) [expr floor($ymax/$ytick) * $ytick + $ytick]

  # Explicitly set boundaries override the detected ranges:
  foreach coord {xmin xmax ymin ymax} {
    if {[info exists ::graph::_data($graph,$coord)]} {
      set ::graph::_data($graph,a$coord) $::graph::_data($graph,$coord)
    }
  }
}

# maint.tcl:   Maintenance-related functions
# Part of Scid.
# Copyright (C) 2000 Shane Hudson.


# setGameFlags:
#   Updates a flag for the current game, all filtered games, or all games.
#   <type> should be "current", "filter" or "all".
#   <flag> should be "delete", "user", "endgame", etc.
#   <value> should be 0 or 1
#
proc setGameFlags {flag type value} {
  if {$flag == "mark"} { set flag $::maintFlag }
  switch -- $type {
    "current" {
      busyCursor .
      catch {sc_game flag $flag [sc_game number] $value}
      unbusyCursor .
    }
    "filter" -
    "all" {
      busyCursor .
      catch {sc_game flag $flag $type $value}
      unbusyCursor .
    }
    default { return }
  }
  updateBoard .board
  updateGList
  updateMaintWin
}

set maintFlag W
set maintFlaglist {W B M E N P T Q K ! ? U}
array set maintFlags {
  W WhiteOpFlag
  B BlackOpFlag
  M MiddlegameFlag
  E EndgameFlag
  N NoveltyFlag
  P PawnFlag
  T TacticsFlag
  Q QsideFlag
  K KsideFlag
  ! BrilliancyFlag
  ? BlunderFlag
  U UserFlag
}

# makeMaintWin:
#   Creates the database maintenance window.
#
set maintWin 0
proc makeMaintWin {} {
  global maintWin maintFlag maintFlags maintFlaglist
  set w .maintWin
  if {[winfo exists $w]} {
    destroy $w
    set maintWin 0
    return
  }
  set maintWin 1
  set font font_Small
  set bold font_SmallBold
  toplevel $w
  wm title $w "Scid: [tr FileMaint]"
  wm resizable $w 0 0
  bind $w <F1> {helpWindow Maintenance}
  bind $w <Escape> "destroy $w; break"
  bind $w <Destroy> {set maintWin 0}
  foreach f {title delete mark spell db buttons} {
    frame $w.$f
  }
  foreach f {title delete mark spell db} {
    pack $w.$f -side top -fill x
    addHorizontalRule $w
  }
  pack $w.buttons -side top -fill x

  label $w.title.name -textvar ::tr(DatabaseName) -font font_Bold
  label $w.title.games -textvar ::tr(NumOfGames) -font font_SmallBold
  label $w.title.icon -textvar ::tr(TypeIcon)
  label $w.title.delete -textvar ::tr(NumDeletedGames) -font $font
  label $w.title.mark -font $font
  label $w.title.filter -textvar ::tr(NumFilterGames) -font $font
  label $w.title.dates -textvar ::tr(YearRange) -font $font
  label $w.title.ratings -textvar ::tr(RatingRange) -font $font
  button $w.title.vicon -command {changeBaseType [sc_base current]}

  foreach name {name games delete mark filter dates ratings} {
    label $w.title.v$name -text "0" -font $font
  }

  set row 0
  set col 0
  foreach name {name icon games filter delete mark dates ratings} {
    grid $w.title.$name -row $row -column $col -sticky w
    incr col
    grid $w.title.v$name -row $row -column $col -sticky e
    incr col
    if {$col == 2} { incr col }
    if {$col >= 5} { set col 0; incr row }
  }
  grid [label $w.title.space -text "   "] -row 0 -column 2
  $w.title.vname configure -font font_Bold
  $w.title.vgames configure -font font_SmallBold

  foreach grid {title delete mark spell db} cols {5 3 3 4 3} {
    for {set i 0} {$i < $cols} {incr i} {
      grid columnconfigure $w.$grid $i -weight 1
    }
  }

  label $w.delete.title -textvar ::tr(DeleteFlag) -font $bold
  menubutton $w.mark.title -menu $w.mark.title.m \
    -indicatoron 1 -relief raised -font $bold
  menu $w.mark.title.m -font $font
  foreach i $maintFlaglist  {
    $w.mark.title.m add command -label "$::tr($maintFlags($i)) ($i)" \
      -command "set maintFlag $i; updateMaintWin"
  }
  foreach flag {delete mark} on {Delete Mark} off {Undelete Unmark} {
    foreach b {Current Filter All} {
      button $w.$flag.on$b -textvar "::tr($on$b)" -font $font \
        -command "setGameFlags $flag [string tolower $b] 1"
      button $w.$flag.off$b -textvar "::tr($off$b)" -font $font \
        -command "setGameFlags $flag [string tolower $b] 0"
    }

    grid $w.$flag.title -columnspan 3 -row 0 -column 0 -sticky n
    grid $w.$flag.onCurrent -row 1 -column 0 -sticky we
    grid $w.$flag.offCurrent -row 2 -column 0 -sticky we
    grid $w.$flag.onFilter -row 1 -column 1 -sticky we
    grid $w.$flag.offFilter -row 2 -column 1 -sticky we
    grid $w.$flag.onAll -row 1 -column 2 -sticky we
    grid $w.$flag.offAll -row 2 -column 2 -sticky we
  }

  label $w.spell.title -textvar ::tr(Spellchecking) -font $bold
  grid $w.spell.title -columnspan 4 -row 0 -column 0 -sticky n
  button $w.spell.player -textvar ::tr(Players...) -font $font \
    -command "openSpellCheckWin Player $w"
  button $w.spell.event -textvar ::tr(Events...) -font $font \
    -command "openSpellCheckWin Event $w"
  button $w.spell.site -textvar ::tr(Sites...) -font $font \
    -command "openSpellCheckWin Site $w"
  button $w.spell.round -textvar ::tr(Rounds...) -font $font \
    -command "openSpellCheckWin Round $w"
  grid $w.spell.player -row 1 -column 0 -sticky we
  grid $w.spell.event -row 1 -column 1 -sticky we
  grid $w.spell.site -row 1 -column 2 -sticky we
  grid $w.spell.round -row 1 -column 3 -sticky we

  bind $w <Alt-p> "$w.spell.player invoke"
  bind $w <Alt-e> "$w.spell.event invoke"
  bind $w <Alt-s> "$w.spell.site invoke"
  bind $w <Alt-r> "$w.spell.round invoke"

  label $w.db.title -textvar ::tr(DatabaseOps) -font $bold
  grid $w.db.title -columnspan 3 -row 0 -column 0 -sticky n

  button $w.db.eco -textvar ::tr(ReclassifyGames...) -command classifyAllGames
  button $w.db.compact -textvar ::tr(CompactDatabase...) -command makeCompactWin
  button $w.db.sort -textvar ::tr(SortDatabase...) -command makeSortWin
  button $w.db.elo -textvar ::tr(AddEloRatings...) -command allocateRatings
  button $w.db.dups -textvar ::tr(DeleteTwins...) -command "markTwins $w"
  button $w.db.cleaner -textvar ::tr(Cleaner...) -command cleanerWin
  button $w.db.autoload -textvar ::tr(AutoloadGame...) -command setAutoloadGame

  foreach i {eco compact sort elo dups cleaner autoload} {
    $w.db.$i configure -font $font
  }
  bind $w <Alt-d> "$w.db.dups invoke"

  grid $w.db.eco -row 1 -column 0 -sticky we
  grid $w.db.compact -row 1 -column 1 -sticky we
  grid $w.db.sort -row 1 -column 2 -sticky we
  grid $w.db.elo -row 2 -column 0 -sticky we
  grid $w.db.dups -row 2 -column 1 -sticky we
  grid $w.db.cleaner -row 2 -column 2 -sticky we
  grid $w.db.autoload -row 3 -column 0 -sticky we

  button $w.buttons.help -textvar ::tr(Help) -command {helpWindow Maintenance}
  button $w.buttons.close -textvar ::tr(Close) -command "destroy $w"
  pack $w.buttons.close $w.buttons.help -side right -padx 2 -pady 2
  bind $w <Alt-h> "$w.buttons.help invoke"
  bind $w <Alt-c> "destroy $w; break"
  standardShortcuts $w
  updateMaintWin
}

proc updateMaintWin {} {
  global maintFlag maintFlags
  updateSortWin
  updateClassifyWin

  set w .maintWin
  if {![winfo exists $w]} { return }
  set ng [sc_base numGames]
  set deleted [sc_base stats flag:D]
  set marked [sc_base stats "flag:$maintFlag"]
  set flags [sc_base stats flags]
  set dates [sc_base stats date]
  set ratings [sc_base stats ratings]
  $w.title.vgames configure -text [thousands $ng]
  $w.title.vicon configure -image dbt[sc_base type [sc_base current]]
  $w.title.vname configure -text [file tail [sc_base filename]]
  $w.title.vdelete configure -text [percentFormat $deleted $ng]
  $w.title.vmark configure -text [percentFormat $marked $ng]
  $w.title.vfilter configure -text [percentFormat [sc_filter count] $ng]
  $w.title.vdates configure \
    -text "[lindex $dates 0]-[lindex $dates 1] ([lindex $dates 2])"
  $w.title.vratings configure \
    -text "[lindex $ratings 0]-[lindex $ratings 1] ([lindex $ratings 2])"

  set flagname "$::tr(Flag): $::tr($maintFlags($maintFlag)) ($maintFlag)"
  $w.mark.title configure -text $flagname
  $w.title.mark configure -text $flagname

  # Disable buttons if current base is closed or read-only:
  set state disabled
  if {[sc_base inUse]  &&  ![sc_base isReadOnly]} {
    set state normal
  }
  foreach spell {player event site round} {
    $w.spell.$spell configure -state $state
  }
  foreach button {onCurrent offCurrent onAll offAll onFilter offFilter} {
    $w.delete.$button configure -state $state
    $w.mark.$button configure -state $state
  }
  $w.db.dups configure -state $state
  $w.title.vicon configure -state $state
  $w.db.elo configure -state $state
  $w.db.autoload configure -state $state

  set state disabled
  if {[sc_base inUse]} { set state normal }
  $w.db.eco configure -state $state
  $w.db.sort configure -state $state

  set state disabled
  if {[baseIsCompactable]} {
    set state normal
  }
  $w.db.compact configure -state $state
  $w.db.cleaner configure -state $state
}

# setAutoloadNumber:
#   Creates a dialog for setting the autoload game number of the
#   current database.
#
set autoloadGame 0
trace variable autoloadGame w {forceInt 9999999 0}
proc setAutoloadGame {} {
  global autoloadGame
  set w .autoload
  if {[winfo exists $w]} { return }
  toplevel $w
  wm title $w "Scid"
  set autoloadGame [sc_base autoload]

  pack [frame $w.f] -side top
  label $w.f.label -text $::tr(AutoloadGame:)
  entry $w.f.entry -textvar autoloadGame -justify right -width 10 \
    -foreground black -background white
  pack $w.f.label $w.f.entry -side left

  pack [frame $w.set] -side top -fill x
  button $w.set.none -text $::tr(None) -command {set autoloadGame 0}
  button $w.set.first -text $::tr(First) -command {set autoloadGame 1}
  button $w.set.current -text $::tr(Current) \
    -command {set autoloadGame [sc_game number]}
  button $w.set.last -text $::tr(Last) -command {set autoloadGame 9999999}
  foreach i {none first current last} {$w.set.$i configure -font font_Small}
  pack $w.set.none $w.set.first $w.set.current $w.set.last \
    -side left -padx 1 -pady 2

  addHorizontalRule $w

  pack [frame $w.b] -side top -fill x
  button $w.b.ok -text OK -command \
    "sc_base autoload \$autoloadGame; catch {grab release $w}; destroy $w"
  button $w.b.cancel -text $::tr(Cancel) -command \
    "catch {grab release $w}; destroy $w"
  pack $w.b.cancel $w.b.ok -side right -padx 2

  bind $w.f.entry <Return> "$w.b.ok invoke"
  bind $w.f.entry <Escape> "$w.b.cancel invoke"
  wm resizable $w 0 0
  centreWin $w
  focus $w.f.entry
  grab $w
}

# markTwins:
#   Finds twin games and marks them for deletion.
#   Takes parent window as parameter since it can be the main window,
#   or the maintenance window.
#
proc markTwins {{parent .}} {
  global twinSettings
  if {! [sc_base inUse]} { return }
  if {[sc_base numGames] == 0} {
    tk_messageBox -type ok -icon info -title "Scid: No games" \
      -message "There are no games in this database to delete."
    return
  }

  set w .twinSettings
  if {! [winfo exists $w]} {
    toplevel $w
    wm resizable $w 0 0
    wm title $w "Scid: $::tr(DeleteTwins)"
    set small font_Small
    label $w.note -text $::tr(TwinsNote) -justify left \
      -wraplength 500 -font $small
    pack $w.note -side top -anchor w -ipady 0 -pady 0
    addHorizontalRule $w
    label $w.tc -text $::tr(TwinsCriteria) -font font_Bold
    pack $w.tc -side top

    frame $w.g
    pack $w.g -side top
    set row 0
    set col 0
    foreach name {Colors Event Site Round Year Month Day Result ECO Moves} {
      set n [string tolower $name]
      label $w.g.l$n -text $::tr(Twins$name) -font $small
      radiobutton $w.g.yes$n -variable twinSettings($n) -value Yes \
        -text $::tr(Yes) -font $small
      radiobutton $w.g.no$n -variable twinSettings($n) -value No \
        -text $::tr(No) -font $small
      grid $w.g.l$n -row $row -column $col -sticky w
      incr col
      grid $w.g.yes$n -row $row -column $col -sticky w
      incr col
      grid $w.g.no$n -row $row -column $col -sticky w
      incr col
      if {$col >= 5} {
        incr row; set col 0
      } else {
        grid [label $w.g.space$n -text "   "] -row $row -column $col
        incr col
      }
    }
    label $w.g.lPlayers -text $::tr(TwinsPlayers) -font $small
    radiobutton $w.g.yesPlayers -variable twinSettings(players) -value Yes \
      -text $::tr(TwinsPlayersExact) -font $small
    radiobutton $w.g.noPlayers -variable twinSettings(players) -value No \
      -text $::tr(TwinsPlayersPrefix) -font $small
    grid $w.g.lPlayers -row $row -column 0 -sticky w
    grid $w.g.yesPlayers -row $row -column 1 -columnspan 3 -sticky w
    grid $w.g.noPlayers  -row $row -column 4 -columnspan 3 -sticky w
  }
    

  addHorizontalRule $w
  label $w.twhich -text $::tr(TwinsWhich:) -font font_Bold
  pack $w.twhich -side top
  pack [frame $w.g2] -side top -fill x
  radiobutton $w.g2.exall -text $::tr(SelectAllGames) -font $small \
    -variable twinSettings(usefilter) -value No
  label $w.g2.space -text "    " -font $small
  radiobutton $w.g2.exfil -text $::tr(SelectFilterGames) -font $small \
    -variable twinSettings(usefilter) -value Yes
  grid $w.g2.exall -row 0 -column 0 -sticky e
  grid $w.g2.space -row 0 -column 1
  grid $w.g2.exfil -row 0 -column 2 -sticky w
  grid columnconfigure $w.g2 0 -weight 1
  grid columnconfigure $w.g2 2 -weight 1

  addHorizontalRule $w
  label $w.twhen -text $::tr(TwinsWhen:) -font font_Bold
  pack $w.twhen -side top
  pack [frame $w.g3] -side top
  set row 0
  foreach n {skipshort undelete setfilter comments variations} {
    label $w.g3.l$n -text "" -font $small
    checkbutton $w.g3.v$n -width 6 -variable twinSettings($n) -font $small \
      -textvariable twinSettings($n) -onvalue Yes -offvalue No -anchor w
      grid $w.g3.l$n -row $row -column 0 -sticky w
      grid $w.g3.v$n -row $row -column 1 -sticky w
      incr row
  }
  $w.g3.lskipshort configure -text $::tr(TwinsSkipShort)
  $w.g3.lundelete configure -text $::tr(TwinsUndelete)
  $w.g3.lsetfilter configure -text $::tr(TwinsSetFilter)
  $w.g3.lcomments configure -text $::tr(TwinsComments)
  $w.g3.lvariations configure -text $::tr(TwinsVars)
  foreach g {g g2 g3} {
    grid columnconfigure $w.$g 0 -weight 1
  }

  addHorizontalRule $w
  frame $w.b
  button $w.b.defaults -textvar ::tr(Defaults) -command {
    array set twinSettings [array get twinSettingsDefaults]
  }
  button $w.b.help -text $::tr(Help) \
    -command "helpWindow Maintenance Twins; focus $w"
  button $w.b.go -text $::tr(TwinsDelete) -command {
    if {[twinCriteriaOK .twinSettings]} {
      grab release .twinSettings
      sc_progressBar .twinSettings.progress bar 301 21 time
      set result [doMarkDups .twinSettings]
      focus .
      destroy .twinSettings
      if {$result > 0} { updateTwinChecker }
    }
  }

  button $w.b.cancel -text $::tr(Cancel) \
    -command "grab release $w; focus .; destroy $w"
  canvas $w.progress -width 300 -height 20 -bg white -relief solid -border 1
  $w.progress create rectangle 0 0 0 0 -fill blue -outline blue -tags bar
  $w.progress create text 295 10 -anchor e -font font_Regular -tags time \
    -fill black -text "0:00 / 0:00"

  pack $w.progress -side bottom -padx 2 -pady 2
  pack $w.b -side bottom -fill x
  pack $w.b.cancel $w.b.go -side right -padx 10 -pady 2
  pack $w.b.help -side left -padx 10 -pady 2
  bind $w <F1> "$w.b.help invoke"
  bind $w <Escape> "$w.b.cancel invoke"
  bind $w <Return> "$w.b.go invoke"
  grab $w
  update idletasks
  $w.note configure -wraplength [winfo width $w]
  return
}

# twinCriteriaOK:
#   Check that the user specified at least three of the the same site,
#   same round, and same year settings, since otherwise it is quite
#   likely that actual games with simlar moves will be marked as twins:
#
proc twinCriteriaOK {{parent .}} {
  global twinSettings

  set msg "Your settings for finding twin games are potentially likely to "
  append msg "cause non-twin games with similar moves to be marked as twins."
  append msg "\n\n"

  # First, check that if same moves is off, then the same colors, event,
  # site, round, year and month flags should all be set:
  if {$twinSettings(moves) == "No"} {
    if {$twinSettings(colors) == "No"  ||  $twinSettings(event) == "No"  || \
        $twinSettings(site) == "No"  ||  $twinSettings(year) == "No"  || \
        $twinSettings(month) == "No"} {
      append msg "It is recommended that if you select \"No\" for \"same moves\","
      append msg "you should select \"Yes\" for the colors, event, site, round,"
      append msg "year and month settings."
      append msg "\n\n"
      append msg "Do you want to continue and delete twins anyway?"
      set result [tk_messageBox -type yesno -parent $parent -icon warning \
                    -title "Scid: Confirm twin settings" \
                    -message $msg]
      if {$result == "no"} { return 0 } else { return 1 }
    }
  }

  # Now check that at least two of site, round, and year are set:
  set count 0
  if {$twinSettings(site) == "Yes"} { incr count }
  if {$twinSettings(round) == "Yes"} { incr count }
  if {$twinSettings(year) == "Yes"} { incr count }
  if {$count < 2} {
    append msg "It is recommended that you specify \"Yes\" for at least two "
    append msg "of the \"same site\", \"same round\" and \"same year\" "
    append msg "settings."
    append msg "\n\n"
    append msg "Do you want to continue and delete twins anyway?"
    set result [tk_messageBox -type yesno -parent $parent -icon warning \
                  -title "Scid: Confirm twin settings" \
                  -message $msg]
    if {$result == "no"} { return 0 } else { return 1 }
  }
  return 1
}


proc doMarkDups {{parent .}} {
  global twinSettings

  busyCursor .
  if {$twinSettings(undelete) == "Yes"} {
    catch {sc_game flag delete all 0}
  }
  if {[catch {sc_base duplicates -colors $twinSettings(colors) \
                -event $twinSettings(event) -site $twinSettings(site) \
                -round $twinSettings(round) -year $twinSettings(year) \
                -month $twinSettings(month) -day $twinSettings(day) \
                -result $twinSettings(result) -eco $twinSettings(eco) \
                -moves $twinSettings(moves) -players $twinSettings(players) \
                -skipshort $twinSettings(skipshort) \
                -setfilter $twinSettings(setfilter) \
                -usefilter $twinSettings(usefilter) \
                -comments $twinSettings(comments) \
                -variations $twinSettings(variations)} result]} {
    unbusyCursor .
    tk_messageBox -type ok -parent $parent -icon info \
      -title "Scid" -message $result
    set result 0
  } else {
    unbusyCursor .
    set message "Scid found $result twin games"
    if {$result > 0} {append message " and set their delete flags"}
    append message "."
    tk_messageBox -type ok -parent $parent -icon info -title "Scid: Result" \
      -message $message
  }
  updateMaintWin
  return $result
}


set classifyOption(AllGames) 1
set classifyOption(ExtendedCodes) 1

# ClassifyAllGames:
#   Reclassifies all games (recomputes the ECO code of each game).
#   User can choose to reclassify all games, or only those games that
#   currently have no ECO code assigned.
#
proc classifyAllGames {} {
  makeClassifyWin
}

proc makeClassifyWin {} {
  global classifyOption
  set w .classify
  if {[winfo exists $w]} {
    raiseWin $w
    return
  }
  toplevel $w
  wm title $w "Scid: [tr FileMaintClass]"
  label $w.label -font font_Bold -textvar ::tr(ClassifyWhich)
  radiobutton $w.all -textvar ::tr(ClassifyAll) \
    -variable classifyOption(AllGames) -value 1
  set year [::date::today year]
  set month [::date::today month]
  set day [::date::today day]
  radiobutton $w.year -textvar ::tr(ClassifyYear) \
    -variable classifyOption(AllGames) \
    -value "date:[expr $year - 1].$month.$day"
  if {$month == "01"} {
    incr year -1
    set month 12
  } else {
    scan $month "%02u" month
    incr month -1
    set month [format "%02u" $month]
  }
  radiobutton $w.month -textvar ::tr(ClassifyMonth) \
    -variable classifyOption(AllGames) \
    -value "date:$year.$month.$day"
  radiobutton $w.new -textvar ::tr(ClassifyNew) \
    -variable classifyOption(AllGames) -value 0
  label $w.codes -font font_Bold -textvar ::tr(ClassifyCodes:)
  radiobutton $w.extended -textvar ::tr(ClassifyBasic) \
    -variable classifyOption(ExtendedCodes) -value 0
  radiobutton $w.basic -textvar ::tr(ClassifyExtended) \
    -variable classifyOption(ExtendedCodes) -value 1

  frame $w.b
  button $w.b.go -textvar ::tr(Classify) -command {
    busyCursor .
    .classify.b.cancel configure -command "sc_progressBar"
    .classify.b.cancel configure -textvar ::tr(Stop)
    sc_progressBar .classify.progress bar 301 21 time
    grab .classify.b.cancel
    if {[catch  {sc_eco base $classifyOption(AllGames) $classifyOption(ExtendedCodes)} result]} {
      grab release .classify.b.cancel
      unbusyCursor .
      tk_messageBox -parent .classify -type ok -icon info -title "Scid" -message $result
    } else {
      grab release .classify.b.cancel
      unbusyCursor .
    }
    .classify.b.cancel configure -command {focus .; destroy .classify}
    .classify.b.cancel configure -textvar ::tr(Close)
    updateGList
  }
  button $w.b.cancel -textvar ::tr(Close) -command "focus .; destroy $w"
  canvas $w.progress -width 300 -height 20 -bg white -relief solid -border 1
  $w.progress create rectangle 0 0 0 0 -fill blue -outline blue -tags bar
  $w.progress create text 295 10 -anchor e -font font_Regular -tags time \
    -fill black -text "0:00 / 0:00"

  pack $w.label $w.all $w.year $w.month $w.new -side top -pady 5
  addHorizontalRule $w
  pack $w.codes $w.extended $w.basic -side top -pady 5
  addHorizontalRule $w
  pack $w.b -side top -pady 5 -fill x
  pack $w.progress -side bottom -padx 2 -pady 2
  pack $w.b.cancel $w.b.go -side right -pady 10 -padx 10
  wm resizable $w 0 0
  bind $w <F1> {helpWindow ECO}
  bind $w <Escape> "$w.b.cancel invoke"
  updateClassifyWin
}

proc updateClassifyWin {} {
  set w .classify
  if {! [winfo exists $w]} { return }
  set state disabled
  if {[sc_base inUse]} { set state normal }
  $w.b.go configure -state $state
}

# Twin checker window:
# Shows PGN of current game, and its twin.

set twincheck(left) 0
set twincheck(right) 0

proc updateTwinChecker {} {
  global twincheck
  set w .twinchecker
  if {![winfo exists $w]} {
    toplevel $w
    pack [frame $w.b] -side bottom -fill x
    pack [frame $w.f] -side top -fill both -expand yes
    frame $w.f.left
    pack $w.f.left -side left -fill y -expand yes
    frame $w.f.split -width 2 -borderwidth 2 -relief sunken
    pack $w.f.split -side left -fill y -padx 5
    frame $w.f.right
    pack $w.f.right -side left -fill y -expand yes
    foreach i {left right} {
      set f $w.f.$i
      pack [frame $f.title] -side top -fill x
      label $f.title.label -font font_Bold -text "Game 0: "
      checkbutton $f.title.d -text "Deleted" -pady 5 \
        -variable twincheck($i)
      label $f.title.note
      pack $f.title.label $f.title.d $f.title.note -side left
      frame $f.t
      pack $f.t -side top -fill both -expand yes
      text $f.t.text -height 16 -width 40 -background white \
        -yscroll "$f.t.ybar set" -takefocus 0 -wrap word
      $f.t.text tag configure h -background lightSteelBlue
      scrollbar $f.t.ybar -command "$f.t.text yview"
      pack $f.t.ybar -side right -fill y
      pack $f.t.text -fill both -expand yes
    }
    $w.f.left.title.note configure -text {("1" to flip; "u" undeletes both)}
    $w.f.right.title.note configure -text {("2" to flip; "u" undeletes both)}
    button $w.b.prev -text "Previous filter game" -underline 0 \
      -command {gameLoadNextPrev previous}
    button $w.b.next -text "Next filter game" -underline 0 \
      -command {gameLoadNextPrev next}
    button $w.b.delete -text "Delete twin games..." -underline 0 \
      -command "markTwins $w"
    button $w.b.help -text "Help" -command {helpWindow Maintenance Twins}
    button $w.b.close -text "Close" -command "focus .; destroy $w"
    pack $w.b.close $w.b.help $w.b.delete -side right -padx 5 -pady 2
    pack $w.b.prev $w.b.next -side left -padx 5 -pady 2
    bind $w <F1> "$w.b.help invoke"
    bind $w <Escape> "focus .; destroy $w"
    bind $w <Alt-p> {gameLoadNextPrev previous}
    bind $w <KeyPress-p> {gameLoadNextPrev previous}
    bind $w <Alt-n> {gameLoadNextPrev next}
    bind $w <KeyPress-n> {gameLoadNextPrev next}
    bind $w <Alt-d> "markTwins $w"
    bind $w <KeyPress-d> "markTwins $w"
    bind $w <KeyPress-1> "$w.f.left.title.d invoke"
    bind $w <KeyPress-2> "$w.f.right.title.d invoke"
    bind $w <KeyPress-u> {
      if {$twincheck(left)} {.twinchecker.f.left.title.d invoke}
      if {$twincheck(right)} {.twinchecker.f.right.title.d invoke}
    }
    bind $w <Alt-u> {
      if {$twincheck(left)} {.twinchecker.f.left.title.d invoke}
      if {$twincheck(right)} {.twinchecker.f.right.title.d invoke}
    }
    wm resizable $w 0 1
    wm title $w "Scid: Twin game checker"
  }

  set gn [sc_game number]
  set dup 0
  if {$gn > 0} {
    set dup [sc_game info duplicate]
  }
  set twincheck(left) 0
  set twincheck(right) 0

  $w.f.left.title.label configure -text "Game $gn:  "

  if {$gn > 0} {
    set twincheck(left) [sc_game flag delete $gn]
    $w.f.left.title.d configure -command "sc_game flag delete $gn invert; updateBoard"
    $w.f.left.title.d configure -state normal
  } else {
    $w.f.left.title.d configure -state disabled
  }
  if {$dup > 0} {
    set twincheck(right) [sc_game flag delete $dup]
    $w.f.right.title.label configure -text "Game $dup:  "
    $w.f.right.title.d configure -command "sc_game flag delete $dup invert; updateBoard"
    $w.f.right.title.d configure -state normal
  } else {
    $w.f.right.title.label configure -text "No twin  "
    $w.f.right.title.d configure -state disabled
  }

  set t $w.f.left.t.text
  $t configure -state normal
  $t delete 1.0 end
  $t insert end [sc_game pgn]

  set t $w.f.right.t.text
  $t configure -state normal
  $t delete 1.0 end
  if {$dup > 0} {
    $t insert end [sc_game pgn -gameNumber $dup]
  } else {
    $t insert end "No twin was detected for this game.\n\n"
    $t insert end "To show twins using this window, you must first "
    $t insert end "use the \"Delete twin games...\" function."
  }

  # Now color the differences if appropriate:
  if {$dup > 0} {
    set rlen [$w.f.right.t.text index end-1c]
    set llen [$w.f.right.t.text index end-1c]

    for {set i 0} {$i < $rlen} {incr i} {
      set line [$w.f.right.t.text get $i.0 "$i.0 lineend"]
      set length [string length $line]
      set max 0
      for {set j 0} {$j < $llen} {incr j} {
        set otherLine [$w.f.left.t.text get $j.0 "$j.0 lineend"]
        set plen [strPrefixLen $line $otherLine]
        if {$plen > $max} { set max $plen }
      }
      if {$max < $length} {
        if {![string compare [string index $line 0] "\["]} { set max 0 }
        $w.f.right.t.text tag add h $i.$max "$i.0 lineend"
      }
    }

    for {set i 0} {$i < $llen} {incr i} {
      set line [$w.f.left.t.text get $i.0 "$i.0 lineend"]
      set length [string length $line]
      set max 0
      for {set j 0} {$j < $rlen} {incr j} {
        set otherLine [$w.f.right.t.text get $j.0 "$j.0 lineend"]
        set plen [strPrefixLen $line $otherLine]
        if {$plen > $max} { set max $plen }
      }
      if {$max < $length} {
        if {![string compare [string index $line 0] "\["]} { set max 0 }
        $w.f.left.t.text tag add h $i.$max "$i.0 lineend"
      }
    }
  }

  if {[sc_base inUse]} {
    $w.b.delete configure -state normal
  } else {
    $w.b.delete configure -state disabled
  }

  foreach side {left right} {
    $w.f.$side.t.text configure -state disabled
  }

}

# baseIsCompactable:
#   Returns true only if the current base is compactable.
#
proc baseIsCompactable {} {
  # Only a database that is in use, not read-only, and not the
  # clipbase, can be compacted:
  if {! [sc_base inUse]} { return 0 }
  if {[sc_base isReadOnly]} { return 0 }
  if {[sc_base current] == [sc_info clipbase]} { return 0 }
  return 1
}

# makeCompactWin:
# Opens the database compaction dialog box.
#
proc makeCompactWin {} {
  if {! [baseIsCompactable]} { return }
  set w .compactWin
  toplevel $w
  wm title $w "Scid: $::tr(CompactDatabase)"
  wm resizable $w 0 0
  foreach f {top names games buttons} { frame $w.$f }
  pack $w.top -side top -fill x -padx 5
  pack $w.names -in $w.top -side left -fill x -anchor n
  addVerticalRule $w.top 12
  pack $w.games -in $w.top -side left -fill x -anchor n
  addHorizontalRule $w
  pack $w.buttons -side top -fill x

  for {set i 0} {$i < 3} {incr i} {
    grid columnconfigure $w.names $i -weight 1
    grid columnconfigure $w.games $i -weight 1
  }
  label $w.names.title -text $::tr(NameFile) -font font_Bold
  grid $w.names.title -columnspan 3 -row 0 -column 0 -sticky n
  label $w.names.nt -text "  $::tr(Names)"
  grid $w.names.nt -row 1 -column 1 -sticky e
  label $w.names.ut -text "  $::tr(Unused)"
  grid $w.names.ut -row 1 -column 2 -sticky e
  frame $w.names.h -height 1 -relief solid -bg black
  grid $w.names.h -columnspan 3 -row 2 -column 0 -sticky we
  set row 3
  set ndata [sc_compact stats names]
  set idx 0
  foreach n {p e s r} name {Players Events Sites Rounds} {
    label $w.names.t$n -text "$::tr($name)  "
    label $w.names.n$n -text "  [thousands [lindex $ndata $idx]]"
    incr idx
    label $w.names.u$n -text "  [thousands [lindex $ndata $idx]]"
    incr idx
    grid $w.names.t$n -row $row -column 0 -sticky w
    grid $w.names.n$n -row $row -column 1 -sticky e
    grid $w.names.u$n -row $row -column 2 -sticky e
    incr row
  }

  label $w.games.title -text $::tr(GameFile) -font font_Bold
  grid $w.games.title -columnspan 3 -row 0 -column 0 -sticky n
  label $w.games.gt -text "  [capital $::tr(games)]"
  grid $w.games.gt -row 1 -column 1 -sticky e
  label $w.games.st -text "  $::tr(SizeKb)"
  grid $w.games.st -row 1 -column 2 -sticky e
  frame $w.games.h -height 1 -relief solid -bg black
  grid $w.games.h -columnspan 3 -row 2 -column 0 -sticky we
  set row 3
  set ndata [sc_compact stats games]
  set idx 0
  foreach g {current compact} name {CurrentState AfterCompaction} {
    label $w.games.t$g -text "$::tr($name)  "
    label $w.games.g$g -text "  [thousands [lindex $ndata $idx]]"
    incr idx
    set kbytes [expr int(([lindex $ndata $idx] + 512) / 1024)]
    label $w.games.s$g -text "  [thousands $kbytes]"
    incr idx
    grid $w.games.t$g -row $row -column 0 -sticky w
    grid $w.games.g$g -row $row -column 1 -sticky e
    grid $w.games.s$g -row $row -column 2 -sticky e
    incr row
  }

  button $w.buttons.n -text $::tr(CompactNames) -command compactNames
  button $w.buttons.g -text $::tr(CompactGames) -command compactGames
  button $w.buttons.help -text $::tr(Help) -command {helpWindow Compact}
  button $w.buttons.cancel -text $::tr(Cancel) \
    -command "focus .; grab release $w; destroy $w"
  pack $w.buttons.cancel $w.buttons.help -side right -padx 5 -pady 2
  pack $w.buttons.n $w.buttons.g -side left -padx 5 -pady 2
  grab $w
}

proc compactNames {} {
  set w .compactWin
  set stats [sc_compact stats names]
  if {[lindex $stats 1] == 0  &&  [lindex $stats 3] == 0  && \
        [lindex $stats 5] == 0  &&  [lindex $stats 7] == 0} {
    tk_messageBox -type ok -icon info -parent $w -title "Scid: compaction" \
      -message "There are no unused names, so the name file is already fully compacted."
    return
  }
  progressWindow "Scid" "Compacting the name file..."
  busyCursor .
  set err [catch {sc_compact names} result]
  unbusyCursor .
  closeProgressWindow
  set w .compactWin
  if {$err} {
    tk_messageBox -type ok -icon warning -parent $w \
      -title "Scid: Error compacting file" -message $result
  } else {
    tk_messageBox -type ok -icon info -parent $w \
      -title "Scid: Name file compacted" \
      -message "The name file for the database \"[file tail [sc_base filename]]\" was compacted."
  }
  grab release $w
  destroy $w
  updateBoard .board
  updateGList
  updateMaintWin
}

proc compactGames {} {
  set w .compactWin
  set stats [sc_compact stats games]
  if {[lindex $stats 1] == [lindex $stats 3]  && \
        [lindex $stats 0] == [lindex $stats 2]} {
    tk_messageBox -type ok -icon info -parent $w -title "Scid: compaction" \
      -message "The game file is already fully compacted."
    return
  }
  progressWindow "Scid" "Compacting the game file..." \
    $::tr(Cancel) "sc_progressBar"
  busyCursor .
  set err [catch {sc_compact games} result]
  unbusyCursor .
  closeProgressWindow
  if {$err} {
    tk_messageBox -type ok -icon warning -parent $w \
      -title "Scid: Error compacting file" -message $result
  } else {
    tk_messageBox -type ok -icon info -parent $w \
      -title "Scid: Game file compacted" \
      -message "The game file for the database \"[file tail [sc_base filename]]\" was compacted."
  }
  grab release $w
  destroy $w
  updateBoard .board
  updateGList
  updateMaintWin
}

set sortCriteria(real) ""
set sortCriteria(translated) ""

proc clearSortCriteria {} {
  set ::sortCriteria(real) ""
  set ::sortCriteria(translated) ""
  updateSortWin
}
 
proc addSortCriteria {args} {
  global sortCriteria
  foreach x $args {
    if {$sortCriteria(real) == ""} {
      set sortCriteria(real) $x
      set sortCriteria(translated) $::tr($x)
    } else {
      append sortCriteria(real) ", $x"
      append sortCriteria(translated) ", $::tr($x)"
    }
  }
  updateSortWin
}

proc makeSortWin {} {
  global sortCriteria
  set w .sortWin
  if {[winfo exists $w]} {
    raiseWin $w
    return
  }
  toplevel $w
  wm title $w "Scid: [tr FileMaintSort]"
  wm resizable $w 0 0

  label $w.torder -textvar ::tr(SortCriteria:) -font font_Bold
  pack $w.torder -side top
  label $w.order -textvar sortCriteria(translated) -width 40 -bg white \
    -relief solid -anchor w
  pack $w.order -side top -fill x -pady 2 -padx 2
  addHorizontalRule $w
  label $w.tadd -textvar ::tr(AddCriteria:) -font font_Bold
  pack $w.tadd -side top
  pack [frame $w.add] -side top -fill x
  foreach b {Date Year Month Event Site Country Round Result Length 
             White Black Rating ECO Deleted EventDate} {
    set n [string tolower $b]
    button $w.add.$n -textvar ::tr($b) -command "addSortCriteria $b"
  }
  grid $w.add.date -row 0 -column 0 -sticky we
  grid $w.add.year -row 0 -column 1 -sticky we
  grid $w.add.month -row 0 -column 2 -sticky we
  grid $w.add.event -row 1 -column 0 -sticky we
  grid $w.add.site -row 1 -column 1 -sticky we
  grid $w.add.country -row 1 -column 2 -sticky we
  grid $w.add.round -row 2 -column 0 -sticky we
  grid $w.add.result -row 2 -column 1 -sticky we
  grid $w.add.length -row 2 -column 2 -sticky we
  grid $w.add.white -row 3 -column 0 -sticky we
  grid $w.add.black -row 3 -column 1 -sticky we
  grid $w.add.rating -row 3 -column 2 -sticky we
  grid $w.add.eco -row 4 -column 0 -sticky we
  grid $w.add.deleted -row 4 -column 1 -sticky we
  grid $w.add.eventdate -row 4 -column 2 -sticky we

  for {set i 0} {$i < 3} {incr i} {
    grid columnconfigure $w.add $i -weight 1
  }

  addHorizontalRule $w

  label $w.tcommon -textvar ::tr(CommonSorts:) -font font_Bold
  pack $w.tcommon -side top
  pack [frame $w.tc] -side top -fill x
  button $w.tc.ymsedr -text "$::tr(Year), $::tr(Month), $::tr(Site), $::tr(Event), $::tr(Date), $::tr(Round)" -command {
    clearSortCriteria
    addSortCriteria Year Month Site Event Date Round
  }
  button $w.tc.yedr -text "$::tr(Year), $::tr(Event), $::tr(Date), $::tr(Round)" -command {
    clearSortCriteria
    addSortCriteria Year Event Date Round
  }
  button $w.tc.er -text "$::tr(ECO), $::tr(Rating)" -command {
    clearSortCriteria
    addSortCriteria ECO Rating
  }
  grid $w.tc.ymsedr -row 0 -column 0 -sticky we
  grid $w.tc.yedr -row 1 -column 0 -sticky we
  grid $w.tc.er -row 2 -column 0 -sticky we
  grid columnconfigure $w.tc 0 -weight 1
  addHorizontalRule $w
  pack [frame $w.b] -side bottom -fill x
  button $w.b.clear -textvar ::tr(Clear) -command clearSortCriteria
  button $w.b.help -textvar ::tr(Help) -command {helpWindow Sorting}
  button $w.b.sort -textvar ::tr(Sort) -command sortDatabase
  button $w.b.close -textvar ::tr(Close) \
    -command "focus .; destroy $w"
  pack $w.b.close $w.b.sort -side right -padx 5 -pady 2
  pack $w.b.clear $w.b.help -side left -padx 5 -pady 2
  bind $w <F1> {helpWindow Sorting}
  bind $w <Escape> "$w.b.close invoke"
  standardShortcuts $w
  updateSortWin
}

proc updateSortWin {} {
  global sortCriteria
  set w .sortWin
  if {! [winfo exists $w]} { return }
  set state disabled
  if {[sc_base inUse]  &&  $sortCriteria(real) != ""} { set state normal }
  $w.b.sort configure -state $state
}

proc sortDatabase {} {
  global sortCriteria
  set w .sortWin
  if {! [sc_base inUse]} {
    tk_messageBox -type ok -icon info -parent $w -title "Scid: Sort results" \
      -message "This is not an open database; there are no games to sort."
    return
  }
  progressWindow "Scid" "Sorting the database..."
  busyCursor .
  set err [catch {sc_base sort $sortCriteria(real) \
                    {changeProgressWindow "Storing results..."} \
                  } result]
  unbusyCursor .
  closeProgressWindow
  if {$err} {
    tk_messageBox -type ok -icon warning -parent $w \
      -title "Scid: Sort results" -message $result
  } else {
    #tk_messageBox -type ok -icon info -parent $w \
      -title "Scid: Sort results" \
      -message "The database was successfully sorted."
  }
  updateBoard .board
  updateGList
  updateMaintWin
}

proc makeBaseReadOnly {} {
  if {! [sc_base inUse]} { return }
  if {[sc_base isReadOnly]} { return }
  set result [tk_dialog .roDialog "Scid: [tr FileReadOnly]" \
                $::tr(ReadOnlyDialog) "" 1 $::tr(Yes) $::tr(No)]
  if {$result == 0} {
    sc_base isReadOnly set
    updateMenuStates
  }
}

set addRatings(overwrite) 0
set addRatings(filter) 0

proc allocateRatings {} {
  if {[catch {sc_name ratings -test 1} result]} {
    tk_messageBox -type ok -icon info -parent . -title "Scid" -message $result
    return
  }
  set w .ardialog
  toplevel $w
  wm title $w "Scid"
  label $w.lab -wraplength 3i -justify left -text "This command will use the current spellcheck file to add Elo ratings to games in this database. Wherever a player has no currrent rating but his/her rating at the time of the game is listed in the spellcheck file, that rating will be added."
  pack $w.lab -side top
  addHorizontalRule $w
  pack [frame $w.r] -side top
  label $w.r.lab -text "Overwrite existing non-zero ratings?"
  radiobutton $w.r.yes -variable addRatings(overwrite) \
    -value 1 -text $::tr(Yes)
  radiobutton $w.r.no -variable addRatings(overwrite) \
    -value 0 -text $::tr(No)
  pack $w.r.lab $w.r.yes $w.r.no -side left
  addHorizontalRule $w
  pack [frame $w.g] -side top
  label $w.g.lab -text "Add ratings to:"
  radiobutton $w.g.all -variable addRatings(filter) \
    -value 0 -text $::tr(SelectAllGames)
  radiobutton $w.g.filter -variable addRatings(filter) \
    -value 1 -text $::tr(SelectFilterGames)
  pack $w.g.lab $w.g.all $w.g.filter -side top
  addHorizontalRule $w
  pack [frame $w.b] -side top -fill x
  button $w.b.ok -text "OK" \
    -command "catch {grab release $w}; destroy $w; doAllocateRatings"
  button $w.b.cancel -text $::tr(Cancel) \
    -command "catch {grab release $w}; destroy $w"
  pack $w.b.cancel $w.b.ok -side right -padx 3 -pady 3
  catch {grab $w}
  focus $w.b.ok
}

proc doAllocateRatings {} {
  global addRatings
  if {[catch {sc_name ratings -test 1} result]} {
    tk_messageBox -type ok -icon info -parent . -title "Scid" -message $result
    return
  }
  progressWindow "Scid" "Adding Elo ratings..."
  busyCursor .
  if {[catch {sc_name ratings -change $addRatings(overwrite) -filter $addRatings(filter)} result]} {
    closeProgressWindow
    tk_messageBox -type ok -icon warning -parent . \
      -title "Scid" -message $result
  } else {
    closeProgressWindow
    set r [thousands [lindex $result 0]]
    set g [thousands [lindex $result 1]]
    tk_messageBox -type ok -icon info -parent . \
      -title "Scid" -message "Scid added $r Elo ratings in $g games."
  }
  unbusyCursor .
}


set cleaner(players) 1
set cleaner(events) 1
set cleaner(sites) 1
set cleaner(rounds) 1
set cleaner(eco) 1
set cleaner(elo) 1
set cleaner(twins) 1
set cleaner(cnames) 0
set cleaner(cgames) 0
set cleaner(tree) 0

# cleanerWin:
#   Open a dialog so the user can choose several maintenance tasks
#   in one action.
proc cleanerWin {} {
  set w .mtoolWin
  if {[winfo exists $w]} { return }

  toplevel $w
  wm title $w "Scid: $::tr(Cleaner)"
  bind $w <F1> {helpWindow Maintenance Cleaner}

  pack [frame $w.help] -side top -fill x
  text $w.help.text -width 1 -height 7 -wrap word \
    -relief ridge -cursor top_left_arrow -yscrollcommand "$w.help.ybar set"
  scrollbar $w.help.ybar -orient vertical -command "$w.help.text yview" \
    -takefocus 0 -width 10
  pack $w.help.ybar -side right -fill y
  pack $w.help.text -side left -fill x -expand yes
  $w.help.text insert end [string trim $::tr(CleanerHelp)]
  $w.help.text configure -state disabled

  pack [frame $w.f] -side top -padx 20
  foreach i {players events sites rounds} j {Players Events Sites Rounds} {
    label $w.f.$i -text "$::tr(Spellchecking): $::tr($j)"
  }
  label $w.f.eco -text $::tr(ReclassifyGames)
  label $w.f.elo -text $::tr(AddEloRatings)
  label $w.f.twins -text $::tr(DeleteTwins)
  label $w.f.cnames -text $::tr(CompactNames)
  label $w.f.cgames -text $::tr(CompactGames)
  label $w.f.tree -text [tr TreeFileFill]

  foreach i {players events sites rounds eco elo twins cnames cgames tree} {
    radiobutton $w.f.y$i -variable cleaner($i) -value 1 -text $::tr(Yes)
    radiobutton $w.f.n$i -variable cleaner($i) -value 0 -text $::tr(No)
  }
  set row 0
  foreach i {players events sites rounds eco elo twins cnames cgames tree} {
    grid $w.f.$i -row $row -column 0 -sticky w
    grid $w.f.y$i -row $row -column 1 -sticky w
    grid $w.f.n$i -row $row -column 2 -sticky w
    incr row
  }

  addHorizontalRule $w
  pack [frame $w.b] -side bottom -fill x
  button $w.b.ok -text "OK" -command "catch {grab release $w}; destroy $w; doCleaner"
  button $w.b.cancel -text $::tr(Cancel) -command "catch {grab release $w}; destroy $w"
  pack $w.b.cancel $w.b.ok -side right -padx 2 -pady 2
  wm resizable $w 0 0
  catch {grab $w}
}

proc doCleaner {} {
  global cleaner twinSettings

  set answer [tk_dialog .mtoolDialog "Scid" \
                [string trim $::tr(CleanerConfirm)] "" \
                0 $::tr(Yes) $::tr(No)]
  if {$answer != 0} { return }

  set w .mtoolStatus
  if {! [winfo exists $w]} {
    toplevel $w
    wm title $w "Scid: $::tr(Cleaner)"
    pack [frame $w.b] -side bottom -fill x
    pack [frame $w.t] -side top -fill both -expand yes
    text $w.t.text -width 60 -height 10 -wrap none -setgrid 1 \
      -cursor top_left_arrow -yscrollcommand "$w.t.ybar set"
    scrollbar $w.t.ybar -orient vertical -command "$w.t.text yview" \
      -takefocus 0 -width 10
    pack $w.t.ybar -side right -fill y
    pack $w.t.text -side left -fill both -expand yes
    button $w.b.close -text $::tr(Close) \
      -command "catch {grab release $w}; destroy $w"
    pack $w.b.close -side right -padx 2 -pady 2
    wm minsize $w 20 5
  }

  busyCursor .
  catch {grab $w}
  set t $w.t.text
  $t delete 1.0 end
  $t insert end "$::tr(Cleaner)."
  $t insert end "  $::tr(Database): [file tail [sc_base filename]]\n"

  $w.b.close configure -state disabled

  set count 1

  foreach nameType {Player Event Site Round} {
    set names $nameType
    append names "s"
    set tag [string tolower $names]
    if {$cleaner($tag)} {
      mtoolAdd $t "$count: $::tr(Spellchecking): $::tr($names)..."
      incr count
      set result "0 $nameType names were corrected."
      if {! [catch {sc_name spellcheck -max 100000 $nameType} corrections]} {
        update
        catch {sc_name correct $nameType $corrections} result
      }
      $t insert end "   $result\n"
      $t see end
    }
  }

  if {$cleaner(eco)} {
    mtoolAdd $t "$count: $::tr(ReclassifyGames)..."
    incr count
    catch {sc_eco base $::classifyOption(AllGames) \
             $::classifyOption(ExtendedCodes)} result
    $t insert end "   $result\n"
    $t see end
  }

  if {$cleaner(elo)} {
    mtoolAdd $t "$count: $::tr(AddEloRatings)..."
    incr count
    if {[catch {sc_name ratings} result]} {
      $t insert end "   $result\n"
    } else {
      set r [thousands [lindex $result 0]]
      set g [thousands [lindex $result 1]]
      $t insert end "   Scid added $r Elo ratings in $g games.\n"
    }
  }

  if {$cleaner(twins)} {
    mtoolAdd $t "$count: $::tr(DeleteTwins)..."
    incr count
    if {$twinSettings(undelete) == "Yes"} {
      catch {sc_game flag delete all 0}
      update
    }
    if {[catch {sc_base duplicates -colors $twinSettings(colors) \
                  -event $twinSettings(event) -site $twinSettings(site) \
                  -round $twinSettings(round) -year $twinSettings(year) \
                  -month $twinSettings(month) -day $twinSettings(day) \
                  -result $twinSettings(result) -eco $twinSettings(eco) \
                  -moves $twinSettings(moves) -players $twinSettings(players) \
                  -setfilter $twinSettings(setfilter) \
                  -usefilter $twinSettings(usefilter) \
                  -comments $twinSettings(comments) \
                  -variations $twinSettings(variations)} result]} {
      set message $result
    } else {
      set message "Scid found $result twin games"
      if {$result > 0} {append message " and set their delete flags"}
    }
    $t insert end "   $message.\n"
  }

  if {$cleaner(cnames)} {
    mtoolAdd $t "$count: $::tr(CompactNames)..."
    incr count
    set stats [sc_compact stats names]
    if {[lindex $stats 1] == 0  &&  [lindex $stats 3] == 0  && \
          [lindex $stats 5] == 0  &&  [lindex $stats 7] == 0} {
      $t insert end "   Name file already compacted.\n"
    } else {
      set err [catch {sc_compact names} result]
      if {$err} {
        $t insert end "   $result\n"
      } else {
        $t insert end "   Done.\n"
      }
    }
    $t see end
  }

  if {$cleaner(cgames)} {
    mtoolAdd $t "$count: $::tr(CompactGames)..."
    incr count
    set stats [sc_compact stats games]
    if {[lindex $stats 1] == [lindex $stats 3]  && \
          [lindex $stats 0] == [lindex $stats 2]} {
      $t insert end "   Game file already compacted.\n"
    } else {
      set err [catch {sc_compact games} result]
      if {$err} {
        $t insert end "   $result\n"
      } else {
        $t insert end "   Done.\n"
      }
    }
    $t see end
  }

  if {$cleaner(tree)} {
    mtoolAdd $t "$count: [tr TreeFileFill]..."
    incr count
    sc_game push
    set base [sc_base current]
    set len [llength $::tree(standardLines)]
    foreach line $::tree(standardLines) {
      sc_game new
      if {[llength $line] > 0}  {
        foreach move $line {sc_move addSan $move}
      }
      sc_tree search -base $base
      update
    }
    catch {sc_tree write $base} result
    sc_game pop
    $t insert end "   Done.\n"
  }

  mtoolAdd $t "Done."
  updateBoard .board
  updateGList
  updateMaintWin
  $w.b.close configure -state normal
  catch {grab release $w}
  unbusyCursor .
}

proc mtoolAdd {tw title} {
  set time [clock format [clock seconds] -format "%H:%M:%S"]
  $tw insert end "\n\[$time\]\n"
  if {$title != ""} { $tw insert end "$title\n" }
  $tw see end
  update
}
### optable.tcl: Opening report and theory table generation.
### Part of Scid. Copyright 2001 Shane Hudson.

namespace eval ::optable {}
array set ::optable::_data {}

set ::optable::_data(exclude) "---"
set ::optable::_docStart(text) {}
set ::optable::_docEnd(text) {}
set ::optable::_docStart(ctext) {}
set ::optable::_docEnd(ctext) {}

set ::optable::_docStart(html) {<html>
<head><title>Opening Report</title></head>
<body bgcolor="#ffffff">
}
set ::optable::_docEnd(html) {</body>
</html>
}

set ::optable::_docStart(latex) {\documentclass[10pt,a4paper]{article}
% This is a LaTeX file generated by Scid.
% You must have the "chess12" package installed to typeset this file.

\usepackage{times}
\usepackage{a4wide}
\usepackage{chess}
\usepackage[T1]{fontenc}

\setlength{\columnsep}{1cm}
\setlength{\parindent}{0pt}
\setlength{\parskip}{3pt}

\font\F=chessf10
\newcommand{\B}{{\F B}}
\newcommand{\N}{{\F N}}
\newcommand{\R}{{\F R}}
\newcommand{\Q}{{\F Q}}
\newcommand{\K}{{\F K}}
\newcommand{\tspace}{{\vspace{0.08cm}}}
\newcommand{\draw}{{\small$\frac{1}{2}$:$\frac{1}{2}$}}
\newcommand{\loss}{\mbox{0:1}}
\newcommand{\win}{\mbox{1:0}}
\newcommand{\notenum}[1]{\hspace{-0.7cm}\makebox[0.55cm][r]{$^{ #1 }$ }\makebox[0.05cm]{}}

%\font\Chess=chess10
\begin{document}
\raggedright
\nochess
}
set ::optable::_docEnd(latex) {
\end{document}
}

proc ::optable::configMenus {{lang ""}} {
  if {! [winfo exists .oprepWin]} { return }
  if {$lang == ""} { set lang $::language }
  set m .oprepWin.menu
  foreach menu {file help} tag {File Help} {
    configMenuName $m.$menu Oprep$tag $lang
  }
  foreach idx {0 1 2 4 6} tag {Text Html LaTeX Options Close} {
    configMenuText $m.file.m $idx OprepFile$tag $lang
  }
  foreach idx {0 1} tag {Report Index} {
    configMenuText $m.help.m $idx OprepHelp$tag $lang
  }
}

proc ::optable::makeReportWin {} {
  if {! [sc_base inUse]} { return }
  set w .progress
  toplevel $w
  wm withdraw $w
  wm title $w "Scid: Generating Report"
  bind $w <Visibility> "raiseWin $w"

  pack [frame $w.b] -side bottom -fill x
  set ::optable::_interrupt 0
  button $w.b.cancel -text $::tr(Cancel) -command {
    set ::optable::_interrupt 1
    sc_progressBar
  }
  pack $w.b.cancel -side right -pady 5 -padx 2

  foreach i {1 2} name {"Searching database for report games"
                        "Generating report information"} {
    label $w.text$i -text "$i. $name"
    pack $w.text$i -side top
    canvas $w.c$i -width 400 -height 20 -bg white -relief solid -border 1
    $w.c$i create rectangle 0 0 0 0 -fill blue -outline blue -tags bar
    $w.c$i create text 395 10 -anchor e -font font_Regular -tags time \
      -fill black -text "0:00 / 0:00"
    pack $w.c$i -side top -pady 10
  }
  wm resizable $w 0 0
  # Set up geometry for middle of screen:
  set x [winfo screenwidth $w]; set x [expr $x - 400]; set x [expr $x / 2]
  set y [winfo screenheight $w]; set y [expr $y - 20]; set y [expr $y / 2]
  wm geometry $w +$x+$y
  wm deiconify $w
  grab $w.b.cancel
  sc_progressBar $w.c1 bar 401 21 time
  busyCursor .
  set newTreeData [sc_tree search -time 0 -epd 0]
  if {$::optable::_interrupt} {
    unbusyCursor .
    grab release $w.b.cancel
    destroy $w
    return
  }
  sc_progressBar $w.c2 bar 401 21 time
  sc_optable create $::optable(ExtraMoves) $::optable(MaxGames)\
    $::optable::_data(exclude)
  unbusyCursor .
  grab release $w.b.cancel
  destroy $w
  if {$::optable::_interrupt} { return }
  set ::optable::_data(tree) $newTreeData
  ::optable::latexifyTree
  set ::optable::_data(bdLaTeX) [sc_pos tex]
  set ::optable::_data(bdHTML) [sc_pos html]
  ::optable::setupRatios
  set report [::optable::report ctext 1]

  set w .oprepWin
  if {![winfo exists $w]} {
    toplevel $w
    wm title $w "Scid: [tr ToolsOpReport]"
    frame $w.menu
    pack $w.menu -side top -fill x
    $w configure -menu $w.menu
    menubutton $w.menu.file -text OprepFile -menu $w.menu.file.m
    menubutton $w.menu.help -text OprepHelp -menu $w.menu.help.m
    foreach i {file help} {
      menu $w.menu.$i.m -tearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -side left
    }
    $w.-menu $w.mearoff 0
      pack $w.menu.$i -si