LINUX.ORG.RU

P.S:
(require (quote gui.gtk-2.gtk))
(require (quote rep.data.tables))
(%define menu-selected nil)
(%define group-table (run-byte-code "v" [make-fluid] 1))
(defun make-group-table #["
v" [make-table symbol-hash eq] 3])
(defun group-id-set #["ии01B v" [table-set group-table] 2097156])
(defun group-id-ref #["и0B
v" [table-ref group-table] 1048579])
(defun create-menu #["ий01DЭШ2DI3C3ШВFLDUIFDUU:Ч4:LyЧ4:L F*H:Щ@F)ШД:L(:MF*LnЭh:╒qЭh : D4)98
H9
EШД:MD4D┌5┌M6 ┌M6
┌M6Ч▒  6 Э?  )
9
Ш╩Э?)9J
Ш╩F)H98 HЧм9M
HЧь9I
EEH9C H9ЧС9
H9 EEHMЪv" [gtk-menu-bar-new gtk-menu-new #["иий012D 3I÷
4IFJ HЧ, D5IF
EH H
v" [gtk-label-new-with-mnemonic gtk-hbox-new gtk-box-pack-start gtk-label-new gtk-box-pack-end gtk-widget-show-all gtk-container-add] 6293511] symbol-value gtk-menu-item-new create-menu gtk-menu-item-set-submenu check group insensitive shortcut group-id-ref gtk-radio-menu-item-new-from-widget group-id-set gtk-check-menu-item-new gtk-check-menu-item-set-active gtk-widget-set-sensitive g-signal-connect "activate" #[":LF v" [menu-selected] 2] gtk-menu-shell-append gtk-widget-show] 10491910])
(defun popup-menu #["ийй012Dа ED3 HI&IF Ъ% HHv" [group-table make-group-table create-menu g-signal-connect "deactivate" gtk-main-quit menu-selected gtk-menu-popup-interp gtk-main] 4195335])
(run-byte-code "Ш
|ЬIv║u@ D0@L M╟ H@ Ч/@ EHШ" [end-of-stream read standard-input format standard-output "%S
" symbol-value filep flush-file] 1050629)

anonymous
()
Ответ на: комментарий от anonymous

iconv -f utf8 -t koi8-r /usr/bin/libexec/sawfish/1.3/i686-pc-linux-gnu/sawfish-menu

gr_buza ★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.