/ld27

DebugWatch = DebugInstrument:extend

{

        _watches = {},

        visible = false,

 

        onNew = function (self)

                self.title.text = 'Watch'

                self.labels = self:add(Text:new{ font = self.font })

                self.values = self:add(Text:new{ font = self.font })

                self.lineHeight = self.labels._fontObj:getHeight()

 

                debugger.watch = function (exp, label) self:addExpression(exp, label) end

        end,

 

        -- Method: addExpression

        -- Adds an expression to be watched.

        --

        -- Arguments:

        --              expression - expression to evaluate as a string

        --              label - string label, defaults to expression

 

        addExpression = function (self, expression, label)

                self.visible = true

                table.insert(self._watches, { label = label or expression,

                                                                          func = loadstring('return ' .. expression) })

        

                self.contentHeight = #self._watches * self.lineHeight + 2 * self.spacing

        end,

 

        onUpdate = function (self)

                self.labels.text = ''

                self.values.text = ''

 

                for _, watch in pairs(self._watches) do

                        local ok, value = pcall(watch.func)

                        if not ok then value = nil end

                        self.labels.text = self.labels.text .. watch.label .. '\n'

                        self.values.text = self.values.text .. tostring(value) .. '\n'

                end

        end,

 

        onResize = function (self, x, y, width, height)

                self.labels.y, self.values.y = y + self.spacing, y + self.spacing

                self.labels.height, self.values.height = height, height

 

                self.labels.x = x + self.spacing

                self.labels.width = width / 2 - self.spacing * 2

                

                self.values.x = self.labels.x + self.labels.width + self.spacing

                self.values.width = self.labels.width

        end

}