ApplicationModel.st
changeset 1481 e1922b505268
parent 1479 c30179d243db
child 1519 bc832a0d71ed
equal deleted inserted replaced
1480:b6c43e967b2a 1481:e1922b505268
  2094 
  2094 
  2095     ^ self class interfaceSpecFor:aSelector
  2095     ^ self class interfaceSpecFor:aSelector
  2096 
  2096 
  2097     "Created: / 25.1.1998 / 19:45:12 / cg"
  2097     "Created: / 25.1.1998 / 19:45:12 / cg"
  2098     "Modified: / 25.1.1998 / 19:47:09 / cg"
  2098     "Modified: / 25.1.1998 / 19:47:09 / cg"
       
  2099 !
       
  2100 
       
  2101 isOpen
       
  2102    "answer true if the application's window is open"
       
  2103 
       
  2104    |win|
       
  2105 
       
  2106    ^ (win := self window) notNil and:[win isOpen]
  2099 !
  2107 !
  2100 
  2108 
  2101 processName
  2109 processName
  2102     "return a name to be shown for me in the process monitor"
  2110     "return a name to be shown for me in the process monitor"
  2103 
  2111 
  2498 ! !
  2506 ! !
  2499 
  2507 
  2500 !ApplicationModel class methodsFor:'documentation'!
  2508 !ApplicationModel class methodsFor:'documentation'!
  2501 
  2509 
  2502 version
  2510 version
  2503     ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.156 2001-06-22 15:51:05 cg Exp $'
  2511     ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.157 2001-07-05 14:53:01 stefan Exp $'
  2504 ! !
  2512 ! !
  2505 ApplicationModel initialize!
  2513 ApplicationModel initialize!