REVO2700Text Resizing Example@Q 4a \ UTahomadUTahomacUTahomabUTahomaaUTahoma`UTahoma_UTahoma^UTahoma]UTahoma\UTahoma[UTahomaZUTahomaYUTahomaXUTahomaWUTahomaVUTahomaUUTahomaTUTahomaSUTahomaRUTahomaQUTahomaPUTahomaOUTahomaNUTahomaMUTahomaLUTahomaKUTahomaJUTahomaIUTahomaHUTahomaGUTahomaFUTahomaEUTahomaDUTahomaCUTahomaBUTahomaAUTahoma@UTahoma?UTahoma>UTahoma=UTahoma<UTahoma;UTahoma:UTahoma9UTahoma8UTahoma7UTahoma6UTahoma5UTahoma4UTahoma3UTahoma2UTahoma1UTahoma0UTahoma/UTahoma.UTahoma-UTahoma,UTahoma+UTahoma*UTahoma)UTahoma(UTahoma'UTahoma&UTahoma%UTahoma$UTahoma#UTahoma"UTahoma!UTahoma UTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahomaUTahoma UTahoma UTahoma UTahoma UTahoma cREVGeneralbreakpointconditions breakpointsbreakpointstatesstackfileversion2.7cREVGeometryCachestackID1012 Pon resizeStack resizeTitleText end resizeStack on resizeTitleText set the width of field "title" to (the width of this stack - 10) ## Start with large text and resize it down until it fits set the textSize of field "title" to 100 put 100 into tTitleTextSize ## The formattedWidth/Height of a control is the width/height of the contents ## rather than the width/height of the control repeat until the formattedWidth of field "title" < the width of field "title" subtract 1 from tTitleTextSize set the textSize of field "title" to tTitleTextSize end repeat ## Make sure the field is tall enough set the height of field "title" to the formattedHeight of field "title" end resizeTitleText Q cREVGeneralscripteditorvscroll0scripteditorselection599cREVGeometryCacheIDs13056299223101012cREVGeometrycachetotal1order  title S& cREVTable currentviewThis is the title of the card cREVGeneral revUniqueID 1305629922310 This is the title of the card revOnline | RunRev