Context.st
changeset 22506 d5b781899274
parent 22368 fe9f9487a3ed
child 22601 8258751a7465
equal deleted inserted replaced
22505:a85d5e597dd0 22506:d5b781899274
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1988 by Claus Gittinger
     4  COPYRIGHT (c) 1988 by Claus Gittinger
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
  1883 fullPrintAllString
  1885 fullPrintAllString
  1884     "return a string containing the full walkback (incl. arguments)"
  1886     "return a string containing the full walkback (incl. arguments)"
  1885 
  1887 
  1886     |s|
  1888     |s|
  1887 
  1889 
  1888     s := WriteStream on:''.
  1890     s := '' writeStream.
  1889     self fullPrintAllOn:s.
  1891     self fullPrintAllOn:s.
  1890     ^ s contents
  1892     ^ s contents
  1891 
  1893 
  1892     "
  1894     "
  1893      thisContext fullPrintAllString
  1895      thisContext fullPrintAllString
  2024 printAllString
  2026 printAllString
  2025     "return a string containing the walkback (excl. arguments)"
  2027     "return a string containing the walkback (excl. arguments)"
  2026 
  2028 
  2027     |s|
  2029     |s|
  2028 
  2030 
  2029     s := WriteStream on:''.
  2031     s := '' writeStream.
  2030     self printAllOn:s.
  2032     self printAllOn:s.
  2031     ^ s contents
  2033     ^ s contents
  2032 
  2034 
  2033     "
  2035     "
  2034      thisContext printAllString
  2036      thisContext printAllString
  2181 receiverPrintString
  2183 receiverPrintString
  2182     "return a string describing the receiver of the context"
  2184     "return a string describing the receiver of the context"
  2183 
  2185 
  2184     |s|
  2186     |s|
  2185 
  2187 
  2186     s := WriteStream on:''.
  2188     s := '' writeStream.
  2187     self printReceiverOn:s.
  2189     self printReceiverOn:s.
  2188     ^ s contents
  2190     ^ s contents
  2189 
  2191 
  2190     "
  2192     "
  2191 	thisContext receiverPrintString
  2193         thisContext receiverPrintString
  2192     "
  2194     "
  2193 !
  2195 !
  2194 
  2196 
  2195 safeReceiverClassNameIfInvalid
  2197 safeReceiverClassNameIfInvalid
  2196     "if the receiver refers to an invalid object,
  2198     "if the receiver refers to an invalid object,