ChadSmiley Blog :: One Teamstudio Icon 1.1

Bookmark :

With the release of Teamstudio for Notes Edition 21 there is now 9 icons to choose from. Wait with the addition of Teamstudio Script Browser (which is free!!!) there is 10. My original One TeamStudio Icon only had 8 icons and I would foregt which icon is which. So this code will combine the 10 icons into one, which reduces bad clicks (at least for me). I have something like this:
One Teamstudio Icon 1.1 Icons

Teamstudio has also made some name changes in the last version or two so both names will show to help with the switch. The other annoying thing about the implementation of Teamstudio's tools is that they lock Designer while they are open. In one of Teamstudio's beta release they were testing the ability to launch a tool in Modal mode which would not lock Designer. This was very nice feature, but it was not implemented because it had some bugs according to them. The one Teamstudio icon that I implemented uses the modal implementation and I never had a problem.

I started using a profile document to store the last selected option. The profile document will allow each database to have its last selection remembered. This might seem like a little over kill but there will be some constancy between all Smiley Tools: Edit Document Fields and Toolbar Functions in the near future.

For this article I have split up the code into two sections: Teamstudio Modal, Teamstudio Standard. Use what ever fits your needs.

Teamstudio Modal (allows the use of Notes/Domino)

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

REM {Constants};
TeamstudioLastSelection := "TeamstudioLastSelection";
ProfileName := "ChadSmiley Tools";
DefaultSelection := "CIAO! Modal";

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

Option := @Prompt( kCancelList; "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(xecute "ndean.exe"; @DbColumn ("NAME":"Nocache";"") ) ;
   Option = "Configurator Modal" ; @Command(xecute "nconfy.exe";@DbColumn ("NAME":"Nocache";"") ) ;
   Option = "Script Browser" ; @Set( File ; @DbColumn( "TMS":"NoCache" ; "CLSVIEW") ) ;
   Option = "Delta Modal" ; @Command(xecute "ndelta.exe";@DbColumn("NAME":"Nocache";"") ) ;
   Option = "CIAO! Modal" ; @Command(xecute "nciao.exe";@DbColumn("NAME":"Nocache";"") ) ;
   Option = "Profler Modal" ; @Command(xecute "nprofile.exe";@DbColumn("NAME":"Nocache";"") ) ;
   Option = @Explode( "Librarian (Design Manager) Modal" : "Librarian (Design Manager) Modal" ; ":" ) ; @Command(xecute "nlibr.exe";@DbColumn("NAME":"Nocache";"") ) ;
   Option = "Snapper" ; @Set( File ; @DbColumn( "TMS":"NoCache" ; "SNAP") ) ;
   Option = "Form Snippet" ; @Command( ileImport "Form Snippet";"") ;
   Option = @Explode( "Linkchecker (Validator) Modal" : "Validator (Linkchecker) Modal" ; ":" ) ; @Command(xecute "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( ddDatabase File );
      @PostedCommand( ileOpenDatabase File )
   );
"" )

Teamstudio Standard

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

REM {Constants};
TeamstudioLastSelection := "TeamstudioLastSelection";
ProfileName := "ChadSmiley Tools";
DefaultSelection := "CIAO!";

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

Option := @Prompt( kCancelList; "Select Option" ; "What would you like to do:" ; @If( TeamstudioSelection = "" ; DefaultSelection ; TeamstudioSelection ) ; @Explode( "Analyzer:Configurator:CIAO!:Delta:Profiler:Design Manager (Librarian):Librarian (Design Manager):Snapper:Form Snippet:Validator (Linkchecker):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" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "DEAN" ) );
   Option = "Configurator" ; @Set( File ; @DbColumn( "TMS" : "NoCache"; "STAR" ) ) ;
   Option = "Script Browser" ; @Set( File ; @DbColumn( "TMS":"NoCache" ; "CLSVIEW") ) ;
   Option = "Delta" ; @Set( File ; @DbColumn( "TMS" : "NoCache"; "DIFF" ) ) ;
   Option = "CIAO!" ; @Set( File ; @DbColumn( "TMS" : "NoCache"; "CIAO" ) ) ;
   Option = "Profiler" ; @Set( File ; @DbColumn( "TMS" : "NoCache"; "PROFILE" ) ) ;
   Option = "Profler Modal" ; @Command(xecute "nprofile.exe";@DbColumn("NAME":"Nocache";"") ) ;
   Option = @Explode( "Design Manager (Librarian):Librarian (Design Manager)" ; ":" ) ; @Set( File ; @DbColumn( "TMS" : "NoCache"; "LIBR" ) );
   Option = "Snapper" ; @Set( File ; @DbColumn( "TMS":"NoCache" ; "SNAP") ) ;
   Option = "Form Snippet" ; @Command( ileImport "Form Snippet";"") ;
   Option = @Explode( "Linkchecker (Validator)" : "Validator (Linkchecker)" ; ":" ) ; @Set( File ; @DbColumn( "TMS" : "NoCache";"LINKCHK" ) ) ;
   "" );

REM {Only Analyzer and Validator open a database after execution.};
@If ( File != "Nothing" & Option = @Explode( "Analyzer" : "Linkchecker (Validator)" : "Validator (Linkchecker)" ; ":" );
   @Do(
      @PostedCommand( ddDatabase File );
      @PostedCommand( ileOpenDatabase File )
   );
"" )

Comments

1 - David try this, you might have to change the FullPath variable!

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 )
);
"" )

Posted by Chad At 08:21:24 PM On 04/17/2005 | - Website - |

2 - Is there setup needed for this to work? When I try to use it nothing happens.

I made sure that C:\program files\lotus\notes was in the path. The programs do launch from a dos box but not from the button.

I tried the modal icon.

Any info would be appreciated.

Posted by David At 07:47:36 AM On 04/13/2005 | - Website - |

3 - I have not seen this in years. When I originally started using the one icon that I saw this happen.

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

Posted by Chad At 09:25:40 PM On 04/13/2005 | - Website - |

4 - All my Team studio icons work - though I don't have all the products. The code for the Analyzer icon is:

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!

Posted by David At 11:28:52 AM On 04/15/2005 | - Website - |