fc-tourmaline: src/ui/bmi/mmiCalculatorMain.c annotate

annotate src/ui/bmi/mmiCalculatorMain.c @ 75:8697f358f505

backlight rework: Condat light driver accepts levels The present change is another intermediate step on the path toward new FreeCalypso backlight handling. At this intermediate step the Condat light driver accepts 0-255 backlight levels driven by MFW, and puts them out on PWL on Luna development boards. At the same time on C139 it is now possible to turn on the display backlight with or without the keypad bl - the lsb of the 0-255 backlight level controls the keypad bl. MFW presently drives only 0 and 255 backlight levels, thus there is no visible behavioral change yet - but the plan for subsequent stages of this backlight rework is to add a dimmed backlight state (no keypad bl on C139) during active calls.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sat, 24 Oct 2020 20:44:04 +0000
parents	67bfe9f274f6
children	c0052fe355d3

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

FreeCalypso > hg > fc-tourmaline

annotate src/ui/bmi/mmiCalculatorMain.c @ 75:8697f358f505