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

MarkGoldberg

  PROGRAM

gtNotification        GROUP,TYPE 
_Code                    UNSIGNED
CallerThread             UNSIGNED
Param                    UNSIGNED !was Parameter
                      END

MarkGoldberg

  PROGRAM
  MAP
    SumArray (*SHORT[] xArr),REAL
    FillArray(*SHORT[] xArr)
  END

Short4  SHORT,DIM(4)
Short10 SHORT,DIM(10)
  CODE

MarkGoldberg

  PROGRAM
! Purpose: to show that a progress bar can be updated in a tight loop
  MAP
  END

ProgressBar LONG
Window WINDOW('Test Progress Bar in Tight Loop'),AT(,,463,70),GRAY,FONT('Segoe UI',8),SYSTEM
		BUTTON('Start Tight Loop'),AT(191,39,,14),USE(?Start),DEFAULT
		PROGRESS,AT(13,13,400),USE(ProgressBar),RANGE(0,100)

MarkGoldberg

UI_PRE_Update PROCEDURE

QuickWindow WINDOW('Update Project Equipment'),AT(,,328,70),CENTER,MDI,GRAY,IMM,MASK,AUTO,SYSTEM,HLP('~Update_Project_Equipment'),FONT('Segoe UI',8)
        SHEET,AT(1,1,326,47),USE(?CurrentTab),WIZARD
            TAB('Project Equipment'),USE(?TAB1)
                PROMPT('&Equipment ID'),AT(5,7),USE(?PrE:Equip_ID:Prompt)
                ENTRY(@s15),AT(65,7,75,10),USE(PRE:Equip_ID),FONT(,,,FONT:bold),MSG('Equipment ID'),REQ,OVR
                PROMPT('&Description'),AT(5,20),USE(?PrE:Descr:Prompt)
                ENTRY(@s40),AT(65,20,175,10),USE(PRE:Descr),MSG('Description'),OVR
                PROMPT('Co&st / Day'),AT(5,33),USE(?PrE:Daily_Rate:Prompt)

MarkGoldberg

  PROGRAM
     MAP
         _Comparer(*GROUP a, *GROUP b), SIGNED
         _Comparer2(*GROUP a, *GROUP b), SIGNED
         _Comparer3(*GR A, *GR B),SIGNED !<-- typed groups
     END

ct     CLASS, TYPE
field1     STRING(1)