home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / Tmedt180 / tmedt180.exe / TM_LIGHT.CWS < prev    next >
Text File  |  1997-08-25  |  38KB  |  1,250 lines
  1. @echo off
  2.  
  3. #----------------------------------#
  4. # メインウィンンドのハンドルを取得 #
  5. #----------------------------------#
  6.  
  7. window get main -&eax
  8. let hwndMain=%eax%
  9.  
  10. #----------------------#
  11. # 以前のリソースを削除 #
  12. #----------------------#
  13.  
  14. menubar get %hwndMain% -&eax
  15. let hMenu=%eax%
  16.  
  17. menubar set %hwndMain% 0
  18. menubar destory %hMenu%
  19. menubar draw %hwndMain%
  20.  
  21. menubar getpopup %hwndMain% -&eax
  22. let hPopMenu=%eax%
  23. menubar destory %hPopMenu%
  24.  
  25. toolbar get %hwndMain% -&eax
  26. let hTBar=%eax%
  27. toolbar destory %hTBar%
  28.  
  29. functionkey get %hwndMain% -&eax
  30. let hFKey=%eax%
  31. functionkey destroy %hFKey%
  32.  
  33. accelkey get %hwndMain% -&eax
  34. let hAccel=%eax%
  35. accelkey destroy %hAccel%
  36.  
  37. strokekey get %hwndMain% -&eax
  38. let hStroke=%eax%
  39. strokekey destroy %hStroke%
  40.  
  41. #----------#
  42. # 起動環境 #
  43. #----------#
  44. #set tm.win.tbar=1 ;   toolbar show
  45.  set tm.win.fkey=1 ;   functionkey show
  46.  set tm.con.hsb=0 ;    console scrollbar horz hide
  47.  set tm.edt.hsb=0 ;    edit    scrollbar horz hide
  48. #set tm.edt.line=1 ;   edit mode line   ; console mode line
  49. #set tm.edt.ruler=1 ;  edit mode ruler  ; console mode ruler
  50. #set tm.edt.ow=1 ;     edit mode overwrite
  51. #set tm.edt.indent=1 ; edit mode indent
  52.  
  53. #--------------------#
  54. # メニューバーの登録 #
  55. #--------------------#
  56.  
  57. menubar create -&eax
  58. let hMenu=%eax%
  59.  
  60. menubar createpopup -&eax
  61. let hPopMenu=%eax%
  62.  
  63. menubar append %hMenu%    0x0010 %hPopMenu% "ファイル(&F)"
  64. menubar append %hPopMenu%      0 "tmNew"    "新規作成(&N)"
  65. menubar append %hPopMenu%      0 "tmOpen"   "開く(&O)..."
  66. menubar append %hPopMenu%      0 "tmClose"  "閉じる(&C)"
  67. menubar append %hPopMenu%      0 "tmSave"   "上書き保存(&S)"
  68. menubar append %hPopMenu%      0 "tmSaveAs" "名前を付けて保存(&A)..."
  69. menubar append %hPopMenu% 0x0800 -1         0
  70. menubar append %hPopMenu%      0 "tmPrint"  "印刷(&P)..."
  71. menubar append %hPopMenu% 0x0800 -1         0
  72. menubar append %hPopMenu%      0 "tmExtDll" "コマンドDLLの設定(&E)..."
  73. menubar append %hPopMenu%      0 "tmTerminal" "通信開始(&T)..."
  74. menubar append %hPopMenu% 0x0800 -1         0
  75. menubar append %hPopMenu%      0 "tmExit"   "終了(&X)"
  76.  
  77. menubar append %hPopMenu% 0x0800 -1         0
  78. for (i = 1; $i <= 5; i++)
  79.   edit logfile get %i% -&tm.logfile
  80.   menubar append %hPopMenu%      0 "tmLogFile %i%"   "%tm.logfile%"
  81.   set @ tm.logfile[%i%] = $tm.logfile
  82. end
  83. set tm.logfile=
  84.  
  85. menubar createpopup -&eax
  86. let hPopMenu=%eax%
  87.  
  88. menubar append %hMenu%    0x0010 %hPopMenu%   "編集(&E)"
  89.  
  90. menubar append %hPopMenu%      0 "tmUndo"     "元に戻す(&U)    Ctrl+Z"
  91.  
  92. menubar append %hPopMenu% 0x0800 -1         0
  93. menubar append %hPopMenu%      0 "tmCut"      "切り取り(&T)    Ctrl+X"
  94. menubar append %hPopMenu%      0 "tmCopy"     "コピー(&C)    Ctrl+C"
  95. menubar append %hPopMenu%      0 "tmPaste"    "貼り付け(&P)    Ctrl+V"
  96. menubar append %hPopMenu%      0 "tmDelete"   "削除(&L)"
  97.  
  98. menubar append %hPopMenu% 0x0800 -1         0
  99. menubar append %hPopMenu%      0 "tmFind"    "文字列の検索(&F)...    Ctrl+F"
  100. menubar append %hPopMenu%      0 "tmNext"    "次を検索(&N)    Ctrl+N"
  101. menubar append %hPopMenu%      0 "tmPrev"    "前を検索    Ctrl+P"
  102. menubar append %hPopMenu%      0 "tmReplace" "文字列の置換(&R)...    Ctrl+R"
  103. menubar append %hPopMenu%      0 "tmGrep"    "Grep(&G)..."
  104.  
  105. menubar append %hPopMenu% 0x0800 -1          0
  106. menubar append %hPopMenu%      0 "tmJump"    "指定行(&J)...    Ctrl+J"
  107. menubar append %hPopMenu%      0 "tmTop"     "文頭(&T)    Ctrl+Q;R"
  108. menubar append %hPopMenu%      0 "tmBottom"  "文末(&B)    Ctrl+Q;C"
  109.  
  110. menubar createpopup -&eax
  111. let hPop2Menu=%eax%
  112.  
  113. menubar append %hPopMenu% 0x0800 -1          0
  114. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "マクロ(&M)"
  115. menubar append %hPop2Menu%      0 "tmKeyMacS" "キーマクロ開始(&S)    Shift+F1"
  116. menubar append %hPop2Menu%      0 "tmKeyMacE" "キーマクロ終了(&E)    Shift+F1"
  117. menubar append %hPop2Menu%      0 "tmKeyMacP" "キーマクロ再生(&P)    Shift+F2"
  118. menubar append %hPop2Menu%      0 "tmKeyMacC" "キーマクロ消去(&C)"
  119.  
  120. if (0) then
  121. menubar createpopup -&eax
  122. let hPopMenu=%eax%
  123.  
  124. menubar append %hMenu%    0x0010 %hPopMenu%   "HTML(&T)"
  125.  
  126. menubar createpopup -&eax
  127. let hPop2Menu=%eax%
  128.  
  129. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "書式タグ"
  130. menubar append %hPop2Menu% 0 "tmHtmlHEAD"  "前文<HAED>"
  131. menubar append %hPop2Menu% 0 "tmHtmlTITLE" "タイトル<TITLE>"
  132. menubar append %hPop2Menu% 0 "tmHtmlBODY"  "本文<BODY>..."
  133. menubar append %hPop2Menu% 0 "tmHtmlREM"   "コメント<!>"
  134.  
  135. menubar createpopup -&eax
  136. let hPop2Menu=%eax%
  137.  
  138. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "見出しタグ"
  139. menubar append %hPop2Menu% 0 "tmHtmlH1"  "<H1>"
  140. menubar append %hPop2Menu% 0 "tmHtmlH2"  "<H2>"
  141. menubar append %hPop2Menu% 0 "tmHtmlH3"  "<H3>"
  142. menubar append %hPop2Menu% 0 "tmHtmlH4"  "<H4>"
  143. menubar append %hPop2Menu% 0 "tmHtmlH5"  "<H5>"
  144. menubar append %hPop2Menu% 0 "tmHtmlH6"  "<H6>"
  145.  
  146. menubar append %hPopMenu% 0 "tmHtmlHR" "罫線タグ(HR)..."
  147.  
  148. menubar createpopup -&eax
  149. let hPop2Menu=%eax%
  150.  
  151. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "参照タグ"
  152. menubar append %hPop2Menu% 0 "tmHtmlA"    "アンカー<A>..."
  153. menubar append %hPop2Menu% 0 "tmHtmlIMG"  "イメージ<IMG>..."
  154. menubar append %hPop2Menu% 0 "tmHtmlBASE" "ベース<BASE>..."
  155.  
  156. menubar createpopup -&eax
  157. let hPop2Menu=%eax%
  158.  
  159. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "リストタグ"
  160. menubar append %hPop2Menu% 0 "tmHtmlUL"   "番号なしリスト<UL>"
  161. menubar append %hPop2Menu% 0 "tmHtmlOL"   "番号ありリスト<OL>"
  162. menubar append %hPop2Menu% 0 "tmHtmlDIR"  "ディレクトリリスト<DIR>"
  163. menubar append %hPop2Menu% 0 "tmHtmlMENU" "メニューリスト<MENU>"
  164. menubar append %hPop2Menu% 0 "tmHtmlLI"   "リスト項目<LI>..."
  165.  
  166. menubar createpopup -&eax
  167. let hPop2Menu=%eax%
  168.  
  169. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "定義リストタグ"
  170. menubar append %hPop2Menu% 0 "tmHtmlDL" "定義リスト<DL>"
  171. menubar append %hPop2Menu% 0 "tmHtmlDD" "定義項目<DD>"
  172. menubar append %hPop2Menu% 0 "tmHtmlDT" "定義説明<DT>"
  173.  
  174. menubar createpopup -&eax
  175. let hPop2Menu=%eax%
  176.  
  177. menubar append %hPopMenu%    0x0010 %hPop2Menu% "文字揃えタグ"
  178. menubar append %hPop2Menu% 0 "tmHtmlBR"         "改行<BR>..."
  179. menubar append %hPop2Menu% 0 "tmHtmlP"          "段落<P>"
  180. menubar append %hPop2Menu% 0 "tmHtmlCENTER"     "中央揃え<CENTER>"
  181. menubar append %hPop2Menu% 0 "tmHtmlBLOCKQUOTE" "引用文<BLOCKQUOTE>"
  182. menubar append %hPop2Menu% 0 "tmHtmlNOBR"       "改行せず<NOBR>"
  183. menubar append %hPop2Menu% 0 "tmHtmlWBR"        "改行位置<WBR>"
  184.  
  185. menubar createpopup -&eax
  186. let hPop2Menu=%eax%
  187.  
  188. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "フォントタグ"
  189. menubar append %hPop2Menu% 0 "tmHtmlFONT"      "文字の大きさ<FONT>..."
  190. menubar append %hPop2Menu% 0 "tmHtmlBASEFONT"  "デフォルト<BASEFONT>..."
  191. menubar append %hPop2Menu% 0 "tmHtmlADDRESS"   "アドレス<ADDRESS>"
  192. menubar append %hPop2Menu% 0 "tmHtmlB"         "ボールド<B>"
  193. menubar append %hPop2Menu% 0 "tmHtmlCITE"      "サイト<CITE>"
  194. menubar append %hPop2Menu% 0 "tmHtmlCODE"      "コード<CODE>"
  195. menubar append %hPop2Menu% 0 "tmHtmlDFN"       "定義<DFN>"
  196. menubar append %hPop2Menu% 0 "tmHtmlEM"        "強調<EM>"
  197. menubar append %hPop2Menu% 0 "tmHtmlHV"        "ヘルベチカ<HV>"
  198. menubar append %hPop2Menu% 0 "tmHtmlI"         "イタリック<I>"
  199. menubar append %hPop2Menu% 0 "tmHtmlKBD"       "キーボード<KBD>"
  200. menubar append %hPop2Menu% 0 "tmHtmlPRE"       "プリフォーマット<PRE>"
  201. menubar append %hPop2Menu% 0 "tmHtmlSAMP"      "サンプル<SAMP>"
  202. menubar append %hPop2Menu% 0 "tmHtmlSTRONG"    "強調<STRONG>"
  203. menubar append %hPop2Menu% 0 "tmHtmlSUB"       "下付き文字<SUB>"
  204. menubar append %hPop2Menu% 0 "tmHtmlSUP"       "上付き文字<SUP>"
  205. #menubar append %hPop2Menu% 0 "tmHtmlTR"        "タイムズローマン<TR>"
  206. menubar append %hPop2Menu% 0 "tmHtmlTT"        "タイプライター<TT>"
  207. menubar append %hPop2Menu% 0 "tmHtmlVAR"       "入力(VAR)"
  208.  
  209. menubar createpopup -&eax
  210. let hPop2Menu=%eax%
  211.  
  212. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "表組みタグ"
  213. menubar append %hPop2Menu% 0 "tmHtmlCAPTION" "キャプション<CAPTION>..."
  214. menubar append %hPop2Menu% 0 "tmHtmlTABLE"   "テーブル<TABLE>..."
  215. menubar append %hPop2Menu% 0 "tmHtmlTR"      "列<TR>..."
  216. menubar append %hPop2Menu% 0 "tmHtmlTH"      "項目<TH>..."
  217. menubar append %hPop2Menu% 0 "tmHtmlTD"      "データ<TD>..."
  218.  
  219. menubar createpopup -&eax
  220. let hPop2Menu=%eax%
  221.  
  222. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "入力タグ"
  223. menubar append %hPop2Menu% 0 "tmHtmlFORM"     "フォーム<FORM>..."
  224. menubar append %hPop2Menu% 0 "tmHtmlINPUT"    "インプット<INPUT>..."
  225. menubar append %hPop2Menu% 0 "tmHtmlSELECT"   "選択<SELECT>..."
  226. menubar append %hPop2Menu% 0 "tmHtmlOPTION"   "選択項目<OPTION>"
  227. menubar append %hPop2Menu% 0 "tmHtmlTEXTAREA" "テキストエリア<TEXTAREA>"
  228.  
  229. menubar append %hPopMenu% 0 "tmHtmlMETA" "メタタグ<META>..."
  230.  
  231. menubar createpopup -&eax
  232. let hPop2Menu=%eax%
  233.  
  234. menubar append %hPopMenu%    0x0010 %hPop2Menu%   "特殊文字"
  235. menubar append %hPop2Menu% 0 "tmHtmlANP 0" "大なり(＞)"
  236. menubar append %hPop2Menu% 0 "tmHtmlANP 1" "小なり(＜)"
  237. menubar append %hPop2Menu% 0 "tmHtmlANP 2" "アンド(＆)"
  238. menubar append %hPop2Menu% 0 "tmHtmlANP 3" "引用符(”)"
  239. menubar append %hPop2Menu% 0 "tmHtmlANP 4" "スペース( )"
  240. endif
  241.  
  242. if (0) then
  243. menubar createpopup -&eax
  244. let hPopMenu=%eax%
  245.  
  246. menubar append %hMenu%    0x0010 %hPopMenu%   "多言語(&M)"
  247. menubar append %hPopMenu%      0 "tmMulti C"  "中国語"
  248. menubar append %hPopMenu%      0 "tmMulti K"  "韓国語"
  249. menubar append %hPopMenu%      0 "tmMulti J"  "日本語"
  250. menubar append %hPopMenu%      0 "tmMulti T"  "台湾"
  251. menubar append %hPopMenu% 0x0800 -1         0
  252. menubar append %hPopMenu%      0 "tmMulti En"  "英文"
  253. menubar append %hPopMenu%      0 "tmMulti De"  "独文"
  254. menubar append %hPopMenu%      0 "tmMulti Fr"  "仏文"
  255. menubar append %hPopMenu%      0 "tmMulti It"  "伊文"
  256. menubar append %hPopMenu%      0 "tmMulti G"  "ギリシャ"
  257. menubar append %hPopMenu%      0 "tmMulti Tu"  "トルコ"
  258. menubar append %hPopMenu%      0 "tmMulti B"  "バルト"
  259. menubar append %hPopMenu%      0 "tmMulti E"  "東欧"
  260. menubar append %hPopMenu%      0 "tmMulti R"  "キリル"
  261. menubar append %hPopMenu% 0x0800 -1         0
  262. menubar append %hPopMenu%      0 "tmMulti 7"  "7bit入力"
  263. menubar append %hPopMenu% 0x0800 -1         0
  264. menubar append %hPopMenu%      0 "tmDBCS"     "DBCS"
  265. menubar append %hPopMenu%      0 "tmUnicode"  "Unicode"
  266. menubar append %hPopMenu%      0 "tmESCColon" "ESC:"
  267. endif
  268.  
  269. menubar createpopup -&eax
  270. let hPopMenu=%eax%
  271.  
  272. menubar append %hMenu%    0x0010 %hPopMenu%   "オプション(&O)"
  273. menubar append %hPopMenu%      0 "tmStartUp"  "起動時の設定(&U)..."
  274. menubar append %hPopMenu%      0 "tmDisp"     "表示の設定(&D)..."
  275. menubar append %hPopMenu%      0 "tmCode"     "文字コードの設定(&O)..."
  276. menubar append %hPopMenu%      0 "tmCodeSet"  "国情報の編集(&I)..."
  277. menubar append %hPopMenu%      0 "tmFont"     "フォントの設定(&F)..."
  278.  
  279. menubar createpopup -&eax
  280. let hPop2Menu=%eax%
  281.  
  282. menubar append %hPopMenu%  0x0010 %hPop2Menu%  "色の設定(&C)"
  283. menubar append %hPop2Menu%      0 "tmBgColor"  "背景(&B)..."
  284. menubar append %hPop2Menu%      0 "tmCtlColor" "制御文字(&C)..."
  285. menubar append %hPop2Menu%      0 "tmTabColor" "タブ文字(&T)..."
  286. menubar append %hPop2Menu%      0 "tmNumColor" "行番号(&N)..."
  287.  
  288. menubar append %hPopMenu% 0x0800 -1         0
  289. menubar append %hPopMenu%      0 "tmSaveSet" "設定の保存(&S)..."
  290.  
  291. menubar append %hPopMenu% 0x0800 -1        0
  292. menubar append %hPopMenu%      0 "tmMode   4" "ツールバー標示/非表示"
  293. menubar append %hPopMenu%      0 "tmMode   5" "ファンクションキー標示/非表示"
  294. menubar append %hPopMenu% 0x0800 -1        0
  295. menubar append %hPopMenu%      0 "tmMode   0" "編集許可/禁止"
  296. menubar append %hPopMenu%      0 "tmMode   1" "インデント付加/なし"
  297. menubar append %hPopMenu%      0 "tmMode   2" "行番号付加/なし"
  298. menubar append %hPopMenu%      0 "tmMode   3" "ルーラー付加/なし"
  299. menubar append %hPopMenu%      0 "tmMode 101" "水平スクロールバー表示/非表示"
  300. menubar append %hPopMenu%      0 "tmMode 102" "垂直スクロールバー表示/非表示"
  301.  
  302. if (0) then
  303. menubar append %hPopMenu% 0x0800 -1         0
  304.  
  305. menubar createpopup -&eax
  306. let hPop2Menu=%eax%
  307.  
  308. menubar append %hPopMenu%    0x0010 %hPop2Menu%          "アプリ(&A)"
  309. menubar append %hPop2Menu% 0 "tmApp 0" "プログラムマネージャ(&P)"
  310. menubar append %hPop2Menu% 0 "tmApp 1" "ファイルマネージャ(&F)"
  311. menubar append %hPop2Menu% 0 "tmApp 2" "コマンドマネージャ(&M)"
  312. menubar append %hPop2Menu% 0 "tmApp 3" "コントロールパネル(&C)"
  313. menubar append %hPop2Menu% 0 "tmApp 4" "エクスプローラー(&E)"
  314. menubar append %hPop2Menu% 0x0800 -1          0
  315. menubar append %hPop2Menu% 0 "toolman.cws -@:tmApp 5" "マインスイーバー"
  316. menubar append %hPop2Menu% 0 "toolman.cws -@:tmApp 6" "ソリティア"
  317. menubar append %hPop2Menu% 0 "toolman.cws -@:tmApp 7" "フリーセル"
  318. menubar append %hPop2Menu% 0x0800 -1          0
  319. menubar append %hPop2Menu% 0 "tmApp 8"  "ログオフ(&O)"
  320. menubar append %hPop2Menu% 0 "tmApp 9"  "シャットダウン(&D)"
  321. menubar append %hPop2Menu% 0 "tmApp 10" "再起動(&B)"
  322. endif
  323.  
  324. window mdi -&isMDI
  325. if "%isMDI%" == "1" then
  326.     menubar createpopup -&eax
  327.     let hPopMenu=%eax%
  328.  
  329.     menubar append %hMenu%    0x0010 %hPopMenu%   "ウィンドウ(&W)"
  330.     menubar append %hPopMenu%      0 "tmWindow 0" "重ねて表示(&C)"
  331.     menubar append %hPopMenu%      0 "tmWindow 1" "上下にならべて表示(&H)"
  332.     menubar append %hPopMenu%      0 "tmWindow 2" "左右にならべて表示(&T)"
  333.     menubar append %hPopMenu%      0 "tmWindow 3" "アイコンの整列(&A)"
  334.     menubar append %hPopMenu% 0x0800 -1           0
  335.     menubar append %hPopMenu%      0 "tmWindow 4" "ファイル一覧(&L)..."
  336. endif
  337. set isMDI=
  338.  
  339. menubar createpopup -&eax
  340. let hPopMenu=%eax%
  341.  
  342. menubar append %hMenu%    0x0010 %hPopMenu%  "ヘルプ(&H)"
  343. menubar append %hPopMenu%      0 "tmContent" "目次(&C)"
  344. menubar append %hPopMenu% 0x0800 -1          0
  345. menubar append %hPopMenu%      0 "tmAbout"   "バージョン情報(&A)..."
  346. menubar append %hPopMenu%      0 "tmRegist"  "ユーザー登録(&R)..."
  347.  
  348. menubar set %hwndMain% %hMenu%
  349. menubar draw %hwndMain%
  350.  
  351. if (0) then
  352. #----------------------------#
  353. # ポップアップメニューの登録 #
  354. #----------------------------#
  355.  
  356. menubar createpopup -&eax
  357. let hPopMenu=%eax%
  358.  
  359. menubar append %hPopMenu%      0 "tmCut"      "切り取り(&T)    Ctrl+X"
  360. menubar append %hPopMenu%      0 "tmCopy"     "コピー(&C)    Ctrl+C"
  361. menubar append %hPopMenu%      0 "tmPaste"    "貼り付け(&P)    Ctrl+V"
  362. menubar append %hPopMenu%      0 "tmDelete"   "削除(&L)"
  363.  
  364. menubar setpopup %hwndMain% %hPopMenu%
  365.  
  366. #------------------#
  367. # ツールバーの登録 #
  368. #------------------#
  369.  
  370. toolbar create -&eax
  371. let hTBar=%eax%
  372.  
  373. toolbar append %hTBar%      0 "tmNew"     "新規"            0
  374. toolbar append %hTBar%      0 "tmOpen"    "開く"            1
  375. toolbar append %hTBar%      0 "tmSave"    "保存"            2
  376. toolbar append %hTbar% 0x0800 0            0     -1
  377. toolbar append %hTBar%      0 "tmCut"      "カット"          3
  378. toolbar append %hTBar%      0 "tmCopy"     "コピー"          4
  379. toolbar append %hTBar%      0 "tmPaste"    "ペースト"        5
  380. toolbar append %hTbar% 0x0800 0            0     -1
  381. toolbar append %hTBar%      0 "tmPrint"    "印刷"            6
  382. toolbar append %hTbar% 0x0800 0            0     -1
  383. toolbar append %hTBar%      0 "tmDBCS"     "DBCS"            8
  384. toolbar append %hTBar%      0 "tmUnicode"  "Unicode"         9
  385. toolbar append %hTBar%      0 "tmESCColon" "ESC:"           10
  386. toolbar append %hTbar% 0x0800 0            0     -1
  387. toolbar append %hTBar%      0 "tmAbout"    "バージョン情報"  7
  388. endif
  389.  
  390. #--------------------------#
  391. # ファンクションキーの登録 #
  392. #--------------------------#
  393.  
  394. functionkey create -&eax
  395. let hFKey=%eax%
  396.  
  397. functionkey append %hFKey% 0x00 0x70 "tmContent"  "ヘルプ"
  398. functionkey append %hFKey% 0x04 0x70 "tmKeyMacR"  "記憶"
  399. functionkey append %hFKey% 0x04 0x71 "tmKeyMacP"  "再生"
  400. functionkey append %hFKey% 0x00 0x72 "tmJump"     "ジャンプ"
  401. functionkey append %hFKey% 0x04 0x72 "tmFind"     "検索"
  402. functionkey append %hFKey% 0x00 0x73 "tmChange"   "切替"
  403. functionkey append %hFKey% 0x00 0x74 "tmNext"     "検索↓"
  404. functionkey append %hFKey% 0x04 0x74 "tmPrev"     "検索↑"
  405. functionkey append %hFKey% 0x00 0x75 "tmSelect"   "選択"
  406. functionkey append %hFKey% 0x00 0x76 "tmCut"      "カット"
  407. functionkey append %hFKey% 0x00 0x77 "tmCopy"     "コピー"
  408. functionkey append %hFKey% 0x00 0x78 "tmPaste"    "ペースト"
  409.  
  410. #----------------------------#
  411. # アクセラレーターキーの登録 #
  412. #----------------------------#
  413. accelkey create -&eax
  414. let hAccel=%eax%
  415.  
  416. let @ flags = 0x09 ; let @ key = Q:0
  417. accelkey append %hAccel% %flags% "tmStroke" %key%
  418.  
  419. let @ flags = 0x09 ; let @ key = H:0
  420. accelkey append %hAccel% %flags% "tmBack" %key%
  421.  
  422. let @ flags = 0x09 ; let @ key = Z:0
  423. accelkey append %hAccel% %flags% "tmUndo" %key%
  424.  
  425. let @ flags = 0x09 ; let @ key = X:0
  426. accelkey append %hAccel% %flags% "tmCut" %key%
  427.  
  428. let @ flags = 0x09 ; let @ key = C:0
  429. accelkey append %hAccel% %flags% "tmCopy" %key%
  430.  
  431. let @ flags = 0x09 ; let @ key = V:0
  432. accelkey append %hAccel% %flags% "tmPaste" %key%
  433.  
  434. let @ flags = 0x09 ; let @ key = F:0
  435. accelkey append %hAccel% %flags% "tmFind" %key%
  436.  
  437. let @ flags = 0x09 ; let @ key = N:0
  438. accelkey append %hAccel% %flags% "tmNext" %key%
  439.  
  440. let @ flags = 0x09 ; let @ key = P:0
  441. accelkey append %hAccel% %flags% "tmPrev" %key%
  442.  
  443. let @ flags = 0x09 ; let @ key = J:0
  444. accelkey append %hAccel% %flags% "tmJump" %key%
  445.  
  446. let @ flags = 0x09 ; let @ key = R:0
  447. accelkey append %hAccel% %flags% "tmReplace" %key%
  448.  
  449. let @ flags = 0x00 ; let @ key = 0x1B # VK_ESCAPE
  450. accelkey append %hAccel% %flags% "tmChange" %key%
  451.  
  452. let @ flags = 0x09 ; let @ key = 0x26 # VK_UP
  453. accelkey append %hAccel% %flags% "tmConSizeUp" %key%
  454.  
  455. let @ flags = 0x09 ; let @ key = 0x28 # VK_DOWN
  456. accelkey append %hAccel% %flags% "tmConSizeDown" %key%
  457.  
  458. let @ flags = 0x09 ; let @ key = B:0
  459. accelkey append %hAccel% %flags% "tmWordPrev" %key%
  460.  
  461. let @ flags = 0x09 ; let @ key = W:0
  462. accelkey append %hAccel% %flags% "tmWordNext" %key%
  463.  
  464. let @ flags = 0x0D ; let @ key = H:0
  465. accelkey append %hAccel% %flags% "tmLeft" %key%
  466.  
  467. let @ flags = 0x0D ; let @ key = J:0
  468. accelkey append %hAccel% %flags% "tmDown" %key%
  469.  
  470. let @ flags = 0x0D ; let @ key = K:0
  471. accelkey append %hAccel% %flags% "tmUp" %key%
  472.  
  473. let @ flags = 0x0D ; let @ key = L:0
  474. accelkey append %hAccel% %flags% "tmRight" %key%
  475.  
  476. let @ flags = 0x01 ; let @ key = 0x2D # VK_INSERT
  477. accelkey append %hAccel% %flags% "tmMode 201" %key%
  478.  
  479. accelkey set %hwndMain% %hAccel%
  480.  
  481. #------------------------#
  482. # ２ストロークキーの登録 #
  483. #------------------------#
  484. strokekey create -&eax
  485. let hStroke=%eax%
  486.  
  487. let @ flags = 0x01 ; let @ key = R:0
  488. strokekey append %hStroke% %flags% "tmTop" %key%
  489.  
  490. let @ flags = 0x01 ; let @ key = C:0
  491. strokekey append %hStroke% %flags% "tmBottom" %key%
  492.  
  493. strokekey set %hwndMain% %hStroke%
  494.  
  495. #------------#
  496. # メッセージ #
  497. #------------#
  498. echo ^#**************************************************************^#
  499. echo ^# ToolMan Editor Ver 1.80 Copyright (c) 1995-97 M.Maedera(JPN) ^#
  500. echo ^# If you have any question, please input "help[enter]."        ^#
  501. echo ^#**************************************************************^#
  502. return
  503. #======================================================================
  504. #--------------#
  505. # プロシジャー #
  506. #--------------#
  507. #----------------------------------------------------------------------
  508. proc tmAbout
  509. window about
  510. return
  511. #----------------------------------------------------------------------
  512. proc tmRegist
  513. window regist
  514. return
  515. #----------------------------------------------------------------------
  516. proc tmOpen
  517. edit open
  518. return
  519. #----------------------------------------------------------------------
  520. proc tmClose
  521. edit close #;edit open
  522. return
  523. #----------------------------------------------------------------------
  524. proc tmSave
  525. edit save
  526. return
  527. #----------------------------------------------------------------------
  528. proc tmJump
  529. edit -f jump
  530. return
  531. #----------------------------------------------------------------------
  532. proc tmFind
  533. edit -f find
  534. return
  535. #----------------------------------------------------------------------
  536. proc tmNext
  537. edit -f find right
  538. return
  539. #----------------------------------------------------------------------
  540. proc tmPrev
  541. edit -f find left
  542. return
  543. #----------------------------------------------------------------------
  544. proc tmCut
  545. edit -f select cut
  546. return
  547. #----------------------------------------------------------------------
  548. proc tmCopy
  549. edit -f select copy
  550. return
  551. #----------------------------------------------------------------------
  552. proc tmPaste
  553. edit -f select paste
  554. return
  555. #----------------------------------------------------------------------
  556. proc tmDelete
  557. edit -f select delete
  558. return
  559. #----------------------------------------------------------------------
  560. proc tmFont
  561. mode edit -f font
  562. return
  563. #----------------------------------------------------------------------
  564. proc tmDisp
  565. mode edit -f disp
  566. return
  567. #----------------------------------------------------------------------
  568. proc tmCode
  569. mode edit code
  570. return
  571. #----------------------------------------------------------------------
  572. proc tmCtlColor
  573. mode edit -f color -ctl
  574. return
  575. #----------------------------------------------------------------------
  576. proc tmTabColor
  577. mode edit -f color -tab
  578. return
  579. #----------------------------------------------------------------------
  580. proc tmBgColor
  581. mode edit -f color -bg
  582. return
  583. #----------------------------------------------------------------------
  584. proc tmNumColor
  585. mode edit -f color -ln
  586. return
  587. #----------------------------------------------------------------------
  588. proc tmNew
  589. edit new
  590. return
  591. #----------------------------------------------------------------------
  592. proc tmSaveAs
  593. edit saveas
  594. return
  595. #----------------------------------------------------------------------
  596. proc tmExit
  597. exit
  598. return
  599. #----------------------------------------------------------------------
  600. proc tmApp
  601.  
  602. switch (%1)
  603.   case 0 :
  604.     progman
  605.     breaksw
  606.   case 1 :
  607.     winfile
  608.     breaksw
  609.   case 2 :
  610.     comwpad
  611.     breaksw
  612.   case 3 :
  613.     control
  614.     breaksw
  615.   case 4 :
  616.     explorer
  617.     breaksw
  618.   case 5 :
  619.     winmine
  620.     breaksw
  621.   case 6 :
  622.     sol
  623.     breaksw
  624.   case 7 :
  625.     freecell
  626.     breaksw
  627.   case 8 :
  628.     logoff
  629.     breaksw
  630.   case 9 :
  631.     shutdown
  632.     breaksw
  633.   case 10 :
  634.     reboot
  635.     breaksw
  636. endsw
  637.  
  638. return
  639. #----------------------------------------------------------------------
  640. proc tmContent
  641. window help
  642. return
  643. #----------------------------------------------------------------------
  644. proc tmSaveSet
  645. mode save
  646. return
  647. #----------------------------------------------------------------------
  648. proc tmReplace
  649. edit -f replace
  650. return
  651. #----------------------------------------------------------------------
  652. proc tmConSizeUp
  653. console size +16
  654. return
  655. #----------------------------------------------------------------------
  656. proc tmConSizeDown
  657. console size -16
  658. return
  659. #----------------------------------------------------------------------
  660. proc tmMode
  661.  
  662. edit    mode view      -&tm.edt.view
  663. edit    mode indent    -&tm.edt.indent
  664. edit    mode overwrite -&tm.edt.ow
  665. edit -f mode line      -&tm.edt.line
  666. edit -f mode ruler     -&tm.edt.ruler
  667. edit -f scrollbar horz -&tm.edt.hsb
  668. edit -f scrollbar vert -&tm.edt.vsb
  669.  
  670. switch (%1)
  671.   case 0 :
  672.     if "%tm.edt.view%" == "1" then
  673.       set tm.edt.view=0
  674.       edit mode edit
  675.     else
  676.       set tm.edt.view=1
  677.       edit mode view
  678.     endif
  679.     breaksw
  680.   case 1 :
  681.     if "%tm.edt.indent%" == "1" then
  682.       set tm.edt.indent=0
  683.       edit mode noindent
  684.     else
  685.       set tm.edt.indent=1
  686.       edit mode indent
  687.     endif
  688.     breaksw
  689.   case 2 :
  690.     if "%tm.edt.line%" == "1" then
  691.       set tm.edt.line=0
  692.       edit -f mode noline
  693.     else
  694.       set tm.edt.line=1
  695.       edit -f mode line
  696.     endif
  697.     breaksw
  698.   case 3 :
  699.     if "%tm.edt.ruler%" == "1" then
  700.       set tm.edt.ruler=0
  701.       edit -f mode noruler
  702.     else
  703.       set tm.edt.ruler=1
  704.       edit -f mode ruler
  705.     endif
  706.     breaksw
  707.   case 4 :
  708.     if "%tm.win.tbar%" == "1" then
  709.       set tm.win.tbar=0
  710.       toolbar hide
  711.     else
  712.       set tm.win.tbar=1
  713.       toolbar show
  714.     endif
  715.     breaksw
  716.   case 5 :
  717.     if "%tm.win.fkey%" == "1" then
  718.       set tm.win.fkey=0
  719.       functionkey hide
  720.     else
  721.       set tm.win.fkey=1
  722.       functionkey show
  723.     endif
  724.     breaksw
  725.   case 101 :
  726.     if "%tm.edt.hsb%" == "0" then
  727.       set tm.edt.hsb=1
  728.       edit -f scrollbar horz show
  729.     else
  730.       set tm.edt.hsb=0
  731.       edit -f scrollbar horz hide
  732.     endif
  733.     breaksw
  734.   case 102 :
  735.     if "%tm.edt.vsb%" == "0" then
  736.       set tm.edt.vsb=1
  737.       edit -f scrollbar vert show
  738.     else
  739.       set tm.edt.vsb=0
  740.       edit -f scrollbar vert hide
  741.     endif
  742.     breaksw
  743.   case 201 :
  744.     if "%tm.edt.ow%" == "1" then
  745.       set tm.edt.ow=0
  746.       edit mode insert
  747.     else
  748.       set tm.edt.ow=1
  749.       edit mode overwrite
  750.     endif
  751.     breaksw
  752. endsw
  753.  
  754. return
  755. #----------------------------------------------------------------------
  756. proc tmSelect
  757.  
  758. window get console -&eax
  759. window get focus   -&ebx
  760.  
  761. if (%eax% == %ebx%) then
  762.   if "%tm.con.sel%" == "1" then
  763.     set tm.con.sel=0
  764.     console select end
  765.   else
  766.     set tm.con.sel=1
  767.     console select start
  768.   endif
  769. else
  770.   if "%tm.edt.sel%" == "1" then
  771.     set tm.edt.sel=0
  772.     edit select end
  773.   else
  774.     set tm.edt.sel=1
  775.     edit select start
  776.   endif
  777. endif
  778. return
  779. #----------------------------------------------------------------------
  780. proc tmExtDll
  781. comwin CommandDll
  782. return
  783. #----------------------------------------------------------------------
  784. proc tmChange
  785. window get focus   -&eax
  786. window get console -&ebx
  787. window get edit    -&ecx
  788.  
  789. if %eax% == %ebx% then
  790.     window set focus %ecx%
  791. else
  792.     window set focus %ebx%
  793. endif
  794. return
  795. #----------------------------------------------------------------------
  796. proc tmUp
  797. edit -f cursor up
  798. return
  799. #----------------------------------------------------------------------
  800. proc tmDown
  801. edit -f cursor down
  802. return
  803. #----------------------------------------------------------------------
  804. proc tmLeft
  805. edit -f cursor left
  806. return
  807. #----------------------------------------------------------------------
  808. proc tmRight
  809. edit -f cursor right
  810. return
  811. #----------------------------------------------------------------------
  812. proc tmTop
  813. edit -f cursor set 1 1
  814. return
  815. #----------------------------------------------------------------------
  816. proc tmBottom
  817. edit -f cursor set 1 0
  818. return
  819. #----------------------------------------------------------------------
  820. proc tmWordPrev
  821. edit -f cursor left word
  822. return
  823. #----------------------------------------------------------------------
  824. proc tmWordNext
  825. edit -f cursor right word
  826. return
  827. #----------------------------------------------------------------------
  828. proc tmStroke
  829. strokekey start
  830. return
  831. #----------------------------------------------------------------------
  832. proc tmKeyMacS
  833. edit record start
  834. return
  835. #----------------------------------------------------------------------
  836. proc tmKeyMacE
  837. edit record end
  838. return
  839. #----------------------------------------------------------------------
  840. proc tmKeyMacP
  841. edit record play
  842. return
  843. #----------------------------------------------------------------------
  844. proc tmKeyMacC
  845. edit record clear
  846. return
  847. #----------------------------------------------------------------------
  848. proc tmKeyMacR
  849. if "%tm.edt.rec%" == "1" then
  850.   set tm.edt.rec=0
  851.   edit record end
  852. else
  853.   set tm.edt.rec=1
  854.   edit record start
  855. endif
  856. return
  857. #----------------------------------------------------------------------
  858. proc tmBack
  859. edit -f backspace
  860. return
  861. #----------------------------------------------------------------------
  862. proc tmUndo
  863. edit -f undo
  864. return
  865. #----------------------------------------------------------------------
  866. proc tmHtmlA
  867. html A
  868. return
  869. #----------------------------------------------------------------------
  870. proc tmHtmlADDRESS
  871. html ADDRESS
  872. return
  873. #----------------------------------------------------------------------
  874. proc tmHtmlB
  875. html B
  876. return
  877. #----------------------------------------------------------------------
  878. proc tmHtmlBASE
  879. html BASE
  880. return
  881. #----------------------------------------------------------------------
  882. proc tmHtmlBASEFONT
  883. html BASEFONT
  884. return
  885. #----------------------------------------------------------------------
  886. proc tmHtmlBLINK
  887. html BLINK
  888. return
  889. #----------------------------------------------------------------------
  890. proc tmHtmlBLOCKQUOTE
  891. html BLOCKQUOTE
  892. return
  893. #----------------------------------------------------------------------
  894. proc tmHtmlBODY
  895. html BODY
  896. return
  897. #----------------------------------------------------------------------
  898. proc tmHtmlBR
  899. html BR
  900. return
  901. #----------------------------------------------------------------------
  902. proc tmHtmlCAPTION
  903. html CAPTION
  904. return
  905. #----------------------------------------------------------------------
  906. proc tmHtmlCENTER
  907. html CENTER
  908. return
  909. #----------------------------------------------------------------------
  910. proc tmHtmlCITE
  911. html CITE
  912. return
  913. #----------------------------------------------------------------------
  914. proc tmHtmlCODE
  915. html CODE
  916. return
  917. #----------------------------------------------------------------------
  918. proc tmHtmlDD
  919. html DD
  920. return
  921. #----------------------------------------------------------------------
  922. proc tmHtmlDFN
  923. html DFN
  924. return
  925. #----------------------------------------------------------------------
  926. proc tmHtmlDIR
  927. html DIR
  928. return
  929. #----------------------------------------------------------------------
  930. proc tmHtmlDL
  931. html DL
  932. return
  933. #----------------------------------------------------------------------
  934. proc tmHtmlDT
  935. html DT
  936. return
  937. #----------------------------------------------------------------------
  938. proc tmHtmlEM
  939. html EM
  940. return
  941. #----------------------------------------------------------------------
  942. proc tmHtmlFONT
  943. html FONT
  944. return
  945. #----------------------------------------------------------------------
  946. proc tmHtmlFORM
  947. html FORM
  948. return
  949. #----------------------------------------------------------------------
  950. proc tmHtmlHEAD
  951. html HEAD
  952. return
  953. #----------------------------------------------------------------------
  954. proc tmHtmlH1
  955. html H1
  956. return
  957. #----------------------------------------------------------------------
  958. proc tmHtmlH2
  959. html H2
  960. return
  961. #----------------------------------------------------------------------
  962. proc tmHtmlH3
  963. html H3
  964. return
  965. #----------------------------------------------------------------------
  966. proc tmHtmlH4
  967. html H4
  968. return
  969. #----------------------------------------------------------------------
  970. proc tmHtmlH5
  971. html H6
  972. return
  973. #----------------------------------------------------------------------
  974. proc tmHtmlH6
  975. html H6
  976. return
  977. #----------------------------------------------------------------------
  978. proc tmHtmlHR
  979. html HR
  980. return
  981. #----------------------------------------------------------------------
  982. proc tmHtmlHV
  983. html HV
  984. return
  985. #----------------------------------------------------------------------
  986. proc tmHtmlI
  987. html I
  988. return
  989. #----------------------------------------------------------------------
  990. proc tmHtmlIMG
  991. html IMG
  992. return
  993. #----------------------------------------------------------------------
  994. proc tmHtmlINPUT
  995. html INPUT
  996. return
  997. #----------------------------------------------------------------------
  998. proc tmHtmlKBD
  999. html KBD
  1000. return
  1001. #----------------------------------------------------------------------
  1002. proc tmHtmlLI
  1003. html LI
  1004. return
  1005. #----------------------------------------------------------------------
  1006. proc tmHtmlMENU
  1007. html MENU
  1008. return
  1009. #----------------------------------------------------------------------
  1010. proc tmHtmlMETA
  1011. html META
  1012. return
  1013. #----------------------------------------------------------------------
  1014. proc tmHtmlNOBR
  1015. html NOBR
  1016. return
  1017. #----------------------------------------------------------------------
  1018. proc tmHtmlOL
  1019. html OL
  1020. return
  1021. #----------------------------------------------------------------------
  1022. proc tmHtmlOPTION
  1023. html OPTION
  1024. return
  1025. #----------------------------------------------------------------------
  1026. proc tmHtmlP
  1027. html P
  1028. return
  1029. #----------------------------------------------------------------------
  1030. proc tmHtmlPRE
  1031. html PRE
  1032. return
  1033. #----------------------------------------------------------------------
  1034. proc tmHtmlSAMP
  1035. html SAMP
  1036. return
  1037. #----------------------------------------------------------------------
  1038. proc tmHtmlSELECT
  1039. html SELECT
  1040. return
  1041. #----------------------------------------------------------------------
  1042. proc tmHtmlSTRONG
  1043. html STRONG
  1044. return
  1045. #----------------------------------------------------------------------
  1046. proc tmHtmlSUB
  1047. html SUB
  1048. return
  1049. #----------------------------------------------------------------------
  1050. proc tmHtmlSUP
  1051. html SUP
  1052. return
  1053. #----------------------------------------------------------------------
  1054. proc tmHtmlTABLE
  1055. html TABLE
  1056. return
  1057. #----------------------------------------------------------------------
  1058. proc tmHtmlTD
  1059. html TD
  1060. return
  1061. #----------------------------------------------------------------------
  1062. proc tmHtmlTEXTAREA
  1063. html TEXTAREA
  1064. return
  1065. #----------------------------------------------------------------------
  1066. proc tmHtmlTITLE
  1067. html TITLE
  1068. return
  1069. #----------------------------------------------------------------------
  1070. proc tmHtmlTH
  1071. html TH
  1072. return
  1073. #----------------------------------------------------------------------
  1074. proc tmHtmlTR
  1075. html TR
  1076. return
  1077. #----------------------------------------------------------------------
  1078. proc tmHtmlTT
  1079. html TT
  1080. return
  1081. #----------------------------------------------------------------------
  1082. proc tmHtmlUL
  1083. html UL
  1084. return
  1085. #----------------------------------------------------------------------
  1086. proc tmHtmlVAR
  1087. html VAR
  1088. return
  1089. #----------------------------------------------------------------------
  1090. proc tmHtmlWBR
  1091. html WBR
  1092. return
  1093. #----------------------------------------------------------------------
  1094. proc tmHtmlREM
  1095. html !
  1096. return
  1097. #----------------------------------------------------------------------
  1098. proc tmHtmlANP
  1099. switch (%1)
  1100.   case 0 :
  1101.     printf > | edit in
  1102.     breaksw
  1103.   case 1 :
  1104.     printf < | edit in
  1105.     breaksw
  1106.   case 2 :
  1107.     printf & | edit in
  1108.     breaksw
  1109.   case 3 :
  1110.     printf " | edit in
  1111.     breaksw
  1112.   case 4 :
  1113.     printf   | edit in
  1114.     breaksw
  1115. endsw
  1116. return
  1117. #----------------------------------------------------------------------
  1118. proc tmTerminal
  1119. term
  1120. return
  1121. #----------------------------------------------------------------------
  1122. proc tmStartUp
  1123. window startup
  1124. return
  1125. #----------------------------------------------------------------------
  1126. proc tmMulti
  1127. switch (%1)
  1128.   case J :
  1129.     mode edit code -p:932 -d:0x81-0x9F,0xE0-0xFC -ex:7bit
  1130.     mode edit font -h:-16 "-f:ＭＳ 明朝" -c:128
  1131.     keyboardlayout E0010411
  1132.     breaksw
  1133.   case K :
  1134.     mode edit code -p:949 -d:0x81-0xFE -ex:7bit
  1135.     mode edit font -h:-16 "-f:GulimChe" -c:129
  1136.     keyboardlayout E0010412
  1137.     breaksw
  1138.   case C :
  1139.     mode edit code -p:936 -d:0x81-0xFE -ex:7bit
  1140.     mode edit font -h:-16 "-f:MS Hei" -c:134
  1141.     keyboardlayout E0010804
  1142.     breaksw
  1143.   case T :
  1144.     mode edit code -p:950 -d:0xA1-0xFE -ex:7bit
  1145.     mode edit font -h:-16 "-f:MingLiU" -c:136
  1146.     keyboardlayout E0010404
  1147.     breaksw
  1148.   case 7 :
  1149.     mode edit code -ex:7bit
  1150.     breaksw
  1151.   case De :
  1152.     mode edit code -p:1252 -d:0 -ex:7bit
  1153.     mode edit font -h:-16 "-f:Courier New" -c:0
  1154.     keyboardlayout 00000407
  1155.     breaksw
  1156.   case En :
  1157.     mode edit code -p:1252 -d:0 -ex:7bit
  1158.     mode edit font -h:-16 "-f:Courier New" -c:0
  1159.     keyboardlayout 00000409
  1160.     breaksw
  1161.   case Fr :
  1162.     mode edit code -p:1252 -d:0 -ex:7bit
  1163.     mode edit font -h:-16 "-f:Courier New" -c:0
  1164.     keyboardlayout 0000040C
  1165.     breaksw
  1166.   case It :
  1167.     mode edit code -p:1252 -d:0 -ex:7bit
  1168.     mode edit font -h:-16 "-f:Courier New" -c:0
  1169.     keyboardlayout 00000410
  1170.     breaksw
  1171.   case G :
  1172.     mode edit code -p:1253 -d:0 -ex:8bit
  1173.     mode edit font -h:-16 "-f:Courier New" -c:161
  1174.     keyboardlayout 00000411
  1175.     breaksw
  1176.   case Tu :
  1177.     mode edit code -p:1254 -d:0 -ex:8bit
  1178.     mode edit font -h:-16 "-f:Courier New" -c:162
  1179.     keyboardlayout 00000411
  1180.     breaksw
  1181.   case B :
  1182.     mode edit code -p:1257 -d:0 -ex:8bit
  1183.     mode edit font -h:-16 "-f:Courier New" -c:186
  1184.     keyboardlayout 00000411
  1185.     breaksw
  1186.   case E :
  1187.     mode edit code -p:1250 -d:0 -ex:8bit
  1188.     mode edit font -h:-16 "-f:Courier New" -c:238
  1189.     keyboardlayout 00000411
  1190.     breaksw
  1191.   case R :
  1192.     mode edit code -p:1251 -d:0 -ex:8bit
  1193.     mode edit font -h:-16 "-f:Courier New" -c:204
  1194.     keyboardlayout 00000411
  1195.     breaksw
  1196. endsw
  1197. return
  1198. #----------------------------------------------------------------------
  1199. proc tmPrint
  1200. edit print
  1201. return
  1202. #----------------------------------------------------------------------
  1203. proc tmLogFile
  1204. set @ tm.logfile = $tm.logfile[%1]
  1205. edit open "%tm.logfile%"
  1206. set tm.logfile=
  1207. return
  1208. #----------------------------------------------------------------------
  1209. proc tmCodeSet
  1210. window codeset
  1211. return
  1212. #----------------------------------------------------------------------
  1213. proc tmDBCS
  1214. mode edit code -e:dbcs
  1215. return
  1216. #----------------------------------------------------------------------
  1217. proc tmUnicode
  1218. mode edit code -e:unicode
  1219. return
  1220. #----------------------------------------------------------------------
  1221. proc tmESCColon
  1222. mode edit code -e:esccolon
  1223. return
  1224. #----------------------------------------------------------------------
  1225. proc tmGrep
  1226. window get main -&eax ;console size 320
  1227. comwin dll cwgrep grep -gj%eax%
  1228. return
  1229. #----------------------------------------------------------------------
  1230. proc tmWindow
  1231. switch (%1)
  1232.   case 0 :
  1233.     window mdi cascade
  1234.     breaksw
  1235.   case 1 :
  1236.     window mdi tilehorz
  1237.     breaksw
  1238.   case 2 :
  1239.     window mdi tilevert
  1240.     breaksw
  1241.   case 3 :
  1242.     window mdi iconarrange
  1243.     breaksw
  1244.   case 4 :
  1245.     window mdi list
  1246.     breaksw
  1247. endsw
  1248. return
  1249. #----------------------------------------------------------------------
  1250.