Tip: Projects & BlackBox

From: Treutwein Bernhard <EX:/O=ZUV/OU=FIRST>
Date: Wed, 28 Apr 2004 11:42:15 +0000

----boundary-LibPST-iamunique-860690038_-_-
Content-type: text/plain

Dear BlackBox users,

A little known feature of BlackBox is the ability to use the
installation directory in read-only mode and have different
projects under different directories. This allows for
project specific configuration of the global menus etc.
This feature is hidden under "Server installation (Windows only)"
in "System/Docu/User-Man.odc". The only drawback is that you
have to modify the way you call BlackBox for different projects.

Enclosed is a little Visual-Basic script, which allows all
projects to be stored under some root path (H:\BlackBox in
my case) and to choose from this menu a project folder.
It then switches the current directory to this path (with
the result that File->Open offers you your project path)
and appends the /use path to the BlackBox command line.

For those of you, who have disabled the automatic (double
click) execution of VBS for security reasons, a tiny
BlackBox.cmd is included.

regards

--
	Bernhard Treutwein
	Bernhard.Treutwein(at)verwaltung uni-muenchen de (work)
	BdT(at)wildwein de (home)
------------------------------------------------------------ browse.vbs ----
' Author: Bernhard Treutwein BdT(at)wildwein de
' based on a hotline answer of the german computer magazin c't, issue 9/2004, p. 184
' original script and copyright available at: ftp://ftp.heise.de/pub/ct/listings/0409-184.zip
' modified with help of the original author Hajo Schulz [hajo.schulz{([at]})nowhere.xy' Last change: 28-Apr-2004
Option Explicit
Dim sh, app, fldr
Dim prg, arg, mypath, root
Dim i
Set sh = WScript.CreateObject("WScript.Shell")
Set app = Wscript.CreateObject("Shell.Application")
prg = "D:\Programme\BlackBox\BlackBox.exe"   ' Define prg as the full path name of your BlackBox installation
root = "H:\BlackBox\"                        ' Define root as the full path name of the root directory of your BlackBox Projects
set fldr = app.BrowseForFolder(0, "Please choose project folder" & CHR(10) & CHR(10) & "Cancel uses Blackbox Program directory", 65, root)
If fldr Is nothing then ' Cancel pushed, use default
  mypath = ""
 Else
  mypath = fldr.Self.Path
End If
If mypath = "" Then
  sh.Run prg, 1, false
 Else
  sh.CurrentDirectory = mypath
  sh.Run prg & " " & "/use " & mypath, 1, false
End If
---------------------------------------------------------- blackbox.cmd ----
C:\WINDOWS\System32\WScript.exe "d:\Programme\blackbox\browse.vbs"
----------------------------------------------------------------------------
----boundary-LibPST-iamunique-860690038_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERlYXIgQmxhY2tCb3ggdXNlcnMsXHBhcg0KXHBh
cg0KQSBsaXR0bGUga25vd24gZmVhdHVyZSBvZiBCbGFja0JveCBpcyB0aGUgYWJpbGl0eSB0byB1
c2UgdGhlIFxwYXINCmluc3RhbGxhdGlvbiBkaXJlY3RvcnkgaW4gcmVhZC1vbmx5IG1vZGUgYW5k
IGhhdmUgZGlmZmVyZW50XHBhcg0KcHJvamVjdHMgdW5kZXIgZGlmZmVyZW50IGRpcmVjdG9yaWVz
LiBUaGlzIGFsbG93cyBmb3JccGFyDQpwcm9qZWN0IHNwZWNpZmljIGNvbmZpZ3VyYXRpb24gb2Yg
dGhlIGdsb2JhbCBtZW51cyBldGMuXHBhcg0KVGhpcyBmZWF0dXJlIGlzIGhpZGRlbiB1bmRlciAi
U2VydmVyIGluc3RhbGxhdGlvbiAoV2luZG93cyBvbmx5KSJccGFyDQppbiAiU3lzdGVtL0RvY3Uv
VXNlci1NYW4ub2RjIi4gVGhlIG9ubHkgZHJhd2JhY2sgaXMgdGhhdCB5b3VccGFyDQpoYXZlIHRv
IG1vZGlmeSB0aGUgd2F5IHlvdSBjYWxsIEJsYWNrQm94IGZvciBkaWZmZXJlbnQgcHJvamVjdHMu
XHBhcg0KXHBhcg0KRW5jbG9zZWQgaXMgYSBsaXR0bGUgVmlzdWFsLUJhc2ljIHNjcmlwdCwgd2hp
Y2ggYWxsb3dzIGFsbFxwYXINCnByb2plY3RzIHRvIGJlIHN0b3JlZCB1bmRlciBzb21lIHJvb3Qg
cGF0aCAoSDpcXEJsYWNrQm94IGluXHBhcg0KbXkgY2FzZSkgYW5kIHRvIGNob29zZSBmcm9tIHRo
aXMgbWVudSBhIHByb2plY3QgZm9sZGVyLlxwYXINCkl0IHRoZW4gc3dpdGNoZXMgdGhlIGN1cnJl
bnQgZGlyZWN0b3J5IHRvIHRoaXMgcGF0aCAod2l0aFxwYXINCnRoZSByZXN1bHQgdGhhdCBGaWxl
LT5PcGVuIG9mZmVycyB5b3UgeW91ciBwcm9qZWN0IHBhdGgpXHBhcg0KYW5kIGFwcGVuZHMgdGhl
IC91c2UgcGF0aCB0byB0aGUgQmxhY2tCb3ggY29tbWFuZCBsaW5lLlxwYXINClxwYXINCkZvciB0
aG9zZSBvZiB5b3UsIHdobyBoYXZlIGRpc2FibGVkIHRoZSBhdXRvbWF0aWMgKGRvdWJsZVxwYXIN
CmNsaWNrKSBleGVjdXRpb24gb2YgVkJTIGZvciBzZWN1cml0eSByZWFzb25zLCBhIHRpbnkgXHBh
cg0KQmxhY2tCb3guY21kIGlzIGluY2x1ZGVkLlxwYXINClxwYXINCnJlZ2FyZHNccGFyDQotLVxw
YXINClx0YWIgQmVybmhhcmQgVHJldXR3ZWluXHBhcg0KXHRhYiBCZXJuaGFyZC5UcmV1dHdlaW4o
YXQpdmVyd2FsdHVuZyB1bmktbXVlbmNoZW4gZGUgKHdvcmspXHBhcg0KXHRhYiBCZFQoYXQpd2ls
ZHdlaW4gZGUgKGhvbWUpXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tIGJyb3dzZS52YnMgLS0tLVxwYXINCicgQXV0aG9yOiBC
ZXJuaGFyZCBUcmV1dHdlaW4gQmRUKGF0KXdpbGR3ZWluIGRlXHBhcg0KJyBiYXNlZCBvbiBhIGhv
dGxpbmUgYW5zd2VyIG9mIHRoZSBnZXJtYW4gY29tcHV0ZXIgbWFnYXppbiBjJ3QsIGlzc3VlIDkv
MjAwNCwgcC4gMTg0XHBhcg0KJyBvcmlnaW5hbCBzY3JpcHQgYW5kIGNvcHlyaWdodCBhdmFpbGFi
bGUgYXQ6IGZ0cDovL2Z0cC5oZWlzZS5kZS9wdWIvY3QvbGlzdGluZ3MvMDQwOS0xODQuemlwXHBh
cg0KJyBtb2RpZmllZCB3aXRoIGhlbHAgb2YgdGhlIG9yaWdpbmFsIGF1dGhvciBIYWpvIFNjaHVs
eiBbaGFqby5zY2h1bHpAaGVpc2UuZGVdXHBhcg0KJyBMYXN0IGNoYW5nZTogMjgtQXByLTIwMDRc
cGFyDQpccGFyDQpPcHRpb24gRXhwbGljaXRccGFyDQpEaW0gc2gsIGFwcCwgZmxkclxwYXINCkRp
bSBwcmcsIGFyZywgbXlwYXRoLCByb290XHBhcg0KRGltIGlccGFyDQpccGFyDQpTZXQgc2ggPSBX
U2NyaXB0LkNyZWF0ZU9iamVjdCgiV1NjcmlwdC5TaGVsbCIpXHBhcg0KU2V0IGFwcCA9IFdzY3Jp
cHQuQ3JlYXRlT2JqZWN0KCJTaGVsbC5BcHBsaWNhdGlvbiIpXHBhcg0KXHBhcg0KXHBhcg0KcHJn
ID0gIkQ6XFxQcm9ncmFtbWVcXEJsYWNrQm94XFxCbGFja0JveC5leGUiICAgJyBEZWZpbmUgcHJn
IGFzIHRoZSBmdWxsIHBhdGggbmFtZSBvZiB5b3VyIEJsYWNrQm94IGluc3RhbGxhdGlvblxwYXIN
CnJvb3QgPSAiSDpcXEJsYWNrQm94XFwiICAgICAgICAgICAgICAgICAgICAgICAgJyBEZWZpbmUg
cm9vdCBhcyB0aGUgZnVsbCBwYXRoIG5hbWUgb2YgdGhlIHJvb3QgZGlyZWN0b3J5IG9mIHlvdXIg
QmxhY2tCb3ggUHJvamVjdHNccGFyDQpccGFyDQpzZXQgZmxkciA9IGFwcC5Ccm93c2VGb3JGb2xk
ZXIoMCwgIlBsZWFzZSBjaG9vc2UgcHJvamVjdCBmb2xkZXIiICYgQ0hSKDEwKSAmIENIUigxMCkg
JiAiQ2FuY2VsIHVzZXMgQmxhY2tib3ggUHJvZ3JhbSBkaXJlY3RvcnkiLCA2NSwgcm9vdClccGFy
DQpJZiBmbGRyIElzIG5vdGhpbmcgdGhlbiAnIENhbmNlbCBwdXNoZWQsIHVzZSBkZWZhdWx0XHBh
cg0KICBteXBhdGggPSAiIlxwYXINCiBFbHNlXHBhcg0KICBteXBhdGggPSBmbGRyLlNlbGYuUGF0
aFxwYXINCkVuZCBJZlxwYXINClxwYXINCklmIG15cGF0aCA9ICIiIFRoZW5ccGFyDQogIHNoLlJ1
biBwcmcsIDEsIGZhbHNlXHBhcg0KIEVsc2VccGFyDQogIHNoLkN1cnJlbnREaXJlY3RvcnkgPSBt
eXBhdGhccGFyDQogIHNoLlJ1biBwcmcgJiAiICIgJiAiL3VzZSAiICYgbXlwYXRoLCAxLCBmYWxz
ZVxwYXINCkVuZCBJZlxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0gYmxhY2tib3guY21kIC0tLS1ccGFyDQpDOlxcV0lORE9XU1xc
U3lzdGVtMzJcXFdTY3JpcHQuZXhlICJkOlxcUHJvZ3JhbW1lXFxibGFja2JveFxcYnJvd3NlLnZi
cyJccGFyDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KfQ==
----boundary-LibPST-iamunique-860690038_-_---

Received on Wed Apr 28 2004 - 13:42:15 UTC