OS2.org - Forum - HelpDesk

Site Index - Feedback - Impressum

News

Software

Hardware

Projekte

Forum

Tipps

Links

Verschiedenes

Editorial

Diskussion

HelpDesk

Umfrage

in nach (Erweiterte Suche)

( Archiv )

( Neues Thema )

31.03.2006

Re: SO 5.1 unter ecs 1.2R nicht zu installieren (von: Herwig B., 16:08:37)

« ^

Folgendes Script installiert die StarOffice Dikumenten-Klassen (SOAGENT.DLL im LIBPATH vorausgesetzt):
-----------------------------------------<snip>---------------------------------
/* Register REXX API extensions. */
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs

/* Creation disposition.Update */
CreateCollision = 'Update'

Call RegisterClasses
Call CreateObjects
Exit

CreateObject: procedure
Parse Arg Class, Title, Location, Setup, Collision
Say 'Creating ['Title']'
rc = SysCreateObject( Class, Title, Location, Setup, Collision )
If rc <> 1 Then
Say ' > failed to create ['Title' | 'Class'] at location ['Location']'
return rc

CreateObjects:

rc = CreateObject( 'WPFolder',,
'StarOfficeDocTypes',,
'<WP_DESKTOP>',,
'NOTDEFAULTICON=YES;'||,
'NOPRINT=YES;'||,
'DEFAULTVIEW=CONTENTS;'||,
';'||,
';'||,
'HELPPANEL=15685;'||,
'ICONPOS=5,94;'||,
'SELFCLOSE=1;'||,
'BACKGROUND=?:\OS2\BITMAP\PLASTER.BMP,T,,I,255 255 255;'||,
'ICONFONT=9.WarpSans;'||,
'DETAILSFONT=9.WarpSans;'||,
'TREEFONT=9.WarpSans;'||,
'ICONVIEW=FLOWED,NORMAL;'||,
'DETAILSVIEW=MINI;'||,
'TREEVIEW=LINES,MINI;'||,
'SORTCLASS=WPFileSystem;'||,
'OBJECTID=<StarOfficeDocTypes>',,
CreateCollision )

rc = CreateObject( 'StarMathFile',,
'StarMathFile',,
'<StarOfficeDocTypes>',,
'DEFAULTVIEW=RUNNING;'||,
'HELPPANEL=15686;'||,
'ICONPOS=54,4294967295;'||,
'OBJECTID=<StarMathFile>',,
CreateCollision )

rc = CreateObject( 'StarChartFile',,
'StarChartFile',,
'<StarOfficeDocTypes>',,
'DEFAULTVIEW=RUNNING;'||,
'HELPPANEL=15686;'||,
'ICONPOS=33,0;'||,
'OBJECTID=<StarChartFile>',,
CreateCollision )

rc = CreateObject( 'StarWriterFile',,
'StarWriterFile',,
'<StarOfficeDocTypes>',,
'DEFAULTVIEW=RUNNING;'||,
'HELPPANEL=15686;'||,
'ICONPOS=61,0;'||,
'OBJECTID=<StarWriterFile>',,
CreateCollision )

rc = CreateObject( 'StarCalcFile',,
'StarCalcFile',,
'<StarOfficeDocTypes>',,
'HELPPANEL=15686;'||,
'ICONPOS=46,0;'||,
'OBJECTID=<StarCalcFile>',,
CreateCollision )

rc = CreateObject( 'StarImpressFile',,
'StarImpressFile',,
'<StarOfficeDocTypes>',,
'DEFAULTVIEW=RUNNING;'||,
'HELPPANEL=15686;'||,
'ICONPOS=17,0;'||,
'OBJECTID=<StarImpressFile>',,
CreateCollision )

rc = CreateObject( 'StarWriterGlobalFile',,
'StarWriterGlobalFile',,
'<StarOfficeDocTypes>',,
'DEFAULTVIEW=RUNNING;'||,
'HELPPANEL=15686;'||,
'ICONPOS=11,0;'||,
'OBJECTID=<StarWriterGlobalFile>',,
CreateCollision )

return

RegisterClasses:

If SysRegisterObjectClass( 'StarWriterFile', 'SOAGENT' ) <> 1 Then
Say 'Can''t register class StarWriterFile with SOAGENT.'
Else
Say 'Registered class StarWriterFile with SOAGENT.'

If SysRegisterObjectClass( 'StarMathFile', 'SOAGENT' ) <> 1 Then
Say 'Can''t register class StarMathFile with SOAGENT.'
Else
Say 'Registered class StarMathFile with SOAGENT.'

If SysRegisterObjectClass( 'StarWriterGlobalFile', 'SOAGENT' ) <> 1 Then
Say 'Can''t register class StarWriterGlobalFile with SOAGENT.'
Else
Say 'Registered class StarWriterGlobalFile with SOAGENT.'

If SysRegisterObjectClass( 'StarChartFile', 'SOAGENT' ) <> 1 Then
Say 'Can''t register class StarChartFile with SOAGENT.'
Else
Say 'Registered class StarChartFile with SOAGENT.'

If SysRegisterObjectClass( 'StarCalcFile', 'SOAGENT' ) <> 1 Then
Say 'Can''t register class StarCalcFile with SOAGENT.'
Else
Say 'Registered class StarCalcFile with SOAGENT.'

If SysRegisterObjectClass( 'StarImpressFile', 'SOAGENT' ) <> 1 Then
Say 'Can''t register class StarImpressFile with SOAGENT.'
Else
Say 'Registered class StarImpressFile with SOAGENT.'

return
-----------------------------------------<snip>---------------------------------
[ Leser: 59 ]

Datum

Thema

09.01.2017

Name: *

eMail:

Benachrichtigung

Mit * markierte Felder müssen ausgefüllt werden !