Create a print out log GUI

Hi Paul,

You could do something like the following

  msgwin = hiCreateWindow(nil "text" "Messages" "" t)
  msgwin->neverCurrentWindow = t
  hiSetViewfile(msgwin "")
  hiEnableTailViewfile(msgwin)
  hiDisplayWindow(msgwin)

You may need to add a close function, but I think sending the messsages to a specific log file and displaying in a window that can automatically update should meet your needs.

Regards,

Lawrence.

Paul,

You can add the (hopefully) already existing File menu as seen on a View File window:

when(boundp('fileMenu) && hiIsMenu(fileMenu)
  hiInsertBannerMenu(msgwin fileMenu 0)
)

Something like that...
Regards,

Lawrence.

Is there a way to add the text without creating a file?

Sorry for being difficult, but can I use just a *printf function to the cell window.

Paul

See this post.

Andrew.

How do indentify the window?

I tried using hiGetWindowList()

win=hiCreateWindow(nil "text" "Show File")
win~>??
window:8
>
(searchWrapAround t scrollToLocation t ignoreCase
    t exactWord t
)

Paul

Paul,

I don't understand your question. If you meant "identify" then hiCreateWindow returns the window id. If you meant "indentify" then I have no idea what that word means!

Please clarify what the issue is.

Kind Regards,

Andrew 

Sorry for not clarifying better.

I have one procedure that creates and prints to the window.

Later I have another procedure I want to print to the window.

How do I identify from the mutliple windows I have open on which window I can print?

Paul

Paul,

Why not assign the windowId to a variable that you can then refer to later?

If you really don't want to do that, you could always do:

win=hiCreateWindow(...)
win->thisIsMyWindow=t  ; or whatever you want the property to be

and then you can find it later by doing:

win=car(exists(winId hiGetWindowList() winId->thisIsMyWindow))

But it seems more sensible to keep track of it rather than having to search for a property on the window.

Regards,

Andrew.

I have a few procedures that pint to the dialog box.

If the procedures were nested I would pass the window variable, but several procedures outside of each other need to print out to the window.

Thanks

Paul

You could just use a sensibly named global variable to hold the windowId. If you have an aversion to global variables for such things, then you could always use some lexical scoping using the SKILL++ (Scheme) features:

let((windowId)
  globalProc(CCFcreateTextWindow(@rest args)
    windowId=apply(hiCreateWindow args)
  )
  globalProc(CCFgetTextWindow()
    windowp(windowId) && windowId
  )
)

Then you can create a window using:

  CCFcreateTextWindow(nil "text" "Show File")

and later refer to the ID using:

  CCFgetTextWindow()

The file above needs to be put in a file with a ".ils" suffix. It will also only work from IC615 onwards because it uses globalProc. It could be implemented in earlier releases by doing:

let((windowId)
  CCFcreateTextWindow=lambda((@rest args)
    windowId=apply(hiCreateWindow args)
  )
  CCFgetTextWindow=lambda(()
    windowp(windowId) && windowId
  )
)

No global variables were harmed in the implementation of this code.

Regards,

Andrew.