Changeset 1718 for trunk/gui/scripts
- Timestamp:
- May 18, 2010, 3:40:43 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/molvisviewer.tcl
r1711 r1718 102 102 private method ReceiveImage { size cacheid frame rock } 103 103 private method WaitIcon { option widget } 104 private method DownloadPopup { popup command } 105 private method EnableDownload { popup what } 104 106 105 107 protected method Map {} … … 118 120 public method ResetView {} 119 121 public method add {dataobj {options ""}} 120 public method spherescale {option {models "all"} } 121 public method stickradius {option {models "all"} } 122 public method cartoontrace {option {model "all"}} 122 123 public method delete {args} 123 124 public method download {option args} … … 125 126 public method isconnected {} 126 127 public method labels {option {model "all"}} 127 public method cartoontrace {option {model "all"}}128 128 public method opacity {option {models "all"} } 129 129 public method parameters {title args} { 130 130 # do nothing 131 131 } 132 public method snap { w h } 133 public method spherescale {option {models "all"} } 134 public method stickradius {option {models "all"} } 132 135 public method projection {option} 133 136 public method representation {option {model "all"} } 134 137 public method rock {option} 135 private method DownloadPopup { popup command }136 private method EnableDownload { popup what }137 138 138 139 } … … 710 711 SendCmd "raw -defer {set auto_color,0}" 711 712 SendCmd "raw -defer {set auto_show_lines,0}" 712 SendCmd "raw -defer {set connect_mode,1}"713 713 } 714 714 set dlist [get] … … 838 838 set _state(client) 1 839 839 SendCmd "frame 1" 840 set flush 1 840 841 } elseif { ![info exists _imagecache($state,$_rocker(client))] } { 841 842 set _state(server) $state 842 843 set _state(client) $state 843 844 SendCmd "frame $state" 845 set flush 1 844 846 } else { 845 847 set _state(client) $state 846 848 Update 849 set flush 0 847 850 } 848 851 if { $_restore } { … … 859 862 }] 860 863 debug "rebuild: rotate $_view(mx) $_view(my) $_view(mz)" 861 # foreach all models 864 865 # Default settings for all models. 862 866 spherescale update 863 867 stickradius update … … 868 872 projection update 869 873 representation update 874 SendCmd "raw -defer {zoom complete=1}" 870 875 set _restore 0 871 876 } 872 877 878 if { $flush } { 879 SendCmd "bmp"; # Flush the results. 880 } 873 881 set _buffering 0; # Turn off buffering. 874 # Actually write the commands to the server socket. If it fails, we don't 875 # care. We're finished here. 882 876 883 blt::busy hold $itk_component(hull) 884 885 # Actually write the commands to the server socket. 886 # If it fails, we don't care. We're finished here. 877 887 SendBytes $_outbuf; 888 set _outbuf ""; # Clear the buffer. 878 889 blt::busy release $itk_component(hull) 879 set _outbuf ""; # Clear the buffer.880 890 881 891 debug "exiting rebuild"
Note: See TracChangeset
for help on using the changeset viewer.