REM {One Teamstudio Icon Modal by Chad Schelfhout.};
REM {Visit http://www.chadsmiley.com/OneTeamstudioIcon for the latest updates};

REM {Constants};
FullPath := “C:\\program files\\lotus\\notes\\”;
TeamstudioLastSelection := “TeamstudioLastSelection”;
ProfileName := “ChadSmiley Tools”;
DefaultSelection := “CIAO! Modal”;

REM {Get last selection for this database};
TeamstudioSelection := @GetProfileField( ProfileName ; TeamstudioLastSelection ; @UserName ) ;

Option := @Prompt( [OkCancelList] ; “Select Option” ; “What would you like to do:” ; @If( TeamstudioSelection = “” ; DefaultSelection ; TeamstudioSelection ) ; @Explode( “Analyzer Modal:Configurator Modal:CIAO! Modal:Delta Modal:Profiler Modal:Design Manager (Librarian) Modal:Librarian (Design Manager) Modal:Snapper:Form Snippet:Validator (Linkchecker) Modal:Linkchecker (Validator):Modal:Script Browser” ; “:” ) ) ;

REM {Set last selection for this database};
@SetProfileField( ProfileName ; TeamstudioLastSelection ; Option ; @UserName ) ;

REM {Execute the correct option.};
File := “Nothing”;
@If(
Option = “Analyzer Modal” ; @Command([Execute]; FullPath + “ndean.exe”; @DbColumn (“NAME”:”Nocache”;”") ) ;
Option = “Configurator Modal” ; @Command([Execute]; FullPath + “nconfy.exe”;@DbColumn (“NAME”:”Nocache”;”") ) ;
Option = “Script Browser” ; @Set( File ; @DbColumn( “TMS”:”NoCache” ; “CLSVIEW”) ) ;
Option = “Delta Modal” ; @Command([Execute]; FullPath + “ndelta.exe”;@DbColumn(“NAME”:”Nocache”;”") ) ;
Option = “CIAO! Modal” ; @Command([Execute]; FullPath + “nciao.exe”;@DbColumn(“NAME”:”Nocache”;”") ) ;
Option = “Profler Modal” ; @Command([Execute]; “nprofile.exe”;@DbColumn(“NAME”:”Nocache”;”") ) ;
Option = @Explode( “Librarian (Design Manager) Modal” : “Librarian (Design Manager) Modal” ; “:” ) ; @Command([Execute]; FullPath + “nlibr.exe”;@DbColumn(“NAME”:”Nocache”;”") ) ;
Option = “Snapper” ; @Set( File ; @DbColumn( “TMS”:”NoCache” ; “SNAP”) ) ;
Option = “Form Snippet” ; @Command( [FileImport]; “Form Snippet”;”") ;
Option = @Explode( “Linkchecker (Validator) Modal” : “Validator (Linkchecker) Modal” ; “:” ) ; @Command([Execute]; FullPath + “nvalidator.exe”;@DbColumn(“NAME”:”Nocache”;”") ) ;
“” );

REM {Only Analyzer and Validator open a database after execution.};
@If ( File != “Nothing” & Option = @Explode(“Analyzer Modal” : “Linkchecker (Validator) Modal” : “Validator (Linkchecker) Modal” ; “:” );
@Do(
@PostedCommand( [AddDatabase]; File );
@PostedCommand( [FileOpenDatabase]; File )
);
“” )

AnalysisFile := @DbLookup( “TMS” : “NoCache”; “DEAN” );
@If ( @IsText(AnalysisFile);
@Do(
@PostedCommand( [AddDatabase]; AnalysisFile );
@PostedCommand( [FileOpenDatabase]; AnalysisFile )
);
“” )

CIAO is:

@DbColumn( “TMS”:”NoCache” ; “CIAO”)

Any help would be appreacited.

Thanks!

Does everything work using Teamstudio’s icons? If that works can you post the code of the Teamstudio icon that is causing the problem.

I tried the modal icon.

Any info would be appreciated.