Changeset 676 for trunk/gui/scripts


Ignore:
Timestamp:
Apr 22, 2007, 7:37:10 PM (18 years ago)
Author:
mmc
Message:

Fixed all fonts to set pixelsize instead of pointsize, so that fonts in
the latest X distribution look right.

Added initial Rappture::bugreport::submit command for submitting bug
reports to nanoHUB.org. This isn't tied in yet, but it's a start.

Location:
trunk/gui/scripts
Files:
28 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/analyzer.tcl

    r658 r676  
    2626
    2727option add *Analyzer.font \
    28     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     28    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2929option add *Analyzer.codeFont \
    30     -*-courier-medium-r-normal-*-*-120-* widgetDefault
     30    -*-courier-medium-r-normal-*-12-* widgetDefault
    3131option add *Analyzer.textFont \
    32     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     32    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    3333option add *Analyzer.boldTextFont \
    34     -*-helvetica-bold-r-normal-*-*-120-* widgetDefault
     34    -*-helvetica-bold-r-normal-*-12-* widgetDefault
    3535
    3636itcl::class Rappture::Analyzer {

  • trunk/gui/scripts/bugreport.tcl

    r640 r676  
    1616option add *BugReport*banner*highlightBackground #a9a9a9 startupFile
    1717option add *BugReport*banner*font \
    18     -*-helvetica-bold-r-normal-*-*-180-* startupFile
     18    -*-helvetica-bold-r-normal-*-18-* startupFile
    1919option add *BugReport*expl.font \
    20     -*-helvetica-medium-r-normal-*-*-120-* startupFile
     20    -*-helvetica-medium-r-normal-*-12-* startupFile
    2121option add *BugReport*expl.wrapLength 3i startupFile
    2222
    … …  
    7676
    7777# ----------------------------------------------------------------------
     78# USAGE: submit <stackTrace>
     79#
     80# Clients use this to send bug reports back to the hub site.  Errors
     81# are posted to a URL that creates a support ticket.
     82# ----------------------------------------------------------------------
     83proc Rappture::bugreport::submit {stackTrace} {
     84    global tcl_platform
     85
     86    package require http
     87    package require tls
     88    http::register https 443 ::tls::socket
     89
     90    if {![regexp {^([^\n]+)\n} $stackTrace match summary]} {
     91        if {[string length $stackTrace] == 0} {
     92            set summary "Unexpected error from Rappture"
     93        } else {
     94            set summary $stackTrace
     95        }
     96    }
     97    if {[string length $summary] > 50} {
     98        set summary "[string range $summary 0 50]..."
     99    }
     100    append summary " (in tool \"[Rappture::Tool::get -name]\")"
     101
     102    set query [http::formatQuery \
     103        option com_support \
     104        task create \
     105        no_html 1 \
     106        report $stackTrace
     107        login $tcl_platform(user) \
     108        email "" \
     109        hostname [info hostname] \
     110        category rappture \
     111        summary $summary \
     112        referrer "tool \"[Rappture::Tool::get -name]\"" \
     113    ]
     114
     115puts "avoid hard-coded web site URL!"
     116    set url https://zooley.nanohub.org/index2.php
     117    set token [http::geturl $url -query $query]
     118
     119    if {[http::ncode] != 200} {
     120        error [http::code]
     121    }
     122    upvar #0 $token rval
     123    if {[regexp {Ticket #[0-9]+ \((.*:?)\) [0-9]+ times} $rval(body) match]} {
     124        return $match
     125    }
     126    error "Report received, but ticket may not have been filed"
     127}
     128
     129# ----------------------------------------------------------------------
    78130# Build the bug reporting dialog
    79131# ----------------------------------------------------------------------

  • trunk/gui/scripts/combobox.tcl

    r115 r676  
    2525option add *Combobox.disabledBackground white widgetDefault
    2626option add *Combobox.disabledForeground gray widgetDefault
    27 option add *Combobox.font -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     27option add *Combobox.font -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2828
    2929itcl::class Rappture::Combobox {

  • trunk/gui/scripts/contourresult.tcl

    r646 r676  
    2727option add *ContourResult.plotForeground white widgetDefault
    2828option add *ContourResult.font \
    29     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     29    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    3030
    3131itcl::class Rappture::ContourResult {

  • trunk/gui/scripts/controls.tcl

    r439 r676  
    1717option add *Controls.padding 4 widgetDefault
    1818option add *Controls.labelFont \
    19     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     19    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2020
    2121itcl::class Rappture::Controls {

  • trunk/gui/scripts/deviceLayout1D.tcl

    r173 r676  
    2222option add *DeviceLayout1D.annotate all widgetDefault
    2323option add *DeviceLayout1D.font \
    24     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     24    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2525
    2626itcl::class Rappture::DeviceLayout1D {

  • trunk/gui/scripts/deviceresult.tcl

    r641 r676  
    1717option add *DeviceResult.height 4i widgetDefault
    1818option add *DeviceResult.font \
    19     -*-courier-medium-r-normal-*-*-120-* widgetDefault
     19    -*-courier-medium-r-normal-*-12-* widgetDefault
    2020
    2121itcl::class Rappture::DeviceResult {

  • trunk/gui/scripts/dropdown.tcl

    r115 r676  
    1818option add *Dropdown.outline black widgetDefault
    1919option add *Dropdown.borderwidth 1 widgetDefault
    20 option add *Dropdown.font -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     20option add *Dropdown.font -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2121
    2222itcl::class Rappture::Dropdown {

  • trunk/gui/scripts/dropdownlist.tcl

    r115 r676  
    1919option add *Dropdownlist.relief flat widgetDefault
    2020option add *Dropdownlist.font \
    21     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     21    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2222
    2323itcl::class Rappture::Dropdownlist {

  • trunk/gui/scripts/energyLevels.tcl

    r465 r676  
    2727
    2828option add *EnergyLevels.font \
    29     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     29    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    3030
    3131itcl::class Rappture::EnergyLevels {

  • trunk/gui/scripts/field3dresult.tcl

    r468 r676  
    2323option add *Field3DResult.plotForeground white widgetDefault
    2424option add *Field3DResult.font \
    25     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     25    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2626
    2727itcl::class Rappture::Field3DResult {

  • trunk/gui/scripts/groupentry.tcl

    r437 r676  
    1616option add *GroupEntry.headingBackground #b5b5b5 widgetDefault
    1717option add *GroupEntry.headingForeground white widgetDefault
    18 option add *GroupEntry.font -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     18option add *GroupEntry.font -*-helvetica-medium-r-normal-*-12-* widgetDefault
    1919
    2020itcl::class Rappture::GroupEntry {

  • trunk/gui/scripts/imageresult.tcl

    r479 r676  
    2020option add *ImageResult.controlBackground gray widgetDefault
    2121option add *ImageResult.font \
    22     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     22    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2323
    2424itcl::class Rappture::ImageResult {

  • trunk/gui/scripts/mainwin.tcl

    r193 r676  
    2222option add *MainWin.anchor center widgetDefault
    2323option add *MainWin.titleFont \
    24     -*-helvetica-bold-o-normal-*-*-140-* widgetDefault
     24    -*-helvetica-bold-o-normal-*-14-* widgetDefault
    2525
    2626#

  • trunk/gui/scripts/meshresult.tcl

    r464 r676  
    2121option add *MeshResult.controlBackground gray widgetDefault
    2222option add *MeshResult.font \
    23     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     23    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2424
    2525itcl::class Rappture::MeshResult {

  • trunk/gui/scripts/molvisviewer.tcl

    r661 r676  
    2121option add *MolvisViewer.controlBackground gray widgetDefault
    2222option add *MolvisViewer.controlDarkBackground #999999 widgetDefault
    23 option add *MolvisViewer.font -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     23option add *MolvisViewer.font -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2424
    2525itcl::class Rappture::MolvisViewer {

  • trunk/gui/scripts/nanovisviewer.tcl

    r572 r676  
    2525option add *NanovisViewer.plotOutline gray widgetDefault
    2626option add *NanovisViewer.font \
    27     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     27    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2828
    2929itcl::class Rappture::NanovisViewer {

  • trunk/gui/scripts/pager.tcl

    r115 r676  
    2424option add *Pager.activeCrumbColor blue widgetDefault
    2525option add *Pager.crumbFont \
    26     -*-helvetica-bold-r-normal-*-*-120-* widgetDefault
     26    -*-helvetica-bold-r-normal-*-12-* widgetDefault
    2727
    2828blt::bitmap define Pager-arrow {

  • trunk/gui/scripts/postern.tcl

    r413 r676  
    2020option add *Postern.popup above widgetDefault
    2121option add *Postern*Text.font \
    22     -*-courier-medium-r-normal-*-*-120-* widgetDefault
     22    -*-courier-medium-r-normal-*-12-* widgetDefault
    2323option add *Postern*Text.errorFont \
    24     -*-courier-medium-o-normal-*-*-120-* widgetDefault
     24    -*-courier-medium-o-normal-*-12-* widgetDefault
    2525
    2626itcl::class Rappture::Postern {

  • trunk/gui/scripts/progress.tcl

    r654 r676  
    1919option add *Progress.barBackground white widgetDefault
    2020option add *Progress.barColor blue widgetDefault
    21 option add *Progress.font -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     21option add *Progress.font -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2222
    2323itcl::class Rappture::Progress {

  • trunk/gui/scripts/radiodial.tcl

    r456 r676  
    2727option add *Radiodial.foreground black widgetDefault
    2828option add *Radiodial.font \
    29     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     29    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    3030
    3131itcl::class Rappture::Radiodial {

  • trunk/gui/scripts/resultset.tcl

    r464 r676  
    2525option add *ResultSet.toggleForeground white widgetDefault
    2626option add *ResultSet.textFont \
    27     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     27    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2828option add *ResultSet.boldFont \
    29     -*-helvetica-bold-r-normal-*-*-120-* widgetDefault
     29    -*-helvetica-bold-r-normal-*-12-* widgetDefault
    3030
    3131itcl::class Rappture::ResultSet {

  • trunk/gui/scripts/sequenceresult.tcl

    r674 r676  
    2020option add *SequenceResult.dialProgressColor #ccccff widgetDefault
    2121option add *SequenceResult.font \
    22     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     22    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2323option add *SequenceResult.boldFont \
    24     -*-helvetica-bold-r-normal-*-*-120-* widgetDefault
     24    -*-helvetica-bold-r-normal-*-12-* widgetDefault
    2525
    2626itcl::class Rappture::SequenceResult {

  • trunk/gui/scripts/textentry.tcl

    r674 r676  
    2424option add *TextEntry.hintForeground gray50 widgetDefault
    2525option add *TextEntry.hintFont \
    26     -*-helvetica-medium-r-normal-*-*-100-* widgetDefault
     26    -*-helvetica-medium-r-normal-*-10-* widgetDefault
    2727option add *TextEntry.codeFont \
    2828    -*-courier-medium-r-normal-*-12-* widgetDefault

  • trunk/gui/scripts/textresult.tcl

    r464 r676  
    1818option add *TextResult.textBackground white widgetDefault
    1919option add *TextResult.font \
    20     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     20    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2121option add *TextResult.textFont \
    22     -*-courier-medium-r-normal-*-*-120-* widgetDefault
     22    -*-courier-medium-r-normal-*-12-* widgetDefault
    2323
    2424itcl::class Rappture::TextResult {

  • trunk/gui/scripts/tooltip.tcl

    r428 r676  
    2727option add *Tooltip.outline black widgetDefault
    2828option add *Tooltip.borderwidth 1 widgetDefault
    29 option add *Tooltip.font -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     29option add *Tooltip.font -*-helvetica-medium-r-normal-*-12-* widgetDefault
    3030option add *Tooltip.wrapLength 4i widgetDefault
    3131

  • trunk/gui/scripts/valueresult.tcl

    r464 r676  
    1515
    1616option add *ValueResult.font \
    17     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     17    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    1818option add *ValueResult.boldFont \
    19     -*-helvetica-bold-r-normal-*-*-120-* widgetDefault
     19    -*-helvetica-bold-r-normal-*-12-* widgetDefault
    2020
    2121itcl::class Rappture::ValueResult {

  • trunk/gui/scripts/xyresult.tcl

    r464 r676  
    2222option add *XyResult.controlBackground gray widgetDefault
    2323option add *XyResult.font \
    24     -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
     24    -*-helvetica-medium-r-normal-*-12-* widgetDefault
    2525
    2626option add *XyResult.autoColors {
Note: See TracChangeset for help on using the changeset viewer.