fushnisoft

<AddIn name    = "ClarionHubMenu"
   author      = "ClarionHub"
   url         = "http://clarionhub.com"
   copyright   = ""
   description = "">
  <Manifest>
    <Identity name="ClarionHubMenu.Addin" version="1.0"/>
    <Dependency addin = "SharpDevelop" version = "2.1"/>
  </Manifest>

fushnisoft

using Hangfire;
using Microsoft.Owin;
using Microsoft.Owin.Hosting;
using Owin;
using Serilog;
using System;
using System.Data.SqlClient;
using Topshelf;

[assembly: OwinStartup(typeof(MyScheduler.Startup))]

fushnisoft

  MAP
    GetVT_Type(*BYTE),LONG
    GetVT_Type(*SHORT),LONG
    GetVT_Type(*USHORT),LONG
    GetVT_Type(*DATE),LONG
    GetVT_Type(*TIME),LONG
    GetVT_Type(*LONG),LONG
    GetVT_Type(*ULONG),LONG
    GetVT_Type(*SREAL),LONG
    GetVT_Type(*REAL),LONG

fushnisoft

#TEMPLATE (CBAltFix, 'Carl Barnes fix for Alt Key Lockup in Windows 7'),FAMILY('ABC','CW20')
#!===========================================================================
#! Warning! Version 2 of the template changes things.
#! The Global template AltWin7Fix_Global has been removed and is no longer needed.
#! The Frame template AltWin7Fix_Frame has been renamed because it has new questions
#! Only the Frame Extension template is required, it is where you specify all choices.
#! It has a new name AltWin7Fix_Frame2 so you must populate it again on the Frame.
#! If you used the first version of the template you will get errors when you open
#! an APP. Ignore the errors, you should open the Frame, go to Extenstions and add the new template.
#! *** Removed ===>#EXTENSION (AltWin7Fix_Global,'Fix Windows 7 Alt Key Lockup-Global-by Carl Barnes'), APPLICATION

fushnisoft

toDOM:AppendCol procedure(*XMLExchange exch, *Document doc, *Element rowE, StructWrapper sw, signed col, DOMStyle style)

colE      &Element, auto
colA      &Attr, auto
cs        CStringClass
value     CStringClass
fldFormat XMLFieldFormat
tp                UNSIGNED  
T                 &Text, auto
CData             &CDATASection

fushnisoft

  PROGRAM

  MAP
  END
  
  Include('cpxml.inc'),ONCE
  Include('xmlclass.inc'),ONCE

myGroup   GROUP
someField   CSTRING(255)

fushnisoft

<AddIn name        = "ClarionHub"
       author      = "ClarionHub"
       copyright   = ""
       url         = "http://ClarionHub.com"
       description = "Simple example on how to add a button to the IDE toolbar that launches an EXE file">

  <Manifest>
    <Identity name = "MyToolbarButton" version="1.0"/>
  </Manifest>

fushnisoft

<?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">
	<Environment>
		<Custom name="Label" bold="true" italic="false" color="Red" bgcolor="Blue" />
		<Custom name="OmittedCode" bold="false" italic="false" color="Silver" bgcolor="Blue" />
		<Custom name="GeneratedCode" bold="false" italic="false" color="Black" bgcolor="Blue" />
		<Default bold="false" italic="false" color="Yellow" bgcolor="Blue" />
		<Selection bold="false" italic="false" color="White" bgcolor="#3399FF" />
		<VRuler bold="false" italic="false" color="#E3E3E3" bgcolor="White" />

fushnisoft

<?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">
	<Environment>
		<Custom name="Label" bold="false" italic="false" color="#a6e22e" />
		<Custom name="OmittedCode" bold="false" italic="false" color="Black" bgcolor="#444444" />
		<Custom name="GeneratedCode" bold="false" italic="false" color="Black" bgcolor="#444444" />
		<Default bold="false" italic="false" color="#F8F8F2" bgcolor="#222222" />
		<Selection bold="false" italic="false" color="White" bgcolor="#3399FF" />
		<VRuler bold="false" italic="false" color="#E3E3E3" bgcolor="White" />

fushnisoft

using System;
using System.ComponentModel;
using System.Diagnostics;
using System.IO;
using System.Runtime.InteropServices;

namespace Fushnisoft.Utils
{
    internal class EmbeddedDebugView
    {