SelectionBrowser.st
author tz
Fri, 10 Apr 1998 19:21:21 +0200
changeset 773 de5c99bd3078
parent 772 6cf444ab3cf5
child 1428 8243829fd6d3
permissions -rw-r--r--
help
tz@402
     1
"
tz@772
     2
 COPYRIGHT (c) 1997-1998 by eXept Software AG
tz@402
     3
              All Rights Reserved
tz@402
     4
tz@402
     5
 This software is furnished under a license and may be used
tz@402
     6
 only in accordance with the terms of that license and with the
tz@402
     7
 inclusion of the above copyright notice. This software may not
tz@402
     8
 be provided or otherwise made available to, or used by, any
tz@402
     9
 other person. No title to or ownership of the software is
tz@402
    10
 hereby transferred.
tz@402
    11
"
tz@402
    12
tz@402
    13
tz@402
    14
tz@402
    15
SimpleDialog subclass:#SelectionBrowser
tz@402
    16
	instanceVariableNames:'title'
tz@402
    17
	classVariableNames:''
tz@402
    18
	poolDictionaries:''
tz@619
    19
	category:'Interface-Dialogs'
tz@402
    20
!
tz@402
    21
tz@402
    22
SelectionBrowser class instanceVariableNames:'lastSelection'
tz@402
    23
tz@402
    24
"
tz@402
    25
 The following class instance variables are inherited by this class:
tz@402
    26
tz@402
    27
	SimpleDialog - 
tz@402
    28
	ApplicationModel - ClassResources
tz@402
    29
	Model - 
tz@402
    30
	Object - 
tz@402
    31
"
tz@402
    32
!
tz@402
    33
tz@402
    34
!SelectionBrowser class methodsFor:'documentation'!
tz@402
    35
tz@402
    36
copyright
tz@402
    37
"
tz@772
    38
 COPYRIGHT (c) 1997-1998 by eXept Software AG
tz@402
    39
              All Rights Reserved
tz@402
    40
tz@402
    41
 This software is furnished under a license and may be used
tz@402
    42
 only in accordance with the terms of that license and with the
tz@402
    43
 inclusion of the above copyright notice. This software may not
tz@402
    44
 be provided or otherwise made available to, or used by, any
tz@402
    45
 other person. No title to or ownership of the software is
tz@402
    46
 hereby transferred.
tz@402
    47
"
tz@402
    48
tz@402
    49
tz@402
    50
!
tz@402
    51
tz@402
    52
documentation
tz@402
    53
"
tz@772
    54
    The abstract superclass for the ResourceSelectionBrowser
tz@772
    55
    and the FileSelectionBrowser.
tz@504
    56
tz@504
    57
    [author:]
tz@504
    58
       Thomas Zwick
tz@402
    59
"
tz@402
    60
! !
tz@402
    61
tz@402
    62
!SelectionBrowser class methodsFor:'accessing'!
tz@402
    63
tz@402
    64
lastSelection
tz@772
    65
    "returns the last selection; file path or resource class"
tz@402
    66
tz@402
    67
    ^lastSelection
tz@402
    68
!
tz@402
    69
tz@402
    70
lastSelection: aString
tz@772
    71
    "sets the last selection; file path or resource class"
tz@402
    72
tz@402
    73
    lastSelection := aString
tz@402
    74
! !
tz@402
    75
tz@772
    76
!SelectionBrowser class methodsFor:'queries'!
tz@772
    77
tz@772
    78
isVisualStartable
tz@772
    79
    "returns whether this application class can be started via #open"
tz@772
    80
tz@772
    81
    self == SelectionBrowser ifTrue:[^false].
tz@772
    82
    ^super isVisualStartable
tz@772
    83
tz@772
    84
! !
tz@772
    85
tz@402
    86
!SelectionBrowser methodsFor:'accessing'!
tz@402
    87
tz@402
    88
title: aString
tz@772
    89
    "sets the title"
tz@402
    90
tz@402
    91
    title := aString
tz@402
    92
tz@402
    93
! !
tz@402
    94
tz@773
    95
!SelectionBrowser methodsFor:'help'!
tz@773
    96
tz@773
    97
openHTMLDocument: aHTMLFilename
tz@773
    98
    "open a HTMLDocumentView on aHTMLFilename"
tz@773
    99
tz@773
   100
    HTMLDocumentView openFullOnDocumentationFile: aHTMLFilename
tz@773
   101
! !
tz@773
   102
tz@647
   103
!SelectionBrowser methodsFor:'startup / release'!
tz@402
   104
tz@402
   105
postBuildWith:aBuilder
tz@772
   106
    "sets the title (can be defined)"
tz@402
   107
tz@631
   108
    builder window label: title ? builder window label.
tz@402
   109
tz@402
   110
    ^super postBuildWith:aBuilder
tz@402
   111
tz@402
   112
! !
tz@402
   113
tz@402
   114
!SelectionBrowser class methodsFor:'documentation'!
tz@402
   115
tz@402
   116
version
tz@402
   117
    ^ '$Header$'
tz@402
   118
! !