DataWindow :

- se non definita altezza maniglia, richiesta delle opzioni della ferramenta per ricavarne valore di default
- aggiunta forma dell'anta.

Designing/WinProject.lua

@@ -245,12 +245,6 @@ local function WinCalculate_AddHardware()
 end
 _G.WinCalculate_AddHardware = WinCalculate_AddHardware
 
-----------------------------------------------------------------------------------
-local function WinCreate_GetHardwareOptionPath()
-   WDG.HWDOPTPATH = WinCalculate.AddHardwareForSash( WDG.AREAID, true)
-end
-_G.WinCreate_GetHardwareOptionPath = WinCreate_GetHardwareOptionPath
-
 ----------------------------------------------------------------------------------
 local function WinCalculate_AddAccessories()
    WinCalculate.AddAccessories( WDG.FRAMEID, WDG.DRAW)
@@ -347,3 +341,30 @@ local function WinGetGlassesList()
 end
 _G.WinGetGlassesList = WinGetGlassesList
 
+----------------------------------------------------------------------------------
+local function WinGetSashShape()
+   -- recupero l'area richiesta
+   local vStack = { EgtGetFirstNameInGroup( GDB_ID.ROOT, WIN_AREA .. '*')}
+   local nAreaId
+   local i = 1
+   while vStack[i] do
+      local nAreaNbr = EgtGetInfo( vStack[i], WIN_AREA_NBR, 'i') or -1
+      if nAreaNbr == WDG.AREANBR then
+         nAreaId = vStack[i]
+         break
+      else
+         -- ricerco nelle sue sottoaree
+         local vChildren = EgtGetNameInGroup( vStack[i], WIN_AREA .. '*')
+         vStack = EgtJoinTables( vStack, vChildren)
+      end
+      i = i + 1
+   end
+   
+   -- se non l'ho trovata errore
+   if not nAreaId then
+      return
+   end
+   
+   WDG.SASHSHAPE = EgtGetInfo( nAreaId, WIN_SASH_SHAPE)
+end
+_G.WinGetSashShape = WinGetSashShape