Skip to content

Instantly share code, notes, and snippets.

Mark Goldberg MarkGoldberg

Block or report user

Report or block MarkGoldberg

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@MarkGoldberg
MarkGoldberg / StringQueue.clw
Created Feb 7, 2014
Clarion Get(Q, CompareFunction)
View StringQueue.clw
PROGRAM
MAP
END
INCLUDE('ctGenericQ.inc'),ONCE
gtStrRef GROUP,TYPE
Str &STRING
END
gtStrVal GROUP(gtStrRef),TYPE
@MarkGoldberg
MarkGoldberg / SWP_HWND.equ
Last active Aug 29, 2015
Clarion Equates for SWP_ and HWND_ Z Order
View SWP_HWND.equ
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
MarkGoldberg / ErrorLevels.EQU
Last active Aug 29, 2015
Clarion For Windows - class that uses REGISTER - in this case for EVENT:Notify
View ErrorLevels.EQU
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
MarkGoldberg / CollapseControls.clw
Last active Aug 29, 2015
Clarion - Collapse Controls
View CollapseControls.clw
qtFEQs QUEUE,TYPE
FEQ SIGNED
END
gtXYWH GROUP,TYPE
X LONG
Y LONG
W LONG
H LONG
END
@MarkGoldberg
MarkGoldberg / _ver_.inc
Created Mar 11, 2014
_ver_.inc -- Clarion Include file (used by Debuger class)
View _ver_.inc
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
MarkGoldberg / DiffDiff.txt
Created Apr 2, 2014
Clarion 9.1\Libsrc\Win Files in EE that are not in PE`
View DiffDiff.txt
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
MarkGoldberg / Clarion - TipList
Last active Aug 29, 2015
An example of a Tip column in a list box
View Clarion - TipList
PROGRAM
OMIT('***')
* Created with Clarion 9.1
* User: Mark Goldberg
* Created: 9/2/2014 @ Time: 2:26 PM
***
MAP
END
View GroupRef
PROGRAM
MAP
END
INCLUDE('debuger.inc'),ONCE
DBG Debuger
@MarkGoldberg
MarkGoldberg / CWBinding.Resources.Clarion-Mode.xshd
Last active Aug 29, 2015
Clarion Syntax File for the #D IDE
View CWBinding.Resources.Clarion-Mode.xshd
<?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
MarkGoldberg / ColorColumnHeader.clw
Created Oct 19, 2014
Clarion - Set Color on Listbox Header
View ColorColumnHeader.clw
PROGRAM
MAP
END
Q QUEUE
First STRING(6)
Second STRING(6)
END
You can’t perform that action at this time.