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