From bebf0abe29a56a3f8b1a54380c222bb4822dabd0 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 14 Oct 1994 18:13:00 +0000
Subject: [PATCH] Corretti cast funzionali

git-svn-id: svn://10.65.10.50/trunk@378 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba3700.cpp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ba/ba3700.cpp b/ba/ba3700.cpp
index 1d1272b8e..14ed26931 100755
--- a/ba/ba3700.cpp
+++ b/ba/ba3700.cpp
@@ -302,6 +302,7 @@ bool BA3700_application::sheet_action(int r, KEY k)
   case K_SPACE:
     break;
   case K_ENTER:
+  {     
     ns  = shf->row(r);     
     ts  = (TToken_string&)(*rws)[r];    
     
@@ -314,7 +315,10 @@ bool BA3700_application::sheet_action(int r, KEY k)
     {                            
       mod  = m_scad = TRUE;        
     }
-    if (real(ts.get(1)) != real(newp))  // modificata percentuale
+    const real p0(ts.get(1));
+    const real p1(newp);
+
+    if (p0 != p1)  // modificata percentuale
     {                
       mod  = m_perc = TRUE;        
     }
@@ -322,6 +326,7 @@ bool BA3700_application::sheet_action(int r, KEY k)
     {                 
       mod  = m_tipo = TRUE;      
     }
+  }
     break;
   case K_DEL:
   case K_INS: