Class: RubyCurses::SplitPane

Inherits:
Widget
  • Object
show all
Defined in:
lib/rbcurse/rsplitpane.rb

Overview

A SplitPane allows user to split 2 components vertically or horizontally. such as textarea, table or a form, usually the underlying data is larger than what can be displayed. TODO -

Since:

  • 0.1.3

Constant Summary

Constants included from Io

Io::ERROR_COLOR_PAIR, Io::FOOTER_COLOR_PAIR, Io::LINEONE, Io::MAIN_WINDOW_COLOR_PAIR

Instance Attribute Summary collapse

Attributes inherited from Widget

#col_offset, #cols_panned, #config, #curpos, #ext_col_offset, #ext_row_offset, #form, #id, #parent_component, #row_offset, #rows_panned, #should_create_buffer, #state

Instance Method Summary collapse

Methods inherited from Widget

#OLDbind_key, #buffer_to_screen, #buffer_to_window, #create_buffer, #destroy, #destroy_buffer, #focus, #get_buffer, #get_color, #get_preferred_size, #getvalue_for_paint, #height=, #hide, #is_double_buffered?, #modified?, #move, #on_leave, #override_graphic, #printstring, #process_key, #remove, #repaint_all, #repaint_required, #rowcol, #safe_create_buffer, #set_buffer_modified, #set_buffering, #set_form, #set_modified, #setformrowcol, #setrowcol, #show, #text_variable, #unbind_key, #width=

Methods included from Io

#askchoice, #askyesno, #askyesnocancel, #clear_error, #clear_this, #get_string, #newaskyesno, #old_print_header, #old_print_top_right, #print_action, #print_error, #print_footer_help, #print_header, #print_headers, #print_help, #print_help_page, #print_in_middle, #print_key_labels, #print_key_labels_row, #print_screen_labels, #print_status, #print_this, #print_top_right, #rbgetstr

Methods included from Utils

#_process_key, #bind_key, #clean_string!, #get_color, #keycode_tos, #repeatm, #wrap_text

Methods included from ConfigSetup

#cget, #config_setup, #configure, #variable_set

Methods included from EventHandler

#bind, #fire_handler, #fire_property_change

Methods included from DSL

#OLD_method_missing

Constructor Details

#initialize(form, config = {}, &block) ⇒ SplitPane

Returns a new instance of SplitPane.

Since:

  • 0.1.3



49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
# File 'lib/rbcurse/rsplitpane.rb', line 49

def initialize form, config={}, &block
    @focusable = true
    @editable = false
    #@left_margin = 1
    @row = 0
    @col = 0
    super
    @row_offset = @col_offset = 1
    @orig_col = @col
    @use_absolute = true; # set to true if not using subwins XXX
    init_vars
    @subwin_created = true # set to true if you don't want subwins created
    @@ctr ||= 0
  if @@ctr == 0
  if @subwin_created == false
    #layout = { :height => @height, :width => @width, :top => @row, :left => @col }
    layout = { :height => @height-1, :width => @width-1, :top => @row+1, :left => @col+1 }
    @graphic = @graphic._subwin(layout)
    fw = form.window 
    raise "graphic nil #{@name} " unless @graphic
    $log.debug " SUBWIN CREATED "
    @subwin_created = true
    @target_window = @graphic
    @@ctr += 1
    @use_absolute = false
    bordercolor = @border_color || $datacolor
    borderatt = @border_attrib || Ncurses::A_NORMAL
  end
  end
end

Instance Attribute Details

#divider_location ⇒ Object (readonly)

Since:

  • 0.1.3



42
43
44
 
# File 'lib/rbcurse/rsplitpane.rb', line 42

def divider_location
  @divider_location
end

#last_divider_location=(value) ⇒ Object (writeonly)

Since:

  • 0.1.3



44
45
46
 
# File 'lib/rbcurse/rsplitpane.rb', line 44

def last_divider_location=(value)
  @last_divider_location = value
end

#one_touch_expandable ⇒ Object

boolean, default true

Since:

  • 0.1.3



47
48
49
 
# File 'lib/rbcurse/rsplitpane.rb', line 47

def one_touch_expandable
  @one_touch_expandable
end

#resize_weight ⇒ Object (readonly)

Since:

  • 0.1.3



43
44
45
 
# File 'lib/rbcurse/rsplitpane.rb', line 43

def resize_weight
  @resize_weight
end

Instance Method Details

#_switch_component ⇒ Object

TODO

Since:

  • 0.1.3



652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
 
# File 'lib/rbcurse/rsplitpane.rb', line 652

def _switch_component
    if @current_component != nil 
      if @current_component == @first_component
        @current_component = @second_component
      else
        @current_component = @first_component
      end
      set_form_row
    else
      # this happens in one_tab_expand
      @current_component = @second_component if @first_component.nil?
      @current_component = @first_component if @second_component.nil?
      set_form_row
    end
end

#c1 ⇒ Object

faster access to the 2 components

Since:

  • 0.1.3



204
 
# File 'lib/rbcurse/rsplitpane.rb', line 204

def c1; @first_component; end

#c2 ⇒ Object

Since:

  • 0.1.3



205
 
# File 'lib/rbcurse/rsplitpane.rb', line 205

def c2; @second_component; end

#first_component(comp) ⇒ true, false

Sets the first component (top or left)

XXX This originally working fine if the child was also a splitpane Now with other comps, it works fine with them if they create a buffer in const but now SPLP bombs since it creates a buffer in repaint.

Parameters:

  • comp (String) —

    comment

Returns:

  • (true, false) —

    comment

Since:

  • 0.1.3



115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
 
# File 'lib/rbcurse/rsplitpane.rb', line 115

def first_component(comp)
    screen_col = 1
    screen_row = 1 # offset for copying pad 2010-02-09 19:02 
    @first_component      = comp;
    @first_component.parent_component = self ## added 2010-01-13 12:54 
    ## These setting are quite critical, otherwise on startup
    ##+ it can create 2 tiled buffers.
    a = 0 # =1
    @first_component.row(@row + a)  
    @first_component.col(@col + a)
    comp.should_create_buffer = @_child_buffering 
    # adding ext_offsets 2010-02-09 13:39 
    # setting the form is again adding top and left which are the row and col from here.
    $log.debug "SPLP exp_row #{@name}, #{comp}  #{comp.ext_row_offset} += #{@ext_row_offset} + #{@row}   "
    $log.debug "SPLP exp_col  #{@name}  #{comp.ext_col_offset} += #{@ext_col_offset} + #{@col}   "
#XXX          comp.ext_row_offset += @ext_row_offset + @row - @subform1.window.top #0# screen_row
#XXX          comp.ext_col_offset += @ext_col_offset + @col [email protected] # 0# screen_col
    comp.ext_row_offset += @ext_row_offset + @row #- @subform1.window.top #0# screen_row
    comp.ext_col_offset += @ext_col_offset + @col #[email protected] # 0# screen_col

    ## trying out 2010-01-16 12:11 so component does not have to set size
    # The suggestd heights really depend on orientation.
     a = 0 # = 2
    if @orientation == :HORIZONTAL_SPLIT
       @first_component.height ||= @first_component.preferred_height || @height/2 - 1 #1
       @first_component.width ||= @first_component.preferred_width || @width - a
    else
       @first_component.height ||= @first_component.preferred_height || @height - a
       @first_component.width ||= @first_component.preferred_width || @width/2 -1
    end
    #layout = { :height => @height-1, :width => @width-1, :top => @row, :left => @col }
    comp.set_buffering(:target_window => @target_window || @form.window, :bottom => comp.height-1, :right => comp.width-1, :form => @form )
    comp.set_buffering(:screen_top => @row, :screen_left => @col)
    @first_component.min_height ||= 5
    @first_component.min_width ||= 5


    # if i set the above 2 to 0, it starts fine but then on any action loses the first row.
    # Just begun happeing suddenly! 2010-01-11 23:38 

    # 2010-01-11 22:32 dang, if component is like splitpane which sets in repaint
    # 2010-01-12 11:15 : for those who've created in constructor, i need to do this
    # so they don't print off. i need to find a way to have create_buffer pick an
    # explicit top and left.
    if !@first_component.get_buffer().nil?
      @first_component.get_buffer().set_screen_row_col(screen_row, screen_col)  # check this out XXX
      #@first_component.get_buffer().top=1;  # 2010-01-08 13:24 trying out
      #@first_component.get_buffer().left=1;  # 2010-01-08 13:24 trying out
    end
    @current_component ||= @first_component # added 2010-01-13 15:39 
end

#getvalue ⇒ Object

TODO

Since:

  • 0.1.3



649
650
651
 
# File 'lib/rbcurse/rsplitpane.rb', line 649

def getvalue
    # TODO
end

#handle_key(ch) ⇒ Object

Handles key for splitpanes By default, first component gets focus, not the SPL itself. + Mostly passing to child, and handling child’s left-overs. NOTE: How do we switch to the other outer SPL?

Since:

  • 0.1.3



671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
 
# File 'lib/rbcurse/rsplitpane.rb', line 671

def handle_key ch
  _multiplier = ($multiplier == 0 ? 1 : $multiplier )
  @current_component ||= @first_component
  ## 2010-01-15 12:57 this helps me switch between highest level 
  ## However, i should do as follows:
  ## If tab on second component, return UNHA so form can take to next field
  ## If B_tab on second comp, switch to first
  ## If B_tab on first comp, return UNHA so form can take to prev field
  if ch == 9
     _switch_component
     return 0
  end

  if @current_component != nil 
    ret = @current_component.handle_key ch
    return ret if ret != :UNHANDLED
  else
    ## added 2010-01-07 18:59 in case nothing in there.
    $log.debug " SPLP #{@name} - no component installed in splitpane"
    #return :UNHANDLED
  end
  $log.debug " splitpane #{@name} gets KEY #{ch}"
  case ch
  when ?\M-w.getbyte(0)
     # switch panes
    if @current_component != nil 
      if @current_component == @first_component
        @current_component = @second_component
      else
        @current_component = @first_component
      end
      set_form_row
    else
     _switch_component
     return 0
      # if i've expanded bottom pane, tabbed to opposite higher level, tabbing back
      # brings me to null first pane and i can't go to second, so switch
      # this was added for a non-realistic test program with embedded splitpanes
      #+ but no component inside them. At least one can go from one outer to another.
      #+ In real life, this should not come.

      return :UNHANDLED
    end
  when ?\M-V.getbyte(0)
    self.orientation(:VERTICAL_SPLIT)
    @repaint_required = true
  when ?\M-H.getbyte(0)
    self.orientation(:HORIZONTAL_SPLIT)
    @repaint_required = true
  when ?\M--.getbyte(0)
    self.set_divider_location(self.divider_location-_multiplier)
  when ?\M-\+.getbyte(0)
    self.set_divider_location(self.divider_location+_multiplier)
  when ?\M-\=.getbyte(0)
    self.set_resize_weight(0.50)
  #when ?\C-u.getbyte(0)
    ## multiplier. Series is 4 16 64
    #@multiplier = (@multiplier == 0 ? 4 : @multiplier *= 4)
    #return 0
  when ?\C-c.getbyte(0)
    $multiplier = 0
    return 0
  else
    # check for bindings, these cannot override above keys since placed at end
    ret = process_key ch, self
    return :UNHANDLED if ret == :UNHANDLED
  end
  $multiplier = 0
  return 0
end

#height(*val) ⇒ int

change height of splitpane

Parameters:

  • val (int) —

    new height of splitpane

Returns:

  • (int) —

    old ht if nil passed

Since:

  • 0.1.3



212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
 
# File 'lib/rbcurse/rsplitpane.rb', line 212

def height(*val)
    return @height if val.empty?
    oldvalue = @height || 0
    super
    @height = val[0]
    return if @first_component.nil? or @second_component.nil?
    delta = @height - oldvalue
    @repaint_required = true
    if !@cascade_boundary_changes.nil?
      # must tell children if height changed which will happen in nested splitpanes
      # must adjust to components own offsets too
      if @orientation == :VERTICAL_SPLIT
        @first_component.height += delta
        @second_component.height += delta
        # RFED16 2010-02-16 20:44 whenever we change dimensions need to update
        # buffering_params since we are not using Pad's buffer_to_screen
        @second_component.set_buffering(:bottom => @second_component.height-1)
        @first_component.set_buffering(:bottom => @first_component.height-1)
      else
        @second_component.height += delta
        @second_component.set_buffering(:bottom => @second_component.height-1)
      end
    end
end

#init_vars ⇒ Object

Since:

  • 0.1.3



79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
 
# File 'lib/rbcurse/rsplitpane.rb', line 79

def init_vars
    #should_create_buffer(true) #if should_create_buffer().nil?
    @divider_location ||= 10
    #@divider_offset ||= 1
    @divider_offset ||= 0
    #@curpos = @pcol = @toprow = @current_index = 0
    
    # cascade_changes keeps the child exactly sized as per the pane which looks nice
    #+ but may not really be what you want.
    @cascade_changes=true
    ## if this splp is increased (ht or wid) then expand the child
    @cascade_boundary_changes = true
    @orientation ||= :HORIZONTAL_SPLIT # added 2010-01-13 15:05 since not set

    # true means will request child to create a buffer, since cropping will be needed
    @_child_buffering = true # private, internal. not to be changed by callers.
    @one_touch_expandable = true
    @is_expanding = false

    bind_key([?\C-w, ?o], :expand)
    bind_key([?\C-w, ?1], :expand)
    bind_key([?\C-w, ?2], :unexpand)
    bind_key([?\C-w, ?x], :exchange)

end

#on_enter ⇒ Object

Since:

  • 0.1.3



744
745
746
 
# File 'lib/rbcurse/rsplitpane.rb', line 744

def on_enter
   set_form_row
end

#paint ⇒ Object

Since:

  • 0.1.3



741
742
743
 
# File 'lib/rbcurse/rsplitpane.rb', line 741

def paint
    @repaint_required = false
end

#repaint ⇒ Object

splitpane

Since:

  • 0.1.3



561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
 
# File 'lib/rbcurse/rsplitpane.rb', line 561

def repaint # splitpane
  if @graphic.nil?
    @graphic = @target_window || @form.window
    raise "graphic nil in rsplitpane #{@name} " unless @graphic
  end
#XXX        safe_create_buffer
  # this is in case, not called by form
  # we need to clip components
  # note that splitpanes can be nested

  if @repaint_required
    # Note: this only if major change
#XXX          @graphic.wclear
    @first_component.repaint_all(true) if !@first_component.nil?
    @second_component.repaint_all(true) if !@second_component.nil?
  end
  if @repaint_required
    ## paint border and divider
    $log.debug "SPLP #{@name} repaint split H #{@height} W #{@width} "
    bordercolor = @border_color || $datacolor
    borderatt = @border_attrib || Ncurses::A_NORMAL
    absrow = abscol = 0
    if @use_absolute
      absrow = @row
      abscol = @col
    end
    if @use_absolute
      $log.debug " #{@graphic} calling print_border #{@row} #{@col} "
      @graphic.print_border(@row, @col, @height-1, @width-1, bordercolor, borderatt)
    else
      $log.debug " #{@graphic} calling print_border 0,0"
      @graphic.print_border(0, 0, @height-1, @width-1, bordercolor, borderatt)
    end
    rc = @divider_location

    @graphic.attron(Ncurses.COLOR_PAIR(bordercolor) | borderatt)
    # 2010-02-14 18:23 - non buffered, have to make relative coords into absolute
    #+ by adding row and col
    if @orientation == :VERTICAL_SPLIT
      $log.debug "SPLP #{@name} prtingign split vline divider 1, rc: #{rc}, h:#{@height} - 2 "
      @graphic.mvvline(absrow+1, rc+abscol, 0, @height-2)
    else
      $log.debug "SPLP #{@name} prtingign split hline divider rc: #{rc} , 1 , w:#{@width} - 2"
      @graphic.mvhline(rc+absrow, abscol+1, 0, @width-2)
    end
    @graphic.attroff(Ncurses.COLOR_PAIR(bordercolor) | borderatt)
  end
  if @first_component != nil
    $log.debug " SPLP #{@name}  repaint 1c ..."
    # this means that some components will create a buffer with default top and left of 0 the
    # first time. Is there no way we can tell FC what top and left to use.
    update_first_component
    @first_component.repaint
    # earlier before repaint but bombs since some chaps create buffer in repaint
#XXX          @first_component.get_buffer().set_screen_row_col(1, 1)  # check this out XXX
    ## the next block is critical for when we switch from one orientation to the other
    ##+ We want first component to expand as much as possible
    if @orientation == :VERTICAL_SPLIT
#XXX            @first_component.get_buffer().set_screen_max_row_col(@height-2, @divider_location-1)
    else
#XXX            @first_component.get_buffer().set_screen_max_row_col(@divider_location-1, @width-2)
    end
#XXX          ret = @first_component.buffer_to_screen(@graphic)
#XXX          $log.debug " SPLP repaint  #{@name} fc ret = #{ret} "
  end
  if @second_component != nil
    $log.debug " SPLP repaint #{@name}  2c ... dl: #{@divider_location} "
    # this is required since c2 gets its row and col only after divider has been set
    update_second_component
    @second_component.repaint unless @divider_location == 0

    # we need to keep top and left of buffer synced with components row and col.
    # Since buffer has no link to comp therefore it can't check back.
#XXX          @second_component.get_buffer().set_screen_row_col(@second_component.row, @second_component.col)
    if @orientation == :VERTICAL_SPLIT
#XXX            @second_component.get_buffer().set_screen_max_row_col(@height-2, @width-2)
    else
#XXX            @second_component.get_buffer().set_screen_max_row_col(@height-2, @width-2)
    end

#XXX          ret = @second_component.buffer_to_screen(@graphic)
#XXX          $log.debug " SPLP repaint #{@name}  2c ret = #{ret} "
  end
#XXX        @buffer_modified = true
  @graphic.wrefresh # 2010-02-14 20:18 SUBWIN ONLY ??? what is this doing here ? XXX
  paint 
  # TODO
end

#reset_to_preferred_sizes ⇒ Object

resets divider location based on preferred size of first component You may want to check for ERROR and if so, resize_weight to 0.50

Returns:

  • :ERROR if min sizes failed

Since:

  • 0.1.3



525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
 
# File 'lib/rbcurse/rsplitpane.rb', line 525

def reset_to_preferred_sizes
  return if @first_component.nil?
    @repaint_required = true
    ph, pw = @first_component.get_preferred_size
    if @orientation == :VERTICAL_SPLIT
       pw ||= @width/2-1  # added 2010-01-16 12:31 so easier to use, 1 to 2 2010-01-16 22:13 
        rc = pw+1  ## added 1 2010-01-11 23:26 else divider overlaps comp
        @first_component.width ||= pw ## added 2010-01-11 23:19 
    else
       ph ||= @height/2 - 0 # 1  # added 2010-01-16 12:31 so easier to use
        rc = ph+0 #1  ## added 1 2010-01-11 23:26 else divider overlaps comp
        @first_component.height ||= ph ## added 2010-01-11 23:19 
    end
    set_divider_location rc
end

#second_component(comp) ⇒ true, false

Sets the second component (bottom or right)

Parameters:

  • comp (String) —

    comment

Returns:

  • (true, false) —

    comment

Since:

  • 0.1.3



172
173
174
175
176
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
 
# File 'lib/rbcurse/rsplitpane.rb', line 172

def second_component(comp)
    @second_component = comp;
    @second_component.parent_component = self ## added 2010-01-13 12:54 
    comp.should_create_buffer = @_child_buffering 
    ## jeez, we;ve postponed create of buffer XX
    ## trying out 2010-01-16 12:11 so component does not have to set size
    # The suggestd heights really depend on orientation.
    if @orientation == :HORIZONTAL_SPLIT
      @second_component.row(@row+@divider_location)
      @second_component.col(@col+@col_offset)
       @second_component.height ||= @second_component.preferred_height || @height/2 - 1 #1
       @second_component.width ||= @second_component.preferred_width || @width - 0 # 2
    else
      @second_component.row(@row+@row_offset)
      @second_component.col(@col+@divider_location)
       @second_component.height ||= @second_component.preferred_height || @height - 0 # 2
       @second_component.width ||= @second_component.preferred_width || @width/2 -4 # 1 to 4 2010-01-16 22:10  TRYING COULD BREAK STUFF testsplit3a;s right splitpane
    # added 2010-01-16 23:55 
    end
    comp.ext_row_offset += @ext_row_offset + @row
    $log.debug "SPLP exp_col #{@name} 2 #{comp}:  #{comp.ext_col_offset} += #{@ext_col_offset} + #{@col}  "
    comp.ext_col_offset += @ext_col_offset + @col 
    layout = { :height => @height-1, :width => @width-1, :top => comp.row, :left => comp.col }
    comp.set_buffering(:target_window => @target_window || @form.window, :bottom => comp.height-1, 
                       :right => comp.width-1, :form => @form )
    $log.debug " setting c2 screen_top n left to #{@row} #{@col} "
    @second_component.set_buffering(:screen_top => @row, :screen_left => @col)
    @second_component.min_height ||= 5 # added 2010-01-16 12:37 
    @second_component.min_width ||= 5 # added 2010-01-16 12:37 
end

#set_divider_location(rc) ⇒ Object

set location of divider (row or col depending on orientation) internally sets the second components row or col also to set widths or heights Check minimum sizes are not disrespected + when pane size exceeds buffer size, so in these cases we increase size of component + and therefore buffer size. Needs to be tested for VERTICAL. If this returns :ERROR, caller may avoid repainting form needlessly. We may give more meaningful error retval in future. TODO

Parameters:

  • rc (int) —

    row or column to place divider 2010-01-09 23:07 : added sections to prevent a process crash courtesy copywin

Since:

  • 0.1.3



298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
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
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
 
# File 'lib/rbcurse/rsplitpane.rb', line 298

def set_divider_location rc
  $log.debug " SPLP #{@name} setting divider to #{rc} "
  # add a check for out of bounds since no buffering
    v = 1 # earlier 2
  if @orientation == :HORIZONTAL_SPLIT
    if rc < v || rc > @height - v
      return :ERROR
    end
  else
    if rc < v || rc > @width - v
      return :ERROR
    end
  end
  @repaint_required = true
    old_divider_location = @divider_location || 0
    # we first check against min_sizes
    # the calculation is repeated here, and in the actual change
    # so if modifying, be sure to do in both places.
    if !@is_expanding # if expanding then i can't check against min_width
    if rc > old_divider_location
      if @second_component != nil
        if @orientation == :VERTICAL_SPLIT
          # check second comps width
          if @width - (rc + @col_offset + @divider_offset+1) < @second_component.min_width
            $log.debug " #{@name}  SORRY 2c min width prevents further resizing: #{@width} #{rc}"
            return :ERROR
          end
        else
          # check second comps ht
            $log.debug " YYYY SORRY 2c  H:#{@height} rc: #{rc} 2cmh: #{@second_component.name} "
          if @height - rc -2 < @second_component.min_height
            $log.debug " #{@name}  SORRY 2c min height prevents further resizing"
            return :ERROR
          end
        end
      end
    elsif rc < old_divider_location
      if @first_component != nil
         $log.debug " #{@name}  fc min width #{rc}, #{@first_component.min_width} "
        if @orientation == :VERTICAL_SPLIT
          # check first comps width

          if rc-1 < @first_component.min_width
            $log.debug " SORRY fc min width prevents further resizing"
            return :ERROR
          end
        else
          if rc-1 < @first_component.min_height
            $log.debug " SORRY fc min height prevents further resizing"
            return :ERROR
          end
        end
      end
    end
    end # expanding
    @is_expanding = false
    @old_divider_location = @divider_location
    @divider_location = rc
    if @first_component != nil

      ## added in case not set. it will be set to a sensible default
      @first_component.height ||= 0
      @first_component.width ||= 0
      
        $log.debug " #{@name}  set div location, setting first comp width #{rc}"
        if !@cascade_changes.nil?
          if @orientation == :VERTICAL_SPLIT
            @first_component.width(rc-0) #+ @col_offset + @divider_offset
            @first_component.height(@height-0) #2+ @col_offset + @divider_offset
          else
            @first_component.height(rc+0) #-1) #1+ @col_offset + @divider_offset
            @first_component.width(@width-0) #2+ @col_offset + @divider_offset
          end
        else
          if @orientation == :VERTICAL_SPLIT
            $log.debug " DOES IT COME HERE compare fc wt #{@first_component.width} to match #{rc}-1 "
            # added 2010-01-09 19:00 increase fc  to avoid copywin crashing process
            if @first_component.width < rc -0 then
              $log.debug " INCRease fc wt #{@first_component.width} to match #{rc}-1 "
              @first_component.width(rc-0) #+ @col_offset + @divider_offset
              @first_component.repaint_all(true) if !@first_component.nil?
              @repaint_required = true
            end
            ## added this condition 2010-01-11 21:44  again switching needs this
            a = 0 #2
            if @first_component.height < @height - a then
              $log.debug " INCRease fc ht #{@first_component.height} to match #{@height}- #{a} "
              @first_component.height(@height-a) #+ @col_offset + @divider_offset
            end
          else
            # added 2010-01-09 19:00 increase fc  to avoid copywin crashing process
            a = 0 #1
            if @first_component.height < rc -a then
              $log.debug " INCRease fc ht #{@first_component.height} to match #{rc}-1 "
              @first_component.height(rc-a) #+ @col_offset + @divider_offset
              @first_component.repaint_all(true) if !@first_component.nil?
              @repaint_required = true
            end
            # added 2010-01-11 19:24 to match c2. Sometimes switching from V to H means
            # fc's width needs to be expanded.
            if @first_component.width < @width - 1 #+ @col_offset + @divider_offset
              $log.debug " INCRease fc wi #{@first_component.width} to match #{@width}-2 "
              @first_component.width = @width - 1 #+ @col_offset + @divider_offset
              @first_component.repaint_all(true) 
              @repaint_required = true
            end
          end
        end
        $log.debug " #{@name} TA set C1 H W RC #{@first_component.height} #{@first_component.width} #{rc} "
        @first_component.set_buffering(:bottom => @first_component.height-1, :right => @first_component.width-1, :form => @form )
    end
    if !@second_component.nil?

    ## added  2010-01-11 23:09  since some cases don't set, like splits within split.
    @second_component.height ||= 0
    @second_component.width ||= 0

    if @orientation == :VERTICAL_SPLIT
        #@second_component.col = rc + @col_offset + @divider_offset
        #@second_component.row = 0 # 1
        @second_component.col = @col + rc #+ @col_offset + @divider_offset
        @second_component.row = @row # 1
        if !@cascade_changes.nil?
          #@second_component.width = @width - (rc + @col_offset + @divider_offset + 1)
          #@second_component.height = @height-2  #+ @row_offset + @divider_offset
          @second_component.width = @width - rc #+ @col_offset + @divider_offset + 1)
          @second_component.height = @height-0  #+ @row_offset + @divider_offset
        else
          # added 2010-01-09 22:49 to be tested XXX
          # In a vertical split, if widgets w and thus buffer w is less than
          #+ pane, a copywin can crash process, so we must expand component, and thus buffer
          $log.debug " #{@name}  2c width does it come here? #{@second_component.name} #{@second_component.width} < #{@width} -( #{rc}+#{@col_offset}+#{@divider_offset} +1 "
          if @second_component.width < @width - rc #+ @col_offset + @divider_offset + 1)
            $log.debug " YES 2c width "
            @second_component.width = @width - rc #+ @col_offset + @divider_offset + 1)
            @second_component.repaint_all(true) 
            @repaint_required = true
          end
          # adding 2010-01-17 19:33 since when changing to VERT, it was not expanding
          if @second_component.height < @height-0  #+ @row_offset + @divider_offset
             $log.debug " JUST ADDED 2010-01-17 19:35 HOPE DOES NOT BREAK ANYTHING "
             @second_component.height = @height-0  #+ @row_offset + @divider_offset
          end
        end
    else
      #rc += @row
       ## HORIZ SPLIT
      offrow = offcol = 0
        #@second_component.row = offrow + rc + 0 #1 #@row_offset + @divider_offset
        #@second_component.col = 0 + offcol # was 1
      offrow = @row; offcol = @col
        @second_component.row = offrow + rc + 0 #1 #@row_offset + @divider_offset
        $log.debug "C2 Horiz row #{@second_component.row} = #{offrow} + #{rc} "
        @second_component.col = 0 + offcol # was 1
        if !@cascade_changes.nil?
          #@second_component.width = @width - 2 #+ @col_offset + @divider_offset
          #@second_component.height = @height - rc -2 #+ @row_offset + @divider_offset
          @second_component.width = @width - 0 #+ @col_offset + @divider_offset
          @second_component.height = @height - rc -0 #+ @row_offset + @divider_offset
        else
           # added 2010-01-16 19:14 -rc since its a HORIZ split
           #  2010-01-16 20:45 made 2 to 3 for scrollpanes within splits!!! hope it doesnt
           #  break, and why 3. 
           # 2010-01-17 13:33 reverted to 2. 3 was required since i was not returning when error in set_screen_max.
          if @second_component.height < @height-rc-1 #2  #+ @row_offset + @divider_offset
            $log.debug " #{@name}  INCRease 2c #{@second_component.name}  ht #{@second_component.height} to match #{@height}-2- #{rc}  "
            @second_component.height = @height-rc-1  #2 #+ @row_offset + @divider_offset
            @second_component.repaint_all(true) 
            @repaint_required = true
          end
          # # added 2010-01-10 15:36 still not expanding 
          if @second_component.width < @width - 2 #+ @col_offset + @divider_offset
            $log.debug " #{@name}  INCRease 2c #{@second_component.name}  wi #{@second_component.width} to match #{@width}-2 "
            @second_component.width = @width - 2 #+ @col_offset + @divider_offset
            @second_component.repaint_all(true) 
            @repaint_required = true
          end
        end
    end
    # i need to keep top and left sync for print_border which uses it UGH !!!
    if !@second_component.get_buffer().nil?
      # now that TV and others are creating a buffer in repaint we need another way to set
      #$log.debug " setting second comp row col offset - i think it doesn't come here till much later "
      #XXX @second_component.get_buffer().set_screen_row_col(@second_component.row+@ext_row_offset+@row, @second_component.col+@ext_col_offset+@col)
      # 2010-02-13 09:15 RFED16
      @second_component.get_buffer().set_screen_row_col(@second_component.row, @second_component.col)
    end
      #@second_component.set_buffering(:screen_top => @row, :screen_left => @col)
      #@second_component.set_buffering(:screen_top => @row+@second_component.row, :screen_left => @col+@second_component.col)
      #@second_component.set_buffering(:screen_top => @row+@second_component.row, :screen_left => @col+@second_component.col)
    $log.debug "sdl: #{@name} setting C2 screen_top n left to #{@second_component.row}, #{@second_component.col} "
    @second_component.set_buffering(:screen_top => @second_component.row, :screen_left => @second_component.col)
    @second_component.set_buffering(:bottom => @second_component.height-1, :right => @second_component.width-1, :form => @form )
    #@second_component.ext_row_offset = @row + @ext_row_offset
    #@second_component.ext_col_offset = @col + @ext_col_offset
    $log.debug " #{@name}  2 set div location, rc #{rc} width #{@width} height #{@height}" 
    $log.debug " 2 set div location, setting r #{@second_component.row}, #{@ext_row_offset}, #{@row} "
    $log.debug " 2 set div location, setting c #{@second_component.col}, #{@ext_col_offset}, #{@col}  "
    $log.debug " C2 set div location, setting w #{@second_component.width} "
    $log.debug " C2 set div location, setting h #{@second_component.height} "

    end
    fire_property_change("divider_location", old_divider_location, @divider_location)

end

#set_form_col ⇒ Object

added 2010-02-09 10:10 sets the forms cursor column correctly earlier the super was being called which missed out on child’s column. Note: splitpane does not use the cursor, so it does not know where cursor should be displayed, + the child has to decide where it should be displayed.

Since:

  • 0.1.3



759
760
761
762
763
764
 
# File 'lib/rbcurse/rsplitpane.rb', line 759

def set_form_col
   if !@current_component.nil?
      $log.debug " #{@name} set_form_col calling sfc for #{@current_component.name} "
      @current_component.set_form_col 
   end
end

#set_form_row ⇒ Object

Since:

  • 0.1.3



747
748
749
750
751
752
753
 
# File 'lib/rbcurse/rsplitpane.rb', line 747

def set_form_row
   if !@current_component.nil?
      $log.debug " #{@name} set_form_row calling sfr for #{@current_component.name} "
      @current_component.set_form_row 
      @current_component.set_form_col 
   end
end

#set_resize_weight(wt) ⇒ Object

calculate divider location based on weight Weight implies weight of first component, e.g. .70 for 70% of splitpane

Parameters:

  • wt (float, :read) —

    weight of first component

Raises:

  • (ArgumentError)

Since:

  • 0.1.3



507
508
509
510
511
512
513
514
515
516
517
518
519
520
 
# File 'lib/rbcurse/rsplitpane.rb', line 507

def set_resize_weight wt
  raise ArgumentError if wt < 0 or wt >1
    @repaint_required = true
    oldvalue = @resize_weight
    @resize_weight = wt
    if @orientation == :VERTICAL_SPLIT
        rc = (@width||@preferred_width) * wt
    else
        rc = (@height||@preferred_height) * wt
    end
    fire_property_change("resize_weight", oldvalue, @resize_weight)
    rc = rc.ceil
    set_divider_location rc
end

#update_first_component ⇒ Object

Since:

  • 0.1.3



540
541
542
543
544
545
546
547
 
# File 'lib/rbcurse/rsplitpane.rb', line 540

def update_first_component
  $log.debug " #{@name} update+first dl: #{@divider_location} "
  return if @divider_location == 0
  @first_component.row(@row)
  @first_component.col(@col)
  $log.debug "UCF #{@name} #{@first_component.row} #{@first_component.col} "
  @first_component.set_buffering(:screen_top => @first_component.row, :screen_left => @first_component.col)
end

#update_second_component ⇒ Object

Since:

  • 0.1.3



548
549
550
551
552
553
554
555
556
557
558
559
560
 
# File 'lib/rbcurse/rsplitpane.rb', line 548

def update_second_component
  $log.debug " #{@name} update+secoond dl: #{@divider_location} "
  return if @divider_location == 0
    if @orientation == :HORIZONTAL_SPLIT
      @second_component.row(@row+@divider_location)
      @second_component.col(@col)
    else
      @second_component.row(@row)
      @second_component.col(@col+@divider_location)
    end
    $log.debug "UCS #{@name} #{@second_component.row} #{@second_component.col} "
    @second_component.set_buffering(:screen_top => @second_component.row, :screen_left => @second_component.col)
end

#width(*val) ⇒ int

change width of splitpane NOTE: if VERTICAL, then expand or contract only second If HORIZ then expand / contract both Actually this is very complicated since reducing should take into account min_width

Parameters:

  • val (int, nil) —

    new width of splitpane

Returns:

  • (int) —

    old width if nil passed

Since:

  • 0.1.3



243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
 
# File 'lib/rbcurse/rsplitpane.rb', line 243

def width(*val)
    return @width if val.empty?
    # must tell children if height changed which will happen in nested splitpanes
    oldvalue = @width || 0
    super
    @width = val[0]
    delta = @width - oldvalue
    $log.debug " SPLP #{@name} width #{oldvalue}, #{@width}, #{delta} "
    @repaint_required = true
    if !@cascade_boundary_changes.nil?
      # must adjust to components own offsets too
      # NOTE: 2010-01-10 20:11 if we increase width by one, each time will both components get increased by one.
      if @orientation == :HORIZONTAL_SPLIT
        if @first_component != nil 
          old = @first_component.width 
          #@first_component.width = @width - @col_offset + @divider_offset
          @first_component.width += delta
          $log.debug "width() #{@name} set fc width to #{@first_component.width}, old was #{old}  "
          @first_component.set_buffering(:right => @first_component.width-1)
        end
        # added 2010-01-11 23:02  horiz 2c not displaying since width issue
        if @second_component != nil 
          old = @second_component.width 
          #@first_component.width = @width - @col_offset + @divider_offset
          @second_component.width += delta
          @second_component.set_buffering(:right => @second_component.width-1)
          $log.debug "width()  #{@name} set 2c width to #{@second_component.width}, old was #{old}  "
        end
      else
        rc = @divider_location
        # ## next change should only happen if sc w < ...
        #  2010-01-11 22:11 
        # if @second_component.width < @width - (rc + @col_offset + @divider_offset + 1)
        if @second_component != nil 
          if @second_component.width < @width - (rc + @col_offset + @divider_offset + 1)
            old = @second_component.width 
            #@second_component.width = @width - @col_offset + @divider_offset
            @second_component.width += delta
            @second_component.set_buffering(:right => @second_component.width-1)
            $log.debug "width() #{@name}  set 2c width to #{@second_component.width} , old was #{old} "
          end
        end
      end
    end
end