510Connectbot: src/org/tn5250j/framework/tn5250/Screen5250.java annotate

author	Carl Byington <carl@five-ten-sg.com>
date	Tue, 10 Jun 2014 13:31:30 -0700
parents	9ae1c889a64c
children	2a8b52dbc104

rev	line source
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	1 /**
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	2 * Title: Screen5250.java
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	3 * Copyright: Copyright (c) 2001 - 2004
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	4 * Company:
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	5 * @author Kenneth J. Pouncey
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	6 * @version 0.5
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	7 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	8 * Description:
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	9 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	10 * This program is free software; you can redistribute it and/or modify
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	11 * it under the terms of the GNU General Public License as published by
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	12 * the Free Software Foundation; either version 2, or (at your option)
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	13 * any later version.
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	14 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	15 * This program is distributed in the hope that it will be useful,
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	18 * GNU General Public License for more details.
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	19 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	20 * You should have received a copy of the GNU General Public License
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	21 * along with this software; see the file COPYING. If not, write to
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	22 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	23 * Boston, MA 02111-1307 USA
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	24 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	25 */
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	26 package org.tn5250j.framework.tn5250;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	27
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	28 import static org.tn5250j.TN5250jConstants.*;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	29
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	30 import java.text.DecimalFormat;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	31 import java.text.DecimalFormatSymbols;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	32 import java.text.NumberFormat;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	33 import java.text.ParseException;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	34 import java.util.Vector;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	35
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	36 import org.tn5250j.TN5250jConstants;
25 5949eb469a79 adding tn5250 files, native android logging Carl Byington <carl@five-ten-sg.com> parents: 10 diff changeset	37 import android.util.Log;
5949eb469a79 adding tn5250 files, native android logging Carl Byington <carl@five-ten-sg.com> parents: 10 diff changeset	38
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	39
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	40 public class Screen5250 {
26 9ae1c889a64c adding tn5250 files, native android logging Carl Byington <carl@five-ten-sg.com> parents: 25 diff changeset	41 private static final String TAG = "Screen5250";
32 b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	42 private ScreenFields screenFields;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	43 private int lastAttr;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	44 private int lastPos;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	45 private int lenScreen;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	46 private KeyStrokenizer strokenizer;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	47 private tnvt sessionVT;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	48 private vt320 buffer; // used to draw the screen
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	49 private int numRows = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	50 private int numCols = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	51 protected static final int initAttr = 32;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	52 protected static final char initChar = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	53 public boolean cursorActive = false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	54 public boolean cursorShown = false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	55 protected boolean insertMode = false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	56 private boolean keyProcessed = false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	57 private Rect dirtyScreen = new Rect();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	58
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	59 public int homePos = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	60 public int saveHomePos = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	61 private String bufferedKeys;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	62 public boolean pendingInsert = false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	63
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	64 public final static byte STATUS_SYSTEM = 1;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	65 public final static byte STATUS_ERROR_CODE = 2;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	66 public final static byte STATUS_VALUE_ON = 1;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	67 public final static byte STATUS_VALUE_OFF = 2;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	68
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	69 private StringBuffer hsMore = new StringBuffer("More...");
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	70 private StringBuffer hsBottom = new StringBuffer("Bottom");
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	71
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	72 // error codes to be sent to the host on an error
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	73 private final static int ERR_CURSOR_PROTECTED = 0x05;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	74 private final static int ERR_INVALID_SIGN = 0x11;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	75 private final static int ERR_NO_ROOM_INSERT = 0x12;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	76 private final static int ERR_NUMERIC_ONLY = 0x09;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	77 private final static int ERR_DUP_KEY_NOT_ALLOWED = 0x19;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	78 private final static int ERR_NUMERIC_09 = 0x10;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	79 private final static int ERR_FIELD_MINUS = 0x16;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	80 private final static int ERR_FIELD_EXIT_INVALID = 0x18;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	81 private final static int ERR_ENTER_NO_ALLOWED = 0x20;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	82 private final static int ERR_MANDITORY_ENTER = 0x21;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	83
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	84 private boolean guiInterface = false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	85 private boolean resetRequired = true;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	86 private boolean backspaceError = true;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	87 private boolean feError;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	88
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	89 // Operator Information Area
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	90 private ScreenOIA oia;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	91
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	92 // screen planes
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	93 protected ScreenPlanes planes;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	94
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	95 //Added by Barry
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	96 private StringBuffer keybuf;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	97
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	98
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	99
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	100 public Screen5250() {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	101
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	102 //Added by Barry
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	103 this.keybuf = new StringBuffer();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	104
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	105 try {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	106 jbInit();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	107 } catch (Exception ex) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	108 Log.w(TAG,"In constructor: ", ex);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	109 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	110 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	111
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	112 void jbInit() throws Exception {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	113
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	114 lastAttr = 32;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	115
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	116 // default number of rows and columns
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	117 numRows = 24;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	118 numCols = 80;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	119
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	120 setCursor(1, 1); // set initial cursor position
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	121
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	122 oia = new ScreenOIA(this);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	123 oia.setKeyBoardLocked(true);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	124
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	125 lenScreen = numRows * numCols;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	126
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	127 planes = new ScreenPlanes(this,numRows);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	128
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	129 screenFields = new ScreenFields(this);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	130 strokenizer = new KeyStrokenizer();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	131 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	132
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	133 protected ScreenPlanes getPlanes() {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	134 return planes;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	135 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	136
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	137 public final ScreenOIA getOIA() {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	138 return oia;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	139 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	140
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	141 protected final void setRowsCols(int rows, int cols) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	142
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	143 int oldRows = numRows;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	144 int oldCols = numCols;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	145
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	146 // default number of rows and columns
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	147 numRows = rows;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	148 numCols = cols;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	149
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	150 lenScreen = numRows * numCols;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	151
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	152 planes.setSize(rows);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	153
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	154 // If they are not the same then we need to inform the listeners that
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	155 // the size changed.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	156 if (oldRows != numRows \|\| oldCols != numCols)
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	157 fireScreenSizeChanged();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	158
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	159 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	160
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	161
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	162 public boolean isCursorActive() {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	163 return cursorActive;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	164
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	165 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	166
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	167 public boolean isCursorShown() {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	168 return cursorShown;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	169 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	170
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	171 public void setUseGUIInterface(boolean gui) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	172 guiInterface = gui;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	173 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	174
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	175 public void toggleGUIInterface() {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	176 guiInterface = !guiInterface;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	177 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	178
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	179 public void setResetRequired(boolean reset) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	180 resetRequired = reset;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	181 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	182
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	183 public void setBackspaceError(boolean onError) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	184 backspaceError = onError;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	185 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	186
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	187 /**
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	188 * Copy & Paste support
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	189 *
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	190 * @see {@link #pasteText(String, boolean)}
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	191 * @see {@link #copyTextField(int)}
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	192 */
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	193 public final String copyText(Rect area) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	194 StringBuilder sb = new StringBuilder();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	195 Rect workR = new Rect();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	196 workR.setBounds(area);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	197 Log.d(TAG,"Copying " + workR);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	198
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	199 // loop through all the screen characters to send them to the clip board
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	200 int m = workR.x;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	201 int i = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	202 int t = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	203
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	204 while (workR.height-- > 0) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	205 t = workR.width;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	206 i = workR.y;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	207 while (t-- > 0) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	208 // only copy printable characters (in this case >= ' ')
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	209 char c = planes.getChar(getPos(m - 1, i - 1));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	210 if (c >= ' ' && (planes.screenExtended[getPos(m - 1, i - 1)] & EXTENDED_5250_NON_DSP)
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	211 == 0)
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	212 sb.append(c);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	213 else
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	214 sb.append(' ');
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	215
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	216 i++;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	217 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	218 sb.append('\n');
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	219 m++;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	220 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	221 return sb.toString();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	222 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	223
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	224 /**
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	225 * Copy & Paste support
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	226 *
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	227 * @param content
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	228 * @see {@link #copyText(Rectangle)}
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	229 */
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	230 public final void pasteText(String content, boolean special) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	231 Log.d(TAG,"Pasting, special:"+special);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	232 setCursorActive(false);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	233
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	234 StringBuilder sb = new StringBuilder(content);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	235 StringBuilder pd = new StringBuilder();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	236
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	237 // character counters within the string to be pasted.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	238 int nextChar = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	239 int nChars = sb.length();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	240
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	241 int lr = getRow(lastPos);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	242 int lc = getCol(lastPos);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	243 resetDirty(lastPos);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	244
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	245 int cpos = lastPos;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	246 int length = getScreenLength();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	247
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	248 char c = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	249 boolean setIt;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	250
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	251 // save our current place within the FFT.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	252 screenFields.saveCurrentField();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	253
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	254 for (int x = nextChar; x < nChars; x++) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	255
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	256 c = sb.charAt(x);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	257
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	258 if ((c == '\n') \|\| (c == '\r')) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	259
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	260 Log.i(TAG,"pasted cr-lf>" + pd + "<");
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	261 pd.setLength(0);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	262 // if we read in a cr lf in the data stream we need to go
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	263 // to the starting column of the next row and start from there
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	264 cpos = getPos(getRow(cpos)+1,lc);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	265
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	266 // If we go paste the end of the screen then let's start over from
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	267 // the beginning of the screen space.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	268 if (cpos > length)
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	269 cpos = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	270 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	271 else {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	272
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	273 // we will default to set the character always.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	274 setIt = true;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	275
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	276 // If we are in a special paste scenario then we check for valid
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	277 // characters to paste.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	278 if (special && (!Character.isLetter(c) && !Character.isDigit(c)))
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	279 setIt = false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	280
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	281 // we will only push a character to the screen space if we are in
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	282 // a field
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	283 if (isInField(cpos) && setIt) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	284 planes.setChar(cpos, c);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	285 setDirty(cpos);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	286 screenFields.setCurrentFieldMDT();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	287 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	288 // If we placed a character then we go to the next position.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	289 if (setIt)
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	290 cpos++;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	291 // we will append the information to our debug buffer.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	292 pd.append(c);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	293 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	294 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	295
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	296 // if we have anything else not logged then log it out.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	297 if (pd.length() > 0)
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	298 Log.i(TAG,"pasted >" + pd + "<");
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	299
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	300 // restore out position within the FFT.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	301 screenFields.restoreCurrentField();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	302 updateDirty();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	303
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	304 // restore our cursor position.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	305 setCursor(lr + 1, lc + 1);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	306
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	307 setCursorActive(true);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	308
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	309 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	310
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	311 /**
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	312 * Copy & Paste support
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	313 *
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	314 * @param position
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	315 * @return
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	316 * @see {@link #copyText(int)}
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	317 */
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	318 public final String copyTextField(int position) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	319 screenFields.saveCurrentField();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	320 isInField(position);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	321 String result = screenFields.getCurrentFieldText();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	322 screenFields.restoreCurrentField();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	323 return result;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	324 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	325
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	326 /**
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	327 *
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	328 * Copy & Paste end code
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	329 *
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	330 */
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	331
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	332 /**
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	333 * Sum them
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	334 *
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	335 * @param which
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	336 * formatting option to use
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	337 * @return vector string of numberic values
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	338 */
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	339 public final Vector<Double> sumThem(boolean which, Rect area) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	340
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	341 StringBuilder sb = new StringBuilder();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	342 Rect workR = new Rect();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	343 workR.setBounds(area);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	344
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	345 // gui.rubberband.reset();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	346 // gui.repaint();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	347
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	348 Log.d(TAG,"Summing");
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	349
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	350 // obtain the decimal format for parsing
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	351 DecimalFormat df = (DecimalFormat) NumberFormat.getInstance();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	352
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	353 DecimalFormatSymbols dfs = df.getDecimalFormatSymbols();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	354
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	355 if (which) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	356 dfs.setDecimalSeparator('.');
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	357 dfs.setGroupingSeparator(',');
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	358 } else {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	359 dfs.setDecimalSeparator(',');
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	360 dfs.setGroupingSeparator('.');
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	361 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	362
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	363 df.setDecimalFormatSymbols(dfs);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	364
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	365 Vector<Double> sumVector = new Vector<Double>();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	366
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	367 // loop through all the screen characters to send them to the clip board
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	368 int m = workR.x;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	369 int i = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	370 int t = 0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	371
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	372 double sum = 0.0;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	373
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	374 while (workR.height-- > 0) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	375 t = workR.width;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	376 i = workR.y;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	377 while (t-- > 0) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	378
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	379 // only copy printable numeric characters (in this case >= ' ')
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	380 // char c = screen[getPos(m - 1, i - 1)].getChar();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	381 char c = planes.getChar(getPos(m - 1, i - 1));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	382 // if (((c >= '0' && c <= '9') \|\| c == '.' \|\| c == ',' \|\| c == '-')
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	383 // && !screen[getPos(m - 1, i - 1)].nonDisplay) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	384
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	385 // TODO: update me here to implement the nonDisplay check as well
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	386 if (((c >= '0' && c <= '9') \|\| c == '.' \|\| c == ',' \|\| c == '-')) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	387 sb.append(c);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	388 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	389 i++;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	390 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	391
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	392 if (sb.length() > 0) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	393 if (sb.charAt(sb.length() - 1) == '-') {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	394 sb.insert(0, '-');
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	395 sb.deleteCharAt(sb.length() - 1);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	396 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	397 try {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	398 Number n = df.parse(sb.toString());
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	399 // System.out.println(s + " " + n.doubleValue());
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	400
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	401 sumVector.add(new Double(n.doubleValue()));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	402 sum += n.doubleValue();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	403 } catch (ParseException pe) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	404 Log.w(TAG,pe.getMessage() + " at "
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	405 + pe.getErrorOffset());
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	406 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	407 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	408 sb.setLength(0);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	409 m++;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	410 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	411 Log.d(TAG,"" + sum);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	412 return sumVector;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	413 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	414
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	415 /**
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	416 * This will move the screen cursor based on the mouse event.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	417 *
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	418 * I do not think the checks here for the gui characters should be here but
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	419 * will leave them here for now until we work out the interaction. This
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	420 * should be up to the gui frontend in my opinion.
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	421 *
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	422 * @param pos
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	423 */
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	424 public boolean moveCursor(int pos) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	425
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	426 if (!oia.isKeyBoardLocked()) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	427
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	428 if (pos < 0)
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	429 return false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	430 // because getRowColFromPoint returns offset of 1,1 we need to
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	431 // translate to offset 0,0
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	432 // pos -= (numCols + 1);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	433
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	434 int g = planes.getWhichGUI(pos);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	435
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	436 // lets check for hot spots
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	437 if (g >= BUTTON_LEFT && g <= BUTTON_LAST) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	438 StringBuffer aid = new StringBuffer();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	439 boolean aidFlag = true;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	440 switch (g) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	441 case BUTTON_RIGHT:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	442 case BUTTON_MIDDLE:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	443 while (planes.getWhichGUI(--pos) != BUTTON_LEFT) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	444 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	445 case BUTTON_LEFT:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	446 if (planes.getChar(pos) == 'F') {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	447 pos++;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	448 } else
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	449 aidFlag = false;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	450
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	451 if (planes.getChar(pos + 1) != '='
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	452 && planes.getChar(pos + 1) != '.'
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	453 && planes.getChar(pos + 1) != '/') {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	454 Log.d(TAG," Hotspot clicked!!! we will send characters "
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	455 + planes.getChar(pos) + " " + planes.getChar(pos+1));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	456 aid.append(planes.getChar(pos));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	457 aid.append(planes.getChar(pos + 1));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	458 } else {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	459 Log.d(TAG," Hotspot clicked!!! we will send character "
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	460 + planes.getChar(pos));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	461 aid.append(planes.getChar(pos));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	462 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	463 break;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	464
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	465 }
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	466 if (aidFlag) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	467 switch (g) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	468
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	469 case BUTTON_LEFT_UP:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	470 case BUTTON_MIDDLE_UP:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	471 case BUTTON_RIGHT_UP:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	472 case BUTTON_ONE_UP:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	473 case BUTTON_SB_UP:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	474 case BUTTON_SB_GUIDE:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	475 sessionVT.sendAidKey(AID_ROLL_UP);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	476 break;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	477
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	478 case BUTTON_LEFT_DN:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	479 case BUTTON_MIDDLE_DN:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	480 case BUTTON_RIGHT_DN:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	481 case BUTTON_ONE_DN:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	482 case BUTTON_SB_DN:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	483 case BUTTON_SB_THUMB:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	484
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	485 sessionVT.sendAidKey(AID_ROLL_DOWN);
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	486 break;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	487 case BUTTON_LEFT_EB:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	488 case BUTTON_MIDDLE_EB:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	489 case BUTTON_RIGHT_EB:
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	490 StringBuffer eb = new StringBuffer();
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	491 while (planes.getWhichGUI(pos--) != BUTTON_LEFT_EB)
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	492 ;
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	493 while (planes.getWhichGUI(pos++) != BUTTON_RIGHT_EB) {
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	494 eb.append(planes.getChar(pos));
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	495 }
10 e773d0952613 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: 7 diff changeset	496 sessionVT.showURL(eb.toString());
32 b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	497 // take out the log statement when we are sure it is
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	498 // working
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	499 Log.i(TAG,"Send to external Browser: " + eb.toString());
b086dd794dba start tn5250 integration Carl Byington <carl@five-ten-sg.com> parents: 26 diff changeset	500 break;

32

b086dd794dba start tn5250 integration