on deconstruct me 
  callAncestor(#deconstruct, [me])
  executeMessage(#roomdimmer_removed, me.getID())
  return TRUE
end

on define me, tProps 
  callAncestor(#define, [me], tProps)
  if voidp(tProps.getAt(#stripId)) then
    executeMessage(#roomdimmer_defined, me.getID())
  end if
  return TRUE
end

on select me 
  towner = 0
  tSession = getObject(#session)
  if tSession <> 0 then
    if tSession.GET("room_owner") then
      towner = 1
    end if
  end if
  if the doubleClick and towner then
    tStateOn = 0
    if (me.pState = 2) then
      tStateOn = 1
    end if
    executeMessage(#roomdimmer_selected, [#id:me.getID(), #furniOn:tStateOn])
  else
    return(callAncestor(#select, [me]))
  end if
  return TRUE
end

on setState me, tNewState 
  tNewState = string(tNewState)
  tDelim = the itemDelimiter
  the itemDelimiter = ","
  if tNewState.count(#item) < 5 then
    callAncestor(#setState, [me], 1)
    return FALSE
  end if
  tstate = tNewState.getProp(#item, 1)
  tPresetID = tNewState.getProp(#item, 2)
  tEffectId = tNewState.getProp(#item, 3)
  tColor = tNewState.getProp(#item, 4)
  tLightness = tNewState.getProp(#item, 5)
  the itemDelimiter = tDelim
  callAncestor(#setState, [me], tstate)
  tStateData = [:]
  tStateData.setaProp(#dimmerID, me.getID())
  tStateData.setaProp(#isOn, (tstate = 2))
  tStateData.setaProp(#presetID, value(tPresetID))
  tStateData.setaProp(#effectID, value(tEffectId))
  tStateData.setaProp(#color, rgb(tColor))
  tStateData.setaProp(#lightness, value(tLightness))
  executeMessage(#roomdimmer_set_state, tStateData)
end