MarkGoldberg

  PROGRAM
  MAP
  END
  INCLUDE('ctGenericQ.inc'),ONCE
  
  
gtStrRef	GROUP,TYPE
Str        &STRING
			END
gtStrVal GROUP(gtStrRef),TYPE

MarkGoldberg

 OMIT('*** IFDEF ***', SWP_NOSIZE)

SWP_NOSIZE                      equate(0001h)
SWP_NOMOVE                      equate(0002h)
SWP_NOZORDER                    equate(0004h)
SWP_NOREDRAW                    equate(0008h)
SWP_NOACTIVATE                  equate(0010h)
SWP_FRAMECHANGED                equate(0020h)  !The frame changed: send WM_NCCALCSIZE
SWP_SHOWWINDOW                  equate(0040h)
SWP_HIDEWINDOW                  equate(0080h)

MarkGoldberg

                                      OMIT('+++ equates already exist',LEVEL:User)
!     INCLUDE('ABERROR.INC')
! Severity of error
Level:Benign                  EQUATE(0) !Register(): Calls any other handlers and the ACCEPT loop, if available.
Level:User                    EQUATE(1)
Level:Program                 EQUATE(2)
Level:Fatal                   EQUATE(3) !Register(): Doesn't call other handlers or the ACCEPT loop. This is like executing BREAK when processing the event in an ACCEPT loop.
Level:Cancel                  EQUATE(4)
Level:Notify                  EQUATE(5) !Register(): Doesn't call other handlers or the ACCEPT loop. This is like executing CYCLE when processing the event in an ACCEPT loop.
                                 !end-OMIT('+++ equates already exist',LEVEL:User)

MarkGoldberg

qtFEQs   QUEUE,TYPE
FEQ         SIGNED
         END

gtXYWH   GROUP,TYPE
X          LONG
Y          LONG
W          LONG
H          LONG
         END

MarkGoldberg

 omit('***VER IS SET**',_IFDEF_VER_)
_IFDEF_VER_ EQUATE(1)
             compile('**',_C73_)
             !also applies to _C80_
_Ver_  EQUATE('LA')
             !       '**'
             omit('**C73**',_C73_)
               compile('**',_C70_)
_Ver_  EQUATE('70')
               !       '**'

MarkGoldberg

Files in EE\Libsrc\Win that are not in PE\Libsrc\Win

ABLinkP.clw
ABLINKP.CLW
ablinkp.inc
abllist.int
ABLPROP.CLW
ABLPROP.INC
ABLPROP.INT
ABLPROPR.CLW

MarkGoldberg

  PROGRAM

OMIT('***')
 * Created with Clarion 9.1
 * User: Mark Goldberg
 * Created: 9/2/2014 @ Time: 2:26 PM 
 ***

  MAP
  END

MarkGoldberg

  PROGRAM

  MAP
  END

	INCLUDE('debuger.inc'),ONCE
DBG         Debuger	

          

MarkGoldberg

<?xml version="1.0" encoding="utf-8"?>
<!--This file was autogenerated by the #Develop highlighting editor. -->
<SyntaxDefinition name="Clarion" extensions=".clw;.inc;.int;.trn;.equ;.cwh">
	<Environment>
		<Custom name="Label"            bold="true"  italic="false"     color="#A84A4A" />
		<Custom name="OmittedCode"      bold="false" italic="false"     color="Black"   bgcolor="#CBBF92" />
		<Custom name="GeneratedCode"    bold="false" italic="false"     color="Black"   bgcolor="#CBBF92" />
		<Default                        bold="false" italic="false"     color="Black"   bgcolor="#F1EDE2" />
		<Selection                      bold="true"  italic="false"     color="Black"   bgcolor="#BCD6DF" />
		<VRuler                         bold="false" italic="false"     color="Black"   bgcolor="#CFC59A" />

MarkGoldberg

  PROGRAM
  MAP
  END

Q  QUEUE
First  STRING(6)
Second STRING(6)
    END