svnno****@sourc*****
svnno****@sourc*****
2010年 10月 2日 (土) 21:25:19 JST
Tera TermRevision: 4117
http://sourceforge.jp/projects/ttssh2/svn/view?view=rev&revision=4117
Author: yutakapon
Date: 2010-10-02 21:25:19 +0900 (Sat, 02 Oct 2010)
Log Message:
-----------
beep マクロに引数を追加した。
Modified Paths:
--------------
trunk/teraterm/ttpmacro/ttl.c
-------------- next part --------------
Modified: trunk/teraterm/ttpmacro/ttl.c
===================================================================
--- trunk/teraterm/ttpmacro/ttl.c 2010-09-29 11:14:29 UTC (rev 4116)
+++ trunk/teraterm/ttpmacro/ttl.c 2010-10-02 12:25:19 UTC (rev 4117)
@@ -271,13 +271,42 @@
WORD TTLBeep()
{
- if (GetFirstChar()==0)
- {
- MessageBeep(0);
- return 0;
+ int val = 0;
+ WORD Err = 0;
+ UINT type = MB_OK;
+
+ if (CheckParameterGiven()) {
+ GetIntVal(&val, &Err);
+ if (Err!=0) return Err;
+
+ switch (val) {
+ case 0:
+ type = -1;
+ break;
+ case 1:
+ type = MB_ICONASTERISK;
+ break;
+ case 2:
+ type = MB_ICONEXCLAMATION;
+ break;
+ case 3:
+ type = MB_ICONHAND;
+ break;
+ case 4:
+ type = MB_ICONQUESTION;
+ break;
+ case 5:
+ type = MB_OK;
+ break;
+ default:
+ return ErrSyntax;
+ break;
+ }
}
- else
- return ErrSyntax;
+
+ MessageBeep(type);
+
+ return 0;
}
WORD TTLBreak() {