GUI

BlackBox/_LinuxOpenBSD_GUI/build

@@ -0,0 +1,66 @@
+#!/bin/sh
+
+./run-dev0 <<DATA
+ConsCompiler.Compile('Lin/Mod', 'Dl.txt')
+ConsCompiler.Compile('Lin/Mod', 'Libc.txt')
+ConsCompiler.Compile('Lin/Mod', 'Iconv.txt')
+
+# Linux only
+ConsCompiler.Compile('Lin/Mod', 'Rt.txt')
+
+DevCompiler.CompileThis Kernel Files HostFiles StdLoader
+DevCompiler.CompileThis Math Strings Dates Meta Dialog Services Fonts Ports Stores Log Converters Sequencers Models Printers Views Controllers Properties Printing Mechanisms Containers Documents Windows
+DevCompiler.CompileThis StdCFrames Controls StdDialog StdApi StdCmds StdInterpreter
+
+DevCompiler.CompileThis HostDates HostLang HostRegistry HostUtf8
+
+DevCompiler.CompileThis Console HostConsole
+
+DevCompiler.CompileThis TextModels TextRulers TextSetters TextViews TextControllers TextMappers TextCmds
+
+DevCompiler.CompileThis Gtk2GLib Gtk2GObject Gtk2Keysyms Gtk2Pango Gtk2Gdk Gtk2Gtk Gtk2Util
+
+DevCompiler.CompileThis HostFonts HostPorts HostMechanisms HostWindows HostClipboard HostCFrames HostDialog HostCmds
+
+DevCompiler.CompileThis StdLog
+
+DevCompiler.CompileThis ConsLog
+
+DevCompiler.CompileThis FormModels FormViews FormControllers FormGen FormCmds
+
+DevCompiler.CompileThis StdTables StdTabViews HostTabFrames
+
+DevCompiler.CompileThis HostTextConv
+
+DevCompiler.CompileThis HostMenus
+
+DevCompiler.CompileThis StdFolds StdLinks StdDebug StdMenuTool StdClocks StdStamps StdLogos StdCoder StdScrollers
+
+DevCompiler.CompileThis In Out Integers
+
+DevCompiler.CompileThis Config Init
+
+### Dev:
+DevCompiler.CompileThis DevMarkers DevCommanders DevSelectors DevCPM DevCPT DevCPH DevCPB DevCPE DevCPS DevCPP DevCPL486 DevCPC486 DevCPV486 DevCompiler DevElfLinker16 DevLinker
+DevCompiler.CompileThis ConsInterp ConsCompiler
+DevCompiler.CompileThis DevAlienTool DevDebug DevDependencies DevHeapSpy DevInspector DevLinkChk DevMsgSpy DevRBrowser DevReferences DevSearch DevSubTool DevCmds DevBrowser
+DevCompiler.CompileThis HostPackedFiles DevPacker
+
+### Xhtml:
+DevCompiler.CompileThis XhtmlEntitySets XhtmlWriters XhtmlStdFileWriters XhtmlTextTableMarkers XhtmlExporter
+
+### Comm:
+DevCompiler.CompileThis CommStreams
+ConsCompiler.Compile('Lin/Mod', 'Termios.txt')
+ConsCompiler.Compile('Lin/Mod', 'Ioctl.txt')
+ConsCompiler.Compile('Lin/Mod', 'Net.txt')
+DevCompiler.CompileThis CommV24 CommTCP
+
+### Obx:
+DevCompiler.CompileThis ObxHello0 ObxPi ObxRandom ObxTrap
+DevCompiler.CompileThis ObxActions ObxAddress0 ObxAddress1 ObxAddress2 ObxAscii ObxBlackBox ObxButtons ObxCalc ObxCaps ObxContIter ObxControlShifter ObxControls ObxConv ObxCount0 ObxCount1 ObxCubes ObxDb ObxDialog ObxFact ObxFileTree ObxFldCtrls ObxGraphs ObxHello1 ObxLabelLister ObxLines ObxLinks ObxMMerge ObxOmosi ObxOpen0 ObxOpen1 ObxOrders ObxParCmd ObxPatterns ObxRatcalc ObxSample ObxScroll ObxStores ObxTabViews ObxTabs ObxTickers ObxTwins ObxUnitConv ObxViews0 ObxViews1 ObxViews10 ObxViews11 ObxViews12 ObxViews13 ObxViews14 ObxViews2 ObxViews3 ObxViews4 ObxViews5 ObxViews6 ObxWrappers
+DevCompiler.CompileThis ObxPhoneDB ObxPhoneUI ObxPhoneUI1 ObxLookup0 ObxLookup1 ObxPDBRep0 ObxPDBRep1 ObxPDBRep2 ObxPDBRep3 ObxPDBRep4
+
+# TRAP:
+#DevCompiler.CompileThis ObxCtrls
+DATA

BlackBox/_Windows_/BlackBox.exe.manifest

@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly
+  xmlns="urn:schemas-microsoft-com:asm.v1"
+  manifestVersion="1.0"
+>
+  <dependency>
+      <dependentAssembly>
+          <assemblyIdentity
+              type="win32"
+              name="Microsoft.Windows.Common-Controls"
+              version="6.0.0.0"
+              processorArchitecture="x86"
+              publicKeyToken="6595b64144ccf1df"
+              language="*"
+          />
+      </dependentAssembly>
+  </dependency>
+</assembly>

BlackBox/_Windows_GUI/Com/Interfaces/DPhoneBook/Phone.idl

@@ -0,0 +1,29 @@
+[
+  uuid(C4910D73-BA7D-11CD-94E8-08001701A8A3),
+  version(1.0),
+  helpstring("PhoneBook ActiveX Control")
+]
+library PhoneBookLib {
+	importlib("stdole32.tlb");
+    [
+      uuid(C4910D72-BA7D-11CD-94E8-08001701A8A3),
+      helpstring("Dispatch interface for PhoneBook ActiveX Control")
+    ]
+    dispinterface DPhoneBook {
+		properties:
+        methods:
+            [id(1)]
+            BSTR LookupByName(BSTR name);
+            [id(2)]
+            BSTR LookupByNumber(BSTR number);
+	};
+
+    [
+      uuid(E67D346B-2A5B-11D0-ADBA-00C01500554E),
+      helpstring("PhoneBook ActiveX  Control")
+    ]
+    coclass PhoneBook {
+        [default] dispinterface DPhoneBook;
+    };
+}
+

BlackBox/_Windows_GUI/Com/Interfaces/DPhoneBook/Phone.reg

@@ -0,0 +1,19 @@
+REGEDIT
+HKEY_CLASSES_ROOT\PhoneBook = PhoneBook ActiveX Control
+HKEY_CLASSES_ROOT\PhoneBook\CLSID = {E67D346B-2A5B-11D0-ADBA-00C01500554E}
+HKEY_CLASSES_ROOT\PhoneBook\TypeLib = {C4910D73-BA7D-11CD-94E8-08001701A8A3}
+
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E} = PhoneBook ActiveX Control
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\ProgID = PhoneBook1.0
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\Control
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\Version = 1.0
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\VersionIndependentProgID = PhoneBook
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\TypeLib = {C4910D73-BA7D-11CD-94E8-08001701A8A3}
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\InprocServer32 = C:\BlackBox\Com\phone.dll
+HKEY_CLASSES_ROOT\CLSID\{E67D346B-2A5B-11D0-ADBA-00C01500554E}\NotInsertable
+
+HKEY_CLASSES_ROOT\TypeLib\{C4910D73-BA7D-11CD-94E8-08001701A8A3}\1.0 = PhoneBook ActiveX Control
+HKEY_CLASSES_ROOT\TypeLib\{C4910D73-BA7D-11CD-94E8-08001701A8A3}\1.0\0\win32 = C:\BlackBox\Com\Interfaces\DPhoneBook\phone.tlb
+HKEY_CLASSES_ROOT\TypeLib\{C4910D73-BA7D-11CD-94E8-08001701A8A3}\1.0\FLAGS = 0
+HKEY_CLASSES_ROOT\TypeLib\{C4910D73-BA7D-11CD-94E8-08001701A8A3}\1.0\HELPDIR = C:\BlackBox\Com\Interfaces\DPhoneBook
+

BlackBox/_Windows_GUI/Com/Interfaces/Lookup/DLLDATA.C

@@ -0,0 +1,37 @@
+/*********************************************************
+   DllData file -- generated by MIDL compiler 
+
+        DO NOT ALTER THIS FILE
+
+   This file is regenerated by MIDL on every IDL file compile.
+
+   To completely reconstruct this file, delete it and rerun MIDL
+   on all the IDL files in this DLL, specifying this file for the
+   /dlldata command line option
+
+*********************************************************/
+
+
+#include <rpcproxy.h>
+
+#ifdef __cplusplus
+extern "C"   {
+#endif
+
+EXTERN_PROXY_FILE( Lookup )
+
+
+PROXYFILE_LIST_START
+/* Start of list */
+  REFERENCE_PROXY_FILE( Lookup ),
+/* End of list */
+PROXYFILE_LIST_END
+
+
+DLLDATA_ROUTINES( aProxyFileList, GET_DLL_CLSID )
+
+#ifdef __cplusplus
+}  /*extern "C" */
+#endif
+
+/* end of generated dlldata file */

BlackBox/_Windows_GUI/Com/Interfaces/Lookup/Lookup.def

@@ -0,0 +1,10 @@
+LIBRARY         LOOKUP
+
+
+
+EXPORTS        DllGetClassObject       PRIVATE
+
+DllCanUnloadNow        PRIVATE
+
+DllRegisterServer      PRIVATE
+

BlackBox/_Windows_GUI/Com/Interfaces/Lookup/Lookup.h

@@ -0,0 +1,164 @@
+/* this ALWAYS GENERATED file contains the definitions for the interfaces */
+
+
+/* File created by MIDL compiler version 2.00.0102 */
+/* at Wed Oct 30 17:25:28 1996
+ */
+//@@MIDL_FILE_HEADING(  )
+#include "rpc.h"
+#include "rpcndr.h"
+#ifndef COM_NO_WINDOWS_H
+#include "windows.h"
+#include "ole2.h"
+#endif /*COM_NO_WINDOWS_H*/
+
+#ifndef __Lookup_h__
+#define __Lookup_h__
+
+#ifdef __cplusplus
+extern "C"{
+#endif 
+
+/* Forward Declarations */ 
+
+#ifndef __ILookup_FWD_DEFINED__
+#define __ILookup_FWD_DEFINED__
+typedef interface ILookup ILookup;
+#endif 	/* __ILookup_FWD_DEFINED__ */
+
+
+/* header files for imported files */
+#include "unknwn.h"
+
+void __RPC_FAR * __RPC_USER MIDL_user_allocate(size_t);
+void __RPC_USER MIDL_user_free( void __RPC_FAR * ); 
+
+#ifndef __ILookup_INTERFACE_DEFINED__
+#define __ILookup_INTERFACE_DEFINED__
+
+/****************************************
+ * Generated header for interface: ILookup
+ * at Wed Oct 30 17:25:28 1996
+ * using MIDL 2.00.0102
+ ****************************************/
+/* [unique][uuid][object] */ 
+
+
+
+EXTERN_C const IID IID_ILookup;
+
+#if defined(__cplusplus) && !defined(CINTERFACE)
+    
+    interface ILookup : public IUnknown
+    {
+    public:
+        virtual HRESULT __stdcall LookupByName( 
+            /* [in] */ LPTSTR lpName,
+            /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpNumber) = 0;
+        
+        virtual HRESULT __stdcall LookupByNumber( 
+            /* [in] */ LPSTR lpNumber,
+            /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpName) = 0;
+        
+    };
+    
+#else 	/* C style interface */
+
+    typedef struct ILookupVtbl
+    {
+        
+        HRESULT ( __stdcall __RPC_FAR *QueryInterface )( 
+            ILookup __RPC_FAR * This,
+            /* [in] */ REFIID riid,
+            /* [out] */ void __RPC_FAR *__RPC_FAR *ppvObject);
+        
+        ULONG ( __stdcall __RPC_FAR *AddRef )( 
+            ILookup __RPC_FAR * This);
+        
+        ULONG ( __stdcall __RPC_FAR *Release )( 
+            ILookup __RPC_FAR * This);
+        
+        HRESULT ( __stdcall __RPC_FAR *LookupByName )( 
+            ILookup __RPC_FAR * This,
+            /* [in] */ LPTSTR lpName,
+            /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpNumber);
+        
+        HRESULT ( __stdcall __RPC_FAR *LookupByNumber )( 
+            ILookup __RPC_FAR * This,
+            /* [in] */ LPSTR lpNumber,
+            /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpName);
+        
+    } ILookupVtbl;
+
+    interface ILookup
+    {
+        CONST_VTBL struct ILookupVtbl __RPC_FAR *lpVtbl;
+    };
+
+    
+
+#ifdef COBJMACROS
+
+
+#define ILookup_QueryInterface(This,riid,ppvObject)	\
+    (This)->lpVtbl -> QueryInterface(This,riid,ppvObject)
+
+#define ILookup_AddRef(This)	\
+    (This)->lpVtbl -> AddRef(This)
+
+#define ILookup_Release(This)	\
+    (This)->lpVtbl -> Release(This)
+
+
+#define ILookup_LookupByName(This,lpName,lplpNumber)	\
+    (This)->lpVtbl -> LookupByName(This,lpName,lplpNumber)
+
+#define ILookup_LookupByNumber(This,lpNumber,lplpName)	\
+    (This)->lpVtbl -> LookupByNumber(This,lpNumber,lplpName)
+
+#endif /* COBJMACROS */
+
+
+#endif 	/* C style interface */
+
+
+
+HRESULT __stdcall ILookup_LookupByName_Proxy( 
+    ILookup __RPC_FAR * This,
+    /* [in] */ LPTSTR lpName,
+    /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpNumber);
+
+
+void __RPC_STUB ILookup_LookupByName_Stub(
+    IRpcStubBuffer *This,
+    IRpcChannelBuffer *_pRpcChannelBuffer,
+    PRPC_MESSAGE _pRpcMessage,
+    DWORD *_pdwStubPhase);
+
+
+HRESULT __stdcall ILookup_LookupByNumber_Proxy( 
+    ILookup __RPC_FAR * This,
+    /* [in] */ LPSTR lpNumber,
+    /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpName);
+
+
+void __RPC_STUB ILookup_LookupByNumber_Stub(
+    IRpcStubBuffer *This,
+    IRpcChannelBuffer *_pRpcChannelBuffer,
+    PRPC_MESSAGE _pRpcMessage,
+    DWORD *_pdwStubPhase);
+
+
+
+#endif 	/* __ILookup_INTERFACE_DEFINED__ */
+
+
+/* Additional Prototypes for ALL interfaces */
+
+/* end of Additional Prototypes */
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif

BlackBox/_Windows_GUI/Com/Interfaces/Lookup/Lookup.idl

@@ -0,0 +1,21 @@
+[
+	object,
+	uuid(c4910d71-ba7d-11cd-94e8-08001701a8a3),
+	pointer_default(unique)
+]
+
+interface ILookup : IUnknown
+{
+	import "unknwn.idl";
+	HRESULT LookupByName(
+		[in] LPTSTR lpName, 
+		[out, string] WCHAR **lplpNumber
+	);
+	HRESULT LookupByNumber(
+		[in] LPSTR lpNumber,
+		[out, string] WCHAR **lplpName
+	);
+}
+
+// midl /ms_ext /c_ext /I \mstools\include lookup.idl
+

BlackBox/_Windows_GUI/Com/Interfaces/Lookup/Lookup.rc

@@ -0,0 +1,67 @@
+VS_VERSION_INFO    VERSIONINFO
+
+FILEVERSION      1,0,0,1
+
+PRODUCTVERSION   1,0,0,1
+
+// FILEFLAGSMASK    VS_FFI_FILEFLAGSMASK
+
+#ifdef _DEBUG
+
+FILEFLAGS        VS_FF_DEBUG|VS_FF_PRIVATEBUILD|VS_FF_PRERELEASE
+
+#else
+
+FILEFLAGS        0 // final version
+
+#endif
+
+// FILEOS           VOS__WINDOWS32
+
+// FILETYPE         VFT_DLL
+
+FILESUBTYPE      0   // not used
+
+BEGIN
+
+BLOCK "StringFileInfo"
+
+BEGIN
+
+BLOCK "040904E4" // Lang=US English, CharSet=Windows Multilingual
+
+BEGIN
+
+VALUE "CompanyName",     "\0"
+
+VALUE "FileDescription", "Lookup Interfaces Proxy/Stub DLL\0"
+
+VALUE "FileVersion",     "1.0.000\0"
+
+VALUE "InternalName",    "LOOKUP\0"
+
+VALUE "LegalCopyright",  "\0"
+
+VALUE "LegalTrademarks", "\0"
+
+VALUE "OriginalFilename","LOOKUP.DLL\0"
+
+VALUE "ProductName",     "LOOKUP\0"
+
+VALUE "ProductVersion",  "1.0.000\0"
+
+VALUE "OLESelfRegister", "\0" // New keyword
+
+END
+
+END
+
+BLOCK "VarFileInfo"
+
+BEGIN
+
+VALUE "Translation", 0x409, 1252
+
+END
+
+END

BlackBox/_Windows_GUI/Com/Interfaces/Lookup/Lookup_i.c

@@ -0,0 +1,40 @@
+/* this ALWAYS GENERATED file contains the actual definitions of */
+/* the IIDs and CLSIDs */
+
+/* link this file in with the server and any clients */
+
+
+/* File created by MIDL compiler version 2.00.0102 */
+/* at Wed Oct 30 17:25:28 1996
+ */
+//@@MIDL_FILE_HEADING(  )
+#ifdef __cplusplus
+extern "C"{
+#endif 
+
+
+#ifndef IID_DEFINED
+#define IID_DEFINED
+
+typedef struct _IID
+{
+    unsigned long x;
+    unsigned short s1;
+    unsigned short s2;
+    unsigned char  c[8];
+} IID;
+
+#endif // IID_DEFINED
+
+#ifndef CLSID_DEFINED
+#define CLSID_DEFINED
+typedef IID CLSID;
+#endif // CLSID_DEFINED
+
+const IID IID_ILookup = {0xc4910d71,0xba7d,0x11cd,{0x94,0xe8,0x08,0x00,0x17,0x01,0xa8,0xa3}};
+
+
+#ifdef __cplusplus
+}
+#endif
+

BlackBox/_Windows_GUI/Com/Interfaces/Lookup/Lookup_p.c

@@ -0,0 +1,468 @@
+/* this ALWAYS GENERATED file contains the proxy stub code */
+
+
+/* File created by MIDL compiler version 2.00.0102 */
+/* at Wed Oct 30 17:25:28 1996
+ */
+//@@MIDL_FILE_HEADING(  )
+
+#include "rpcproxy.h"
+#include "Lookup.h"
+
+
+extern const MIDL_FORMAT_STRING __MIDLFormatString;
+
+extern const MIDL_FORMAT_STRING __MIDLProcFormatString;
+
+
+extern const MIDL_STUB_DESC Object_StubDesc;
+
+
+#pragma code_seg(".orpc")
+
+HRESULT __stdcall ILookup_LookupByName_Proxy( 
+    ILookup __RPC_FAR * This,
+    /* [in] */ LPTSTR lpName,
+    /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpNumber)
+{
+
+    HRESULT _RetVal;
+    
+    RPC_MESSAGE _RpcMessage;
+    
+    MIDL_STUB_MESSAGE _StubMsg;
+    
+    *lplpNumber = 0;
+    RpcTryExcept
+        {
+        RpcTryFinally
+            {
+            NdrProxyInitialize(
+                      ( void __RPC_FAR *  )This,
+                      ( PRPC_MESSAGE  )&_RpcMessage,
+                      ( PMIDL_STUB_MESSAGE  )&_StubMsg,
+                      ( PMIDL_STUB_DESC  )&Object_StubDesc,
+                      3);
+            
+            
+            
+            
+            _StubMsg.BufferLength = 12U;
+            NdrConformantStringBufferSize( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                           (unsigned char __RPC_FAR *)lpName,
+                                           (PFORMAT_STRING) &__MIDLFormatString.Format[2] );
+            
+            NdrProxyGetBuffer(This, &_StubMsg);
+            NdrConformantStringMarshall( (PMIDL_STUB_MESSAGE)& _StubMsg,
+                                         (unsigned char __RPC_FAR *)lpName,
+                                         (PFORMAT_STRING) &__MIDLFormatString.Format[2] );
+            
+            NdrProxySendReceive(This, &_StubMsg);
+            
+            if ( (_RpcMessage.DataRepresentation & 0X0000FFFFUL) != NDR_LOCAL_DATA_REPRESENTATION )
+                NdrConvert( (PMIDL_STUB_MESSAGE) &_StubMsg, (PFORMAT_STRING) &__MIDLProcFormatString.Format[0] );
+            
+            NdrPointerUnmarshall( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                  (unsigned char __RPC_FAR * __RPC_FAR *)&lplpNumber,
+                                  (PFORMAT_STRING) &__MIDLFormatString.Format[4],
+                                  (unsigned char)0 );
+            
+            _StubMsg.Buffer = (unsigned char __RPC_FAR *)(((long)_StubMsg.Buffer + 3) & ~ 0x3);
+            _RetVal = *(( HRESULT __RPC_FAR * )_StubMsg.Buffer)++;
+            
+            }
+        RpcFinally
+            {
+            NdrProxyFreeBuffer(This, &_StubMsg);
+            
+            }
+        RpcEndFinally
+        
+        }
+    RpcExcept(_StubMsg.dwStubPhase != PROXY_SENDRECEIVE)
+        {
+        NdrClearOutParameters(
+                         ( PMIDL_STUB_MESSAGE  )&_StubMsg,
+                         ( PFORMAT_STRING  )&__MIDLFormatString.Format[4],
+                         ( void __RPC_FAR * )lplpNumber);
+        _RetVal = NdrProxyErrorHandler(GetExceptionCode());
+        }
+    RpcEndExcept
+    return _RetVal;
+}
+
+void __RPC_STUB ILookup_LookupByName_Stub(
+    IRpcStubBuffer *This,
+    IRpcChannelBuffer *_pRpcChannelBuffer,
+    PRPC_MESSAGE _pRpcMessage,
+    DWORD *_pdwStubPhase)
+{
+    WCHAR __RPC_FAR *_M4;
+    HRESULT _RetVal;
+    MIDL_STUB_MESSAGE _StubMsg;
+    LPTSTR lpName;
+    WCHAR __RPC_FAR *__RPC_FAR *lplpNumber;
+    
+NdrStubInitialize(
+                     _pRpcMessage,
+                     &_StubMsg,
+                     &Object_StubDesc,
+                     _pRpcChannelBuffer);
+    lpName = 0;
+    lplpNumber = 0;
+    RpcTryFinally
+        {
+        if ( (_pRpcMessage->DataRepresentation & 0X0000FFFFUL) != NDR_LOCAL_DATA_REPRESENTATION )
+            NdrConvert( (PMIDL_STUB_MESSAGE) &_StubMsg, (PFORMAT_STRING) &__MIDLProcFormatString.Format[0] );
+        
+        NdrConformantStringUnmarshall( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                       (unsigned char __RPC_FAR * __RPC_FAR *)&lpName,
+                                       (PFORMAT_STRING) &__MIDLFormatString.Format[2],
+                                       (unsigned char)0 );
+        
+        lplpNumber = &_M4;
+        _M4 = 0;
+        
+        *_pdwStubPhase = STUB_CALL_SERVER;
+        _RetVal = (((ILookup *) ((CStdStubBuffer *)This)->pvServerObject)->lpVtbl) -> LookupByName(
+                (ILookup *) ((CStdStubBuffer *)This)->pvServerObject,
+                lpName,
+                lplpNumber);
+        
+        *_pdwStubPhase = STUB_MARSHAL;
+        
+        _StubMsg.BufferLength = 16U + 10U;
+        NdrPointerBufferSize( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                              (unsigned char __RPC_FAR *)lplpNumber,
+                              (PFORMAT_STRING) &__MIDLFormatString.Format[4] );
+        
+        _StubMsg.BufferLength += 16;
+        
+        NdrStubGetBuffer(This, _pRpcChannelBuffer, &_StubMsg);
+        NdrPointerMarshall( (PMIDL_STUB_MESSAGE)& _StubMsg,
+                            (unsigned char __RPC_FAR *)lplpNumber,
+                            (PFORMAT_STRING) &__MIDLFormatString.Format[4] );
+        
+        _StubMsg.Buffer = (unsigned char __RPC_FAR *)(((long)_StubMsg.Buffer + 3) & ~ 0x3);
+        *(( HRESULT __RPC_FAR * )_StubMsg.Buffer)++ = _RetVal;
+        
+        }
+    RpcFinally
+        {
+        NdrPointerFree( &_StubMsg,
+                        (unsigned char __RPC_FAR *)lplpNumber,
+                        &__MIDLFormatString.Format[4] );
+        
+        }
+    RpcEndFinally
+    _pRpcMessage->BufferLength = 
+        (unsigned int)((long)_StubMsg.Buffer - (long)_pRpcMessage->Buffer);
+    
+}
+
+
+HRESULT __stdcall ILookup_LookupByNumber_Proxy( 
+    ILookup __RPC_FAR * This,
+    /* [in] */ LPSTR lpNumber,
+    /* [string][out] */ WCHAR __RPC_FAR *__RPC_FAR *lplpName)
+{
+
+    HRESULT _RetVal;
+    
+    RPC_MESSAGE _RpcMessage;
+    
+    MIDL_STUB_MESSAGE _StubMsg;
+    
+    *lplpName = 0;
+    RpcTryExcept
+        {
+        RpcTryFinally
+            {
+            NdrProxyInitialize(
+                      ( void __RPC_FAR *  )This,
+                      ( PRPC_MESSAGE  )&_RpcMessage,
+                      ( PMIDL_STUB_MESSAGE  )&_StubMsg,
+                      ( PMIDL_STUB_DESC  )&Object_StubDesc,
+                      4);
+            
+            
+            
+            
+            _StubMsg.BufferLength = 12U;
+            NdrConformantStringBufferSize( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                           (unsigned char __RPC_FAR *)lpNumber,
+                                           (PFORMAT_STRING) &__MIDLFormatString.Format[14] );
+            
+            NdrProxyGetBuffer(This, &_StubMsg);
+            NdrConformantStringMarshall( (PMIDL_STUB_MESSAGE)& _StubMsg,
+                                         (unsigned char __RPC_FAR *)lpNumber,
+                                         (PFORMAT_STRING) &__MIDLFormatString.Format[14] );
+            
+            NdrProxySendReceive(This, &_StubMsg);
+            
+            if ( (_RpcMessage.DataRepresentation & 0X0000FFFFUL) != NDR_LOCAL_DATA_REPRESENTATION )
+                NdrConvert( (PMIDL_STUB_MESSAGE) &_StubMsg, (PFORMAT_STRING) &__MIDLProcFormatString.Format[10] );
+            
+            NdrPointerUnmarshall( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                  (unsigned char __RPC_FAR * __RPC_FAR *)&lplpName,
+                                  (PFORMAT_STRING) &__MIDLFormatString.Format[4],
+                                  (unsigned char)0 );
+            
+            _StubMsg.Buffer = (unsigned char __RPC_FAR *)(((long)_StubMsg.Buffer + 3) & ~ 0x3);
+            _RetVal = *(( HRESULT __RPC_FAR * )_StubMsg.Buffer)++;
+            
+            }
+        RpcFinally
+            {
+            NdrProxyFreeBuffer(This, &_StubMsg);
+            
+            }
+        RpcEndFinally
+        
+        }
+    RpcExcept(_StubMsg.dwStubPhase != PROXY_SENDRECEIVE)
+        {
+        NdrClearOutParameters(
+                         ( PMIDL_STUB_MESSAGE  )&_StubMsg,
+                         ( PFORMAT_STRING  )&__MIDLFormatString.Format[4],
+                         ( void __RPC_FAR * )lplpName);
+        _RetVal = NdrProxyErrorHandler(GetExceptionCode());
+        }
+    RpcEndExcept
+    return _RetVal;
+}
+
+void __RPC_STUB ILookup_LookupByNumber_Stub(
+    IRpcStubBuffer *This,
+    IRpcChannelBuffer *_pRpcChannelBuffer,
+    PRPC_MESSAGE _pRpcMessage,
+    DWORD *_pdwStubPhase)
+{
+    WCHAR __RPC_FAR *_M9;
+    HRESULT _RetVal;
+    MIDL_STUB_MESSAGE _StubMsg;
+    LPSTR lpNumber;
+    WCHAR __RPC_FAR *__RPC_FAR *lplpName;
+    
+NdrStubInitialize(
+                     _pRpcMessage,
+                     &_StubMsg,
+                     &Object_StubDesc,
+                     _pRpcChannelBuffer);
+    lpNumber = 0;
+    lplpName = 0;
+    RpcTryFinally
+        {
+        if ( (_pRpcMessage->DataRepresentation & 0X0000FFFFUL) != NDR_LOCAL_DATA_REPRESENTATION )
+            NdrConvert( (PMIDL_STUB_MESSAGE) &_StubMsg, (PFORMAT_STRING) &__MIDLProcFormatString.Format[10] );
+        
+        NdrConformantStringUnmarshall( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                                       (unsigned char __RPC_FAR * __RPC_FAR *)&lpNumber,
+                                       (PFORMAT_STRING) &__MIDLFormatString.Format[14],
+                                       (unsigned char)0 );
+        
+        lplpName = &_M9;
+        _M9 = 0;
+        
+        *_pdwStubPhase = STUB_CALL_SERVER;
+        _RetVal = (((ILookup *) ((CStdStubBuffer *)This)->pvServerObject)->lpVtbl) -> LookupByNumber(
+                  (ILookup *) ((CStdStubBuffer *)This)->pvServerObject,
+                  lpNumber,
+                  lplpName);
+        
+        *_pdwStubPhase = STUB_MARSHAL;
+        
+        _StubMsg.BufferLength = 16U + 10U;
+        NdrPointerBufferSize( (PMIDL_STUB_MESSAGE) &_StubMsg,
+                              (unsigned char __RPC_FAR *)lplpName,
+                              (PFORMAT_STRING) &__MIDLFormatString.Format[4] );
+        
+        _StubMsg.BufferLength += 16;
+        
+        NdrStubGetBuffer(This, _pRpcChannelBuffer, &_StubMsg);
+        NdrPointerMarshall( (PMIDL_STUB_MESSAGE)& _StubMsg,
+                            (unsigned char __RPC_FAR *)lplpName,
+                            (PFORMAT_STRING) &__MIDLFormatString.Format[4] );
+        
+        _StubMsg.Buffer = (unsigned char __RPC_FAR *)(((long)_StubMsg.Buffer + 3) & ~ 0x3);
+        *(( HRESULT __RPC_FAR * )_StubMsg.Buffer)++ = _RetVal;
+        
+        }
+    RpcFinally
+        {
+        NdrPointerFree( &_StubMsg,
+                        (unsigned char __RPC_FAR *)lplpName,
+                        &__MIDLFormatString.Format[4] );
+        
+        }
+    RpcEndFinally
+    _pRpcMessage->BufferLength = 
+        (unsigned int)((long)_StubMsg.Buffer - (long)_pRpcMessage->Buffer);
+    
+}
+
+
+static const MIDL_STUB_DESC Object_StubDesc = 
+    {
+    0,
+    NdrOleAllocate,
+    NdrOleFree,
+    0,
+    0,
+    0,
+    0,
+    0,
+    __MIDLFormatString.Format,
+    0, /* -error bounds_check flag */
+    0x10001, /* Ndr library version */
+    0,
+    0x2000066, /* MIDL Version 2.0.102 */
+    0
+    };
+
+const CInterfaceProxyVtbl _ILookupProxyVtbl = 
+{
+    &IID_ILookup,
+    IUnknown_QueryInterface_Proxy,
+    IUnknown_AddRef_Proxy,
+    IUnknown_Release_Proxy ,
+    ILookup_LookupByName_Proxy ,
+    ILookup_LookupByNumber_Proxy
+};
+
+
+static const PRPC_STUB_FUNCTION ILookup_table[] =
+{
+    ILookup_LookupByName_Stub,
+    ILookup_LookupByNumber_Stub
+};
+
+const CInterfaceStubVtbl _ILookupStubVtbl =
+{
+    &IID_ILookup,
+    0,
+    5,
+    &ILookup_table[-3],
+    CStdStubBuffer_METHODS
+};
+
+#pragma data_seg(".rdata")
+
+#if !defined(__RPC_WIN32__)
+#error  Invalid build platform for this stub.
+#endif
+
+static const MIDL_FORMAT_STRING __MIDLProcFormatString =
+    {
+        0,
+        {
+			
+			0x4d,		/* FC_IN_PARAM */
+#ifndef _ALPHA_
+			0x1,		/* x86, MIPS & PPC Stack size = 1 */
+#else
+			0x2,		/* Alpha Stack size = 2 */
+#endif
+/*  2 */	NdrFcShort( 0x0 ),	/* Type Offset=0 */
+/*  4 */	
+			0x51,		/* FC_OUT_PARAM */
+#ifndef _ALPHA_
+			0x1,		/* x86, MIPS & PPC Stack size = 1 */
+#else
+			0x2,		/* Alpha Stack size = 2 */
+#endif
+/*  6 */	NdrFcShort( 0x4 ),	/* Type Offset=4 */
+/*  8 */	0x53,		/* FC_RETURN_PARAM_BASETYPE */
+			0x8,		/* FC_LONG */
+/* 10 */	
+			0x4d,		/* FC_IN_PARAM */
+#ifndef _ALPHA_
+			0x1,		/* x86, MIPS & PPC Stack size = 1 */
+#else
+			0x2,		/* Alpha Stack size = 2 */
+#endif
+/* 12 */	NdrFcShort( 0xc ),	/* Type Offset=12 */
+/* 14 */	
+			0x51,		/* FC_OUT_PARAM */
+#ifndef _ALPHA_
+			0x1,		/* x86, MIPS & PPC Stack size = 1 */
+#else
+			0x2,		/* Alpha Stack size = 2 */
+#endif
+/* 16 */	NdrFcShort( 0x4 ),	/* Type Offset=4 */
+/* 18 */	0x53,		/* FC_RETURN_PARAM_BASETYPE */
+			0x8,		/* FC_LONG */
+
+			0x0
+        }
+    };
+
+static const MIDL_FORMAT_STRING __MIDLFormatString =
+    {
+        0,
+        {
+			0x11, 0x8,	/* FC_RP [simple_pointer] */
+/*  2 */	
+			0x25,		/* FC_C_WSTRING */
+			0x5c,		/* FC_PAD */
+/*  4 */	
+			0x11, 0x14,	/* FC_RP [alloced_on_stack] */
+/*  6 */	NdrFcShort( 0x2 ),	/* Offset= 2 (8) */
+/*  8 */	
+			0x13, 0x8,	/* FC_OP [simple_pointer] */
+/* 10 */	
+			0x25,		/* FC_C_WSTRING */
+			0x5c,		/* FC_PAD */
+/* 12 */	
+			0x11, 0x8,	/* FC_RP [simple_pointer] */
+/* 14 */	
+			0x22,		/* FC_C_CSTRING */
+			0x5c,		/* FC_PAD */
+
+			0x0
+        }
+    };
+
+const CInterfaceProxyVtbl * _Lookup_ProxyVtblList[] = 
+{
+    ( CInterfaceProxyVtbl *) &_ILookupProxyVtbl,
+    0
+};
+
+const CInterfaceStubVtbl * _Lookup_StubVtblList[] = 
+{
+    ( CInterfaceStubVtbl *) &_ILookupStubVtbl,
+    0
+};
+
+PCInterfaceName const _Lookup_InterfaceNamesList[] = 
+{
+    "ILookup",
+    0
+};
+
+
+#define _Lookup_CHECK_IID(n)	IID_GENERIC_CHECK_IID( _Lookup, pIID, n)
+
+int __stdcall _Lookup_IID_Lookup( const IID * pIID, int * pIndex )
+{
+    
+    if(!_Lookup_CHECK_IID(0))
+        {
+        *pIndex = 0;
+        return 1;
+        }
+
+    return 0;
+}
+
+const ExtendedProxyFileInfo Lookup_ProxyFileInfo = 
+{
+    (PCInterfaceProxyVtblList *) & _Lookup_ProxyVtblList,
+    (PCInterfaceStubVtblList *) & _Lookup_StubVtblList,
+    (const PCInterfaceName * ) & _Lookup_InterfaceNamesList,
+    0, // no delegation
+    & _Lookup_IID_Lookup, 
+    1,
+    1
+};

BlackBox/_Windows_GUI/Com/Interfaces/Lookup/MAKEFILE

@@ -0,0 +1,57 @@
+# MAKEFILE
+
+# Builds Proxy/Stub DLL for LOOKUP.IDL
+
+#
+
+# Copyright (c) 1993-1995 Microsoft Corporation, All Rights Reserved
+
+all: Lookup.dll
+
+TARGET  = Lookup
+
+OUTFILE = $(TARGET).dll
+
+
+
+OBJS1   = Lookup_i.obj Lookup_p.obj
+
+OBJS2   = dlldata.obj
+
+OBJS    = $(OBJS1) $(OBJS2)
+
+
+
+LIBS    = rpcrt4.lib
+
+
+
+Lookup.dll: Lookup_i.obj Lookup_p.obj dlldata.obj Lookup.def Lookup.res
+	link /DLL -def:$(TARGET).DEF -out:$(OUTFILE) $(OBJS) $(LIBS) $(TARGET).RES
+
+
+
+Lookup_i.obj: Lookup_i.c Lookup.idl
+	cl -MD -c Lookup_i.c
+
+
+
+Lookup_p.obj: Lookup_p.c Lookup.h Lookup.idl
+	cl -MD -c Lookup_p.c
+
+
+
+dlldata.obj: dlldata.c Lookup.idl
+	cl -MD -c -DREGISTER_PROXY_DLL dlldata.c
+
+
+
+Lookup.res: Lookup.rc
+	rc /r $(TARGET).rc
+
+
+
+#Run MIDL.EXE to produce the source code
+
+Lookup.h Lookup_p.c Lookup_i.c dlldata.c: Lookup.idl
+	midl /ms_ext /app_config /c_ext /I \mstools\include $(TARGET).idl

BlackBox/_Windows_GUI/Com/Reg/DKoala1.reg

@@ -0,0 +1,12 @@
+REGEDIT
+HKEY_CLASSES_ROOT\Koala1.0 = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\Koala1.0\CLSID = {00021146-0000-0000-C000-000000000046}
+HKEY_CLASSES_ROOT\Koala = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\Koala\CurVer = Koala1.0
+HKEY_CLASSES_ROOT\Koala\CLSID = {00021146-0000-0000-C000-000000000046}
+
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046} = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\ProgID = Koala1.0
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\VersionIndependentProgID = Koala
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\InprocServer32 = C:\BlackBox\Com\DKoala1.dll
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\NotInsertable

BlackBox/_Windows_GUI/Com/Reg/EKoala1.reg

@@ -0,0 +1,12 @@
+REGEDIT
+HKEY_CLASSES_ROOT\Koala1.0 = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\Koala1.0\CLSID = {00021146-0000-0000-C000-000000000046}
+HKEY_CLASSES_ROOT\Koala = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\Koala\CurVer = Koala1.0
+HKEY_CLASSES_ROOT\Koala\CLSID = {00021146-0000-0000-C000-000000000046}
+
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046} = Koala Object Chapter 5
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\ProgID = Koala1.0
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\VersionIndependentProgID = Koala
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\LocalServer32 = C:\BlackBox\Com\Ekoala1.exe
+HKEY_CLASSES_ROOT\CLSID\{00021146-0000-0000-C000-000000000046}\NotInsertable

BlackBox/_Windows_GUI/Com/Rsrc/phone.html

@@ -0,0 +1,33 @@
+<HTML>
+<HEAD>
+<TITLE>ActiveX Demo - Phonebook</TITLE>
+</HEAD>
+
+<BODY>
+<H1>Simple Phone Book</H1>
+
+<OBJECT
+  CLASSID="CLSID:E67D346B-2A5B-11D0-ADBA-00C01500554E"
+  id=PhoneBook
+>
+</OBJECT>
+This page uses a small (40K) non-visual control which provides access
+to a phone book which also might run on a remote computer. This ActiveX
+control has been implemented with the DTC Component Pascal compiler.
+<P>
+Enter a name or a phone number and press the corresponding button:
+<P>
+<INPUT  TYPE="text"  NAME = "NameField"  SIZE=20>
+<INPUT  TYPE=BUTTON VALUE="Lookup by Name"  NAME="NameBtn">
+<INPUT  TYPE=BUTTON VALUE="Lookup by Number"  NAME="NumberBtn">
+
+<SCRIPT LANGUAGE=VBScript>
+Sub NameBtn_Onclick
+  alert "Phone number of " & NameField.value & ":    " & PhoneBook.LookupByName(NameField.value) 
+End Sub
+Sub NumberBtn_Onclick
+  alert "Name of line " & NameField.value & ":    " & PhoneBook.LookupByNumber(NameField.value) 
+End Sub
+</SCRIPT>
+</BODY>
+</HTML>