Class: ArcadiaDebug::VariablesViewText

Inherits:
TkTitledFrame
  • Object
show all
Defined in:
ext/ae-debug/ae-debug.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(parent = nil, title = '...', maximize_to = nil, keys = nil) ⇒ VariablesViewText

Returns a new instance of VariablesViewText.



177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
 
# File 'ext/ae-debug/ae-debug.rb', line 177

def initialize(parent=nil, title='...', maximize_to=nil ,keys=nil)
  super(parent, title, maximize_to, keys)
  @top_label.configure(:background => 'red')
  @text = TkText.new(self.frame,
  'relief' =>  'flat',
  'wrap' =>  'none'
  ){|j|
    parent = TkWinfo.parent(j)
    TkScrollbar.new(parent){|s|
      command proc{|*args| j.yview(*args)}
      j.yscrollcommand proc{|first,last| s.set first,last}
    }.pack('side'=>'right', 'fill'=>'y')
    TkScrollbar.new(parent){|s|
      command proc{|*args| j.xview(*args)}
      orient 'horizontal'
      j.xscrollcommand proc{|first,last| s.set first,last}
    }.pack('side'=>'bottom', 'fill'=>'x')
  }.place(
  'relwidth' => '1',
  'relx' => 0,
  'x' => '0',
  'y' => '0',
  'relheight' => '1',
  'rely' => 0,
  'height' => '-15',
  'bordermode' =>
  'inside',
  'width' => '-15'
  )
  place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
end

Instance Attribute Details

#text ⇒ Object (readonly)

Returns the value of attribute text.



175
176
177
 
# File 'ext/ae-debug/ae-debug.rb', line 175

def text
  @text
end