|
Site Index - Feedback - Impressum |
| |||||||||
|
![[Forum]](../../../images.os2.org/de/forum.gif){kind=small} |
|
![[Forum]](../../../images.os2.org/de/forum2.gif){kind=small} |
| ( Archiv ) | ( Neues Thema ) |
| 23.08.2006 |
| Re: Kopf der Routine (13:20:31) | « ^ » |
| Bei mir sieht das Script anders aus und da werden die Funktionen aufgerufen.
/* tame Folder creation routine */ call rxfuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' call SysLoadFuncs arg workdir prgname = 'Tame/2' prgvers = 'Ver.1.0.3' CreateWPS: /* Check MMFolder class */ CALL SysQueryClassList "clist." SELECT WHEN DATATYPE(clist.0) <> 'NUM' THEN ismmf = 0 WHEN clist.0 = 0 THEN ismmf = 0 OTHERWISE DO ismmf = 0 DO i = 1 TO clist.0 IF WORD(clist.i,1) = 'MMFolder' THEN DO ismmf = i LEAVE i END END END END SELECT WHEN ismmf = 0 THEN imgfclass = 'WPFolder' OTHERWISE imgfclass = 'MMFolder' END DROP clist. /* Create WPS objects */ InstallDir = workdir FoldTitle = prgname Icon1 = InstallDir||'\Folder1.ico' Icon2 = InstallDir||'\Folder2.ico' Icon = 'ICONFILE='Icon1||';ICONNFILE=1,'||Icon2 Setup = 'OBJECTID=<TAME_2_FOLDER>;'||Icon||'' dummy = SysCreateObject('WPFolder',FoldTitle,'<WP_DESKTOP>',Setup,'U') FoldTitle = prgname||' Scripts' Setup = 'OBJECTID=<TAME_2_SCRIPTS>;ALWAYSSORT=YES' dummy = SysCreateObject('WPFolder',FoldTitle,'<TAME_2_FOLDER>',Setup,'R') FoldTitle = prgname||' Images' Setup = 'OBJECTID=<TAME_2_IMAGES>;ALWAYSSORT=YES' dummy = SysCreateObject(imgfclass,FoldTitle,'<TAME_2_FOLDER>',Setup,'R') title.1 = prgname setup.1 = 'OBJECTID=<TAME_2_PROG>;EXENAME='InstallDir'\Tame.exe;ICONFILE='InstallDir'\Tame.ico;STARTUPDIR='InstallDir'' title.2 = 'FaxView' setup.2 = 'OBJECTID=<TAME_2_FAXVIEW>;EXENAME='InstallDir'\FaxView.exe;ICONFILE='InstallDir'\FaxView.ico;STARTUPDIR='InstallDir'' title.3 = prgname||'^manual (English)' setup.3 = 'OBJECTID=<TAME_2_HLPENG>;EXENAME=View.exe;PARAMETERS='InstallDir'\English.inf;STARTUPDIR='InstallDir'' title.4 = 'FaxView^manual' setup.4 = 'OBJECTID=<TAME_2_FAXVIEWHLP>;EXENAME=View.exe;PARAMETERS='InstallDir'\FaxView.inf;STARTUPDIR='InstallDir'' title.0 = 4 DO i = 1 TO title.0 dummy = SysCreateObject('WPProgram',title.i,'<TAME_2_FOLDER>',setup.i,'U') END [ Leser: 43 ] |
| |||
| Mit * markierte Felder müssen ausgefüllt werden ! |
| ( Zeige alle Einträge ) | ( Zur Startübersicht ) |
|
| Sebastian Arendt | 98 | 22.08.2006 | 10:50 |
| Peter W. | 82 | 22.08.2006 | 13:41 |
| Sebastian Arendt | 60 | 22.08.2006 | 23:36 |
| 54 | 23.08.2006 | 08:25 |
| Sebastian Arendt | 48 | 23.08.2006 | 09:52 |
| 43 | 23.08.2006 | 13:20 |
| Klaus-Dieter | 43 | 23.08.2006 | 13:23 |
| 33 | 23.08.2006 | 21:10 |
| Peter W. | 28 | 24.08.2006 | 08:55 |
| 36 | 23.08.2006 | 15:52 |
|
