server.nim

import os, threadpool, asyncnet, asyncdispatch

type 
  CBOnClientMessage* = proc(message: string)

var 
  onClientMessage {.threadVar.} : CBOnClientMessage # want to shared this
  sockServer: AsyncSocket # want to share this also

proc handleClient(sockClient: AsyncSocket) {.async.} =
  while true:
    let line = await sockClient.recvLine()
    if "" == line:
      break
    await sockClient.send("TOKEN")
    onClientMessage(line)
    echo(line)
  sockClient.close()

proc startServerTask(port: int, cb: CBOnClientMessage) {.thread.} = 
  var sockServer = newAsyncSocket()
  sockServer.bindAddr(port.Port)
  sockServer.listen()

  while true:
    let sockClient = waitFor(sockServer.accept()) 
    asyncCheck handleClient(sockClient)
  sockServer.close()

proc startServer*(port: int, cb: CBOnClientMessage) = 
  onClientMessage = cb
  spawn startServerTask(port, cb)

proc stopServer*() = 
  sockServer.close()

servergui.nim

import asyncdispatch
import threadpool
import iup
import server

const SERVER_PORT = 1987

proc updateChatBox(message: string) = 
  var textChatBox = getHandle("textChatBox")
  setAttribute(textChatBox, "VALUE", message)
  # echo(message)

proc updateStatusBarMessage(message: string) = 
  var labelStatusBar = getHandle("labelStatusBar") 
  setAttribute(labelStatusBar, "TITLE", message)

proc onButtonStart(handle: PIhandle) :cint {.cdecl.} =
  var buttonStart = getHandle("buttonStart") 
  var buttonStop = getHandle("buttonStop") 
  setAttribute(buttonStart, "ACTIVE", "NO")
  setAttribute(buttonStop, "ACTIVE", "YES")
  startServer(SERVER_PORT, updateChatBox)
  return IUP_DEFAULT

proc onButtonStop(handle: PIhandle) :cint {.cdecl.} =
  var buttonStart = getHandle("buttonStart") 
  var buttonStop = getHandle("buttonStop")
  setAttribute(buttonStart, "ACTIVE", "YES")
  setAttribute(buttonStop, "ACTIVE", "NO")
  stopServerAsync()
  return IUP_DEFAULT

proc startGUI() = 
  discard iup.open(nil, nil)

  var buttonStart = button("start", "onButtonStart")
  var buttonStop = button("stop", "onButtonStop")
  discard setCallback(buttonStart, "ACTION", onButtonStart)
  discard setCallback(buttonStop, "ACTION", onButtonStop)
  discard setHandle("buttonStart", buttonStart)
  discard setHandle("buttonStop", buttonStop)
  setAttribute(buttonStart, "ACTIVE", "YES")
  setAttribute(buttonStop, "ACTIVE", "NO")

  var textChatBox = text("")
  var labelStatusBar = label("nothing...")

  setAttribute(textChatBox, "MULTILINE", "YES")
  setAttribute(textChatBox, "EXPAND", "YES")
  setAttribute(textChatBox, "APPENDNEWLINE", "YES")
  setAttribute(textChatBox, "SCROLLBAR", "YES")
  setAttribute(textChatBox, "AUTOHIDE", "YES")
  setAttribute(textChatBox, "READONLY", "YES")
  setAttribute(textChatBox, "BGCOLOR", "0 0 0")
  setAttribute(textChatBox, "FGCOLOR", "255 255 255")
  setAttribute(labelStatusBar, "EXPAND", "HORIZONTAL")

  discard setHandle("textChatBox", textChatBox)
  discard setHandle("labelStatusBar", labelStatusBar)

  var hboxTop = hbox(nil)
  discard insert(hboxTop, nil, buttonStop)
  discard insert(hboxTop, nil, buttonStart)

  var vboxMainView = vbox(nil)
  discard insert(vboxMainView, nil, labelStatusBar)
  discard insert(vboxMainView, nil, textChatBox)
  discard insert(vboxMainView, nil, hboxTop)
  

  var dialogMainWindow = dialog(vboxMainView)
  setAttribute(dialogMainWindow, "TITLE", "server")
  setAttribute(dialogMainWindow, "BORDER", "YES")
  setAttribute(dialogMainWindow, "RESIZE", "NO")
  setAttribute(dialogMainWindow, "SIZE", "QUARTERxQUARTER")

  discard showXY(dialogMainWindow, IUP_CENTER, IUP_CENTER)
  discard mainLoop()
  close()

startGUI()

THANK YOU MAN