ApplicationController.st
author Stefan Vogel <sv@exept.de>
Mon, 13 Mar 2017 09:54:33 +0100
changeset 3941 dd9237d3a727
parent 114 e577a2f332d0
child 3855 1db7742d33ad
permissions -rw-r--r--
#BUGFIX by stefan class: MIMETypes application/xml -> #isXmlType
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
50
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     1
"
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     2
 COPYRIGHT (c) 1995 by Claus Gittinger
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     3
	      All Rights Reserved
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     4
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
53bc56e07e8f Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    11
"
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    12
56
405a86416674 *** empty log message ***
claus
parents: 52
diff changeset
    13
ControllerWithMenu subclass:#ApplicationController
50
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    14
	 instanceVariableNames:''
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    15
	 classVariableNames:''
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    16
	 poolDictionaries:''
52
6dc870beba69 *** empty log message ***
claus
parents: 50
diff changeset
    17
	 category:'Interface-Framework'
50
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    18
!
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    19
52
6dc870beba69 *** empty log message ***
claus
parents: 50
diff changeset
    20
!ApplicationController class methodsFor:'documentation'!
50
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    21
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    22
copyright
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    23
"
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    24
 COPYRIGHT (c) 1995 by Claus Gittinger
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    25
	      All Rights Reserved
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    26
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    27
 This software is furnished under a license and may be used
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    28
 only in accordance with the terms of that license and with the
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    29
 inclusion of the above copyright notice.   This software may not
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    30
 be provided or otherwise made available to, or used by, any
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    31
 other person.  No title to or ownership of the software is
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    32
 hereby transferred.
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    33
"
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    34
!
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    35
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    36
version
114
e577a2f332d0 uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 96
diff changeset
    37
    ^ '$Header: /cvs/stx/stx/libview2/ApplicationController.st,v 1.6 1995-11-11 16:04:12 cg Exp $'
50
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    38
!
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    39
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    40
documentation
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    41
"
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    42
    Since many ST-80 classes are subclasses of ApplicationController, 
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    43
    this class is provided here to allow easier porting of ST-80 code.
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    44
    It does not (currently) provide any functionality; therefore, manual
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    45
    changes have to be made to get those applications to run under ST/X.
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    46
    (but at least, this enables you to fileIn that code)
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    47
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    48
    Instance variables:
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    49
"
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    50
! !
53bc56e07e8f Initial revision
claus
parents:
diff changeset
    51
63
claus
parents: 56
diff changeset
    52
!ApplicationController methodsFor:'closing'!
claus
parents: 56
diff changeset
    53
claus
parents: 56
diff changeset
    54
close
claus
parents: 56
diff changeset
    55
    "close the application"
claus
parents: 56
diff changeset
    56
claus
parents: 56
diff changeset
    57
    self view destroy
claus
parents: 56
diff changeset
    58
! !
claus
parents: 56
diff changeset
    59
claus
parents: 56
diff changeset
    60
claus
parents: 56
diff changeset
    61