Really? An entire menu option to toggle a single pixel? :) I'd suggest this get grouped with other view elements if there are any (like faceplate) or only expose toggling via a command-line command or view options panel.
Menu real estate should be considered sacred. MGED's "menu hell" shouldn't migrate to Archer, especially for options.. Cheers! Sean On Wednesday, May 12, 2010, at 01:49PM, <bob1...@users.sourceforge.net> wrote: >Revision: 39144 > http://brlcad.svn.sourceforge.net/brlcad/?rev=39144&view=rev >Author: bob1961 >Date: 2010-05-12 17:49:03 +0000 (Wed, 12 May 2010) > >Log Message: >----------- >Added a modes menu item for toggling display of the center dot. > >Modified Paths: >-------------- > brlcad/trunk/src/tclscripts/archer/Archer.tcl > brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl > >Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl >=================================================================== >--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-05-12 17:40:55 UTC >(rev 39143) >+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-05-12 17:49:03 UTC >(rev 39144) >@@ -4515,6 +4515,9 @@ > "Viewing Parameters" { > set mStatusStr "Hide/Show viewing parameters" > } >+ "Center Dot" { >+ set mStatusStr "Hide/Show the center dot" >+ } > "Scale" { > set mStatusStr "Hide/Show view scale" > } >@@ -5391,6 +5394,8 @@ > -helpstr "Toggle display of the primitive labels." > checkbutton vparams -label "Viewing Parameters" \ > -helpstr "Toggle display of the viewing parameters." >+ checkbutton cdot -label "Center Dot" \ >+ -helpstr "Toggle display of the center dot." > checkbutton scale -label "Scale" \ > -helpstr "Toggle display of the view scale." > checkbutton light -label "Lighting" \ >@@ -5460,6 +5465,12 @@ > -variable [::itcl::scope mShowViewingParams] \ > -command [::itcl::code $this showViewParams] \ > -state disabled >+ $itk_component(menubar) menuconfigure .modes.cdot \ >+ -offvalue 0 \ >+ -onvalue 1 \ >+ -variable [::itcl::scope mShowCenterDot] \ >+ -command [::itcl::code $this showCenterDot] \ >+ -state disabled > $itk_component(menubar) menuconfigure .modes.scale \ > -offvalue 0 \ > -onvalue 1 \ >@@ -5652,6 +5663,13 @@ > -command [::itcl::code $this showViewParams] \ > -state disabled > $itk_component(${_prefix}modesmenu) add checkbutton \ >+ -label "Center Dot" \ >+ -offvalue 0 \ >+ -onvalue 1 \ >+ -variable [::itcl::scope mShowCenterDot] \ >+ -command [::itcl::code $this showCenterDot] \ >+ -state disabled >+ $itk_component(${_prefix}modesmenu) add checkbutton \ > -label "Scale" \ > -offvalue 0 \ > -onvalue 1 \ >@@ -5716,6 +5734,7 @@ > $itk_component(${prefix}modesmenu) entryconfigure "Ground > Plane" -state normal > $itk_component(${prefix}modesmenu) entryconfigure "Primitive > Labels" -state normal > $itk_component(${prefix}modesmenu) entryconfigure "Viewing > Parameters" -state normal >+ $itk_component(${prefix}modesmenu) entryconfigure "Center Dot" >-state normal > $itk_component(${prefix}modesmenu) entryconfigure "Scale" > -state normal > $itk_component(${prefix}modesmenu) entryconfigure "Lighting" > -state normal > $itk_component(${prefix}modesmenu) entryconfigure "Grid" -state > normal >@@ -5744,6 +5763,7 @@ > $itk_component(menubar) menuconfigure .modes.gplane -state normal > $itk_component(menubar) menuconfigure .modes.plabels -state normal > $itk_component(menubar) menuconfigure .modes.vparams -state normal >+ $itk_component(menubar) menuconfigure .modes.cdot -state normal > $itk_component(menubar) menuconfigure .modes.scale -state normal > $itk_component(menubar) menuconfigure .modes.light -state normal > $itk_component(menubar) menuconfigure .modes.grid -state normal > >Modified: brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl >=================================================================== >--- brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2010-05-12 17:40:55 UTC >(rev 39143) >+++ brlcad/trunk/src/tclscripts/archer/ArcherCore.tcl 2010-05-12 17:49:03 UTC >(rev 39144) >@@ -327,6 +327,7 @@ > variable mShowGrid 0 > variable mSnapGrid 0 > variable mShowADC 0 >+ variable mShowCenterDot 1 > > # variables for preference state > variable mEnableAffectedNodeHighlight 0 >@@ -502,6 +503,7 @@ > method showPrimitiveLabels {} > method showViewParams {} > method showScale {} >+ method showCenterDot {} > > # pane commands > method updateToggleMode {} >@@ -1656,6 +1658,7 @@ > -sashcursor sb_v_double_arrow \ > -hsashcursor sb_h_double_arrow \ > -showViewingParams $mShowViewingParams \ >+ -centerDotEnable $mShowCenterDot \ > -multi_pane $mMultiPane > } { > keep -sashwidth -sashheight -sashborderwidth >@@ -4291,6 +4294,11 @@ > refreshDisplay > } > >+::itcl::body ArcherCore::showCenterDot {} { >+ $itk_component(ged) configure -centerDotEnable $mShowCenterDot >+ refreshDisplay >+} >+ > ::itcl::body ArcherCore::updateToggleMode {} { > set toggle3 $mVPaneToggle3 > set toggle5 $mVPaneToggle5 > > >This was sent by the SourceForge.net collaborative development platform, the >world's largest Open Source development site. > >------------------------------------------------------------------------------ > >_______________________________________________ >BRL-CAD Source Commits mailing list >brlcad-comm...@lists.sourceforge.net >https://lists.sourceforge.net/lists/listinfo/brlcad-commits > > ------------------------------------------------------------------------------ _______________________________________________ BRL-CAD Developer mailing list brlcad-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/brlcad-devel
