Subversion Repositories or1k

# Global preference 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 GlobalPref {

  inherit ManagedWin ModalDialog

  private {

    variable icondirlist ""

    variable Original   ;# Original settings

    variable Fonts      ;# List of all available fonts for editing

    common tracing_labels

    common inited 0

    variable tracing_cb

    proc _init {}

    method build_win {}

    method make_font_item {f name label font_list}

    method resize_font_item_height {}

    method change_icons {w args}

    method wfont_changed  {attribute font w val}

    method font_changed {attribute font val}

    method toggle_tracing_mode {}

    method ok {}

    method apply {{deleteMe 0}}

    method cancel {}

    method toggle_tracing {win}

  }

  public {

    method constructor {args}

    method destructor {}

  }

}