浏览代码

tosunits: fix a bug in menu_tnormal

Thorsten Otto 3 年之前
父节点
当前提交
a57a2b6cbe
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/tosunits/src/gem.pas

+ 1 - 1
packages/tosunits/src/gem.pas

@@ -426,7 +426,7 @@ end;
 
 function menu_tnormal(me_ntree: AESTreePtr; me_ntitle, me_nnormal: smallint): smallint;
 begin
-	menu_tnormal := aes.menu_ienable(@me_ntree[0], me_ntitle, me_nnormal);
+	menu_tnormal := aes.menu_tnormal(@me_ntree[0], me_ntitle, me_nnormal);
 end;
 
 function menu_text(me_ttree: AESTreePtr; me_titem: smallint; me_ttext: String): smallint;