creating sample hbox output IP result about nim-iup-examples HOT 8 CLOSED

import std/[httpclient, strutils, strformat]


# Create an exit button proc
proc button_exit_callback(ih: PIhandle):cint {.cdecl} =
  # exists the main loop
   return IUP_CLOSE


const src = "https://icanhazip.com"
proc Ip*(): string =
   var client = newHttpClient()
   try:
     let response = client.getContent(src)
     result = response.strip()
   except:
     result = ""
   finally:
     client.close()
   echo Ip()


proc button_show_ip(ih: PIhandle): cstring {.cdecl.} =
      echo Ip()
# create main proc and open UIP application
proc mainProc =
  Open()

# create 3 variables (label, button, vbox)
 # var 
 #   label = Label("Hello, IUP from nim.")
 #   button = Button("Hit me to close")
 #   vbox = Vbox(label, button) # add button and label to vertical box 
 # # add attributes to variables 
 # vbox.alignment = IUP_ACENTER
 # vbox.gap(10)
 # vbox.margin(30, 60)


  var
    label_h = Label("IP address")
    button_h = Button("Show Ip Address")
    #label_h_output = Label(Ip)
    hbox = Hbox(label_h, button_h)
# add dialog box to show title of UIP application

  hbox.alignment = IUP_ACENTER
  hbox.gap(20)
  hbox.margin(20, 70)

  var dlg = Dialog(vbox) # add vbox to Dialog
  dlg.title = "Hello, World Title"

  var dlg_h = Dialog(hbox)

  dlg_h.title = "Hello horizonal window"
  #button_h.action = button_show_ip
  opacity(dlg_h,  115) # horizonal box now has opacity

# call backs 
  button.action = button_exit_callback
  button.action = button_show_ip

# show UIP application
  #ShowXY(dlg, IUP_CENTER, IUP_CENTER)
  ShowXY(dlg_h , IUP_CENTER, IUP_CENTER)

  MainLoop()
  Close()

if isMainModule: # if main module than call mainProc()
  mainProc()

import std/[httpclient, strutils, strformat]
import niup

var textLabel: Text_t  # global, so it can be accessed from callbacksi, init later, after IUP Open()
# Create an exit button proc
#proc button_exit_callback(ih: PIhandle):cint {.cdecl} =
  # exists the main loop
   #return IUP_CLOSE


const src = "https://icanhazip.com"
proc Ip*(): string =
   var client = newHttpClient()
   try:
     let response = client.getContent(src)
     result = response.strip()
   except:
     let
       e = getCurrentException()
       msg = getCurrentExceptionMsg()
     echo "Got exception ", repr(e), " with message ", msg
     result = ""
   finally:
     client.close()
   return result # there was recursive call to Ip()


#proc button_show_ip(ih: PIhandle): cint {.cdecl.} = # every callback has cint as return value
#textLabel.value = Ip()
  #return IUP_DEFAULT

# create main proc and open UIP application
proc mainProc =
  Open()

# create 3 variables (label, button, vbox)
 # var
 #   label = Label("Hello, IUP from nim.")
 #   button = Button("Hit me to close")
 #   vbox = Vbox(label, button) # add button and label to vertical box
 # # add attributes to variables
 # vbox.alignment = IUP_ACENTER
 # vbox.gap(10)
 # vbox.margin(30, 60)

  textLabel = Text("IP address") # declared globally so it can be accessed from callback
  textLabel.readonly = true
  textLabel.border = "no"
  textLabel.size = "70x5"
  textLabel.bgcolor = "#7f11e0"
  textLabel.font = "Arial, 24"
  textLabel.alignment = IUP_ACENTER

  textLabel.value = Ip()
  var
    #button_h = Button("Show IP Address")
    #textLabel_output = Label(Ip)
    #hbox = Hbox(button_h, textLabel)
    hbox = Hbox(textLabel)

  #hbox.alignment = IUP_ACENTER
  hbox.gap(20)
  hbox.margin(0, 20)
# add dialog box to show title of UIP application

  var dlg_h = Dialog(hbox)


  dlg_h.title = "Show Current IP Address"
  dlg_h.bgcolor = "#7f11e0"

  #button_h.action = button_show_ip
  opacity(dlg_h,  190) # horizonal box now has opacity

# call backs
  #button_h.action = button_exit_callback
  #button_h.action = button_show_ip

# show UIP application
  #ShowXY(dlg, IUP_CENTER, IUP_CENTER)
  ShowXY(dlg_h , IUP_CENTER, IUP_CENTER)

  MainLoop()
  Close()

if isMainModule: # if main module than call mainProc()
  mainProc()