preferences.tcl

This Source-Navigator, an IDE for C/C++/Fortran/Java/Tcl/PHP/Python and a host of other languages.

          -label [get_indep String PrefDispOrder] \
          -labelunderline [get_indep Pos PrefDispOrder]
        pack ${order} -side top -expand y -fill x -padx ${padx} -pady ${pady}

        #Display format
        set frmt ${win}.frmt
        set sn_options(opt_def,ctree-layout) $sn_options(def,ctree-layout)
        Radio& ${frmt} \
          -labelwidth 35 \
          -variable sn_options(opt_def,ctree-layout) \
          -labels [list\
                    [get_indep String Tree] \
                    [get_indep String ISI] \
                  ] \
          -contents {isi tree} \
          -label [get_indep String PrefDispLayout] \
          -labelunderline [get_indep Pos PrefDispLayout]
        pack ${frmt} -side top -expand y -fill x -padx ${padx} -pady ${pady}

        #space vertical
        set sn_options(opt_def,ctree-vertspace)\
          $sn_options(def,ctree-vertspace)
        set svert ${win}.svert

        Entry& ${svert} \
          -width 3 \
          -labelwidth 35 \
          -label [get_indep String SpaceVertical] \
          -underline [get_indep Pos SpaceVertical] \
          -textvariable sn_options(opt_def,ctree-vertspace) \
	  -filter natural

        pack ${svert} -side top -anchor nw

        #space horizontal
        set sn_options(opt_def,ctree-horizspace)\
          $sn_options(def,ctree-horizspace)
        set shoriz ${win}.shoriz

        Entry& ${shoriz} \
          -width 3 \
          -labelwidth 35 \
          -label [get_indep String SpaceHorizontal] \
          -underline [get_indep Pos SpaceHorizontal] \
          -textvariable sn_options(opt_def,ctree-horizspace) \
	  -filter natural

        pack ${shoriz} -side top -anchor nw

        lappend AvailTools ${ClassHierarchy}
    }
    method RaiseClassHierarchy {} {
        #set lastPage ctree
    }

    #####################################################
    # X reference
    #####################################################
    method AddXReference {nb page} {
        global sn_options

        set XReferencePage [${nb} subwidget ${page}]
        set XReference ${XReferencePage}

        #XRef informations
        set xproc [tixLabelFrame ${XReference}.xproc \
          -label [get_indep String CrossReferencing]]
        ${xproc} config -background $sn_options(def,layout-bg)
        set win [${XReference}.xproc subwidget frame]
        pack ${xproc} -side top -anchor c -fill x

        #generate xref
        set sn_options(opt_both,xref-create) $sn_options(both,xref-create)
        set genxref ${win}.genxref
        CheckButton& ${genxref} \
          -balloons [list [get_indep String GenerateXRefINFO]] \
          -labels [list ""] \
          -values [list {-x ""}] \
          -variables sn_options(opt_both,xref-create) \
          -label [get_indep String GenerateXRef] \
          -labelunderline [get_indep Pos GenerateXRef] \
          -labelwidth 35 \
          -command " ${this} XRef_Enable ${win}.genlocal ${win}.xrefbell "
        pack ${genxref} -side top -anchor nw

        #Generate references to local variables
        set sn_options(opt_both,xref-locals) $sn_options(both,xref-locals)
        set genlocal ${win}.genlocal
        CheckButton& ${genlocal} \
          -labels [list ""] \
          -values [list {-l ""}] \
          -variables sn_options(opt_both,xref-locals) \
          -label [get_indep String XRefLocalVars] \
          -labelunderline [get_indep Pos XRefLocalVars] \
          -labelwidth 35
        pack ${genlocal} -side top -anchor nw

        #Bell after terminated XRef
        set sn_options(opt_def,xref-bell) $sn_options(def,xref-bell)
        set xrefbell ${win}.xrefbell
        CheckButton& ${xrefbell} \
          -variables sn_options(opt_def,xref-bell) \
          -labels [list ""] \
          -balloons [list [get_indep String XRefBellINFO]] \
          -label [get_indep String XRefBell] \
          -labelunderline [get_indep Pos XRefBell] \
          -labelwidth 35
        pack ${xrefbell} -side top -anchor nw

        XRef_Enable ${win}.genlocal ${win}.xrefbell

        #Layout
        set layout [tixLabelFrame ${XReference}.layout -label\
          [get_indep String Layout]]
        ${layout} config -background $sn_options(def,layout-bg)
        set win [${XReference}.layout subwidget frame]
        pack ${layout} -side top -anchor c -fill x

        #Accept parameters
        set sn_options(opt_both,xref-accept-param)\
          $sn_options(both,xref-accept-param)
        set aparam ${win}.aparam
        CheckButton& ${aparam} \
          -labels [list ""] \
          -variables sn_options(opt_both,xref-accept-param) \
          -label [get_indep String CrossAcceptParam] \
          -labelunderline [get_indep Pos CrossAcceptParam] \
          -labelwidth 35
        pack ${aparam} -side top -anchor nw

        #Accept static flag
        set sn_options(opt_both,xref-accept-static)\
          $sn_options(both,xref-accept-static)
        set astatic ${win}.astatic
        CheckButton& ${astatic} \
          -labels [list ""] \
          -variables sn_options(opt_both,xref-accept-static) \
          -label [get_indep String CrossAcceptStatic] \
          -labelunderline [get_indep Pos CrossAcceptStatic] \
          -labelwidth 35
        pack ${astatic} -side top -anchor nw

        #Display functions parameters
        set sn_options(opt_both,xref-disp-param)\
          $sn_options(both,xref-disp-param)
        set dspfunc ${win}.dspfunc
        CheckButton& ${dspfunc} \
          -labels [list ""] \
          -variables sn_options(opt_both,xref-disp-param) \
          -label [get_indep String CrossDispParam] \
          -labelunderline [get_indep Pos CrossDispParam] \
          -labelwidth 35
        pack ${dspfunc} -side top -anchor nw

        #Display boxes around the symbols
        set sn_options(opt_both,xref-draw-rect)\
          $sn_options(both,xref-draw-rect)
        set dspbox ${win}.dspbox
        CheckButton& ${dspbox} \
          -labels [list ""] \
          -variables sn_options(opt_both,xref-draw-rect) \
          -label [get_indep String CrossBoxes] \
          -labelunderline [get_indep Pos CrossBoxes] \
          -labelwidth 35
        pack ${dspbox} -side top -anchor nw

        #Display order
        set order ${win}.order
        set sn_options(opt_def,xref-disp-order)\
          $sn_options(def,xref-disp-order)
        Radio& ${order} \
          -labelwidth 35\
          -variable sn_options(opt_def,xref-disp-order) \
          -labels [list \
                    [get_indep String LeftRight] \
                    [get_indep String Topdown] \
                  ]\
          -contents {0 1} \
          -label [get_indep String PrefDispOrder] \
          -labelunderline [get_indep Pos PrefDispOrder]
        pack ${order} -side top -expand y -fill x -padx ${padx} -pady ${pady}

        #Display format
        set frmt ${win}.frmt
        set sn_options(opt_def,xref-layout) $sn_options(def,xref-layout)
        Radio& ${frmt} \
          -labelwidth 35 \
          -variable sn_options(opt_def,xref-layout) \
          -labels [list \
                    [get_indep String Tree] \
                    [get_indep String ISI] \
                   ] \
          -contents {isi tree} \
          -label [get_indep String PrefDispLayout] \
          -labelunderline [get_indep Pos PrefDispLayout]
        pack ${frmt} -side top -expand y -fill x -padx ${padx} -pady ${pady}

        #space vertical
        set sn_options(opt_def,xref-vertspace) $sn_options(def,xref-vertspace)
        set svert ${win}.svert

        Entry& ${svert} \
          -width 3 \
          -labelwidth 35 \
          -label [get_indep String SpaceVertical] \
          -underline [get_indep Pos SpaceVertical] \
          -textvariable sn_options(opt_def,xref-vertspace) \
	  -filter natural

        pack ${svert} -side top -anchor nw

        #space horizontal
        set sn_options(opt_def,xref-horizspace)\
          $sn_options(def,xref-horizspace)
        set shoriz ${win}.shoriz

        Entry& ${shoriz} \
          -width 3 \
          -labelwidth 35 \
          -label [get_indep String SpaceHorizontal] \
          -underline [get_indep Pos SpaceHorizontal] \
          -textvariable sn_options(opt_def,xref-horizspace) \
	  -filter natural

        pack ${shoriz} -side top -anchor nw

        lappend AvailTools ${XReference}
    }
    method RaiseXReference {} {
    }
    method XRef_Enable {genlocal xbell} {
        global sn_options
        if {$sn_options(opt_both,xref-create) != ""} {
            set state normal
        } else {
            set state disabled
            set sn_options(opt_both,xref-locals) ""
        }
        ${genlocal}.check-0 config -state ${state}
        ${xbell}.check-0 config -state ${state}
    }

    #####################################################
    # Include
    #####################################################
    method AddInclude {nb page} {
        global sn_options

        set IncludePage [${nb} subwidget ${page}]
        set Include ${IncludePage}

        #Layout
        set layout [tixLabelFrame ${Include}.layout \
          -label [get_indep String Layout]]
        ${layout} config -background $sn_options(def,layout-bg)
        set win [${Include}.layout subwidget frame]
        pack ${layout} -side top -anchor c -fill x

        #Display order
        set order ${win}.order
        set sn_options(opt_def,include-disporder)\
          $sn_options(def,include-disporder)
        Radio& ${order} \
          -labelwidth 35 \
          -variable sn_options(opt_def,include-disporder) \
          -labels [list \
                    [get_indep String LeftRight] \
                    [get_indep String Topdown] \
                  ] \
          -contents {0 1} \
          -label [get_indep String PrefDispOrder] \
          -labelunderline [get_indep Pos PrefDispOrder]
        pack ${order} -side top -expand y -fill x -padx ${padx} -pady ${pady}

        #Display format
        set frmt ${win}.frmt
        set sn_options(opt_def,include-layout) $sn_options(def,include-layout)
        Radio& ${frmt} \
          -labelwidth 35 \
          -variable sn_options(opt_def,include-layout) \
          -labels [list \
                    [get_indep String Tree] \
                    [get_indep String ISI] \
                  ] \
          -contents {isi tree} \
          -label [get_indep String PrefDispLayout] \
          -labelunderline [get_indep Pos PrefDispLayout]
        pack ${frmt} -side top -expand y -fill x -padx ${padx} -pady ${pady}

        #space vertical
        set sn_options(opt_def,include-vertspace)\
          $sn_options(def,include-vertspace)
        set svert ${win}.svert

        Entry& ${svert} \
          -width 3 \
          -labelwidth 35 \
          -label [get_indep String SpaceVertical] \
          -underline [get_indep Pos SpaceVertical] \
          -textvariable sn_options(opt_def,include-vertspace) \
	  -filter natural

        pack ${svert} -side top -anchor nw

        #space horizontal
        set sn_options(opt_def,include-horizspace)\
          $sn_options(def,include-horizspace)
        set shoriz ${win}.shoriz

        Entry& ${shoriz} \
          -width 3 \
          -labelwidth 35 \
          -label [get_indep String SpaceHorizontal] \
          -underline [get_indep Pos SpaceHorizontal] \
          -textvariable sn_options(opt_def,include-horizspace) \
	  -filter natural

        pack ${shoriz} -side top -anchor nw

        #Include directories
        set incdir [tixLabelFrame ${Include}.incdir \
          -label [get_indep String PrefInclude]]
        ${incdir} config -background $sn_options(def,layout-bg)
        set win [${Include}.incdir subwidget frame]
        pack ${incdir} -side top -anchor c -fill both -expand y

        #verify if we want to look for included header files
        #Locate Headers is used to control whether or not header files are\
          searched
        #for during parsing.  If this checkbutton is disabled, then the parsers
        #will just write out the literal filename from the source:
        #
        #		#include <stdlib.h>
        #
        #will cause just `stdlib.h' to be written to the database.
        #
        #If you enable it, a comprehensive search of all of the directories\
          listed
        #in the include directories text box will occur.  Then the result\
          might be
        #`/usr/include/stdlib.h'.
        #It is added as a quick and easy way of improving performance over NFS
        #file systems.
        set sn_options(opt_def,include-locatefiles)\