GUI которое умеет работать в тестере

Конечно не только в тестере, но и в нём тоже. При помощи ATcl сделаем небольшой  GUI , который в тестере/отладчике не теряет отзывчивости даже при паузе.

скорее всего вы уже догадались, что «чтобы  GUI  работал параллельно с тестером его надо делать в отдельном треде» Конечно-же ! имея такое вот богатство возможностей : https://www.tcl-lang.org/man/tcl8.6/ThreadCmd/thread.htm просто грех им не воспользоваться.

Сценарий

Разделение на MQL/Tcl

работа с тредами

   // будем исполнять почти всё в отдельном треде
   // берём пакет Thread  
   if (tcl.Eval("package require Thread")!=TCL_OK) {
      ExpertRemove();
      return INIT_FAILED;
   }
   // литералы и часто-используемые слова
   // cделаем однократно
   cmd_orders=tcl.Obj("orders");tcl.Ref(cmd_orders);
   cmd_thread_send=tcl.Obj("thread::send");tcl.Ref(cmd_thread_send);
   opt_async=tcl.Obj("-async");tcl.Ref(opt_async);
   method_update=tcl.Obj("Update");tcl.Ref(method_update);
   method_insert=tcl.Obj("Insert");tcl.Ref(method_insert);
   method_delete=tcl.Obj("Delete");tcl.Ref(method_delete);
   method_servertime=tcl.Obj("ServerTime");tcl.Ref(method_servertime);
   // получаем id текущей нити
   Tcl_Obj curr=tcl.ObjEval("thread::id");
   tcl.Ref(curr);
   PrintFormat("EA thread %s",tcl.String(curr));
 
   // создаём нить со своим event-loop
   if (tcl.Eval("set thr [ thread::create -preserved { package require Thread ; thread::wait } ]")!=TCL_OK)  {
      Alert("thread::create failed: "+tcl.StringResult());
      ExpertRemove();
      return INIT_FAILED;
   } else {
      thr=tcl.Result();
      tcl.Ref(thr);
      PrintFormat("GUI thread %s",tcl.String(thr));
   }
   // сохраним id текущей (родительской) нити в дочерней
   // создаём в нитке переменную parent с id текущей нити
   // thread::send $thr { set ::parent $curr }
   Tcl_Obj cmd=tcl.Obj();
   tcl.Ref(cmd);
   tcl.ListAppend(cmd,tcl.Obj("set"));
   tcl.ListAppend(cmd,tcl.Obj("::parent"));
   tcl.ListAppend(cmd,curr);
   tcl.Call(cmd_thread_send,thr,cmd);
   tcl.Unref(cmd);
   tcl.Unref(curr);
   // исполняем в ней скрипт из ресурса
   // как tcl.Call вместо Eval чтобы гарантировать что ресурс передасться как отдельный объект
   if (tcl.Call(tcl.Obj("thread::send"),thr,tcl.Obj(myOrders_tcl))!=TCL_OK) {
      Alert("thread::send failed: "+tcl.StringResult());
      ExpertRemove();
      return INIT_FAILED;
   }
   // теперь интерпретатор нитки содержит:
   // класс MyOrderView
   // переменную $orders - инстанс класса MyOrderView
   // будем обращаться через thread::send -async {$orders method args..}

и соответственно типичная функция отправляющая данные в Gui выглядит так:

// обновляем информацию тикета
// чтобы не путать, имена - такие-же как методы в скрипте
// вызываем : $obj Update { список_ключей } значения ключей в том-же порядке
void Update()
{
   if (thr==0) return;
   Tcl_Obj cmd=tcl.Obj();              // команда которую будем пересылать к нить
   tcl.Ref(cmd);
   tcl.ListAppend(cmd,cmd_orders);     // объект/команда orders
   tcl.ListAppend(cmd,method_update);  // метод Update
   if (update_args==0) {
      update_args=tcl.Obj("ticket type lots price stopLoss takeProfit profit");
      tcl.Ref(update_args);
   }
   tcl.ListAppend(cmd,update_args);   // первый параметр - список обновляемых полей
 
   // значения в указанном порядке            
   tcl.ListAppend(cmd,tcl.Obj((long)OrderTicket()));  
   tcl.ListAppend(cmd,tcl.Obj(OrderTypeString())); 
   // цены и объёмы в строках, просто потому-что скрипт ещё не умеет округлять double до нужных знаков
   tcl.ListAppend(cmd,tcl.Obj(OrderLotsString())); 
   tcl.ListAppend(cmd,tcl.Obj(OrderPriceString())); 
   tcl.ListAppend(cmd,tcl.Obj(OrderStopLossString())); 
   tcl.ListAppend(cmd,tcl.Obj(OrderTakeProfitString())); 
   tcl.ListAppend(cmd,tcl.Obj(OrderProfitString())); 
   // пересылаем
   tcl.Call(cmd_thread_send,opt_async,thr,cmd);   // отсылаем команду, и не будем ждать её результат
   tcl.Unref(cmd);   // освобождаем cmd
}

результат

часики ходят, сделки отображаются. Если запускать в тестере то окно сохраняет отзывчивость даже при паузе.

дальнейшее

связь gui-советник

развитие интерфейса

Читайте также предыдущие статьи:

• Пишем  GUI  часть 1, часть 2 , часть 3
• Делаем отчёт в Word
• Базы данных в ATcl

Исходники (и mq5 и tcl) прикладываю