Class: TkFloatTitledFrame
- Inherits:
-
TkBaseTitledFrame
- Object
- TkFrame
- TkBaseTitledFrame
- TkFloatTitledFrame
- Includes:
- TkMovable, TkResizable
- Defined in:
- lib/a-tkcommons.rb
Direct Known Subclasses
FindFrame, Findview, GoToLine, KeyTest, RunnerManager, TkProgressframe
Constant Summary
Constants included from TkResizable
TkResizable::MIN_HEIGHT, TkResizable::MIN_WIDTH
Instance Attribute Summary
Attributes inherited from TkBaseTitledFrame
Instance Method Summary collapse
-
#head_buttons ⇒ Object
def show_modal # not implemented end.
- #hide ⇒ Object
- #hide_if_visible ⇒ Object
-
#initialize(parent = nil, *args) ⇒ TkFloatTitledFrame
constructor
A new instance of TkFloatTitledFrame.
- #on_close=(_proc) ⇒ Object
- #show ⇒ Object
- #show_grabbed ⇒ Object
- #title(_text) ⇒ Object
Methods included from TkResizable
#resizing_do_move_obj, #resizing_do_press, #start_resizing, #stop_resizing
Methods included from TkMovable
#moving_do_move_obj, #moving_do_press, #start_moving, #stop_moving
Methods inherited from TkBaseTitledFrame
#add_fixed_button, #add_fixed_menu_button, #add_fixed_panel, #add_fixed_sep, #create_frame, #menu_button, #visible?
Constructor Details
#initialize(parent = nil, *args) ⇒ TkFloatTitledFrame
Returns a new instance of TkFloatTitledFrame.
1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 |
# File 'lib/a-tkcommons.rb', line 1421 def initialize(parent=nil, *args) super(parent) frame.place('height'=>-32) borderwidth 2 relief 'groove' @right_label = TkLabel.new(@top, Arcadia.style('titlelabel')){ anchor 'w' }.pack('fill'=>'x', 'side'=>'top') #.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1 ,'width'=>-20) @resizing_label=TkLabel.new(self, Arcadia.style('label')){ text '-' image Arcadia.image_res(EXPAND_LIGHT_GIF) }.pack('side'=> 'right','anchor'=> 's') start_moving(@right_label, self) start_moving(frame, self) start_resizing(@resizing_label, self) @grabbed = false # frame.bind_append('KeyPress'){|e| # p e.keysym # case e.keysym # when 'Escape' # p "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW" # hide # end # } Arcadia.instance.register_key_binding(self,"KeyPress[Escape]","ActionEvent.new(self, 'action'=>hide_if_visible)") end |
Instance Method Details
#head_buttons ⇒ Object
def show_modal
# not implemented
end
1497 1498 |
# File 'lib/a-tkcommons.rb', line 1497 def end |
#hide ⇒ Object
1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 |
# File 'lib/a-tkcommons.rb', line 1463 def hide @manager = TkWinfo.manager(self) if @manager == 'place' @x_place = TkPlace.info(self)['x'] @y_place = TkPlace.info(self)['y'] @width_place = TkPlace.info(self)['width'] @height_place = TkPlace.info(self)['height'] self.unplace end if @grabbed self.grab("release") @grabbed = false end self end |
#hide_if_visible ⇒ Object
1459 1460 1461 |
# File 'lib/a-tkcommons.rb', line 1459 def hide_if_visible hide if visible? end |
#on_close=(_proc) ⇒ Object
1455 1456 1457 |
# File 'lib/a-tkcommons.rb', line 1455 def on_close=(_proc) ('X', _proc, TAB_CLOSE_GIF) end |
#show ⇒ Object
1480 1481 1482 1483 1484 1485 |
# File 'lib/a-tkcommons.rb', line 1480 def show if @manager == 'place' self.place('x'=>@x_place, 'y'=>@y_place, 'width'=>@width_place, 'height'=>@height_place) end self.raise end |
#show_grabbed ⇒ Object
1487 1488 1489 1490 1491 |
# File 'lib/a-tkcommons.rb', line 1487 def show_grabbed show @grabbed = true self.grab("set") end |
#title(_text) ⇒ Object
1451 1452 1453 |
# File 'lib/a-tkcommons.rb', line 1451 def title(_text) @right_label.text(_text) end |