home *** CD-ROM | disk | FTP | other *** search
/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha60.hqx / Tcl / SystemCode / flags.tcl < prev    next >
Encoding:
Text File  |  1995-07-03  |  3.2 KB  |  148 lines
  1.  
  2. set tileWidth [expr $screenWidth - 10]
  3. if {$tileWidth > 510} {set defWidth 510} else {set defWidth $tileWidth }
  4. set tileHeight [expr $screenHeight - 60]
  5. set defHeight $tileHeight
  6.  
  7. set mar 22
  8. set errorHeight [expr (($tileHeight - $mar) / 3)]
  9. set errorDisp [expr (2 * ($tileHeight - $mar)) / 3]
  10. unset mar
  11.  
  12. set tclvars {}
  13.  
  14. set allFlags ""
  15. set allVars ""
  16.  
  17.  
  18. # The following three procs, together w/ the initialization 
  19. # for the flags below, allow a totally Tcl-controlled menu to 
  20. # shadow Alpha's internal variables.
  21. proc initFlag {var {val ""}} {
  22.     global $var modeVars tclvars allFlags
  23.     if {[lsearch -exact $tclvars $var] < 0} {
  24.         lappend tclvars $var
  25.     }
  26.     linkVar $var
  27.     if {[string length $val]} {set $var $val}
  28.     lappend allFlags $var
  29. }
  30.  
  31. # Called for ordinary tcl global vars we want included in the Flags menu.
  32. proc initTclFlag {flag {val 0}} {
  33.     global $flag allFlags tclvars modeVars
  34.     if {[lsearch -exact $tclvars $flag] < 0} {
  35.         lappend tclvars $flag
  36.     }
  37.     if {![info exists $flag]} {set $flag $val}
  38.     lappend allFlags $flag
  39. }
  40.  
  41. # Called for ordinary tcl global vars we want included in the Vars menu.
  42. proc initTclVar {var {val ""}} {
  43.     global $var tclvars modeVars allVars
  44.     if {[lsearch -exact $tclvars $var] < 0} {
  45.         lappend tclvars $var
  46.     }
  47.     if {[string length $val]} {
  48.         set $var $val
  49.     }
  50.     if {![info exists $var]} {set $var 0}
  51.     lappend allVars $var
  52. }
  53.  
  54. proc initVar {var {val ""}} {
  55.     global $var tclvars modeVars allVars
  56.     if {[lsearch -exact $tclvars $var] < 0} {
  57.         lappend tclvars $var
  58.     }
  59.     linkVar $var
  60.     if {[string length $val]} {
  61.         set $var $val
  62.     }
  63.     lappend allVars $var
  64. }
  65.  
  66. # This file contains methods allowing the shadowing of tcl variables 
  67.  
  68. initFlag autoHScroll
  69. initFlag autoSave
  70. initTclFlag backup
  71. initFlag blinkingCursor
  72. initFlag blockCursor
  73. initFlag bwWindows
  74. initFlag coloring
  75. initFlag dragAndDrop
  76. initTclFlag forceMainScreen 1
  77. initFlag horScrollBar 0
  78. initFlag hyperText 1
  79. initTclFlag iconifyOnSwitch
  80. initFlag indentOnCR
  81. initTclFlag infoWindowsDirty 1
  82. initTclFlag intelCutPaste 1
  83. catch {initFlag lockStatus}
  84. initFlag moveInsertion
  85. initFlag noShiftBinding
  86. initFlag openAllFiles
  87. initFlag powerThumb
  88. initFlag projectorAware
  89. initFlag showRowCol
  90. initFlag showInvisibles
  91. initFlag showMode
  92. catch {initFlag showPlatform}
  93. initFlag sortedIsDefault
  94. initFlag tempMem
  95. initFlag undoOn
  96. initFlag wordWrap
  97.  
  98. initTclVar backExtension "~"
  99. initTclVar backDir
  100. set backDir ""
  101. initVar bottomMargin
  102. initVar changesLim
  103. initVar defaultFont
  104. initVar defHeight
  105. initVar defLeft     2
  106. initVar defTop         40
  107. initVar defWidth
  108. initTclVar diffFlags { }
  109. initVar fillColumn
  110. initVar fontSaving
  111. initVar fontSize
  112. initVar funcExpr
  113. initVar funcPar
  114. initVar leftFillColumn
  115. initVar leftMargin
  116. initTclVar numWinsToTile 2
  117. initVar paraColumn
  118. initVar    printerFont
  119. initVar    printerFontSize
  120. initTclFlag printHeader 1
  121. initTclFlag printHeaderTime 1
  122. initTclFlag printHeaderFullPath 0
  123. initVar savedState
  124. initVar sortColumn
  125. initVar tabSize
  126. initVar tagFile
  127. initTclVar tileHeight
  128. initTclVar tileLeft 2
  129. initTclVar tileTop
  130. initTclVar tileWidth
  131. initVar topMargin
  132. initVar wordBreak
  133. initVar wordBreakPreface
  134. initVar    wrapBreak
  135. initVar    wrapBreakPreface
  136.  
  137. # Flags that won't appear in the menu.
  138. linkVar numLock
  139.  
  140. # Redefine 'menuHook' to update flags menu.
  141. proc menuHook {} {
  142.     uplevel #0 {
  143.         foreach f $allFlags {
  144.             markMenuItem globalFlags $f [set $f]
  145.         }
  146.     }
  147. }
  148.