{"id":174243,"date":"2013-03-26T07:06:03","date_gmt":"2013-03-26T03:06:03","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=174243"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=174243","title":{"rendered":"\u0418\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0441\u043b\u043e\u0432\u0430\u0440\u0435\u0439 \u0432 tcl<\/span>"},"content":{"rendered":"
\t\u041f\u0440\u0438\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e, \u0425\u0430\u0431\u0440\u0430! %username, \u0442\u044b \u043d\u0430\u0432\u0435\u0440\u043d\u044f\u043a\u0430 \u0441\u043b\u044b\u0448\u0430\u043b \u043f\u0440\u043e \u0442\u0430\u043a\u043e\u0439 \u044f\u0437\u044b\u043a \u043a\u0430\u043a tcl \u0438 \u0435\u0433\u043e \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u0442\u0443\u043b\u043a\u0438\u0442 tk. \u042f\u0437\u044b\u043a \u043e\u0442\u043b\u0438\u0447\u0430\u0435\u0442\u0441\u044f \u043e\u0441\u043e\u0431\u043e\u0439 \u0433\u0438\u0431\u043a\u043e\u0441\u0442\u044c\u044e (\u043d\u0430 \u043c\u043e\u0439 \u0441\u043a\u0440\u043e\u043c\u043d\u044b\u0439 \u0432\u0437\u0433\u043b\u044f\u0434). \u041f\u043e\u043a\u0430 \u043d\u0435\u0442 \u043c\u043d\u043e\u0433\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043e\u0431 \u00ab\u043e\u0431\u043b\u0430\u0447\u043d\u043e\u0439\u00bb \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0435, \u0440\u0435\u0448\u0438\u043b \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043c\u0438\u043d\u0438-\u0441\u0442\u0430\u0442\u044c\u044e\/\u043c\u0438\u043d\u0438-\u0443\u0440\u043e\u043a \u043f\u0440\u043e \u043e\u0434\u043d\u0443 \u0438\u0437 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0435\u0439 \u0437\u0430\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u044f\u0437\u044b\u043a\u0430 tcl \u2014 \u0441\u043b\u043e\u0432\u0430\u0440\u044f\u0445 ( \u043f\u0440\u0438\u0447\u0435\u043c, \u0438\u0445 \u044f \u043d\u0435 \u043c\u043e\u0433\u0443 \u0432\u0441\u043f\u043e\u043c\u043d\u0438\u0442\u044c \u043f\u043e \u043a\u043d\u0438\u0433\u0435 \u00ab\u041f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043d\u0430 Tcl\/TK\u00bb, \u0431\u044b\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u043e\u0441\u0442\u043e \u0447\u0438\u0442\u0430\u043b \u0441\u0442\u0430\u0440\u0443\u044e \u0432\u0435\u0440\u0441\u0438\u044e). \u041d\u0430\u0438\u0431\u043e\u043b\u0435\u0435 \u043f\u043e\u043b\u043d\u043e\u0435 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0442\u0438\u043f\u0430 \u0434\u0430\u043d\u043d\u044b\u0445, %username, \u0442\u044b \u043c\u043e\u0436\u0435\u0448\u044c \u043d\u0430\u0439\u0442\u0438 \u043f\u043e \u0441\u0441\u044b\u043b\u043ae<\/a>.<\/p>\n

\u041d\u0435\u043c\u043d\u043e\u0433\u043e \u0442\u0435\u043e\u0440\u0438\u0438 \u2014 \u0441\u043b\u043e\u0432\u0430\u0440\u044c \u0432 tcl \u044d\u0442\u043e \u0442\u0430\u043a\u043e\u0439 \u0442\u0438\u043f \u0434\u0430\u043d\u043d\u044b\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0441\u043b\u043e\u0436\u043d\u044b\u0435 \u0443\u043f\u043e\u0440\u044f\u0434\u043e\u0447\u0435\u043d\u043d\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u043e \u0442\u0438\u043f\u0443 \u00ab\u043a\u043b\u044e\u0447-\u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u00bb, \u043f\u0440\u0438\u0447\u0435\u043c \u0441 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c\u044e \u0432\u0435\u0442\u0432\u0438\u0442\u044c \u0441\u0430\u043c\u043e \u0434\u0435\u0440\u0435\u0432\u043e. \u0418\u043d\u044b\u043c\u0438 \u0441\u043b\u043e\u0432\u0430\u043c\u0438 \u2014 \u043d\u0430 \u043e\u0434\u0438\u043d \u043a\u043b\u044e\u0447 (\u043a \u043f\u0440\u0438\u043c\u0435\u0440\u0443 ID \u0437\u0430\u043f\u0438\u0441\u0438) \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043d\u0435 \u043e\u0434\u043d\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435, \u0430 \u0435\u0449\u0435 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043a\u043b\u044e\u0447\u0435\u0439 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f\u043c\u0438. \u0412\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0432 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441\u0435 tcl \u044d\u0442\u043e \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e \u0442\u0430\u043a: <\/p>\n

dict set programSettings 0 title "myProgram" dict set programSettings 0 min-width 800 dict set programSettings 0 min-height 600 dict set programSettings 0 resizable-x 1 dict set programSettings 0 resizable-y 1 <\/code><\/pre>\n
  \u0427\u0442\u043e \u0434\u0435\u043b\u0430\u0435\u0442 \u0434\u0430\u043d\u043d\u044b\u0439 \u043a\u043e\u0434? \u0412\u0441\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u2014 \u043e\u043d \u0441\u043e\u0437\u0434\u0430\u0435\u0442 \u0441\u043b\u043e\u0432\u0430\u0440\u044c programSettings, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0438\u043c\u0435\u0435\u0442 \u0430\u0442\u0440\u0438\u0431\u0443\u0442\u044b title, min-width, min-height, resizable-x, resizable-y. \u041f\u0440\u0438\u0447\u0435\u043c, \u0437\u0430 \u0441\u0447\u0435\u0442 ID \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u0432 \u0441\u043b\u043e\u0432\u0430\u0440\u0435 \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043d\u0430\u0442\u0438\u0440\u0430\u0442\u044c \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0434\u043b\u044f \u0434\u0440\u0443\u0433\u0438\u0445 root-\u043e\u043a\u043e\u043d \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c (\u0442\u0430\u043a\u043e\u0435 \u043c\u043e\u0436\u0435\u0442 \u043f\u043e\u0442\u0440\u0435\u0431\u043e\u0432\u0430\u0442\u044c\u0441\u044f, \u0435\u0441\u043b\u0438 \u0432\u044b \u043f\u043b\u0430\u043d\u0438\u0440\u0443\u0435\u0442\u0435 \u0434\u0435\u043b\u0430\u0442\u044c \u043c\u043d\u043e\u0433\u043e\u043e\u043a\u043e\u043d\u043d\u044b\u0439
  \u0438\u043d\u0442\u0435\u0440\u0444\u0435\u0439\u0441).<\/p>\n
  \u0414\u043e\u0441\u0442\u0443\u043f \u043a \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044e \u0438\u0437 \u0441\u043b\u043e\u0432\u0430\u0440\u044f \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u043f\u043e \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u043a\u043e\u043c\u0430\u043d\u0434\u044b:  <\/p>\n
dict get <\u0438\u043c\u044f-\u0441\u043b\u043e\u0432\u0430\u0440\u044f> <\u0430\u0442\u0440\u0438\u0431\u0443\u0442\u044b> <\/code><\/pre>\n
  \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u00ab\u043d\u0430\u0440\u0438\u0441\u0443\u0435\u043c\u00bb \u043e\u043a\u043d\u043e Tk \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043d\u0430\u0448\u0435\u0433\u043e \u0441\u043b\u043e\u0432\u0430\u0440\u044f. \u041e\u0431\u044b\u0447\u043d\u044b\u0439 \u043a\u043e\u0434, \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u043b \u0431\u044b \u0442\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c:  <\/p>\n
wm title . "myProgram" wm resizable . 1 1 wm minsize . 800 600 <\/code><\/pre>\n
  \u041d\u0430\u0448 \u043a\u043e\u0434 \u0431\u0443\u0434\u0435\u0442 \u0438\u043c\u0435\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u0432\u0438\u0434:  <\/p>\n
wm title . [dict get $programSettings 0 "title"] wm resizable . [dict get $programSettings 0 "resizable-x"] [dict get $programSettings 0 "resizable-y"] wm minsize . [dict get $programSettings 0 "min-width"] [dict get $programSettings 0 "min-height"] <\/code><\/pre>\n
  \u0427\u0442\u043e \u043d\u0430\u043c \u044d\u0442\u043e \u0434\u0430\u0441\u0442? \u041f\u043e \u0441\u0432\u043e\u0435\u0439 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438, \u0441\u043b\u043e\u0432\u0430\u0440\u0438 (\u043a\u0430\u043a, \u0432\u043f\u0440\u043e\u0447\u0435\u043c \u0438 \u0432\u0441\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 tcl) \u2014 \u043c\u0443\u0442\u0430\u0431\u0435\u043b\u044c\u043d\u044b. \u0421\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u043c\u043e\u0433\u0443\u0442 \u0431\u044b\u0442\u044c \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u044b. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u043e\u043a\u043d\u043e, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u043f\u0440\u0438 \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0433\u043e \u0438\u0437 \u0441\u043b\u043e\u0432\u0430\u0440\u044f, \u043c\u0435\u043d\u044f\u0435\u0442\u0441\u044f. \u041f\u0440\u0438 \u044d\u0442\u043e\u043c \u043f\u0435\u0440\u0435\u0437\u0430\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043d\u0435 \u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f. \u0418\u043d\u044b\u043c\u0438 \u0441\u043b\u043e\u0432\u0430\u043c\u0438 \u2014 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0432\u0430\u0448\u0435\u0433\u043e GUI \u0431\u0443\u0434\u0443\u0442 \u043f\u043e\u0434\u0445\u0432\u0430\u0442\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438. \u041d\u043e, \u0432\u0441\u0435 \u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u043b\u0435\u0433\u043a\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0447\u0435\u0440\u0435\u0437 \u0441\u043f\u0438\u0441\u043e\u043a. \u0422\u043e\u0433\u0434\u0430 \u0437\u0430\u0447\u0435\u043c \u043d\u0430\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0441\u043b\u043e\u0432\u0430\u0440\u044c. \u041d\u0443, \u0432\u043e \u043f\u0435\u0440\u0432\u044b\u0445 \u2014 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0441\u043b\u043e\u0432\u0430\u0440\u044f \u0441\u0434\u0435\u043b\u0430\u0435\u0442 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0431\u043e\u043b\u0435\u0435 \u0447\u0438\u0442\u0430\u0435\u043c\u043e\u0439, \u0435\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u2014 \u0431\u043e\u043b\u0435\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u0430\u0442\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u043c\u0438 (\u043f\u043e \u0441\u0443\u0442\u0438 \u0432\u044b \u0434\u0435\u0440\u0436\u0438\u0442\u0435 \u043d\u0435\u043a\u043e\u0435 \u043f\u043e\u0434\u043e\u0431\u0438\u0435 \u0442\u0430\u0431\u043b\u0438\u0446\u044b \u0431\u0430\u0437\u044b \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u043a\u043e\u0434\u0435). \u0410 \u0441 \u0434\u0440\u0443\u0433\u043e\u0439\u2026 \u0441\u0435\u0439\u0447\u0430\u0441 \u043f\u043e\u043a\u0430\u0436\u0443.<\/p>\n
  \u041f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0438\u043c, \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043e\u0431\u044b\u0447\u043d\u043e\u0435 \u0432\u0435\u0440\u0445\u043d\u0435\u0435 \u043c\u0435\u043d\u044e. \u041a\u0430\u043a \u0432\u0438\u0434\u0436\u0435\u0442 \u2014 \u043e\u043d\u043e \u0438\u043c\u0435\u0435\u0442 \u0441\u0432\u043e\u044e \u0438\u043c\u044f, \u0430 \u0442\u0430\u043a \u0436\u0435 \u043e\u043f\u0446\u0438\u044e tearOff. \u0414\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043d\u0430\u0441\u0442\u0440\u043e\u0435\u043a \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u0435\u0449\u0435 \u043e\u0434\u0438\u043d
  \u0441\u043b\u043e\u0432\u0430\u0440\u044c:  <\/p>\n
dict set menu-settings 0 name mainMenuBar dict set menu-settings 0 tearOff 1 <\/code><\/pre>\n
  \u0414\u0430\u043d\u043d\u044b\u0435 \u043e \u0442\u0438\u043f\u0435 \u0432\u044b\u043f\u0430\u0434\u0430\u044e\u0449\u0435\u0433\u043e \u043c\u0435\u043d\u044e \u0438\u0437 \u043c\u0435\u043d\u044e-\u0431\u0430\u0440\u0430 \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0441\u0440\u0430\u0437\u0443:  <\/p>\n
option add *tearOff [dict get $menu-settings 0 "tearOff"] <\/code><\/pre>\n
  \u0422\u0430\u043a \u0436\u0435, \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0438\u043c, \u043c\u044b \u0445\u043e\u0442\u0438\u043c \u0434\u0430\u0442\u044c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044e \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0432\u043a\u043b\u044e\u0447\u0430\u0442\u044c \u0438 \u043e\u0442\u043a\u043b\u044e\u0447\u0430\u0442\u044c \u0432\u0435\u0440\u0445\u043d\u0435\u0435 \u043c\u0435\u043d\u044e:   <\/p>\n
dict set user-settings 0 menu-bar true  <\/code><\/pre>\n
  \u0410 \u0432\u043e\u0442 \u0441 \u043e\u0442\u0440\u0438\u0441\u043e\u0432\u043a\u043e\u0439 \u0434\u0430\u0432\u0430\u0439\u0442\u0435 \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043f\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u0438\u043c. \u041e\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u0432\u0435\u0441\u044c GUI \u0432\u0440\u0443\u0447\u043d\u0443\u044e \u043d\u0435 \u0438\u043c\u0435\u0435\u0442 \u043e\u0441\u043e\u0431\u043e\u0433\u043e \u0441\u043c\u044b\u0441\u043b\u0430, \u0432\u0435\u0434\u044c \u0443 \u043d\u0430\u0441 \u0432 \u0430\u0440\u0441\u0435\u043d\u0430\u043b\u0435 \u043e\u0447\u0435\u043d\u044c \u043c\u043e\u0449\u043d\u044b\u0439 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442 \u2014 \u0438\u0442\u0435\u0440\u0430\u0442\u0438\u0432\u043d\u044b\u0439 \u043f\u0435\u0440\u0435\u0431\u043e\u0440 \u0441\u043b\u043e\u0432\u0430\u0440\u044f \u043f\u043e \u043a\u043b\u044e\u0447\u0430\u043c \u0438 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430\u043c. \u0414\u043b\u044f \u043c\u0435\u043d\u044e \u0437\u0430\u0433\u043b\u0430\u0432\u0438\u0439 \u043c\u0435\u043d\u044e \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0441\u043b\u043e\u0432\u0430\u0440\u044c:  <\/p>\n
dict set menu-bar-items 0 name file dict set menu-bar-items 0 text_item "File" dict set menu-bar-items 1 name help dict set menu-bar-items 1 text_item "Help" <\/code><\/pre>\n
  \u0422\u0435\u043f\u0435\u0440\u044c \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u0441\u043b\u043e\u0432\u0430\u0440\u044c, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0431\u0443\u0434\u0435\u0442 \u0445\u0440\u0430\u043d\u0438\u0442\u044c\u0441\u044f \u043c\u0435\u043d\u044f \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f (\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 parent \u0431\u0443\u0434\u0435\u0442 \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0430\u0442\u044c id \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u0430 \u043c\u0435\u043d\u044e \u043a \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u043f\u0440\u0438\u0432\u044f\u0437\u0430\u043d \u043f\u0435\u0440\u0432\u044b\u0439 \u0443\u0440\u043e\u0432\u0435\u043d\u044c):  <\/p>\n
dict set menu-bar-items_first-level 0 parent 0 dict set menu-bar-items_first-level 0 label "Open" dict set menu-bar-items_first-level 0 command NONE dict set menu-bar-items_first-level 1 parent 0 dict set menu-bar-items_first-level 1 label "Close" dict set menu-bar-items_first-level 1 command NONE dict set menu-bar-items_first-level 2 parent 0 dict set menu-bar-items_first-level 2 label "Exit" dict set menu-bar-items_first-level 2 command { exit; } dict set menu-bar-items_first-level 3 parent 1 dict set menu-bar-items_first-level 3 label "About" dict set menu-bar-items_first-level 3 command NONE dict set menu-bar-items_first-level 4 parent 1  dict set menu-bar-items_first-level 4 label "Help" dict set menu-bar-items_first-level 4 command NONE <\/code><\/pre>\n
  \u0421\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u0439 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 \u043c\u0435\u043d\u044e \u0440\u0430\u0437\u0431\u0438\u0440\u0430\u0442\u044c \u043d\u0435 \u0431\u0443\u0434\u0443, \u0435\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c \u0432 \u043b\u044e\u0431\u043e\u043c \u0442\u0443\u0442\u043e\u0440\u0438\u0430\u043b\u0435. \u041b\u0443\u0447\u0448\u0435 \u043f\u0435\u0440\u0435\u0439\u0434\u0435\u043c \u0441\u0440\u0430\u0437\u0443 \u043a \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0443 \u00ab\u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f\u00bb \u043c\u0435\u043d\u044e:  <\/p>\n
# \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 "\u0441\u043e\u0431\u0438\u0440\u0430\u0442\u044c" \u043c\u0435\u043d\u044e \u0438\u0437 \u0441\u043b\u043e\u0432\u0430\u0440\u0435\u0439 proc assemble-my-menu {} { # \u0422\u0430\u043a, \u043a\u0430\u043a \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u043f\u0435\u0440\u0438\u0440\u0443\u0435\u0442 \u0442\u043e\u043b\u044c\u043a\u043e \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u043c\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f\u043c\u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445, \u0442\u043e \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0432\u0432\u0435\u0441\u0442\u0438 \u0432 \u0435\u0435 \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0432\u0438\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u0432\u0441\u0435 \u043d\u0443\u0436\u043d\u044b\u0435 \u043d\u0430\u043c \u0441\u043b\u043e\u0432\u0430\u0440\u0438     global user-settings     global menu-settings     global menu-bar-items     global menu-bar-items_first-level # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c, \u043d\u0435 \u0432\u044b\u043a\u043b\u044e\u0447\u0438\u043b \u043b\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u0432\u044b\u0432\u043e\u0434 \u0432\u0435\u0440\u0445\u043d\u0435\u0433\u043e \u043c\u0435\u043d\u044e     if {[dict get $user-settings 0 "menuBar"]==true} { # , \u0435\u0441\u043b\u0438 \u0434\u0430, \u0442\u043e: # \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0441\u0430\u043c\u0443 \u0441\u0442\u0440\u043e\u043a\u0443 \u0432\u0435\u0440\u0445\u043d\u0435\u0433\u043e \u043c\u0435\u043d\u044e (\u043e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u043f\u0443\u0442\u044c \u0434\u043e \u0432\u0438\u0434\u0436\u0435\u0442\u0430 \u0442\u0430\u043a \u0436\u0435 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f "\u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438\u043c" \u0438 \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u0438\u0437 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u0441\u043b\u043e\u0432\u0430\u0440\u044f         menu .[dict get $menu-settings 0 "name"] # \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u043c \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0438 \u043e\u0442\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u043d\u0430 \u0432\u0435\u0440\u0445\u043d\u0435\u0439 \u0447\u0430\u0441\u0442\u0438 \u043e\u043a\u043d\u0430         . config -menu .[dict get $menu-settings 0 "name"] # \u0421\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u0442\u0441\u044f \u043f\u0435\u0440\u0435\u0431\u043e\u0440. \u0411\u0435\u0440\u0435\u043c \u0441\u043b\u043e\u0432\u0430\u0440\u044c \u0441 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u0430\u043c\u0438 \u043c\u0435\u043d\u044e \u0438 \u043f\u0435\u0440\u0435\u0431\u0438\u0440\u0430\u0435\u043c \u0435\u0433\u043e         dict for {id info} $menu-bar-items { # info - \u0432\u043e\u0431\u0440\u0430\u043b \u0432 \u0441\u0435\u0431\u044f \u0432\u0432\u0435\u0441\u044c \u043c\u0430\u0441\u0441\u0438\u0432 \u043a\u043b\u044e\u0447\u0435\u0439 \u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439. \u0422\u0430\u043a, \u043a\u0430\u043a \u0441 id-\u0448\u043d\u0438\u043a\u043e\u043c \u043d\u0430\u043c \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u043e\u043a\u0430 \u0434\u0435\u043b\u0430\u0442\u044c \u043d\u0435\u0447\u0435\u0433\u043e \u043e\u0441\u043e\u0431\u043e, \u043f\u043e \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c \u043a\u043b\u044e\u0447\u0435\u0432\u043e\u0433\u043e \u0441\u043b\u043e\u0432\u0430 with \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u043c \u0438\u0437 \u0434\u0430\u043d\u043d\u044b\u0445 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u043a\u043e\u0434:             dict with info { # \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043c\u0435\u043d\u044e \u043d\u0443\u043b\u0435\u0432\u043e\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f \u043f\u043e \u043a\u043b\u044e\u0447\u0443 name \u0441\u043b\u043e\u0432\u0430\u0440\u044f menu-bar-items \u0438 \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u044e \u043f\u0443\u0442\u044c \u0434\u043e \u0432\u0438\u0434\u0436\u0435\u0442\u0430 \u0438\u0437 menu-settings:                 menu .[dict get $menu-settings 0 "name"].$name # \u0421\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a                 .[dict get $menuBarSettings 0 "name"] add cascade -label $text_item -menu .[dict get $menuBarSettings 0 "name"].$name # \u0412\u0440\u0443\u0431\u0430\u0435\u043c \u043d\u043e\u0432\u044b\u0439 \u0438\u0442\u0435\u0440\u0430\u0442\u0438\u0432\u043d\u044b\u0439 \u0446\u0438\u043a\u043b \u043d\u0430 \u043f\u043e\u0434\u043e\u0431\u0438\u0438 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0433\u043e \u0432\u044b\u0448\u0435, \u043d\u043e \u0446\u0435\u043b\u0435\u0432\u044b\u043c \u0431\u0443\u0434\u0435\u0442 \u0441\u043b\u043e\u0432\u0430\u0440\u044c menu-bar-items_first-level                 dict for {iter data} $menu-bar-items_firs-level {                     dict with data { # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043a\u0430\u043a\u043e\u043c\u0443 \u0440\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u0441\u043a\u043e\u043c\u0443 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0443 \u043f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u0438\u0442 \u043f\u0443\u043d\u043a\u0442, \u0435\u0441\u043b\u0438 \u0438\u0441\u0442\u0438\u043d\u0430 - \u043f\u0440\u043e\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u043c:                         if {$id==$parent} { # \u0410 \u0432\u043e\u0442 \u0442\u0443\u0442 - \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u043c \u043c\u0435\u043d\u044e \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f                             .[dict get $menu-settings 0 "name"].$name add command -label $label -command $command                         }                     }                 }             }         }      } } <\/code><\/pre>\n
  \u041f\u043e\u043b\u043d\u044b\u0439 \u043a\u043e\u0434 \u043d\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b:<\/p>\n
dict set programSettings 0 title "myProgram" dict set programSettings 0 min-width 800 dict set programSettings 0 min-height 600 dict set programSettings 0 resizable-x 1 dict set programSettings 0 resizable-y 1  dict set menu-settings 0 name mainMenuBar dict set menu-settings 0 tearOff 1  dict set user-settings 0 menu-bar true   dict set menu-bar-items 0 name file dict set menu-bar-items 0 text_item "File" dict set menu-bar-items 1 name help dict set menu-bar-items 1 text_item "Help"  dict set menu-bar-items_first-level 0 parent 0 dict set menu-bar-items_first-level 0 label "Open" dict set menu-bar-items_first-level 0 command NONE dict set menu-bar-items_first-level 1 parent 0 dict set menu-bar-items_first-level 1 label "Close" dict set menu-bar-items_first-level 1 command NONE dict set menu-bar-items_first-level 2 parent 0 dict set menu-bar-items_first-level 2 label "Exit" dict set menu-bar-items_first-level 2 command { exit; } dict set menu-bar-items_first-level 3 parent 1 dict set menu-bar-items_first-level 3 label "About" dict set menu-bar-items_first-level 3 command NONE dict set menu-bar-items_first-level 4 parent 1  dict set menu-bar-items_first-level 4 label "Help" dict set menu-bar-items_first-level 4 command NONE  proc assemble-my-menu {} {     global user-settings     global menu-settings     global menu-bar-items     global menu-bar-items_first-level     if {[dict get $user-settings 0 "menuBar"]==true} {         menu .[dict get $menu-settings 0 "name"]         . config -menu .[dict get $menu-settings 0 "name"]         dict for {id info} $menu-bar-items {             dict with info {                 menu .[dict get $menu-settings 0 "name"].$name                 .[dict get $menuBarSettings 0 "name"] add cascade -label $text_item -menu .[dict get $menuBarSettings 0 "name"].$name                 dict for {iter data} $menu-bar-items_firs-level {                     dict with data {                         if {$id==$parent} {                             .[dict get $menu-settings 0 "name"].$name add command -label $label -command $command                         }                     }                 }             }         }      } }  wm title . [dict get $programSettings 0 "title"] wm resizable . [dict get $programSettings 0 "resizable-x"] [dict get $programSettings 0 "resizable-y"] wm minsize . [dict get $programSettings 0 "min-width"] [dict get $programSettings 0 "min-height"] option add *tearOff [dict get $menu-settings 0 "tearOff"] assemble-my-menu <\/code><\/pre>\n
  \u041d\u0430\u0434\u0435\u044e\u0441\u044c, \u0443\u0440\u043e\u043a\/\u0441\u0442\u0430\u0442\u044c\u044f \u043e\u043a\u0430\u0437\u0430\u043b\u0430\u0441\u044c \u043f\u043e\u043b\u0435\u0437\u043d\u043e\u0439. \u041f\u0440\u0438\u044f\u0442\u043d\u043e\u0433\u043e \u043f\u043e\u0433\u0440\u0443\u0436\u0435\u043d\u0438\u044f \u0432 \u043d\u0430\u0440\u043a\u043e\u043c\u0430\u043d\u0441\u043a\u0438\u0439 \u043f\u043e\u0434 tcl\/tk!    \t \t\t   \t<\/p>\n
<\/div>\n<\/p><\/div>\n
 \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438  http:\/\/habrahabr.ru\/post\/174243\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
   \t\u041f\u0440\u0438\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e, \u0425\u0430\u0431\u0440\u0430! %username, \u0442\u044b \u043d\u0430\u0432\u0435\u0440\u043d\u044f\u043a\u0430 \u0441\u043b\u044b\u0448\u0430\u043b \u043f\u0440\u043e \u0442\u0430\u043a\u043e\u0439 \u044f\u0437\u044b\u043a \u043a\u0430\u043a tcl \u0438 \u0435\u0433\u043e \u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u0442\u0443\u043b\u043a\u0438\u0442 tk. \u042f\u0437\u044b\u043a \u043e\u0442\u043b\u0438\u0447\u0430\u0435\u0442\u0441\u044f \u043e\u0441\u043e\u0431\u043e\u0439 \u0433\u0438\u0431\u043a\u043e\u0441\u0442\u044c\u044e (\u043d\u0430 \u043c\u043e\u0439 \u0441\u043a\u0440\u043e\u043c\u043d\u044b\u0439 \u0432\u0437\u0433\u043b\u044f\u0434). \u041f\u043e\u043a\u0430 \u043d\u0435\u0442 \u043c\u043d\u043e\u0433\u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043e\u0431 \u00ab\u043e\u0431\u043b\u0430\u0447\u043d\u043e\u0439\u00bb \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0435, \u0440\u0435\u0448\u0438\u043b \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043c\u0438\u043d\u0438-\u0441\u0442\u0430\u0442\u044c\u044e\/\u043c\u0438\u043d\u0438-\u0443\u0440\u043e\u043a \u043f\u0440\u043e \u043e\u0434\u043d\u0443 \u0438\u0437 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0435\u0439 \u0437\u0430\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u044f\u0437\u044b\u043a\u0430 tcl \u2014 \u0441\u043b\u043e\u0432\u0430\u0440\u044f\u0445 ( \u043f\u0440\u0438\u0447\u0435\u043c, \u0438\u0445 \u044f \u043d\u0435 \u043c\u043e\u0433\u0443 \u0432\u0441\u043f\u043e\u043c\u043d\u0438\u0442\u044c \u043f\u043e \u043a\u043d\u0438\u0433\u0435 \u00ab\u041f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043d\u0430 Tcl\/TK\u00bb, \u0431\u044b\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u043e\u0441\u0442\u043e \u0447\u0438\u0442\u0430\u043b \u0441\u0442\u0430\u0440\u0443\u044e \u0432\u0435\u0440\u0441\u0438\u044e). \u041d\u0430\u0438\u0431\u043e\u043b\u0435\u0435 \u043f\u043e\u043b\u043d\u043e\u0435 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0442\u0438\u043f\u0430 \u0434\u0430\u043d\u043d\u044b\u0445, %username, \u0442\u044b \u043c\u043e\u0436\u0435\u0448\u044c \u043d\u0430\u0439\u0442\u0438 \u043f\u043e \u0441\u0441\u044b\u043b\u043ae<\/a>.<\/p>\n
  \u041d\u0435\u043c\u043d\u043e\u0433\u043e \u0442\u0435\u043e\u0440\u0438\u0438 \u2014 \u0441\u043b\u043e\u0432\u0430\u0440\u044c \u0432 tcl \u044d\u0442\u043e \u0442\u0430\u043a\u043e\u0439 \u0442\u0438\u043f \u0434\u0430\u043d\u043d\u044b\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0441\u043b\u043e\u0436\u043d\u044b\u0435 \u0443\u043f\u043e\u0440\u044f\u0434\u043e\u0447\u0435\u043d\u043d\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u043e \u0442\u0438\u043f\u0443 \u00ab\u043a\u043b\u044e\u0447-\u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u00bb, \u043f\u0440\u0438\u0447\u0435\u043c \u0441 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c\u044e \u0432\u0435\u0442\u0432\u0438\u0442\u044c \u0441\u0430\u043c\u043e \u0434\u0435\u0440\u0435\u0432\u043e. \u0418\u043d\u044b\u043c\u0438 \u0441\u043b\u043e\u0432\u0430\u043c\u0438 \u2014 \u043d\u0430 \u043e\u0434\u0438\u043d \u043a\u043b\u044e\u0447 (\u043a \u043f\u0440\u0438\u043c\u0435\u0440\u0443 ID \u0437\u0430\u043f\u0438\u0441\u0438) \u043c\u043e\u0436\u0435\u0442 \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043d\u0435 \u043e\u0434\u043d\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435, \u0430 \u0435\u0449\u0435 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043a\u043b\u044e\u0447\u0435\u0439 \u0441\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f\u043c\u0438. \u0412\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0432 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441\u0435 tcl \u044d\u0442\u043e \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e \u0442\u0430\u043a:  <\/p>\n
dict set programSettings 0 title "myProgram" dict set programSettings 0 min-width 800 dict set programSettings 0 min-height 600 dict set programSettings 0 resizable-x 1 dict set programSettings 0 resizable-y 1 <\/code><\/pre>\n
  \u0427\u0442\u043e \u0434\u0435\u043b\u0430\u0435\u0442 \u0434\u0430\u043d\u043d\u044b\u0439 \u043a\u043e\u0434? \u0412\u0441\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u2014 \u043e\u043d \u0441\u043e\u0437\u0434\u0430\u0435\u0442 \u0441\u043b\u043e\u0432\u0430\u0440\u044c programSettings, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0438\u043c\u0435\u0435\u0442 \u0430\u0442\u0440\u0438\u0431\u0443\u0442\u044b title, min-width, min-height, resizable-x, resizable-y. \u041f\u0440\u0438\u0447\u0435\u043c, \u0437\u0430 \u0441\u0447\u0435\u0442 ID \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u0432 \u0441\u043b\u043e\u0432\u0430\u0440\u0435 \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043d\u0430\u0442\u0438\u0440\u0430\u0442\u044c \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0434\u043b\u044f \u0434\u0440\u0443\u0433\u0438\u0445 root-\u043e\u043a\u043e\u043d \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c (\u0442\u0430\u043a\u043e\u0435 \u043c\u043e\u0436\u0435\u0442 \u043f\u043e\u0442\u0440\u0435\u0431\u043e\u0432\u0430\u0442\u044c\u0441\u044f, \u0435\u0441\u043b\u0438 \u0432\u044b \u043f\u043b\u0430\u043d\u0438\u0440\u0443\u0435\u0442\u0435 \u0434\u0435\u043b\u0430\u0442\u044c \u043c\u043d\u043e\u0433\u043e\u043e\u043a\u043e\u043d\u043d\u044b\u0439
  \u0438\u043d\u0442\u0435\u0440\u0444\u0435\u0439\u0441).<\/p>\n
  \u0414\u043e\u0441\u0442\u0443\u043f \u043a \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044e \u0438\u0437 \u0441\u043b\u043e\u0432\u0430\u0440\u044f \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u043f\u043e \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u043a\u043e\u043c\u0430\u043d\u0434\u044b:  <\/p>\n
dict get <\u0438\u043c\u044f-\u0441\u043b\u043e\u0432\u0430\u0440\u044f> <\u0430\u0442\u0440\u0438\u0431\u0443\u0442\u044b> <\/code><\/pre>\n
  \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u00ab\u043d\u0430\u0440\u0438\u0441\u0443\u0435\u043c\u00bb \u043e\u043a\u043d\u043e Tk \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043d\u0430\u0448\u0435\u0433\u043e \u0441\u043b\u043e\u0432\u0430\u0440\u044f. \u041e\u0431\u044b\u0447\u043d\u044b\u0439 \u043a\u043e\u0434, \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u043b \u0431\u044b \u0442\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c:  <\/p>\n
wm title . "myProgram" wm resizable . 1 1 wm minsize . 800 600 <\/code><\/pre>\n
  \u041d\u0430\u0448 \u043a\u043e\u0434 \u0431\u0443\u0434\u0435\u0442 \u0438\u043c\u0435\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u0432\u0438\u0434:  <\/p>\n
wm title . [dict get $programSettings 0 "title"] wm resizable . [dict get $programSettings 0 "resizable-x"] [dict get $programSettings 0 "resizable-y"] wm minsize . [dict get $programSettings 0 "min-width"] [dict get $programSettings 0 "min-height"] <\/code><\/pre>\n
  \u0427\u0442\u043e \u043d\u0430\u043c \u044d\u0442\u043e \u0434\u0430\u0441\u0442? \u041f\u043e \u0441\u0432\u043e\u0435\u0439 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438, \u0441\u043b\u043e\u0432\u0430\u0440\u0438 (\u043a\u0430\u043a, \u0432\u043f\u0440\u043e\u0447\u0435\u043c \u0438 \u0432\u0441\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 tcl) \u2014 \u043c\u0443\u0442\u0430\u0431\u0435\u043b\u044c\u043d\u044b. \u0421\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u043c\u043e\u0433\u0443\u0442 \u0431\u044b\u0442\u044c \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u044b. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u043e\u043a\u043d\u043e, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u043f\u0440\u0438 \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0433\u043e \u0438\u0437 \u0441\u043b\u043e\u0432\u0430\u0440\u044f, \u043c\u0435\u043d\u044f\u0435\u0442\u0441\u044f. \u041f\u0440\u0438 \u044d\u0442\u043e\u043c \u043f\u0435\u0440\u0435\u0437\u0430\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043d\u0435 \u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f. \u0418\u043d\u044b\u043c\u0438 \u0441\u043b\u043e\u0432\u0430\u043c\u0438 \u2014 \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0432\u0430\u0448\u0435\u0433\u043e GUI \u0431\u0443\u0434\u0443\u0442 \u043f\u043e\u0434\u0445\u0432\u0430\u0442\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438. \u041d\u043e, \u0432\u0441\u0435 \u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u043b\u0435\u0433\u043a\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0447\u0435\u0440\u0435\u0437 \u0441\u043f\u0438\u0441\u043e\u043a. \u0422\u043e\u0433\u0434\u0430 \u0437\u0430\u0447\u0435\u043c \u043d\u0430\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0441\u043b\u043e\u0432\u0430\u0440\u044c. \u041d\u0443, \u0432\u043e \u043f\u0435\u0440\u0432\u044b\u0445 \u2014 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u0441\u043b\u043e\u0432\u0430\u0440\u044f \u0441\u0434\u0435\u043b\u0430\u0435\u0442 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0431\u043e\u043b\u0435\u0435 \u0447\u0438\u0442\u0430\u0435\u043c\u043e\u0439, \u0435\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u2014 \u0431\u043e\u043b\u0435\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u0430\u0442\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u043c\u0438 (\u043f\u043e \u0441\u0443\u0442\u0438 \u0432\u044b \u0434\u0435\u0440\u0436\u0438\u0442\u0435 \u043d\u0435\u043a\u043e\u0435 \u043f\u043e\u0434\u043e\u0431\u0438\u0435 \u0442\u0430\u0431\u043b\u0438\u0446\u044b \u0431\u0430\u0437\u044b \u0434\u0430\u043d\u043d\u044b\u0445 \u0432 \u043a\u043e\u0434\u0435). \u0410 \u0441 \u0434\u0440\u0443\u0433\u043e\u0439\u2026 \u0441\u0435\u0439\u0447\u0430\u0441 \u043f\u043e\u043a\u0430\u0436\u0443.<\/p>\n
  \u041f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0438\u043c, \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043e\u0431\u044b\u0447\u043d\u043e\u0435 \u0432\u0435\u0440\u0445\u043d\u0435\u0435 \u043c\u0435\u043d\u044e. \u041a\u0430\u043a \u0432\u0438\u0434\u0436\u0435\u0442 \u2014 \u043e\u043d\u043e \u0438\u043c\u0435\u0435\u0442 \u0441\u0432\u043e\u044e \u0438\u043c\u044f, \u0430 \u0442\u0430\u043a \u0436\u0435 \u043e\u043f\u0446\u0438\u044e tearOff. \u0414\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u043d\u0430\u0441\u0442\u0440\u043e\u0435\u043a \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u0435\u0449\u0435 \u043e\u0434\u0438\u043d
  \u0441\u043b\u043e\u0432\u0430\u0440\u044c:  <\/p>\n
dict set menu-settings 0 name mainMenuBar dict set menu-settings 0 tearOff 1 <\/code><\/pre>\n
  \u0414\u0430\u043d\u043d\u044b\u0435 \u043e \u0442\u0438\u043f\u0435 \u0432\u044b\u043f\u0430\u0434\u0430\u044e\u0449\u0435\u0433\u043e \u043c\u0435\u043d\u044e \u0438\u0437 \u043c\u0435\u043d\u044e-\u0431\u0430\u0440\u0430 \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0441\u0440\u0430\u0437\u0443:  <\/p>\n
option add *tearOff [dict get $menu-settings 0 "tearOff"] <\/code><\/pre>\n
  \u0422\u0430\u043a \u0436\u0435, \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0438\u043c, \u043c\u044b \u0445\u043e\u0442\u0438\u043c \u0434\u0430\u0442\u044c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044e \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0432\u043a\u043b\u044e\u0447\u0430\u0442\u044c \u0438 \u043e\u0442\u043a\u043b\u044e\u0447\u0430\u0442\u044c \u0432\u0435\u0440\u0445\u043d\u0435\u0435 \u043c\u0435\u043d\u044e:   <\/p>\n
dict set user-settings 0 menu-bar true  <\/code><\/pre>\n
  \u0410 \u0432\u043e\u0442 \u0441 \u043e\u0442\u0440\u0438\u0441\u043e\u0432\u043a\u043e\u0439 \u0434\u0430\u0432\u0430\u0439\u0442\u0435 \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043f\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u0438\u043c. \u041e\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u0432\u0435\u0441\u044c GUI \u0432\u0440\u0443\u0447\u043d\u0443\u044e \u043d\u0435 \u0438\u043c\u0435\u0435\u0442 \u043e\u0441\u043e\u0431\u043e\u0433\u043e \u0441\u043c\u044b\u0441\u043b\u0430, \u0432\u0435\u0434\u044c \u0443 \u043d\u0430\u0441 \u0432 \u0430\u0440\u0441\u0435\u043d\u0430\u043b\u0435 \u043e\u0447\u0435\u043d\u044c \u043c\u043e\u0449\u043d\u044b\u0439 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442 \u2014 \u0438\u0442\u0435\u0440\u0430\u0442\u0438\u0432\u043d\u044b\u0439 \u043f\u0435\u0440\u0435\u0431\u043e\u0440 \u0441\u043b\u043e\u0432\u0430\u0440\u044f \u043f\u043e \u043a\u043b\u044e\u0447\u0430\u043c \u0438 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430\u043c. \u0414\u043b\u044f \u043c\u0435\u043d\u044e \u0437\u0430\u0433\u043b\u0430\u0432\u0438\u0439 \u043c\u0435\u043d\u044e \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0441\u043b\u043e\u0432\u0430\u0440\u044c:  <\/p>\n
dict set menu-bar-items 0 name file dict set menu-bar-items 0 text_item "File" dict set menu-bar-items 1 name help dict set menu-bar-items 1 text_item "Help" <\/code><\/pre>\n
  \u0422\u0435\u043f\u0435\u0440\u044c \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u0441\u043b\u043e\u0432\u0430\u0440\u044c, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0431\u0443\u0434\u0435\u0442 \u0445\u0440\u0430\u043d\u0438\u0442\u044c\u0441\u044f \u043c\u0435\u043d\u044f \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f (\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 parent \u0431\u0443\u0434\u0435\u0442 \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0430\u0442\u044c id \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u0430 \u043c\u0435\u043d\u044e \u043a \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u043f\u0440\u0438\u0432\u044f\u0437\u0430\u043d \u043f\u0435\u0440\u0432\u044b\u0439 \u0443\u0440\u043e\u0432\u0435\u043d\u044c):  <\/p>\n
dict set menu-bar-items_first-level 0 parent 0 dict set menu-bar-items_first-level 0 label "Open" dict set menu-bar-items_first-level 0 command NONE dict set menu-bar-items_first-level 1 parent 0 dict set menu-bar-items_first-level 1 label "Close" dict set menu-bar-items_first-level 1 command NONE dict set menu-bar-items_first-level 2 parent 0 dict set menu-bar-items_first-level 2 label "Exit" dict set menu-bar-items_first-level 2 command { exit; } dict set menu-bar-items_first-level 3 parent 1 dict set menu-bar-items_first-level 3 label "About" dict set menu-bar-items_first-level 3 command NONE dict set menu-bar-items_first-level 4 parent 1  dict set menu-bar-items_first-level 4 label "Help" dict set menu-bar-items_first-level 4 command NONE <\/code><\/pre>\n
  \u0421\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u0439 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 \u043c\u0435\u043d\u044e \u0440\u0430\u0437\u0431\u0438\u0440\u0430\u0442\u044c \u043d\u0435 \u0431\u0443\u0434\u0443, \u0435\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c \u0432 \u043b\u044e\u0431\u043e\u043c \u0442\u0443\u0442\u043e\u0440\u0438\u0430\u043b\u0435. \u041b\u0443\u0447\u0448\u0435 \u043f\u0435\u0440\u0435\u0439\u0434\u0435\u043c \u0441\u0440\u0430\u0437\u0443 \u043a \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0443 \u00ab\u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f\u00bb \u043c\u0435\u043d\u044e:  <\/p>\n
# \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 "\u0441\u043e\u0431\u0438\u0440\u0430\u0442\u044c" \u043c\u0435\u043d\u044e \u0438\u0437 \u0441\u043b\u043e\u0432\u0430\u0440\u0435\u0439 proc assemble-my-menu {} { # \u0422\u0430\u043a, \u043a\u0430\u043a \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u043f\u0435\u0440\u0438\u0440\u0443\u0435\u0442 \u0442\u043e\u043b\u044c\u043a\u043e \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u043c\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f\u043c\u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445, \u0442\u043e \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0432\u0432\u0435\u0441\u0442\u0438 \u0432 \u0435\u0435 \u043e\u0431\u043b\u0430\u0441\u0442\u044c \u0432\u0438\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u0432\u0441\u0435 \u043d\u0443\u0436\u043d\u044b\u0435 \u043d\u0430\u043c \u0441\u043b\u043e\u0432\u0430\u0440\u0438     global user-settings     global menu-settings     global menu-bar-items     global menu-bar-items_first-level # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c, \u043d\u0435 \u0432\u044b\u043a\u043b\u044e\u0447\u0438\u043b \u043b\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u0432\u044b\u0432\u043e\u0434 \u0432\u0435\u0440\u0445\u043d\u0435\u0433\u043e \u043c\u0435\u043d\u044e     if {[dict get $user-settings 0 "menuBar"]==true} { # , \u0435\u0441\u043b\u0438 \u0434\u0430, \u0442\u043e: # \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0441\u0430\u043c\u0443 \u0441\u0442\u0440\u043e\u043a\u0443 \u0432\u0435\u0440\u0445\u043d\u0435\u0433\u043e \u043c\u0435\u043d\u044e (\u043e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u043f\u0443\u0442\u044c \u0434\u043e \u0432\u0438\u0434\u0436\u0435\u0442\u0430 \u0442\u0430\u043a \u0436\u0435 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f "\u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438\u043c" \u0438 \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u0438\u0437 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u0441\u043b\u043e\u0432\u0430\u0440\u044f         menu .[dict get $menu-settings 0 "name"] # \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u043c \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0438 \u0438 \u043e\u0442\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u043d\u0430 \u0432\u0435\u0440\u0445\u043d\u0435\u0439 \u0447\u0430\u0441\u0442\u0438 \u043e\u043a\u043d\u0430         . config -menu .[dict get $menu-settings 0 "name"] # \u0421\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u0442\u0441\u044f \u043f\u0435\u0440\u0435\u0431\u043e\u0440. \u0411\u0435\u0440\u0435\u043c \u0441\u043b\u043e\u0432\u0430\u0440\u044c \u0441 \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043a\u0430\u043c\u0438 \u043c\u0435\u043d\u044e \u0438 \u043f\u0435\u0440\u0435\u0431\u0438\u0440\u0430\u0435\u043c \u0435\u0433\u043e         dict for {id info} $menu-bar-items { # info - \u0432\u043e\u0431\u0440\u0430\u043b \u0432 \u0441\u0435\u0431\u044f \u0432\u0432\u0435\u0441\u044c \u043c\u0430\u0441\u0441\u0438\u0432 \u043a\u043b\u044e\u0447\u0435\u0439 \u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439. \u0422\u0430\u043a, \u043a\u0430\u043a \u0441 id-\u0448\u043d\u0438\u043a\u043e\u043c \u043d\u0430\u043c \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u043e\u043a\u0430 \u0434\u0435\u043b\u0430\u0442\u044c \u043d\u0435\u0447\u0435\u0433\u043e \u043e\u0441\u043e\u0431\u043e, \u043f\u043e \u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0430\u043c \u043a\u043b\u044e\u0447\u0435\u0432\u043e\u0433\u043e \u0441\u043b\u043e\u0432\u0430 with \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u043c \u0438\u0437 \u0434\u0430\u043d\u043d\u044b\u0445 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u043a\u043e\u0434:             dict with info { # \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043c\u0435\u043d\u044e \u043d\u0443\u043b\u0435\u0432\u043e\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f \u043f\u043e \u043a\u043b\u044e\u0447\u0443 name \u0441\u043b\u043e\u0432\u0430\u0440\u044f menu-bar-items \u0438 \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u044e \u043f\u0443\u0442\u044c \u0434\u043e \u0432\u0438\u0434\u0436\u0435\u0442\u0430 \u0438\u0437 menu-settings:                 menu .[dict get $menu-settings 0 "name"].$name # \u0421\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a                 .[dict get $menuBarSettings 0 "name"] add cascade -label $text_item -menu .[dict get $menuBarSettings 0 "name"].$name # \u0412\u0440\u0443\u0431\u0430\u0435\u043c \u043d\u043e\u0432\u044b\u0439 \u0438\u0442\u0435\u0440\u0430\u0442\u0438\u0432\u043d\u044b\u0439 \u0446\u0438\u043a\u043b \u043d\u0430 \u043f\u043e\u0434\u043e\u0431\u0438\u0438 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0433\u043e \u0432\u044b\u0448\u0435, \u043d\u043e \u0446\u0435\u043b\u0435\u0432\u044b\u043c \u0431\u0443\u0434\u0435\u0442 \u0441\u043b\u043e\u0432\u0430\u0440\u044c menu-bar-items_first-level                 dict for {iter data} $menu-bar-items_firs-level {                     dict with data { # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u043a\u0430\u043a\u043e\u043c\u0443 \u0440\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u0441\u043a\u043e\u043c\u0443 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0443 \u043f\u0440\u0438\u043d\u0430\u0434\u043b\u0435\u0436\u0438\u0442 \u043f\u0443\u043d\u043a\u0442, \u0435\u0441\u043b\u0438 \u0438\u0441\u0442\u0438\u043d\u0430 - \u043f\u0440\u043e\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u043c:                         if {$id==$parent} { # \u0410 \u0432\u043e\u0442 \u0442\u0443\u0442 - \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u043c \u043c\u0435\u043d\u044e \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u0443\u0440\u043e\u0432\u043d\u044f                             .[dict get $menu-settings 0 "name"].$name add command -label $label -command $command                         }                     }                 }             }         }      } } <\/code><\/pre>\n
  \u041f\u043e\u043b\u043d\u044b\u0439 \u043a\u043e\u0434 \u043d\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b:<\/p>\n
dict set programSettings 0 title "myProgram" dict set programSettings 0 min-width 800 dict set programSettings 0 min-height 600 dict set programSettings 0 resizable-x 1 dict set programSettings 0 resizable-y 1  dict set menu-settings 0 name mainMenuBar dict set menu-settings 0 tearOff 1  dict set user-settings 0 menu-bar true   dict set menu-bar-items 0 name file dict set menu-bar-items 0 text_item "File" dict set menu-bar-items 1 name help dict set menu-bar-items 1 text_item "Help"  dict set menu-bar-items_first-level 0 parent 0 dict set menu-bar-items_first-level 0 label "Open" dict set menu-bar-items_first-level 0 command NONE dict set menu-bar-items_first-level 1 parent 0 dict set menu-bar-items_first-level 1 label "Close" dict set menu-bar-items_first-level 1 command NONE dict set menu-bar-items_first-level 2 parent 0 dict set menu-bar-items_first-level 2 label "Exit" dict set menu-bar-items_first-level 2 command { exit; } dict set menu-bar-items_first-level 3 parent 1 dict set menu-bar-items_first-level 3 label "About" dict set menu-bar-items_first-level 3 command NONE dict set menu-bar-items_first-level 4 parent 1  dict set menu-bar-items_first-level 4 label "Help" dict set menu-bar-items_first-level 4 command NONE  proc assemble-my-menu {} {     global user-settings     global menu-settings     global menu-bar-items     global menu-bar-items_first-level     if {[dict get $user-settings 0 "menuBar"]==true} {         menu .[dict get $menu-settings 0 "name"]         . config -menu .[dict get $menu-settings 0 "name"]         dict for {id info} $menu-bar-items {             dict with info {                 menu .[dict get $menu-settings 0 "name"].$name                 .[dict get $menuBarSettings 0 "name"] add cascade -label $text_item -menu .[dict get $menuBarSettings 0 "name"].$name                 dict for {iter data} $menu-bar-items_firs-level {                     dict with data {                         if {$id==$parent} {                             .[dict get $menu-settings 0 "name"].$name add command -label $label -command $command                         }                     }                 }             }         }      } }  wm title . [dict get $programSettings 0 "title"] wm resizable . [dict get $programSettings 0 "resizable-x"] [dict get $programSettings 0 "resizable-y"] wm minsize . [dict get $programSettings 0 "min-width"] [dict get $programSettings 0 "min-height"] option add *tearOff [dict get $menu-settings 0 "tearOff"] assemble-my-menu <\/code><\/pre>\n
  \u041d\u0430\u0434\u0435\u044e\u0441\u044c, \u0443\u0440\u043e\u043a\/\u0441\u0442\u0430\u0442\u044c\u044f \u043e\u043a\u0430\u0437\u0430\u043b\u0430\u0441\u044c \u043f\u043e\u043b\u0435\u0437\u043d\u043e\u0439. \u041f\u0440\u0438\u044f\u0442\u043d\u043e\u0433\u043e \u043f\u043e\u0433\u0440\u0443\u0436\u0435\u043d\u0438\u044f \u0432 \u043d\u0430\u0440\u043a\u043e\u043c\u0430\u043d\u0441\u043a\u0438\u0439 \u043f\u043e\u0434 tcl\/tk!    \t \t\t   \t<\/p>\n
<\/div>\n<\/p><\/div>\n
 \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438  http:\/\/habrahabr.ru\/post\/174243\/<\/a>
<\/br><\/br><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-174243","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/174243","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=174243"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/174243\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=174243"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=174243"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=174243"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}