From: "Jan A. Nauta" 
@Date: Mon, 10 Feb 2003 20:15:09 +0100
@Sender: semware-owner{at}sawasdi.apana.org.au



This = org message resent on 20030210

20030208

Hi there,

In the Semware editor 1.0 you could use the directive: binary to include a
procedure that you couldn't write using SAL alone. I wrote a lot of macros
that depend on that possibility.
Now that I have bought TSEPro4 there is a different method (DLL) to do the
same but I can't seem to get it right.

This is the code I made:

// Declare Function GetKeyState Lib "user32" Alias
"GetKeyState" (ByVal
nVirtKey As Long) As Integer

dll ""
integer proc GetKeyState(integer nVirtKey)
end

constant VK_SHIFT = 10h                 // hex value for SHIFT key

integer proc ShiftKeyPressed()  /* Returns ShiftState.
    */
    Return(GetKeyState(VK_SHIFT))
end ShiftKeyPressed

                       warn(Shiftkeypressed())
                 warn(Shiftkeypressed())

If I compile this and subsequently push the buttons:
   , , , ,  
( and in between the OK button
from the Warn Popup)
I get the values:
    0,    -128,      0,    -127,       1

What do I do wrong?

By the way: Is there a list with commands that were valid in TSE1.0 and are
not in TSEPro4?

And: Is it possible to use bookmarks in the TSEPro4 Help section?

And: Is there a list with Error numbers with their meanings?

Thanks in advance for any help.

Jan


--
TSEPro mailing list



---
[sawasdi.apana.org.au] (3:800/846.13)