home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / wpsorexx.zip / wpPalete.CMD < prev    next >
OS/2 REXX Batch file  |  2002-07-10  |  9KB  |  211 lines
  1. /******************************************************************************
  2.  * Modulname:      Make Editor Objects.
  3.  * Modultyp:       Rexx Batch.
  4.  * Beschreibung:   Create Editor Objekts for Different File Types.
  5.  * Author:         Martin Krischik
  6.  ******************************************************************************
  7.  * This program is free software; you can redistribute it and/or modify
  8.  * it under the terms of the GNU General Public License as published by
  9.  * the Free Software Foundation; either version 2 of the License, or
  10.  * (at your option) any later version.
  11.  *
  12.  * This program is distributed in the hope that it will be useful,
  13.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.  * GNU General Public License for more details.
  16.  *
  17.  * You should have received a copy of the GNU General Public License
  18.  * along with this program; if not, write to the Free Software
  19.  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  20.  ******************************************************************************
  21.  *
  22.  * RCS Daten:
  23.  *
  24.  *     $RCSfile: Editors.CMD,v $
  25.  *     $Source: P:\\Set\\Archive\\Tools\\Editors.CMD,v $
  26.  *
  27.  *     $Author:   Martin_Krischik  $
  28.  *     $Locker:  $
  29.  *
  30.  *     $Revision:   1.0  $
  31.  *     $Date:   24 Aug 1997 13:34:30  $
  32.  *     $State: Exp $
  33.  *     $Name: Current $
  34.  *
  35.  *  $Id: Editors.CMD,v 1.7 1996/09/09 10:05:57 Martin_Krischik Exp $
  36.  *  $Header:   G:/Archive/ORexx/WorkPlace/wpPalete.CMD,v   1.0   24 Aug 1997 13:34:30   Martin_Krischik  $
  37.  *
  38.  *  $Log:   G:/Archive/ORexx/WorkPlace/wpPalete.CMD,v  $
  39.  *
  40.  *     Rev 1.0   24 Aug 1997 13:34:30   Martin_Krischik
  41.  *  Workplace Shell support.
  42.  *
  43.  *****************************************************************************/
  44.  
  45. wpPalete:
  46.     TRACE ON
  47.  
  48.     wp = .MyWorkPlace~NEW;
  49.  
  50.     wp~SetPMDefaultColors = 1;
  51.     wp~SetPMColors        = 1;
  52.     wp~SetUserColors      = "MK";
  53.  
  54.     wp~SetFonts;
  55.  
  56.     wp~Verbose            = 1;
  57.  
  58.     Black                 ="  0   0   0";
  59.     DarkGrey              =" 96  96  96";
  60.     Grey                  ="128 128 128";
  61.     MediumGrey            ="160 160 160";
  62.     LightGrey             ="204 204 204";
  63.     White                 ="255 255 255";
  64.  
  65.     Blue                  ="  0   0 128";
  66.     LightBlue             ="  0   0 255";
  67.  
  68.     Green                 ="  0 182   0";
  69.  
  70.     Yellow                ="255 255   0";
  71.  
  72.     TitleBackgound        =" 64   0 128";
  73.     HiLightBackground     ="192   0   0";
  74.     DesktopBackground     ="  0 182 255";
  75.     ShadowForeground      ="  0   0 255";
  76.     NotebookBackground    ="  0 219 170";
  77.  
  78.     wp~Colors             = "ActiveBorder;"              ||LightGrey
  79.     wp~Colors             = "ActiveTitle;"               ||TitleBackgound;
  80.     wp~Colors             = "ActiveTitleText;"           ||White;
  81.     wp~Colors             = "ActiveTitleTextBgnd;"       ||TitleBackgound;
  82.  
  83.     wp~Colors             = "AppWorkspace;"              ||LightGrey;
  84.  
  85.     wp~Colors             = "Background;"                ||DesktopBackground;
  86.  
  87.     wp~Colors             = "ButtonDark;"                ||Grey
  88.     wp~Colors             = "ButtonDefault;"             ||HiLightBackground;
  89.     wp~Colors             = "ButtonLight;"               ||White;
  90.     wp~Colors             = "ButtonMiddle;"              ||LightGrey
  91.  
  92.     wp~Colors             = "DialogBackground;"          ||LightGrey
  93.  
  94.     wp~Colors             = "DesktopIconText;"           ||Black;
  95.     wp~Colors             = "DesktopIconTextBackground;" ||Black;
  96.  
  97.     wp~Colors             = "EntryField;"                ||White;
  98.  
  99.     wp~Colors             = "FieldBackground;"           ||LightGrey
  100.  
  101.     wp~Colors             = "FolderIconTextBackground;"  ||"T"||White;
  102.  
  103.     wp~Colors             = "HelpBackground;"            ||Green;
  104.     wp~Colors             = "HelpHilite;"                ||Yellow;
  105.     wp~Colors             = "HelpText;"                  ||White;
  106.  
  107.     wp~Colors             = "HiliteBackground;"          ||HiLightBackground;
  108.     wp~Colors             = "HiliteForeground;"          ||White;
  109.  
  110.     wp~Colors             = "IconText;"                  ||Black;
  111.  
  112.     wp~Colors             = "InactiveBorder;"            ||LightGrey;
  113.     wp~Colors             = "InactiveTitle;"             ||Grey;
  114.     wp~Colors             = "InactiveTitleText;"         ||LightGrey
  115.     wp~Colors             = "InactiveTitleTextBgnd;"     ||Grey;
  116.  
  117.     wp~Colors             = "Menu;"                      ||LightGrey
  118.     wp~Colors             = "MenuDisabledText;"          ||MediumGrey;
  119.     wp~Colors             = "MenuHilite;"                ||HiLightBackground;
  120.     wp~Colors             = "MenuHiliteText;"            ||White;
  121.     wp~Colors             = "MenuText;"                  ||Black;
  122.  
  123.     wp~Colors             = "OutputText;"                ||Black;
  124.  
  125.     wp~Colors             = "PageBackground;"            ||NotebookBackground;
  126.  
  127.     wp~Colors             = "Scrollbar;"                 ||Grey;
  128.  
  129.     wp~Colors             = "Shadow;"                    ||ShadowForeground;
  130.     wp~Colors             = "ShadowHiliteBgnd;"          ||HiLightBackground;
  131.     wp~Colors             = "ShadowHiliteFgnd;"          ||ShadowForeground;
  132.     wp~Colors             = "ShadowText;"                ||ShadowForeground;
  133.  
  134.     wp~Colors             = "TitleBottom;"               ||Grey;
  135.     wp~Colors             = "TitleText;"                 ||White;
  136.  
  137.     wp~Colors             = "Window;"                    ||White;
  138.     wp~Colors             = "WindowFrame;"               ||Grey;
  139.     wp~Colors             = "WindowStaticText;"          ||Blue;
  140.     wp~Colors             = "WindowText;"                ||Black;
  141.  
  142.     wp~Verbose            = 1;
  143.  
  144. /*
  145.  *
  146.  * DefaultFont
  147.  * IconText
  148.  * Menus
  149.  * WindowText
  150.  * WindowTitle
  151.  *
  152.  */
  153.  
  154.     wp~ObjectCreate('my colors;'                         ||,
  155.                     'WPSchemePalette;'                   ||,
  156.                     '<WP_CONFIG>;'                       ||,
  157.                     'XCELLCOUNT=3;'                      ||,
  158.                     'YCELLCOUNT=1;'                      ||,
  159.                     'AUTOSETUP=NO;'                      ||,
  160.                     'SCHEMES=Colors:PM_Colors,'          ||,
  161.                             'Default:PM_Default_Colors,' ||,
  162.                             'MK:PM_MK_Colors;'           ||,
  163.                     'OBJECTID=<mk_colors>'                 );
  164.  
  165.  
  166.     wp~ObjectSetData('<mk_colors>;'                       ||,
  167.                      'SCHEMES=Colors:PM_Colors,'          ||,
  168.                              'Default:PM_Default_Colors,' ||,
  169.                              'MK:PM_MK_Colors'              )
  170.  
  171.     wp~ObjectOpen('<mk_colors>');
  172. EXIT
  173.  
  174. ::REQUIRES "WorkPlace";
  175.  
  176. ::CLASS "MyWorkPlace" SUBCLASS WorkPlace
  177.  
  178. ::METHOD SetFonts UNGUARDED
  179.  
  180.     SELF~Verbose            = 2;
  181.  
  182.     IF SysOS2Ver() < 2.40 THEN
  183.       DO
  184.         SELF~Colors         = "DefaultFont;"               ||"13.System VIO";
  185.         SELF~Colors         = "IconTextFont;"              ||"8.Tms Rmn"
  186.         SELF~Colors         = "MenuTextFont;"              ||"8.Helv";
  187.         SELF~Colors         = "TitlebarTextFont;"          ||"10.Helv";
  188.         SELF~Colors         = "WindowTextFont;"            ||"12.Times New Roman";
  189.  
  190.         SELF~Fonts          = "Default;"                   ||"13.System VIO";
  191.         SELF~Fonts          = "IconText;"                  ||"8.Tms Rmn";
  192.         SELF~Fonts          = "Menus;"                     ||"8.Helv"
  193.         SELF~Fonts          = "WindowTitles;"              ||"10.Helv";
  194.         SELF~Fonts          = "WindowText;"                ||"12.Times New Roman";
  195.       END
  196.     ELSE
  197.       DO
  198.         SELF~Colors         = "DefaultFont;"               ||"9.WarpSans Bold";
  199.         SELF~Colors         = "IconTextFont;"              ||"8.Tms Rmn";
  200.         SELF~Colors         = "MenuTextFont;"              ||"8.Helv";
  201.         SELF~Colors         = "TitlebarTextFont;"          ||"9.WarpSans Bold";
  202.         SELF~Colors         = "WindowTextFont;"            ||"9.WarpSans";
  203.  
  204.         SELF~Fonts          = "Default;"                   ||"9.WarpSans Bold";
  205.         SELF~Fonts          = "IconText;"                  ||"8.Tms Rmn";
  206.         SELF~Fonts          = "Menus;"                     ||"8.Helv"
  207.         SELF~Fonts          = "WindowTitles;"              ||"9.WarpSans Bold";
  208.         SELF~Fonts          = "WindowText;"                ||"9.WarpSans";
  209.       END
  210. RETURN
  211.