home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / ib / setups / intrabld / data.z / KBERROR.JFM < prev    next >
Text File  |  1996-12-11  |  4KB  |  136 lines
  1. /****************************************************************************\
  2. *                                                                            *
  3. * KBError.jfm  --  Knowledge Base Error Form                                 *
  4. *                                                                            *
  5. * KBError.jfm is part of the Knowledge Base solution application. It is used *
  6. * by the kbupdate form to indicate that an error occured.                    *
  7. *                                                                            *
  8. * Dependencies:  knowbs31.gif                                                *
  9. *                homepg31.gif                                                *
  10. *                paper_22.gif                                                *
  11. *                apps\shared\controls.cc                                     *
  12. *                                                                            *
  13. * Links to:      ibapps/index.htm                                            *
  14. *                                                                            *
  15. * Updated 11/13/96 by IntraBuilder Samples Group                             *
  16. * $Revision:   1.6  $                                                        *
  17. *                                                                            *
  18. * Copyright (c) 1996, Borland International, Inc. All rights reserved.       *
  19. *                                                                            *
  20. \****************************************************************************/
  21. // {End Header} Do not remove this comment//
  22. // Generated on 11/13/96
  23. //
  24. var f = new kberrorForm();
  25. f.open();
  26. class kberrorForm extends Form {
  27.    _sys.scripts.load(_sys.env.home() + "APPS\\SHARED\\CONTROLS.CC")
  28.    with (this) {
  29.       color = "ffffc4";
  30.       height = 14.5;
  31.       left = 0;
  32.       top = 0;
  33.       width = 62;
  34.       title = "Knowledge Base Error";
  35.       background = "filename PAPER_22.GIF";
  36.    }
  37.  
  38.  
  39.    with (this.rule1 = new Rule(this)){
  40.       top = 4;
  41.       size = 2;
  42.       right = 60;
  43.    }
  44.  
  45.  
  46.    with (this.rule2 = new Rule(this)){
  47.       top = 8.5;
  48.       size = 2;
  49.       right = 60;
  50.    }
  51.  
  52.  
  53.    with (this.rule3 = new Rule(this)){
  54.       top = 13;
  55.       size = 2;
  56.       right = 60;
  57.    }
  58.  
  59.  
  60.    with (this.KnowledgeBaseLogo = new Image(this)){
  61.       height = 3.4167;
  62.       width = 10.25;
  63.       dataSource = "filename KNOWBS31.GIF";
  64.       alignment = 4;
  65.    }
  66.  
  67.  
  68.    with (this.HeadingHTML = new HTML(this)){
  69.       height = 2;
  70.       left = 12;
  71.       width = 48;
  72.       color = "navy";
  73.       text = {||'<H1><FONT SIZE="+4"><FONT COLOR="maroon">K</FONT></FONT>nowledge <FONT SIZE="+4"><FONT COLOR="maroon">B</FONT></FONT>ase <FONT SIZE="+4"><FONT COLOR="maroon">E</FONT></FONT>rror</H1>'};
  74.    }
  75.  
  76.  
  77.    with (this.errorHTML = new HTML(this)){
  78.       height = 2;
  79.       top = 5;
  80.       width = 60;
  81.       color = "black";
  82.       text = "Insuffient rights to load update form.";
  83.    }
  84.  
  85.  
  86.    with (this.HomePageLinkImage = new Image(this)){
  87.       onImageClick = class::link_to_home_page;
  88.       height = 3.4167;
  89.       top = 9;
  90.       width = 10.25;
  91.       dataSource = "filename HOMEPG31.GIF";
  92.       alignment = 4;
  93.    }
  94.  
  95.  
  96.    with (this.HomePageLinkHTML = new HTML(this)){
  97.       height = 1;
  98.       left = 12;
  99.       top = 9;
  100.       width = 48;
  101.       color = "black";
  102.       text = "<A HREF='/ibapps/index.htm'>Return to Home Page</A>";
  103.    }
  104.  
  105.  
  106.    with (this.GeneratedHTML = new GeneratedHTML(this)){
  107.       height = 1;
  108.       top = 13.5;
  109.       width = 58;
  110.    }
  111.  
  112.  
  113.    with (this.backButton = new ServerBackButton(this)){
  114.       visible = false;
  115.       top = 7;
  116.       width = 10.5;
  117.    }
  118.  
  119.  
  120.    function link_to_home_page()
  121.    {
  122.       location.href="/ibapps/index.htm";
  123.    }
  124.  
  125.    function setError(error)
  126.    {
  127.       this.errorHTML.text = error;
  128.    }
  129.  
  130.    function enableBackButton()
  131.    {
  132.       this.backButton.visible = true;
  133.    }
  134.  
  135. }
  136.