Subversion Repositories or1k

# Browser window class definition for GDBtk.

# Copyright 1998, 1999 Cygnus Solutions

#

# This program is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License (GPL) as published by

# the Free Software Foundation; either version 2 of the License, or (at

# your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

class BrowserWin {

 inherit EmbeddedWin

  public {

    method constructor {args}

    method destructor {}

    method mode {w {mode ""} {go 1}}

    method search {}

    method test_get {var}

    method do_all_bp {onp}

  }

  private {

    method _bind_toplevel {install}

    method _build_win {}

    method _do_resize {}

    method _file_hide_h {}

    method _fill_file_box {}

    method _fill_funcs_combo {name}

    method _fill_source {f {funcp 1} {filename ""}}

    method _filter_trace_proc {v1 v2 mode}

    method _filter_trace_after {}

    method _goto_func {w {val ""}}

    method _process_file_selection {y}

    method _process_func_selection {y}

    method _resize {}

    method _search_src {direction}

    method _select {highlight}

    method _set_filter_mode {w mode}

    method _toggle_bp {y}

    method _toggle_more {{in_constructor 0}}

    variable cur_filter_mode

    variable MoreVisible 0; #whether viewing source

    variable TopHalfHeight 0

    variable BottomHalfHeight 0

    variable CollapsedHeight 0; #height of the window when collapsed

    variable Current;

    variable labelUpdateCode ""

    variable index_to_file

    variable _mangled_func

    variable resize_after ""

    variable filter_trace_after ""

    common componentToRow

    array set componentToRow {

      filter      0

      browser     1

      view        2

      view_hidden 3

    }

    common filter_modes [list "starts with" \

                           "contains" \

                           "ends with" \

                           "matches regexp"]

    common filter_regexp

    array set filter_regexp {

      "starts with" ^%s

      "contains" %s

      "ends with" %s$

      "matches regexp" %s

    }

  }

  protected proc dont_remember_size {} {

    return 1

  }

}