Exemplo n.º 1
0
 public void InitializeTest()
 {
     this.R        = new RHelper.RHelper();
     this.R.rExec += new RHelper.RExececutedEventHandler(R_Log);
     this.R.Evaluate("library(OpenRepGrid)");
     Debug.Print("Disposed");
 }
Exemplo n.º 2
0
        public ProjectService(RHelper.RHelper r)
        {
            this.rEngine        = r;
            this.CurrentProject = new Project();

            this.rEngine.Evaluate("library(OpenRepGrid)");

            this.ShowTrim         = this.ShowTrim;
            this.ShowCut          = this.ShowCut;
            this.ShowScale        = this.ShowScale;
            this.ShowMeta         = this.ShowMeta;
            this.PrintConstructId = this.PrintConstructId;
            this.PrintElementId   = this.PrintElementId;
        }
Exemplo n.º 3
0
        public FormMain()
        {
            InitializeComponent();
            try
            {
                r                        = new RHelper.RHelper();
                this.r                   = new RHelper.RHelper();
                this.r.rExec            += new RHelper.RExececutedEventHandler(R_rExec);
                this.r.AutoPrint         = true;
                this.ucRConsole1.rEngine = this.r;


                this.Service = new ProjectService(r);
                this.Service.CurrentProject.Name = "<new name here>";
                this.Service.CurrentProject.ResetHasChanges();

                this.projectBindingSource.DataSource = this.Service;
                this.projectBindingSource.DataMember = "CurrentProject";

                ToolStripMenuItem parent = loadDemosFromLiteratureincludedInOpenRepGridToolStripMenuItem;
                foreach (String key in service.DemoData.Keys)
                {
                    ToolStripMenuItem m = new ToolStripMenuItem(key);
                    m.ToolTipText = service.DemoData[key];
                    m.Tag         = key;
                    m.Click      += new EventHandler(Load_Demo_Button_Click);
                    parent.DropDownItems.Add(m);
                }
                MessageBox.Show("this software is still in beta-Phase. -- The OpenRepGrid Library is programmed by Mark Heckmann.");
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message, "Error during init R-Instance -- Program terminates now.");
                Application.Exit();
                this.Close();
            }
        }