diff --git a/LuaLibs/CalcPaths.lua b/LuaLibs/CalcPaths.lua
index b6f475d..fc35c94 100644
--- a/LuaLibs/CalcPaths.lua
+++ b/LuaLibs/CalcPaths.lua
@@ -1518,7 +1518,7 @@ function CalcPaths.Exec( nPartId)
          end
       end
       
-      if EgtProcessEvents( EgtIf( PRINT, 100, 0) + nIdx / #vLayIds * 100, 0) == 1 then
+      if EgtProcessEvents( EgtIf( PRINT, 200, 0) + nIdx / #vLayIds * 100, 0) == 1 then
          EgtDraw()
          return 
       end
diff --git a/LuaLibs/CalcSlices.lua b/LuaLibs/CalcSlices.lua
index 2541d49..b9c07da 100644
--- a/LuaLibs/CalcSlices.lua
+++ b/LuaLibs/CalcSlices.lua
@@ -335,8 +335,12 @@ function CalcSlices.Exec( nPartId, nStmId, HMax)
    local nRecalc = 0
    local dDeltaZStart = 0.2 
    --dDeltaZStart = 0
+   
    local vZSlices = ComputeZSlices( dZmin, dDeltaZStart, dZmax)
-   local nLayId = EgtParPlanesSurfTmInters( ORIG(), vtSlicing, vZSlices, nStmId, nPartId, GDB_RT.GLOB, TOLER) 
+   if EgtProcessEvents( 1, 0) == 1 then return end
+   local nLayId = EgtParPlanesSurfTmInters( ORIG(), vtSlicing, vZSlices, nStmId, nPartId, GDB_RT.GLOB, TOLER)
+   if EgtProcessEvents( 100, 0) == 1 then return end
+   
    local vErr = {}
    local vPrevCen = {}
    -- scorro i risultati dello slicing
@@ -561,7 +565,7 @@ function CalcSlices.Exec( nPartId, nStmId, HMax)
       end  
 
       -- passo al layer successivo
-      if EgtProcessEvents( nLayCnt / ( #vZSlices + 3) * 100, 0) == 1 then
+      if EgtProcessEvents( EgtIf( PRINT, 100, 0) + nLayCnt / ( #vZSlices + 3) * 100, 0) == 1 then
          EgtDraw()
          return 
       end
@@ -574,14 +578,14 @@ function CalcSlices.Exec( nPartId, nStmId, HMax)
    if nRibsLay then
       SlicingExtraObjects( vtSlicing, nRibsLay, TYPE.RIB, RIBS_GRP, RIBS_CRV)      
    end
-   if EgtProcessEvents( ( #vZSlices + 1) / ( #vZSlices + 3) * 100, 0) == 1 then return end
+   if EgtProcessEvents( EgtIf( PRINT, 100, 0) + ( #vZSlices + 1) / ( #vZSlices + 3) * 100, 0) == 1 then return end
    
    -- solidi per regioni con diverso numero di passate
    local nShellNbrLay = EgtGetFirstNameInGroup( s_nPartId, LAY_SHELL_NBR)
    if nShellNbrLay then
       SlicingExtraObjects( vtSlicing, nShellNbrLay, TYPE.EXTRA_SHELL, SHELL_NBR_GRP, SHELL_NBR_CRV)
    end
-   if EgtProcessEvents( ( #vZSlices + 2) / ( #vZSlices + 3) * 100, 0) == 1 then return end
+   if EgtProcessEvents( EgtIf( PRINT, 100, 0) + ( #vZSlices + 2) / ( #vZSlices + 3) * 100, 0) == 1 then return end
    
    -- solidi ausiliari
    local nAuxSolidsLay = EgtGetFirstNameInGroup( s_nPartId, LAY_AUX_SOLIDS)
@@ -589,7 +593,7 @@ function CalcSlices.Exec( nPartId, nStmId, HMax)
       AdjustAuxSolids( nAuxSolidsLay)
       SlicingExtraObjects( vtSlicing, nAuxSolidsLay, TYPE.AUX_SOLID, AUX_SOLIDS_GRP, AUX_SOLIDS_CRV)
    end
-   if EgtProcessEvents( ( #vZSlices + 3) / ( #vZSlices + 3) * 100, 0) == 1 then return end
+   if EgtProcessEvents( EgtIf( PRINT, 100, 0) + ( #vZSlices + 3) / ( #vZSlices + 3) * 100, 0) == 1 then return end
    
    -- eventuale segnalazione errori
    if #vErr > 0 then
diff --git a/LuaLibs/CalcToolPath.lua b/LuaLibs/CalcToolPath.lua
index df8373c..df34eea 100644
--- a/LuaLibs/CalcToolPath.lua
+++ b/LuaLibs/CalcToolPath.lua
@@ -1050,7 +1050,7 @@ function CalcToolPath.Exec( nPartId)
          nCrvGrpId = EgtGetNextName( nCrvGrpId, CONTOUR_GRP.."*")
       end
       
-      if EgtProcessEvents( EgtIf( PRINT, 200, 0) + nIdx / #vLayIds * 100, 0) == 1 then
+      if EgtProcessEvents( EgtIf( PRINT, 300, 0) + nIdx / #vLayIds * 100, 0) == 1 then
          EgtDraw()
          return 
       end
diff --git a/LuaLibs/RunCalcSolids.lua b/LuaLibs/RunCalcSolids.lua
index e668170..61b6088 100644
--- a/LuaLibs/RunCalcSolids.lua
+++ b/LuaLibs/RunCalcSolids.lua
@@ -258,9 +258,9 @@ function RunCalcSolids.Exec()
                      -- processo gli eventi
                      if ( nIdx % 20) == 0 then
                         EgtDraw()
-                        if EgtProcessEvents( nIdx / #vLayIds * 100, 0) == 1 then
-                           return
-                        end
+                        -- if EgtProcessEvents( nIdx / #vLayIds * 100, 0) == 1 then
+                        --   return
+                        -- end
                      end
                   end
          
@@ -268,7 +268,7 @@ function RunCalcSolids.Exec()
                   nCrvGrpId = EgtGetNextName( nCrvGrpId, CONTOUR_GRP.."*") or GDB_ID.NULL
                end
                EgtDraw()
-               if EgtProcessEvents( EgtIf( PRINT, 300, 0) + nIdx / #vLayIds * 100, 0) == 1 then
+               if EgtProcessEvents( EgtIf( PRINT, 400, 0) + nIdx / #vLayIds * 100, 0) == 1 then
                   return 
                end
             end
diff --git a/LuaLibs/RunGcodeGenerate.lua b/LuaLibs/RunGcodeGenerate.lua
index d1c1870..b019cb6 100644
--- a/LuaLibs/RunGcodeGenerate.lua
+++ b/LuaLibs/RunGcodeGenerate.lua
@@ -24,7 +24,7 @@ end
 function RunGcodeGenerate.Exec()
    
    -- aggiorno interfaccia
-   EgtProcessEvents( 501, 0)
+   EgtProcessEvents( 601, 0)
 
    -- Recupero il pezzo (per ora primo e unico)
    local nPartIndex = 1
@@ -45,7 +45,7 @@ function RunGcodeGenerate.Exec()
    local LayerParams = GetLayerParamsForGcodeGenerate( nPartId)
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 505, 0)
+   EgtProcessEvents( 605, 0)
 
    -- Ciclo sui layer
    local vEntId = {}
@@ -75,7 +75,7 @@ function RunGcodeGenerate.Exec()
    end
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 510, 0)
+   EgtProcessEvents( 610, 0)
 
    -- Imposto gruppo di lavoro
    EgtSetCurrMachGroup()
@@ -97,7 +97,7 @@ function RunGcodeGenerate.Exec()
    end
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 520, 0)
+   EgtProcessEvents( 620, 0)
 
    EgtSetMachiningGeometry( vEntId)
 
@@ -116,7 +116,7 @@ function RunGcodeGenerate.Exec()
    end
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 550, 0)
+   EgtProcessEvents( 650, 0)
 
    -- Salvo il progetto
    local sFilePath = EgtGetCurrFilePath()
@@ -125,7 +125,7 @@ function RunGcodeGenerate.Exec()
    EgtSaveFile()
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 580, 0)
+   EgtProcessEvents( 680, 0)
 
    -- Genero il programma CN
    local sInfo = 'EgtCAM5 ver.' .. EgtGetExeVersion() .. ' - ' .. sPath
@@ -135,7 +135,7 @@ function RunGcodeGenerate.Exec()
    end
 
    -- aggiorno interfaccia
-   EgtProcessEvents( 590, 0)
+   EgtProcessEvents( 690, 0)
 
    EgtResetCurrMachGroup()
 
@@ -154,7 +154,7 @@ function RunGcodeGenerate.Exec()
    end
    
    -- aggiorno interfaccia
-   EgtProcessEvents( 600, 0)
+   EgtProcessEvents( 700, 0)
 
 end
 
diff --git a/LuaLibs/RunMachParamFromSWCalc.lua b/LuaLibs/RunMachParamFromSWCalc.lua
index bb57aa2..286115d 100644
--- a/LuaLibs/RunMachParamFromSWCalc.lua
+++ b/LuaLibs/RunMachParamFromSWCalc.lua
@@ -170,7 +170,7 @@ function RunMachParamFromSWCalc.Exec()
          EgtSetInfo( nLayerResultId, KEY_LENGTH, dTotLayerLength)
          EgtSetInfo( nLayerResultId, KEY_SPEED, dSpeed)
          -- aggiorno interfaccia
-         EgtProcessEvents( 400 + ( nLayerIndex / nLayerQty * 100), 0)
+         EgtProcessEvents( 500 + ( nLayerIndex / nLayerQty * 100), 0)
          nLayerIndex = nLayerIndex + 1
          nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex) or EgtGetFirstNameInGroup( nPartId, "__" .. SLICE_LAYER .. nLayerIndex)
       end