Not Option.

Shannara · Post by **Shannara** » Mon Feb 20, 2006 1:50 am

Quote from Readme.html

If Not b
Debug "Ok"
EndIf

If a = 1 And Not b
Debug "Ok"
EndIf

If a = 1 And Not (b=1 or b=3)
Debug "Ok"
EndIf

I thought, cool. Any chance we can add the ability to do the following?

  Visible.b = #True
  HideWindow(#Window, Not Visible)

This would allow a two lines instead of ...

Code: Select all

  Visible.b = #True
  Select Visible
    Case #True
      HideWindow(#Window, #False)
    Case
      HideWindow(#Window, #True)
  EndSelect

Seven

Please maychance it is easier to follow.

blueznl · Post by **blueznl** » Mon Feb 20, 2006 8:24 am

try it

not 1 = 0
not 0 = 1

think it works

Post by **Fred** » Mon Feb 20, 2006 11:48 am

You can still use:

Code: Select all

HideWindow(#Window, 1-Visible)

it should does the job.

nco2k · Post by **nco2k** » Mon Feb 20, 2006 12:47 pm

@Shannara
wait a minute...

if visible then HideWindow(#Window, #False) and if not visible then HideWindow(#Window, #True), did i got this right?

so why dont you write:

Code: Select all

Visible.b = #True 
HideWindow(#Window, Visible ! 1)

or have i missed something?

c ya,
nco2k

Trond · Post by **Trond** » Mon Feb 20, 2006 6:58 pm

Code: Select all

;Logical not for all integer types
Procedure.l NotI(b.l)
  !CMP  DWord [ESP+4], 0
  !JZ   l_cl_0
  !XOr  eax, eax
  ProcedureReturn
  cl_0:
  !MOV  eax, 1
  ProcedureReturn
EndProcedure

Debug NotI(5)
Debug NotI(0)
Debug NotI(1)
Debug NotI(-1)

Shannara · Post by **Shannara** » Mon Feb 20, 2006 7:19 pm

I just didnt know a way around that

Thanks to you guys ..

I now have a way

Thanks guys.