SelectionBrowser.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 14 Nov 2018 12:07:51 +0100
branchjv
changeset 3630 5e718e0a754e
parent 2028 ad4a424254ef
permissions -rw-r--r--
Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present

- All source *.st files are now Unicode UTF8 without BOM
Files are in two groups (fileOut works this way in Smalltalk/X):
- containing a unicode character have "{ Encoding: utf8 }" at the header
- ASCII only are without the header
     1 "
     2  COPYRIGHT (c) 1997-1998 by eXept Software AG
     3               All Rights Reserved
     4 
     5  This software is furnished under a license and may be used
     6  only in accordance with the terms of that license and with the
     7  inclusion of the above copyright notice. This software may not
     8  be provided or otherwise made available to, or used by, any
     9  other person. No title to or ownership of the software is
    10  hereby transferred.
    11 "
    12 
    13 
    14 
    15 "{ Package: 'stx:libtool2' }"
    16 
    17 SimpleDialog subclass:#SelectionBrowser
    18 	instanceVariableNames:'title'
    19 	classVariableNames:''
    20 	poolDictionaries:''
    21 	category:'Interface-Dialogs'
    22 !
    23 
    24 SelectionBrowser class instanceVariableNames:'lastSelection'
    25 
    26 "
    27  The following class instance variables are inherited by this class:
    28 
    29 	SimpleDialog - 
    30 	ApplicationModel - ClassResources
    31 	Model - 
    32 	Object - 
    33 "
    34 !
    35 
    36 !SelectionBrowser class methodsFor:'documentation'!
    37 
    38 copyright
    39 "
    40  COPYRIGHT (c) 1997-1998 by eXept Software AG
    41               All Rights Reserved
    42 
    43  This software is furnished under a license and may be used
    44  only in accordance with the terms of that license and with the
    45  inclusion of the above copyright notice. This software may not
    46  be provided or otherwise made available to, or used by, any
    47  other person. No title to or ownership of the software is
    48  hereby transferred.
    49 "
    50 
    51 
    52 !
    53 
    54 documentation
    55 "
    56     The abstract superclass for the ResourceSelectionBrowser
    57     and the FileSelectionBrowser.
    58 
    59     [author:]
    60        Thomas Zwick
    61 "
    62 ! !
    63 
    64 !SelectionBrowser class methodsFor:'accessing'!
    65 
    66 lastSelection
    67     "returns the last selection; file path or resource class"
    68 
    69     ^lastSelection
    70 !
    71 
    72 lastSelection: aString
    73     "sets the last selection; file path or resource class"
    74 
    75     lastSelection := aString
    76 ! !
    77 
    78 !SelectionBrowser class methodsFor:'queries'!
    79 
    80 isVisualStartable
    81     "return true, if this application can be started via #open.
    82      (to allow start of a change browser via double-click in the browser)"
    83 
    84     self == SelectionBrowser ifTrue:[^false].
    85     ^super isVisualStartable
    86 ! !
    87 
    88 !SelectionBrowser methodsFor:'accessing'!
    89 
    90 title: aString
    91     "sets the title"
    92 
    93     title := aString
    94 
    95 ! !
    96 
    97 !SelectionBrowser methodsFor:'help'!
    98 
    99 openHTMLDocument: aHTMLFilename
   100     "open a HTMLDocumentView on aHTMLFilename"
   101 
   102     HTMLDocumentView openFullOnDocumentationFile: aHTMLFilename
   103 ! !
   104 
   105 !SelectionBrowser methodsFor:'startup & release'!
   106 
   107 postBuildWith:aBuilder
   108     "sets the title (can be defined)"
   109 
   110     builder window label: title ? builder window label.
   111 
   112     super postBuildWith:aBuilder
   113 ! !
   114 
   115 !SelectionBrowser class methodsFor:'documentation'!
   116 
   117 version
   118     ^ '$Header$'
   119 ! !