Class: AGTkVSplittedFrames
- Inherits:
-
AGTkSplittedFrames
- Object
- TkFrame
- TkFrameAdapter
- AGTkSplittedFrames
- AGTkVSplittedFrames
- Defined in:
- lib/a-tkcommons.rb
Instance Attribute Summary collapse
-
#left_frame ⇒ Object
readonly
Returns the value of attribute left_frame.
-
#right_frame ⇒ Object
readonly
Returns the value of attribute right_frame.
-
#splitter_frame ⇒ Object
readonly
Returns the value of attribute splitter_frame.
Attributes inherited from AGTkSplittedFrames
Attributes inherited from TkFrameAdapter
Instance Method Summary collapse
- #do_resize ⇒ Object
- #get_main_x ⇒ Object
- #hide(_name) ⇒ Object
- #hide_left ⇒ Object
- #hide_right ⇒ Object
-
#initialize(parent = nil, frame = nil, width = 10, slen = 5, perc = false, keys = nil) {|_self| ... } ⇒ AGTkVSplittedFrames
constructor
A new instance of AGTkVSplittedFrames.
- #is_left_hide? ⇒ Boolean
- #maximize(_frame) ⇒ Object
- #minimize(_frame) ⇒ Object
- #show(_name) ⇒ Object
Methods inherited from TkFrameAdapter
#add_moved_by, #attach_frame, #detach_frame, #refresh
Methods included from TkMovable
#moving_do_move_obj, #moving_do_press, #start_moving, #stop_moving
Constructor Details
#initialize(parent = nil, frame = nil, width = 10, slen = 5, perc = false, keys = nil) {|_self| ... } ⇒ AGTkVSplittedFrames
Returns a new instance of AGTkVSplittedFrames.
317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 |
# File 'lib/a-tkcommons.rb', line 317 def initialize(parent=nil, frame=nil, width=10, slen=5, perc=false, keys=nil) super(parent, frame, width, slen, keys) @left_frame = TkFrame.new(self, Arcadia.style('panel')) @frame1 = @left_frame if perc p_width = TkWinfo.screenwidth(self) x = (p_width/100*width).to_i else x = width end @left_frame.place( 'relx' => 0, 'x' => 0, 'y' => '0', 'relheight' => '1', 'rely' => 0, 'bordermode' => 'inside', 'width' => x ) @left_frame_obj = AGTkObjPlace.new(@left_frame, 'x', nil, false) @left_frame_obj.width = x @left_frame_obj.height = 0 @left_frame_obj.relwidth = 0 @left_frame_obj.relheight = 1 @splitter_frame = TkFrame.new(self, Arcadia.style('splitter')) @splitter_frame.place( 'relx' => 0, 'x' => x, 'y' => '0', 'relheight' => '1', 'rely' => 0, 'bordermode' => 'inside', 'width' => @slen ) @splitter_frame.bind_append( "ButtonRelease-1", proc{do_resize} ) #----- #----- # _self = self # @b_left = TkButton.new(nil, Arcadia.style('button')){ # image TkPhotoImage.new('dat'=>LEFT_SIDE_GIF) # } # # @b_right = TkButton.new(nil, Arcadia.style('button')){ # image TkPhotoImage.new('dat'=>RIGHT_SIDE_GIF) # } # @proc_unplace = proc{ # @b_left.unplace # @b_right.unplace # } # @splitter_frame.bind_append( # "B1-Motion", # proc{@splitter_frame.raise;@proc_unplace.call} # ) # @@last_b_left = nil # @@last_b_right = nil # @b_left.bind_append('ButtonPress-1',proc{_self.hide_left;@proc_unplace.call}) # @b_right.bind_append('ButtonPress-1',proc{_self.hide_right;@proc_unplace.call}) # @proc_place = proc{|x,y| # if !TkWinfo.mapped?(@b_left) # _x = TkWinfo.pointerx(self) - 10 # _y = TkWinfo.pointery(self) - 20 # if @@last_b_left != nil # @@last_b_left.unplace # @@last_b_right.unplace # end # @b_left.place('x'=>_x,'y'=>_y,'border'=>'outside') # @b_right.place('x'=>_x,'y'=>_y+25,'border'=>'outside') # @b_left.raise # @b_right.raise # @@last_b_left = @b_left # @@last_b_right = @b_right # if @thread_unplace # @thread_unplace.kill # end # @thread_unplace= Thread.new { # sleep(5) # @proc_unplace.call # kill # } # end # } # # @splitter_frame.bind_append( # 'ButtonPress-1', # proc{|x,y| # @thread_place= Thread.new { # @proc_place.call(x,y) # } # }, "%x %y") #----- #----- = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){ background '#4966d7' } .place( 'x' => 0, 'y' => 0, 'relwidth' => 1, 'bordermode' => 'outside', 'height' => 20 ) .bind_append( "ButtonPress-1", proc{hide_left} ) = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){ background '#118124' } .place( 'x' => 0, 'y' => 21, 'bordermode' => 'outside', 'height' => 20, 'relwidth' => 1 ) .bind_append( "ButtonPress-1", proc{hide_right} ) #----- #----- @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'x') @splitter_frame_obj.width = @slen @splitter_frame_obj.height = 0 @splitter_frame_obj.relwidth = 0 @splitter_frame_obj.relheight = 1 x = x + @slen @right_frame = TkFrame.new(self, Arcadia.style('panel')) @frame2 = @right_frame @right_frame.place( 'relwidth' => 1, 'relx' => 0, 'x' => x, 'y' => 0, 'width' => -x, 'relheight' => 1, 'rely' => 0, 'bordermode' => 'inside' ) @right_frame_obj = AGTkObjPlace.new(@right_frame, 'x', nil, false) @right_frame_obj.width = -x @right_frame_obj.height = 0 @right_frame_obj.relwidth = 1 @right_frame_obj.relheight = 1 @state = 'middle' yield(self) if block_given? end |
Instance Attribute Details
#left_frame ⇒ Object (readonly)
Returns the value of attribute left_frame.
316 317 318 |
# File 'lib/a-tkcommons.rb', line 316 def left_frame @left_frame end |
#right_frame ⇒ Object (readonly)
Returns the value of attribute right_frame.
316 317 318 |
# File 'lib/a-tkcommons.rb', line 316 def right_frame @right_frame end |
#splitter_frame ⇒ Object (readonly)
Returns the value of attribute splitter_frame.
316 317 318 |
# File 'lib/a-tkcommons.rb', line 316 def splitter_frame @splitter_frame end |
Instance Method Details
#do_resize ⇒ Object
479 480 481 482 483 484 485 486 |
# File 'lib/a-tkcommons.rb', line 479 def do_resize _x = @splitter_frame_obj.x0 _w = @splitter_frame_obj.w @left_frame_obj.width = _x @left_frame_obj.go(_x,0) @right_frame_obj.width = - _x - _w @right_frame_obj.amove(_x + _w,0) end |
#get_main_x ⇒ Object
471 472 473 474 475 476 477 |
# File 'lib/a-tkcommons.rb', line 471 def get_main_x if TkWinfo.manager(@parent)=='place' return TkPlace.info(@parent)['x'] / 2 else return 20 end end |
#hide(_name) ⇒ Object
549 550 |
# File 'lib/a-tkcommons.rb', line 549 def hide(_name) end |
#hide_left ⇒ Object
488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 |
# File 'lib/a-tkcommons.rb', line 488 def hide_left if (@state=='left') _w = @last @state = 'middle' @left_frame_obj.width = _w @left_frame_obj.go(_w,0) else _w = 0 @state = 'right' @last = @left_frame_obj.w end @left_frame_obj.amove(0,0) @left_frame_obj.obj.place_forget if @state=='right' @splitter_frame_obj.amove(_w,0) @right_frame_obj.width = - _w - @slen @right_frame_obj.amove(_w + @slen,0) end |
#hide_right ⇒ Object
510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 |
# File 'lib/a-tkcommons.rb', line 510 def hide_right if (@state=='right') _w = @last @state = 'middle' else _w = @right_frame_obj.w + @left_frame_obj.w #+ @slen @state = 'left' @last = @left_frame_obj.w end @right_frame_obj.width = - _w - @slen @right_frame_obj.amove(_w + @slen,0) @right_frame_obj.obj.unplace if @state=='left' @splitter_frame_obj.amove(_w,0) @left_frame_obj.width = _w @left_frame_obj.go(_w,0) end |
#is_left_hide? ⇒ Boolean
506 507 508 |
# File 'lib/a-tkcommons.rb', line 506 def is_left_hide? @left_frame_obj.w == 0 end |
#maximize(_frame) ⇒ Object
527 528 529 530 531 532 533 534 535 536 |
# File 'lib/a-tkcommons.rb', line 527 def maximize(_frame) super(_frame) case _frame when left_frame hide_right when right_frame hide_left end Tk.update end |
#minimize(_frame) ⇒ Object
538 539 540 541 542 543 544 545 546 547 |
# File 'lib/a-tkcommons.rb', line 538 def minimize(_frame) super(_frame) case _frame when left_frame hide_left when right_frame hide_right end Tk.update end |
#show(_name) ⇒ Object
552 553 |
# File 'lib/a-tkcommons.rb', line 552 def show(_name) end |