fc-magnetite: src/ui3/bmi/mmiCalculatorMain.c annotate

annotate src/ui3/bmi/mmiCalculatorMain.c @ 663:cf1cfe12a54a

AT@SPENH command implemented in aci3

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sun, 24 May 2020 06:53:25 +0000
parents	6a4d9f47793e
children

rev	line source
420 e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 CONDAT (UK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 ********************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 This software product is the property of Condat (UK) Ltd and may not be
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 disclosed to any third party without the express permission of the owner.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 ********************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 $Project name: Basic MMI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 $Project code: BMI (6349)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 $Module: Calculator
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 $File: MmiCalculatorMain.c
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 $Revision: 1.0
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 $Author: Condat(UK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 $Date: 25/10/00
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 ********************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 Description
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 This provides the main calculator functionality
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 ********************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 $History: MmiCalculatorMain.c
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 25/10/00 Original Condat(UK) BMI version.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 xrashmic 20 Oct, 2005 MMI-SPR-33845
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 To display BACK softkey when no more character are left in the calulator editor
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 Oct 20, 2004 REF: CRR 25755 xnkulkar
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 Description: calculator -divide by zero operation is allowed.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 Fix: Display "Not Allowed" message when user tries to divide a number by 0 and do not perform the
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 division. Also, show the editor again so that user can enter a number other than 0.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 $End
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #define MAX_CALC_TOTAL 999999999
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #define MIN_CALC_TOTAL -99999999
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 /******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 Include Files
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #define ENTITY_MFW
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 /* includes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 #include <string.h>
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 #include <stdio.h>
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #include <stdlib.h>
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 #if defined (NEW_FRAME)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 #include "typedefs.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 #include "vsi.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 #include "pei.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 #include "custom.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 #include "gsm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 #include "STDDEFS.H"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 #include "custom.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 #include "gsm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 #include "vsi.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 #include "message.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 #include "prim.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 #include "aci_cmh.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 #include "mfw_mfw.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 #include "mfw_win.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 /* SPR#1428 - SH - New Editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 #ifndef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 #include "mfw_edt.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 #include "mfw_tim.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 #include "mfw_phb.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 #include "ksd.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 #include "psa.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 #include "mfw_icn.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 #include "mfw_mnu.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 #include "mfw_lng.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 #include "mfw_sat.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 #include "mfw_kbd.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 #include "mfw_nm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 #include "mfw_sms.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 #include "dspl.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 #include "MmiMmi.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 #include "MmiDummy.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 #include "MmiDialogs.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 #include "MmiLists.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 #include "MmiIdle.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 #include "MmiSoftKeys.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 #include "Mmiicons.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 #include "MmiMenu.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 #include "MmiMain.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 #include "MmiStart.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 #include "MmiPins.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 #include "MmiSettings.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 /* SPR#1428 - SH - New Editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 #include "ATBCommon.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 #include "ATBDisplay.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 #include "ATBEditor.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 #include "AUIEditor.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 #include "AUICalcEditor.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 #include "MmiEditor.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 #include "MmiBookShared.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 #include "mmiSmsMenu.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 #include "MmiCalculatorMain.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 #include "mmiColours.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 #include "cus_aci.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 #include "pcm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 Function Prototypes
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 static T_MFW_HND calc_create(MfwHnd parent_window);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 void calc_destroy(MfwHnd own_window);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 static void calcGetNumberCB( T_MFW_HND win, USHORT Identifier, SHORT reason );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 static void calcGetOperandCB( T_MFW_HND win, USHORT Identifier, SHORT reason );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 static void calc_DialogCB( T_MFW_HND win, USHORT event, SHORT identifier, void *parameter);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 T_MFW_HND calc_start(T_MFW_HND parent_window);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 double calcGetRunningTotal(void);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 char operatorSymbol(UBYTE operator);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 static void calc_menu_cb(T_MFW_HND parent_win, UBYTE identifier, UBYTE reason);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 Static Global Variable(s)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 static double running_total;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 static T_MFW_HND calculator_win = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 // Oct 20, 2004 REF: CRR 25755 xnkulkar
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 // Added this flag to detect 'divide by zero' operation
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 BOOL divideByZero = FALSE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 Public Functions
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 $Function: calculator
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 $Description: Starts the calculator function on user selection
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 $Returns: MFW_EVENT_CONSUMED if event handled, otherwise
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 MFW_EVENT_PASSED
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 $Arguments: menu, menu item
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 int calculator(MfwMnu* m, MfwMnuItem* i)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 T_MFW_HND parent = mfwParent( mfw_header());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 TRACE_FUNCTION("calculator()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 calc_start(parent);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 $Function: calcPlus
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 $Description: Handles the selction of the "Plus" option in the calculator menu
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 $Returns: MFW_EVENT_CONSUMED if event handled, otherwise
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 MFW_EVENT_PASSED
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 $Arguments: menu, menu item
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 int calcPlus(MfwMnu* m, MfwMnuItem* i)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 T_MFW_WIN* win_data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 tCalcData* data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 TRACE_FUNCTION("calcPlus()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 //if new window successfully created
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 if (calculator_win NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 { win_data = ( (T_MFW_HDR *) calculator_win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 data = (tCalcData*)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 data->operation = PLUS;//set the arithmetic operation
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 SEND_EVENT (calculator_win, CALC_ENTER_OPERAND, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 $Function: calcMinus
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 $Description: Handles the selection of the "Minus" option in the calculator menu
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 $Returns: MFW_EVENT_CONSUMED if event handled, otherwise
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 MFW_EVENT_PASSED
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 $Arguments: menu, menu item
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 int calcMinus(MfwMnu* m, MfwMnuItem* i)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 T_MFW_WIN* win_data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 tCalcData* data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 //if new window successfully created
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 TRACE_FUNCTION("calcMinus()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 if (calculator_win NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 { win_data = ( (T_MFW_HDR *) calculator_win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 data = (tCalcData*)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 data->operation = MINUS;//set the arithmetic operation
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 SEND_EVENT (calculator_win, CALC_ENTER_OPERAND, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 $Function: calcDivide
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 $Description: Handles the selection of the "Divide" option in the calculator menu
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 $Returns: MFW_EVENT_CONSUMED if event handled, otherwise
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 MFW_EVENT_PASSED
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 $Arguments: menu, menu item
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 int calcDivide(MfwMnu* m, MfwMnuItem* i)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 T_MFW_WIN* win_data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 tCalcData* data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 TRACE_FUNCTION("calcDivide()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 //if new window successfully created
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 if (calculator_win NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 { win_data = ( (T_MFW_HDR *) calculator_win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 data = (tCalcData*)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 data->operation = DIVIDE;//set the arithmetic operation
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 SEND_EVENT (calculator_win, CALC_ENTER_OPERAND, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 $Function: calcMultiply
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 $Description: Handles the selection of the "Multiply" option in the calculator menu
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 $Returns: MFW_EVENT_CONSUMED if event handled, otherwise
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 MFW_EVENT_PASSED
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 $Arguments: menu, menu item
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 int calcMultiply(MfwMnu* m, MfwMnuItem* i)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 T_MFW_WIN* win_data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 tCalcData* data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 TRACE_FUNCTION("calcMultiply()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 //if new window successfully created
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 if (calculator_win NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 { win_data = ( (T_MFW_HDR *) calculator_win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 data = (tCalcData*)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 data->operation = MULTIPLY;//set the arithmetic operation
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 SEND_EVENT (calculator_win, CALC_ENTER_OPERAND, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 // Oct 20, 2004 REF: CRR 25755 xnkulkar
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 $Function: info_screen_cb
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 $Description: Callback function for info screen
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 $Returns: nothing
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 $Arguments: Parent Window handle, identifier and reason
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 static void info_screen_cb(T_MFW_HND parent_win, UBYTE identifier, UBYTE reason)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 // Send CALC_ENTER_OPERAND event tp prompt the user to enter the operand again
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 SEND_EVENT (calculator_win, CALC_ENTER_OPERAND, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 $Function: calcEquals
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 $Description: Handles the selection of the "Equals" option in the calculator menu
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 $Returns: MFW_EVENT_CONSUMED if event handled, otherwise
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 MFW_EVENT_PASSED
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 $Arguments: menu, menu item
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 int calcEquals(MfwMnu* m, MfwMnuItem* i)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 TRACE_FUNCTION("calcEquals()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 // Oct 20, 2004 REF: CRR 25755 xnkulkar
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 // if 'divide by zero' operation is attempted
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 if(divideByZero == TRUE)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 divideByZero = FALSE; // disable the flag
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 info_screen(0, TxtNotAllowed, TxtNull,(T_VOID_FUNC) info_screen_cb); // display "Not Allowed" message
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 return MFW_EVENT_CONSUMED; // consume the event
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 if (calculator_win NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 SEND_EVENT (calculator_win, CALC_DISPLAY_RESULT, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 Private Functions
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 $Function: calcGetRunningTotal
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 $Description: If the calculator's running total value ever needs to be accessed by
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 code in another file, then this function ought to be made public to prevent
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 to allow safe access;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 $Returns: Calculator's running total (double)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 $Arguments: none
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 double calcGetRunningTotal(void)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 TRACE_FUNCTION("calcGetRunningTotal()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 return running_total;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 $Function: operatorSymbol
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 $Description: returns character corresponding to arithmetic operation
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 $Returns: Operator character
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 $Arguments: Operator enum
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 char operatorSymbol(UBYTE operator)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 TRACE_FUNCTION("operatorSymbol()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 switch (operator)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 case (PLUS): return '+'; // break; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 case (MINUS): return '-'; // break; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 case (MULTIPLY): return '*'; // break; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 case (DIVIDE): return '/'; // break; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 default: return '\0'; // break; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 $Function: calc_start
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 $Description: Creates the calculator window and calls for it to be initialised
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 $Returns: Window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 $Arguments: Parent Window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 T_MFW_HND calc_start(T_MFW_HND parent_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 T_MFW_HND win = calc_create(parent_window);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 TRACE_FUNCTION("calc_start()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 if (win NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 SEND_EVENT (win, CALC_INIT, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 return win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 $Function: calc_create
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 $Description: Creates the calculator window and connect the dialog data to it
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 $Returns: Window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 $Arguments: Parent Window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 static T_MFW_HND calc_create(MfwHnd parent_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 tCalcData * data = (tCalcData *)ALLOC_MEMORY (sizeof (tCalcData ));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 T_MFW_WIN * win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 TRACE_FUNCTION("calc_create()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 if (data EQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 return NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 // Create window handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 data->win = win_create (parent_window, 0, E_WIN_VISIBLE, NULL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 if (data->win EQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 return NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 // connect the dialog data to the MFW-window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 data->mmi_control.dialog = (T_DIALOG_FUNC)calc_DialogCB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 data->mmi_control.data = data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 win = ((T_MFW_HDR *)data->win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 win->user = (void *)data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 data->parent_win = parent_window;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 calculator_win = data->win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 return data->win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 $Function: calc_DialogCB
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 $Description: Callback function for the calculator window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 $Returns: nothing
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 $Arguments: Window, event, identifier (not used), parameter (not used)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 static void calc_DialogCB(T_MFW_HND win, USHORT e, SHORT identifier, void *parameter)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 T_MFW_WIN win_data = ( (T_MFW_HDR ) win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 tCalcData* data = (tCalcData *) win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 char display_buffer[28] = "";
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 // T_AUI_EDITOR_DATA editor_data; /* SPR#1428 - SH - New Editor data */ // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 // T_EDITOR_DATA editor_data; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 char* running_total_out;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 // char debug_buffer[50]; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 TRACE_FUNCTION("calc_DialogCB()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 switch( e )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 { //when window first created
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 case CALC_INIT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 { //set running total to 0 and display in editor
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 TRACE_EVENT("CALC-INIT-JGG");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 running_total = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 data->menu_options_win = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 /* SPR#1428 - SH - New editor: calc starts with 0 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 sprintf(data->buffer, "%s", "0"); /* SH - calc starts off with '0'*/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 sprintf(data->buffer, "%s", ""); /* SH - calc starts off with nothing*/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 calcSetEditor(win);//set editor with default attribute values
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 /* SPR#1428 - SH - New Editor changes: use calc editor */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 AUI_edit_SetEvents(&data->editor_data, 0, TRUE, FOREVER, (T_AUI_EDIT_CB)calcGetNumberCB);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 data->editor_win = AUI_calc_Start(win, &data->editor_data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 #else /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 data->editor_data.Callback = (T_EDIT_CB)calcGetNumberCB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 data->editor_win = editor_start(win, &(data->editor_data)); /* start the editor */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 //when an arithmetic operator has been selected from the calc menu
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 case CALC_ENTER_OPERAND:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 TRACE_EVENT("CALC_ENTER_OPERAND");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 /* This memory alloc seems to fix a problem where running_total_out
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 * would become an empty string after sevaral running calculations */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 running_total_out = (char)ALLOC_MEMORY(22sizeof(char)); /* SH - change malloc to ALLOC_MEMORY */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 running_total_out[0] = '\0';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 /* Display the first operand and the operator symbol
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 * above the operand to be entered */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 if ( (long)calcGetRunningTotal() == calcGetRunningTotal())
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 sprintf((char*)running_total_out, "%d", (long)calcGetRunningTotal());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 sprintf((char*)running_total_out, "%f", calcGetRunningTotal());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 if (running_total_out[8] == '.')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 running_total_out[8] = '\0';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 running_total_out[9] = '\0';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 sprintf((char*)display_buffer,"%s %c", running_total_out, operatorSymbol(data->operation));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 FREE_MEMORY((void)running_total_out, 22sizeof(char)); /* SH - change free to FREE_MEMORY */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 /* SPR#1428 - SH - Calc now starts off with '0' */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 sprintf(data->buffer, "%s", "0"); /* SH - calc starts off with '0'*/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 sprintf(data->buffer, "%s", ""); /* SH - calc starts off with nothing*/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 calcSetEditor(win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 /* SPR#1428 - SH - New Editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 AUI_edit_SetEvents(&data->editor_data, 0, TRUE, FOREVER, (T_AUI_EDIT_CB)calcGetOperandCB);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 AUI_edit_SetTextStr(&data->editor_data, TxtSoftOptions, TxtDelete, TxtCalculator, (UBYTE *)display_buffer);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 AUI_edit_SetAltTextStr(&data->editor_data, 1, TxtSoftOptions, TRUE, TxtSoftBack);//x0035544 17-11-2005
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 data->input_number_win = AUI_calc_Start(win, &data->editor_data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 #else /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 data->editor_data.TextString = display_buffer;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 data->editor_data.editor_attr.win.px = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 data->editor_data.editor_attr.win.py = Mmi_layout_line(3); //30
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 data->editor_data.editor_attr.win.sx = SCREEN_SIZE_X;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 data->editor_data.editor_attr.win.sy = numberLineHeight()+2;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 data->editor_data.Callback = (T_EDIT_CB)calcGetOperandCB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 data->input_number_win = editor_start(win, &(data->editor_data)); /* start the editor */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 /* Marcus: Issue 1039: 05/09/2002: Start */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 if (data->menu_options_win != NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 bookMenuDestroy( data->menu_options_win );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 data->menu_options_win = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 /* Marcus: Issue 1039: 05/09/2002: End */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 //when "Equals" selected from calc menu
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 case CALC_DISPLAY_RESULT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 //if running total out of display range, set it to 0
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 if ((calcGetRunningTotal() > MAX_CALC_TOTAL) \|\| (calcGetRunningTotal() < MIN_CALC_TOTAL))
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 running_total =0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 //Convert running total double to string
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 //if integer total, don't display any decimal places
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 if ( (long)calcGetRunningTotal() == calcGetRunningTotal())
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 sprintf(data->buffer, "%d", (long) calcGetRunningTotal());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 else //if a floating-point total, display as many decimal places as will fit
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 sprintf(data->buffer, "%f", (double) calcGetRunningTotal());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 //if last number in display is a decimal point
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 if (data->buffer[8] == '.')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 data->buffer[8] = '\0';//remove it
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 data->buffer[9] = '\0'; //ensure string is properly terminated
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 //ensure string is no longer than 9 chars
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 calcSetEditor(win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 /* SPR#1428 - SH - New Editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 AUI_edit_SetEvents(&data->editor_data, 0, TRUE, FOREVER, (T_AUI_EDIT_CB)calcGetNumberCB);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 AUI_calc_Start(win, &data->editor_data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 #else /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 data->editor_data.Callback = (T_EDIT_CB)calcGetNumberCB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 editor_start(win, &(data->editor_data)); /* start the editor */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 /* Marcus: Issue 1039: 05/09/2002: Start */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 if (data->menu_options_win != NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 bookMenuDestroy( data->menu_options_win );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 data->menu_options_win = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 /* Marcus: Issue 1039: 05/09/2002: End */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 TRACE_EVENT("calc_DialogCB(): Unknown Event");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 $Function: calcGetNumberCB
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 $Description: Callback function for the editor window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 $Returns: nothing
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 $Arguments: Window, identifier (not used), reason (not used)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 static void calcGetNumberCB( T_MFW_HND win, USHORT Identifier, SHORT reason)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 T_MFW_WIN win_data = ( (T_MFW_HDR ) win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 tCalcData data = (tCalcData ) win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 float after_decimal = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 int digits_after_point = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 int i;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 char* end;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 // char debug[40]; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 TRACE_FUNCTION("calcGetNumberCB()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 switch (reason )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 case INFO_KCD_LEFT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 { TRACE_EVENT("Left button pressed in calculator");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 //get the number entered before the decimal point
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 running_total = strtol(data->buffer, &end, 10);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 if (strlen(end) != 0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 { //if decimal point entered
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 if ((end[0] == '.') && isdigit(end[1]))//get number after decimal point
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 end++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 digits_after_point = strlen(end);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 after_decimal = strtol(end, &end, 10);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 //convert number after decimal point to it's actual fractional value
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 for (i=0; i < digits_after_point; i++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 after_decimal = after_decimal/10;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 //add whole number and fraction together
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 running_total = running_total + after_decimal;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 if (data->menu_options_win != NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 bookMenuDestroy( data->menu_options_win );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 //start the calculator option menu and kill this window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678 data->menu_options_win = bookMenuStart( data->win, calcOptionMenuAttributes(),0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 SEND_EVENT(data->menu_options_win, ADD_CALLBACK, NULL, (void *)calc_menu_cb);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 case INFO_KCD_HUP:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 case INFO_KCD_RIGHT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687 TRACE_EVENT("Right button pressed in calculator");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 calc_destroy(win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 /* otherwise no action to be performed
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 /calc_destroy(win); / /SH - do not destroy calc for other key /
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 $Function: calcGetOperandCB
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 $Description: Callback function for the editor window, when second number in operation
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 is entered.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 $Returns: nothing
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 $Arguments: Window, identifier (not used), reason (not used)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 static void calcGetOperandCB( T_MFW_HND win, USHORT Identifier, SHORT reason)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 T_MFW_WIN win_data = ( (T_MFW_HDR ) win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 tCalcData data = (tCalcData ) win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720 // char* buffer; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 float operand = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722 float after_decimal = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 int digits_after_point = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 int i;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 char* end;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 char debug[40];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 TRACE_FUNCTION("calcGetOperandCB()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 TRACE_EVENT_P2("ID, reason: %d, %d", Identifier, reason);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 switch (reason )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 case INFO_KCD_LEFT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 /* SPR#1428 - SH - New Editor: Can use '' or centre button as 'equals', to show result /
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736 #ifdef COLOURDISPLAY
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 case INFO_KCD_SELECT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 #endif /* COLOURDISPLAY */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 case INFO_KCD_STAR:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 { //Get whole number before decimal point
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 operand = strtol(data->buffer, &end, 10);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 //if buffer not pointing at an empty string now
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 if (strlen(end) != 0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 { //if decimal point entered
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 if ((end[0] == '.') && isdigit(end[1]))//get number after decimal point
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 end++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 digits_after_point = strlen(end);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 after_decimal = strtol(end, &end, 10);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 sprintf(debug,"Digits after decimal: %f.", after_decimal);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 //convert number after decimal point to an appropriate fraction
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 for (i=0; i < digits_after_point; i++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 after_decimal = after_decimal/10;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 //add whole and fraction together
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 operand = operand + after_decimal;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761 //perform the arithmetic function requested
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 switch (data->operation)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 case PLUS: running_total = running_total + operand; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 case MINUS: running_total = running_total - operand;break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 case MULTIPLY: running_total = running_total * operand;break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 case DIVIDE:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 // Oct 20, 2004 REF: CRR 25755 xnkulkar
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 // if the attempted division is by zero
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 if(operand == 0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 divideByZero = TRUE; // enable the flag
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 else // else perform the division operation
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 running_total = running_total / operand;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 default: TRACE_EVENT("Unknown calc operation"); break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 /* SPR#1428 - SH - New Editor: Can use '' as 'equals', to show result /
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 #ifdef COLOURDISPLAY
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 if (reason==INFO_KCD_STAR \|\| reason==INFO_KCD_SELECT)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786 #else /* COLOURDISPLAY */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 if (reason==INFO_KCD_STAR)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 #endif /* COLOURDISPLAY */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 TRACE_EVENT("Star key - show result");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 /* Star didn't destroy window automatically, do it here */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 if (data->menu_options_win != NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 bookMenuDestroy( data->menu_options_win );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 data->menu_options_win = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 if (data->input_number_win)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 AUI_calc_Destroy(data->input_number_win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 data->input_number_win = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 SEND_EVENT(data->win, CALC_DISPLAY_RESULT, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 //Show option menu
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 if (data->menu_options_win != NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809 bookMenuDestroy( data->menu_options_win );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 data->menu_options_win = bookMenuStart( data->win, calcOptionMenuAttributes(),0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 case INFO_KCD_HUP:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 case INFO_KCD_RIGHT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 TRACE_EVENT("Right button pressed in calculator");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 calc_destroy(win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826 /* otherwise no action to be performed
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 static void calc_menu_cb(T_MFW_HND parent_win, UBYTE identifier, UBYTE reason)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 T_MFW_WIN win_data = ( (T_MFW_HDR ) parent_win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 tCalcData* data = (tCalcData *) win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 TRACE_FUNCTION("calc_menu_cb()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840 //set menu window to NULL to prevent any dealloc problems
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 data->menu_options_win = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 calc_destroy(parent_win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849 $Function: calcSetEditor
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 $Description: Sets the editor attributes to defaults for the calculator module
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 $Returns: nothing
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 $Arguments: Window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858 void calcSetEditor(T_MFW_HND win)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 T_MFW_WIN win_data = ( (T_MFW_HDR ) win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 tCalcData* data = (tCalcData *) win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 TRACE_FUNCTION("calcSetEditor()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 /* SPR#1428 - SH - New Editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 AUI_edit_SetDefault(&data->editor_data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869 AUI_edit_SetDisplay(&data->editor_data, ZONE_FULL_SK_TITLE, COLOUR_EDITOR, EDITOR_FONT);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 AUI_edit_SetBuffer(&data->editor_data, ATB_DCS_ASCII, (UBYTE *)data->buffer, 10);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871 AUI_edit_SetMode(&data->editor_data, 0, ED_CURSOR_NONE);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 AUI_edit_SetEvents(&data->editor_data, 0, TRUE, FOREVER, NULL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873 AUI_edit_SetTextStr(&data->editor_data, TxtSoftOptions, TxtDelete, TxtCalculator, NULL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 //xrashmic 20 Oct, 2005 MMI-SPR-33845
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 //Editor always starts with min one character "0" and
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 //alterRight softkey is set to "BACK" here.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 data->editor_data.min_enter=1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 data->editor_data.AltRightSoftKey=TxtSoftBack ;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 AUI_edit_SetFormatAttr(&data->editor_data, DS_ALIGN_RIGHT);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 #else /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 editor_attr_init(&((data->editor_data).editor_attr), 0, edtCurBar1, 0, data->buffer, 10, COLOUR_EDITOR);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 editor_data_init( &data->editor_data, NULL, TxtSoftOptions, TxtDelete, NULL, 1, CALC_MODE, FOREVER);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 data->editor_data.hide = FALSE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885 data->editor_data.Identifier = 0xFFFF ;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 data->editor_data.destroyEditor = TRUE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 $Function: calc_destroy
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 $Description: Destroys the calculator editor window and frees up memory
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898 $Returns: nothing
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 $Arguments: Window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903 void calc_destroy(MfwHnd own_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905 T_MFW_WIN * win_data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 tCalcData * data = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 TRACE_EVENT ("calc_destroy()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 if (own_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 win_data = ((T_MFW_HDR *)own_window)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 if (win_data != NULL) //PATCH TB
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 data = (tCalcData *)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 if (data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 win_delete (data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 /* Marcus: Issue 1039: 05/09/2002: Start */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921 if (data->menu_options_win != NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923 bookMenuDestroy( data->menu_options_win );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 data->menu_options_win = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 /* Marcus: Issue 1039: 05/09/2002: End */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927 // Free Memory
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 FREE_MEMORY ((void *)data, sizeof (tCalcData));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 TRACE_EVENT ("calc_destroy() called twice");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940

FreeCalypso > hg > fc-magnetite

annotate src/ui3/bmi/mmiCalculatorMain.c @ 663:cf1cfe12a54a