OpenEuphoria

Win32 & Stuff

• Posted by Michael Sabal <mjs at OSA.ATT.NE.JP> Nov 05, 1998
• 697 views

[Win32 question]

        As several people posted earlier, the best way to do multiple windows =
is with WS_DLGFRAME, which disables the X so you can't shut down your =
program inappropriately.  The problem of modality can be handled two =
ways:  David is working on a patch to setFocus to the dialog if it's =
lost. [BTW, Dave: Have you tried looking at MessageBox, there's a modal =
flag there.  Or, have you tried sending a LOSE_FOCUS message to the =
offending window?]
        My solution is to ignore modality, leaving the option of several =
different simultaneous dialogs open.  For example,

global constant thisDialog =3D create(....)
atom dialogFlag
dialogFlag =3D -1

global procedure onDialogMenu()

  if dialogFlag =3D -1 then
    loadWindow(thisDialog)
  elsif dialogFlag =3D 0 then
    setVisible(thisDialog,1)
  end if
  dialogFlag =3D 1

end procedure

global procedure onClick_DialogClose(integer x, integer y)

  setVisible(thisDialog,0)
  dialogFlag =3D 0

end procedure

----------------------

        This method allows me to switch back and forth between my main window =
and any of the dialogs, but not to allow more than one instance of any =
dialog.  This method is not the best for all applications, however.  =
Single datum input dialogs would be better off modal, while full =
database entry dialogs often benefit from this method.

[Jury-rig]

        I don't know the history of the word, but to jury-rig something means =
making or fixing something complex technically using simple everyday =
materials.  For example, if the muffler falls off your car, using a =
metal coat-hanger to keep it on would be a jury-rig.  It's not =
necessarily safe or high quality, but it does the job until something =
better can be done.

[Store Manager]

        I've barely been able to eke out an hour of programming a week with my =
current schedule, so the next release of Store Manager is long overdue.  =
I want to thank everyone again who has been giving me a bit of PR.  =
While Store Manager will be free as long as Euphoria programmer want to =
borrow and hack it, I want to use it to break into the IT job market in =
the spring.  So any positive or critical comments are more than welcome, =
as are questions.  Speaking of, could someone tell me how to send font =
data to a Windows printer.  It won't be included in this release (which =
is 1 bug and documentation away), but I want to have printing capability =
in the subsequent release.

[Finally]

        I'm not going to take issue with tag lines.  I couldn't care less what =
anybody says at the end of their post.  However, I take exception to =
posts that are specifically written to insult or direct displeasure at =
any person or group, be it a certain twelve-year-old criminal, or =
Christians in general (both have appeared with frightening regularity =
the past three days).  I would like it to stop, and anyone who wants to =
continue this discussion, please do it PRIVATELY!

[Steps off soapbox, and waits for hate mail :)]

Michael J. Sabal
mjs at osa.att.ne.jp
http://home.att.ne.jp/gold/mjs/index.html