Class: ArcadiaDebug::VariablesViewText
- Inherits:
-
TkTitledFrame
- Object
- TkTitledFrame
- ArcadiaDebug::VariablesViewText
- Defined in:
- ext/ae-debug/ae-debug.rb
Instance Attribute Summary collapse
-
#text ⇒ Object
readonly
Returns the value of attribute text.
Instance Method Summary collapse
-
#initialize(parent = nil, title = '...', maximize_to = nil, keys = nil) ⇒ VariablesViewText
constructor
A new instance of VariablesViewText.
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 |