FileBrowserV3.st
author Jan Vrany <jan.vrany@labware.com>
Wed, 05 Oct 2022 11:57:26 +0100
branchjv
changeset 19637 28f5bfaa093d
parent 12431 9f0c59c742d5
permissions -rw-r--r--
`NewSystemBrowser`: avoid updating package info when changed class is not selected This speeds up loading of packages when browser is open as it does not (needlessly) update package info which may involve scm round-trip.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
12198
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
              All Rights Reserved
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
 hereby transferred.
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
"
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
FileBrowserV2 subclass:#FileBrowserV3
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    15
	instanceVariableNames:'bookmarkBarVisibleHolder bookmarkHolder'
12198
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
	classVariableNames:''
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
	poolDictionaries:''
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
	category:'Interface-Tools-File'
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
!
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
!FileBrowserV3 class methodsFor:'documentation'!
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
copyright
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
"
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
 COPYRIGHT (c) 2006 by eXept Software AG
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
              All Rights Reserved
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
 This software is furnished under a license and may be used
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
 only in accordance with the terms of that license and with the
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
 be provided or otherwise made available to, or used by, any
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
 other person.  No title to or ownership of the software is
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
 hereby transferred.
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
"
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
! !
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    37
!FileBrowserV3 class methodsFor:'help specs'!
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    38
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    39
helpSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    40
    "This resource specification was automatically generated
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    41
     by the UIHelpTool of ST/X."
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    42
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    43
    "Do not manually edit this!! If it is corrupted,
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    44
     the UIHelpTool may not be able to read the specification."
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    45
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    46
    "
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    47
     UIHelpTool openOnClass:FileBrowserV3    
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    48
    "
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    49
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    50
    <resource: #help>
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    51
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    52
    ^ super helpSpec addPairsFrom:#(
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    53
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    54
#copyFile
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    55
''
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    56
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    57
#cutFile
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    58
''
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    59
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    60
#deleteFile
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    61
''
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    62
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    63
#editFile
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    64
''
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    65
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    66
#fileGotoBookmark
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    67
''
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    68
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    69
#fileHistory
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    70
''
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    71
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    72
#fileIn
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    73
''
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    74
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    75
#pasteFile
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    76
''
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
    77
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    78
)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    79
! !
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    80
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    81
!FileBrowserV3 class methodsFor:'interface specs'!
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    82
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    83
windowSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    84
    "This resource specification was automatically generated
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    85
     by the UIPainter of ST/X."
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    86
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    87
    "Do not manually edit this!! If it is corrupted,
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    88
     the UIPainter may not be able to read the specification."
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    89
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    90
    "
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    91
     UIPainter new openOnClass:FileBrowserV3 andSelector:#windowSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    92
     FileBrowserV3 new openInterface:#windowSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    93
     FileBrowserV3 open
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    94
    "
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    95
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    96
    <resource: #canvas>
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    97
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    98
    ^ 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
    99
     #(FullSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   100
        name: windowSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   101
        window: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   102
       (WindowSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   103
          label: FileBrowser
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   104
          name: FileBrowser
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   105
          min: (Point 10 10)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   106
          bounds: (Rectangle 0 0 800 600)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   107
          menu: mainMenu
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   108
          icon: defaultIcon
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   109
        )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   110
        component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   111
       (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   112
          collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   113
           (ViewSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   114
              name: 'ToolbarBox'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   115
              layout: (LayoutFrame 0 0 0 0 0 1 40 0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   116
              level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   117
              visibilityChannel: toolBarVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   118
              component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   119
             (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   120
                collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   121
                 (ActionButtonSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   122
                    label: 'hideToolBarIcon'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   123
                    name: 'HideToolBarButton'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   124
                    layout: (LayoutFrame 0 0 0 0 13 0 40 0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   125
                    activeHelpKey: hideToolBar
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   126
                    hasCharacterOrientedLabel: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   127
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   128
                    model: hideToolbar
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   129
                    postBuildCallback: hideToolBarButtonCreated:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   130
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   131
                 (MenuPanelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   132
                    name: 'ToolBar'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   133
                    layout: (LayoutFrame 13 0 0 0 0 1 40 0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   134
                    level: 1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   135
                    menu: toolBarMainMenu
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   136
                    textDefault: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   137
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   138
                 )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   139
               
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   140
              )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   141
            )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   142
           (ViewSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   143
              name: 'BookmarkBar'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   144
              layout: (LayoutFrame 0 0 40 0 0 1 66 0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   145
              visibilityChannel: bookmarkBarVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   146
              component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   147
             (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   148
                collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   149
                 (ActionButtonSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   150
                    label: 'hideToolBarIcon'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   151
                    name: 'Button1'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   152
                    layout: (LayoutFrame 0 0 0 0 13 0 0 1)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   153
                    activeHelpKey: hideToolBar
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   154
                    hasCharacterOrientedLabel: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   155
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   156
                    model: hideBookmarkBar
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   157
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   158
                 (SubCanvasSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   159
                    name: 'Bookmarks'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   160
                    layout: (LayoutFrame 13 0 0 0 0 1 0 1)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   161
                    level: 1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   162
                    hasHorizontalScrollBar: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   163
                    hasVerticalScrollBar: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   164
                    miniScrollerHorizontal: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   165
                    majorKey: BookmarkBar
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   166
                    subAspectHolders: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   167
                   (Array
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   168
                      
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   169
                     (SubChannelInfoSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   170
                        subAspect: bookmarkHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   171
                        aspect: bookmarkHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   172
                      ) 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   173
                     (SubChannelInfoSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   174
                        subAspect: bookmarksHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   175
                        aspect: bookmarkListHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   176
                      )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   177
                    )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   178
                    createNewApplication: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   179
                    createNewBuilder: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   180
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   181
                 )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   182
               
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   183
              )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   184
            )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   185
           (ViewSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   186
              name: 'FilenameEntryFieldBox'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   187
              layout: (LayoutFrame 0 0 67 0 0 1 92 0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   188
              level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   189
              visibilityChannel: filenameEntryFieldVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   190
              component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   191
             (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   192
                collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   193
                 (ActionButtonSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   194
                    label: 'hideFilenameEntryFieldIcon'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   195
                    name: 'HideFilenameEntryFieldButton'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   196
                    layout: (LayoutFrame 0 0 0 0 13 0 0 1)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   197
                    activeHelpKey: hideFilenameEntryField
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   198
                    hasCharacterOrientedLabel: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   199
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   200
                    model: hideFilenameEntryField
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   201
                    postBuildCallback: hideFilenameEntryFieldButtonCreated:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   202
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   203
                 (HorizontalPanelViewSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   204
                    name: 'HorizontalPanel1'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   205
                    layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   206
                    level: 1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   207
                    horizontalLayout: leftFit
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   208
                    verticalLayout: fit
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   209
                    horizontalSpace: 3
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   210
                    verticalSpace: 3
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   211
                    component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   212
                   (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   213
                      collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   214
                       (ComboListSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   215
                          name: 'ComboList1'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   216
                          visibilityChannel: driveSelectorVisible
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   217
                          model: selectedDeviceDrive
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   218
                          comboList: listOfDeviceDrives
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   219
                          useIndex: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   220
                          hidePullDownMenuButton: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   221
                          extent: (Point 53 23)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   222
                        )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   223
                       (VariableHorizontalPanelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   224
                          name: 'VariableHorizontalPanel1'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   225
                          level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   226
                          showHandle: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   227
                          component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   228
                         (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   229
                            collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   230
                             (NonScrollableArbitraryComponentSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   231
                                name: 'NonScrollableArbitraryComponent1'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   232
                                component: FilenameEditFieldV2
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   233
                                postBuildCallback: postBuildEditField:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   234
                              )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   235
                             (ViewSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   236
                                name: 'FilterBox'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   237
                                component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   238
                               (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   239
                                  collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   240
                                   (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   241
                                      label: 'Filter:'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   242
                                      name: 'Filter'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   243
                                      layout: (LayoutFrame 0 0 0 0 40 0 0 1)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   244
                                      translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   245
                                      adjust: left
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   246
                                      postBuildCallback: postBuildPathViewBox:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   247
                                    )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   248
                                   (ComboBoxSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   249
                                      name: 'FilterSelectionBox'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   250
                                      layout: (LayoutFrame 40 0 0 0 0 1 0 1)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   251
                                      model: filterModel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   252
                                      immediateAccept: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   253
                                      acceptOnPointerLeave: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   254
                                      comboList: filterListModel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   255
                                    )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   256
                                   )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   257
                                 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   258
                                )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   259
                                postBuildCallback: postBuildPathViewBox:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   260
                              )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   261
                             )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   262
                           
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   263
                          )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   264
                          handles: (Any 0.774936 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   265
                          postBuildCallback: postBuildPathViewBox:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   266
                          useDefaultExtent: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   267
                        )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   268
                       )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   269
                     
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   270
                    )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   271
                    postBuildCallback: postBuildPathViewBox:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   272
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   273
                 )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   274
               
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   275
              )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   276
            )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   277
           (#'FileBrowserV2UISpecifications::PanelSpec'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   278
              name: 'BrowserBox'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   279
              layout: (LayoutFrame 0 0.0 92 0.0 0 1.0 -26 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   280
              level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   281
              showHandle: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   282
              snapMode: both
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   283
              whichView: last
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   284
              orientation: vertical
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   285
              visibility: viewNoteBookApplicationHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   286
              component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   287
             (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   288
                collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   289
                 (#'FileBrowserV2UISpecifications::PanelSpec'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   290
                    name: 'HorizontalPanel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   291
                    level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   292
                    snapMode: both
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   293
                    whichView: first
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   294
                    orientation: horizontal
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   295
                    visibility: showDirectoryTree
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   296
                    component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   297
                   (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   298
                      collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   299
                       (SubCanvasSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   300
                          name: 'DirectoryTreeBrowser'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   301
                          hasHorizontalScrollBar: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   302
                          hasVerticalScrollBar: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   303
                          majorKey: DirectoryTreeBrowser
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   304
                          createNewApplication: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   305
                          createNewBuilder: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   306
                          postBuildCallback: postBuildDirectoryTree:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   307
                        )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   308
                       (SubCanvasSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   309
                          name: 'DirectoryContentsBrowser'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   310
                          hasHorizontalScrollBar: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   311
                          hasVerticalScrollBar: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   312
                          majorKey: DirectoryContentsBrowser
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   313
                          createNewApplication: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   314
                          createNewBuilder: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   315
                        )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   316
                       )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   317
                     
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   318
                    )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   319
                    handles: (Any 0.225 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   320
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   321
                 (SubCanvasSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   322
                    name: 'FileApplicationNoteBook'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   323
                    tabable: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   324
                    hasHorizontalScrollBar: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   325
                    hasVerticalScrollBar: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   326
                    majorKey: FileApplicationNoteBook
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   327
                    createNewApplication: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   328
                    createNewBuilder: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   329
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   330
                 )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   331
               
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   332
              )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   333
              handles: (Any 0.5 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   334
            )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   335
           (ViewSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   336
              name: 'InfoBox'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   337
              layout: (LayoutFrame 0 0 -26 1 0 1 0 1)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   338
              level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   339
              visibilityChannel: infoBarVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   340
              component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   341
             (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   342
                collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   343
                 (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   344
                    label: 'NotifyLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   345
                    name: 'NotifyLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   346
                    layout: (LayoutFrame 0 0 1 0.0 -220 1 1 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   347
                    level: -1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   348
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   349
                    labelChannel: notifyChannel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   350
                    adjust: left
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   351
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   352
                 (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   353
                    label: 'encoding'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   354
                    name: 'EncodingLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   355
                    layout: (LayoutFrame -318 1 2 0.0 -235 1 0 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   356
                    activeHelpKey: encodingLabel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   357
                    level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   358
                    labelChannel: fileEncodingHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   359
                    adjust: right
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   360
                    menu: encodingMenu
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   361
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   362
                 (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   363
                    name: 'FileEncodingLockedLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   364
                    layout: (LayoutFrame -235 1 2 0.0 -220 1 20 0.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   365
                    activeHelpKey: encodingLockedLabel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   366
                    level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   367
                    labelChannel: fileEncodingLockImageHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   368
                    adjust: right
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   369
                    menu: encodingMenu
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   370
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   371
                 (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   372
                    label: 'Shown Files'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   373
                    name: 'ShownFilesLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   374
                    layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   375
                    activeHelpKey: numberOfFiles
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   376
                    level: -1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   377
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   378
                    labelChannel: shownFiles
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   379
                    adjust: right
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   380
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   381
                 (ViewSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   382
                    name: 'ProgressIndicatorBox'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   383
                    layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   384
                    level: -1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   385
                    visibilityChannel: activityVisibilityChannel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   386
                    component: 
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   387
                   (SpecCollection
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   388
                      collection: (
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   389
                       (ProgressIndicatorSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   390
                          name: 'ProgressIndicator1'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   391
                          layout: (LayoutFrame 5 0.0 -7 0.5 -5 1.0 7 0.5)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   392
                          backgroundColor: (Color 0.0 66.6666666666667 66.6666666666667)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   393
                          isActivityIndicator: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   394
                        )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   395
                       )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   396
                     
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   397
                    )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   398
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   399
                 (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   400
                    name: 'BusyLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   401
                    layout: (LayoutFrame -220 1 1 0.0 -65 1 1 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   402
                    activeHelpKey: modeLabel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   403
                    level: -1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   404
                    visibilityChannel: busyLabelVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   405
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   406
                    labelChannel: busyLabelHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   407
                    adjust: right
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   408
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   409
                 (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   410
                    label: 'M'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   411
                    name: 'ModeLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   412
                    layout: (LayoutFrame -65 1 1 0.0 -55 1 1 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   413
                    activeHelpKey: modeLabel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   414
                    level: -1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   415
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   416
                    labelChannel: modeLabelHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   417
                    adjust: right
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   418
                    postBuildCallback: postBuildEditModeInfoLabel:
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   419
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   420
                 (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   421
                    label: 'L'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   422
                    name: 'LineLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   423
                    layout: (LayoutFrame -55 1 1 0.0 -20 1 1 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   424
                    activeHelpKey: lineLabel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   425
                    level: -1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   426
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   427
                    labelChannel: cursorLineLabelHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   428
                    adjust: right
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   429
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   430
                 (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   431
                    label: 'C'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   432
                    name: 'ColLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   433
                    layout: (LayoutFrame -20 1 1 0.0 0 1 1 1.0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   434
                    activeHelpKey: columnLabel
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   435
                    level: -1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   436
                    translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   437
                    labelChannel: cursorColLabelHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   438
                    adjust: right
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   439
                  )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   440
                 )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   441
               
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   442
              )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   443
            )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   444
           (LabelSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   445
              label: 'Preview'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   446
              name: 'PreviewLabel'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   447
              layout: (LayoutFrame 0 0.5 93 0 100 0.5 115 0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   448
              level: 0
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   449
              borderWidth: 1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   450
              visibilityChannel: previewVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   451
              backgroundColor: (Color 86.9993133440147 86.9993133440147 86.9993133440147)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   452
              translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   453
            )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   454
           (ArbitraryComponentSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   455
              name: 'Preview'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   456
              layout: (LayoutFrame 0 0.5 116 0 -147 1 -266 1)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   457
              level: 1
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   458
              visibilityChannel: previewVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   459
              hasBorder: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   460
              component: ImageView
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   461
            )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   462
           (ActionButtonSpec
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   463
              label: 'closePreviewButtonImage'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   464
              name: 'ClosePreviewButton'
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   465
              layout: (LayoutFrame -169 1 94 0 -147 1 116 0)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   466
              visibilityChannel: previewVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   467
              hasCharacterOrientedLabel: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   468
              translateLabel: true
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   469
            )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   470
           )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   471
         
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   472
        )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   473
      )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   474
! !
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   475
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   476
!FileBrowserV3 class methodsFor:'menu specs'!
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   477
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   478
toolBarMainMenu
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   479
    "This resource specification was automatically generated
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   480
     by the MenuEditor of ST/X."
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   481
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   482
    "Do not manually edit this!! If it is corrupted,
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   483
     the MenuEditor may not be able to read the specification."
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   484
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   485
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   486
    "
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   487
     MenuEditor new openOnClass:FileBrowserV3 andSelector:#toolBarMainMenu
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   488
     (Menu new fromLiteralArrayEncoding:(FileBrowserV3 toolBarMainMenu)) startUp
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   489
    "
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   490
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   491
    <resource: #menu>
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   492
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   493
    ^ 
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   494
     #(Menu
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   495
        (
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   496
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   497
            activeHelpKey: directoryBack
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   498
            enabled: enableBack
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   499
            label: 'Back'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   500
            itemValue: doBack
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   501
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   502
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   503
            submenuChannel: menuDirHistoryBack
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   504
            labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   505
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   506
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   507
            label: ''
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   508
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   509
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   510
            activeHelpKey: directoryForward
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   511
            enabled: enableForward
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   512
            label: 'Forward'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   513
            itemValue: doForward
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   514
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   515
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   516
            submenuChannel: menuDirHistoryForward
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   517
            labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   518
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   519
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   520
            label: '-'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   521
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   522
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   523
            activeHelpKey: directoryUp
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   524
            enabled: enableDirectoryUp
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   525
            label: 'DirectoryUp'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   526
            itemValue: doGoDirectoryUp
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   527
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   528
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   529
            labelImage: (ResourceRetriever ToolbarIconLibrary directoryUpIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   530
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   531
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   532
            activeHelpKey: fileHome
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   533
            enabled: enableHome
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   534
            label: 'Home'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   535
            itemValue: doGotoHomeDirectory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   536
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   537
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   538
            labelImage: (ResourceRetriever ToolbarIconLibrary homeIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   539
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   540
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   541
            activeHelpKey: fileGotoDefaultDirectory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   542
            enabled: enableGotoDefaultDirectory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   543
            label: 'Current'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   544
            itemValue: doGotoDefaultDirectory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   545
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   546
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   547
            isVisible: false
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   548
            labelImage: (ResourceRetriever ToolbarIconLibrary currentDirectoryIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   549
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   550
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   551
            activeHelpKey: fileGotoSmalltalkDirectory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   552
            enabled: enableGotoSmalltalkDirectory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   553
            label: 'ST/X Default'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   554
            itemValue: doGotoSmalltalkDirectory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   555
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   556
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   557
            labelImage: (ResourceRetriever ToolbarIconLibrary stxHomeIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   558
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   559
         (MenuItem
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   560
            activeHelpKey: fileGotoBookmark
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   561
            label: 'Bookmarks'
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   562
            translateLabel: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   563
            isButton: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   564
            isVisible: false
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   565
            submenuChannel: gotoBookmarksMenu
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   566
            labelImage: (ResourceRetriever ToolbarIconLibrary directoryBookmarksIcon)
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   567
          )
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   568
         (MenuItem
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   569
            activeHelpKey: fileHistory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   570
            enabled: enableFileHistory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   571
            label: 'File History'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   572
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   573
            isButton: true
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   574
            isVisible: false
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   575
            submenuChannel: menuFileHistory
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   576
            labelImage: (ResourceRetriever ToolbarIconLibrary historyIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   577
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   578
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   579
            label: '-'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   580
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   581
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   582
            activeHelpKey: searchFile
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   583
            label: 'Search File'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   584
            itemValue: doOpenSearchFile
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   585
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   586
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   587
            labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   588
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   589
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   590
            label: '-'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   591
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   592
         (MenuItem
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   593
            activeHelpKey: cutFile
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   594
            enabled: hasSelection
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   595
            label: 'Cut'
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   596
            itemValue: cutFiles
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   597
            translateLabel: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   598
            isButton: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   599
            isVisible: false
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   600
            labelImage: (ResourceRetriever ToolbarIconLibrary cutFileIcon)
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   601
          )
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   602
         (MenuItem
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   603
            activeHelpKey: copyFile
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   604
            enabled: hasSelection
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   605
            label: 'Copy'
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   606
            itemValue: copyFiles
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   607
            translateLabel: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   608
            isButton: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   609
            isVisible: false
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   610
            labelImage: (ResourceRetriever ToolbarIconLibrary copyFileIcon)
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   611
          )
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   612
         (MenuItem
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   613
            activeHelpKey: pasteFile
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   614
            enabled: canPaste
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   615
            label: 'Paste'
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   616
            itemValue: pasteFiles
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   617
            translateLabel: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   618
            isButton: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   619
            isVisible: false
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   620
            labelImage: (ResourceRetriever ToolbarIconLibrary pasteFileIcon)
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   621
          )
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   622
         (MenuItem
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   623
            activeHelpKey: deleteFile
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   624
            enabled: hasSelection
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   625
            label: 'Delete'
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   626
            itemValue: deleteFiles
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   627
            translateLabel: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   628
            isButton: true
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   629
            isVisible: false
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   630
            labelImage: (ResourceRetriever ToolbarIconLibrary deleteFileIcon)
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   631
          )
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   632
         (MenuItem
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   633
            label: '-'
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   634
            isVisible: false
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   635
          )
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   636
         (MenuItem
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   637
            activeHelpKey: editFile
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   638
            label: 'Edit File'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   639
            itemValue: doShowFileContents
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   640
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   641
            isButton: true
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   642
            isVisible: false
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   643
            labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   644
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   645
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   646
            activeHelpKey: fileIn
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   647
            label: 'File In'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   648
            itemValue: fileFileIn
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   649
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   650
            isButton: true
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   651
            isVisible: false
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   652
            labelImage: (ResourceRetriever ToolbarIconLibrary fileInIcon)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   653
          )
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   654
         (MenuItem
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   655
            activeHelpKey: openChangeBrowser
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   656
            enabled: hasFileSelection
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   657
            label: 'Changes Browser'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   658
            itemValue: openChangesBrowser
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   659
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   660
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   661
            labelImage: (ResourceRetriever ToolbarIconLibrary startChangesBrowserIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   662
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   663
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   664
            label: '-'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   665
            isVisible: false
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   666
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   667
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   668
            activeHelpKey: addTerminal
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   669
            label: 'VT100'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   670
            itemValue: doAddTerminal
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   671
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   672
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   673
            labelImage: (ResourceRetriever ToolbarIconLibrary shellTerminalIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   674
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   675
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   676
            activeHelpKey: make
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   677
            enabled: canMake
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   678
            label: 'Make'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   679
            itemValue: doMake
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   680
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   681
            isButton: true
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   682
            labelImage: (ResourceRetriever ToolbarIconLibrary make24x24Icon3)
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   683
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   684
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   685
            activeHelpKey: viewDetails
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   686
            label: 'viewDetails'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   687
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   688
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   689
            startGroup: right
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   690
            hideMenuOnActivated: false
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   691
            indication: viewDetails
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   692
            labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   693
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   694
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   695
            activeHelpKey: viewDetails
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   696
            label: 'viewDetails'
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   697
            translateLabel: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   698
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   699
            startGroup: right
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   700
            isVisible: false
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   701
            indication: viewDetails
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   702
            submenuChannel: viewDetailsMenuSpec
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   703
            labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   704
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   705
         (MenuItem
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   706
            activeHelpKey: selectDetails
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   707
            label: ''
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   708
            isButton: true
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   709
            startGroup: right
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   710
            submenuChannel: viewDetailsMenuSpec
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   711
            labelImage: (ResourceRetriever ToolbarIconLibrary empty1x20Icon)
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   712
          )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   713
         )
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   714
        nil
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   715
        nil
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   716
      )
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   717
! !
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   718
12221
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   719
!FileBrowserV3 methodsFor:'actions'!
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   720
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   721
hideBookmarkBar
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   722
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   723
    self bookmarkBarVisibleHolder value
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   724
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   725
    "Created: / 04-04-2012 / 12:08:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12236
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   726
!
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   727
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   728
switchToBookmarkEntry: bookmark
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   729
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   730
    self gotoFile: bookmark path asFilename
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   731
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   732
    "Created: / 20-04-2012 / 18:07:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12221
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   733
! !
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   734
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   735
!FileBrowserV3 methodsFor:'aspects'!
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   736
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   737
bookmarkBarVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   738
    "return/create the 'bookmarkBarVisibleHolder' value holder (automatically generated)"
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   739
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   740
    bookmarkBarVisibleHolder isNil ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   741
        bookmarkBarVisibleHolder := true asValue.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   742
        bookmarkBarVisibleHolder addDependent:self.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   743
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   744
    ^ bookmarkBarVisibleHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   745
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   746
    "Modified: / 10-06-2011 / 23:56:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   747
!
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   748
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   749
bookmarkBarVisibleHolder:something
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   750
    "set the 'bookmarkBarVisibleHolder' value holder (automatically generated)"
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   751
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   752
    |oldValue newValue|
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   753
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   754
    bookmarkBarVisibleHolder notNil ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   755
        oldValue := bookmarkBarVisibleHolder value.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   756
        bookmarkBarVisibleHolder removeDependent:self.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   757
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   758
    bookmarkBarVisibleHolder := something.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   759
    bookmarkBarVisibleHolder notNil ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   760
        bookmarkBarVisibleHolder addDependent:self.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   761
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   762
    newValue := bookmarkBarVisibleHolder value.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   763
    oldValue ~~ newValue ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   764
        self update:#value with:newValue from:bookmarkBarVisibleHolder.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   765
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   766
!
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   767
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   768
bookmarkHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   769
    "return/create the 'bookmarkHolder' value holder (automatically generated)"
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   770
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   771
    bookmarkHolder isNil ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   772
        bookmarkHolder := ValueHolder new.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   773
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   774
    ^ bookmarkHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   775
!
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   776
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   777
bookmarkListHolder
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   778
12221
413e98858ddc - EditFieldWithCompletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12218
diff changeset
   779
    ^BookmarkList forFileBrowser
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   780
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   781
    "Created: / 08-06-2011 / 12:16:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   782
! !
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   783
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   784
!FileBrowserV3 methodsFor:'change & update'!
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   785
12236
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   786
currentFileNameHolderChanged
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   787
    super currentFileNameHolderChanged.
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   788
    self updateBookmark
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   789
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   790
    "Created: / 20-04-2012 / 18:04:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   791
!
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   792
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   793
update:something with:aParameter from:changedObject
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   794
    "Invoked when an object that I depend upon sends a change notification."
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   795
12236
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   796
    "stub code automatically generated - please change as required"
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   797
12236
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   798
    "/ changedObject == someOfMyValueHolders ifTrue:[
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   799
    "/     self doSomethingApropriate.
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   800
    "/     ^ self.
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   801
    "/ ].
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   802
    super update:something with:aParameter from:changedObject
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   803
!
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   804
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   805
updateBookmark
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   806
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   807
    | file bookmark |
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   808
    file := fileEntryFieldHolder value.
12236
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   809
    file notEmptyOrNil ifTrue:[
12230
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   810
        bookmark := Bookmark forFile: file.
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   811
    ].
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   812
    self bookmarkHolder value: bookmark.
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   813
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   814
    "Created: / 13-04-2012 / 12:37:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   815
!
5568874ba4cf - AbstractFileBrowser: added support for ant, hammer as build icon
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12221
diff changeset
   816
12218
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   817
updateToolVisibility
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   818
    |builder toolBar bookmarkBar infoBar filenameEntryField vPanel topOffset bottomOffset
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   819
     toolBarVisible bookmarkBarVisible filenameEntryFieldVisible infoBarVisible d|
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   820
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   821
    builder := self builder.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   822
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   823
    topOffset := 0.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   824
    bottomOffset := 0.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   825
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   826
    toolBarVisible := self toolBarVisibleHolder value.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   827
    toolBarVisible ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   828
        toolBar := builder componentAt:#ToolbarBox.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   829
        topOffset := topOffset + toolBar height.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   830
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   831
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   832
    bookmarkBarVisible := self bookmarkBarVisibleHolder value.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   833
    bookmarkBarVisible ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   834
        bookmarkBar := builder componentAt:#Bookmarks.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   835
        topOffset := topOffset + (bookmarkBar height max: 25)
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   836
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   837
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   838
    filenameEntryFieldVisible := self filenameEntryFieldVisibleHolder value.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   839
    filenameEntryFieldVisible ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   840
        filenameEntryField := builder componentAt:#FilenameEntryFieldBox.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   841
        d := filenameEntryField layout bottomOffset - filenameEntryField layout topOffset.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   842
        filenameEntryField layout topOffset:topOffset bottomOffset:topOffset + d.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   843
        topOffset := topOffset + filenameEntryField height.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   844
        filenameEntryField container notNil ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   845
            filenameEntryField containerChangedSize.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   846
        ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   847
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   848
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   849
    infoBarVisible := self infoBarVisibleHolder value.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   850
    infoBarVisible ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   851
        infoBar := builder componentAt:#InfoBox.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   852
        bottomOffset := bottomOffset - infoBar height.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   853
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   854
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   855
    vPanel := builder componentAt:#BrowserBox.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   856
    vPanel layout topOffset:topOffset+1.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   857
    vPanel layout bottomOffset:bottomOffset-1.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   858
    vPanel container notNil ifTrue:[
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   859
        vPanel containerChangedSize.
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   860
    ].
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   861
8b88c30fb1e7 Improvements in text merge tool
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12216
diff changeset
   862
    "Modified: / 03-04-2012 / 22:23:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12216
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   863
! !
5698c277f043 - Improvements in FileBrowserV2/V3
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12198
diff changeset
   864
12198
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   865
!FileBrowserV3 class methodsFor:'documentation'!
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   866
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12236
diff changeset
   867
version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12236
diff changeset
   868
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12236
diff changeset
   869
    ^ '$Changeset: <not expanded> $'
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12236
diff changeset
   870
!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12236
diff changeset
   871
12198
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   872
version_SVN
12236
8ec3d6230b65 - Tools::LintHighlighter
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12230
diff changeset
   873
    ^ '$Id: FileBrowserV3.st 7985 2012-04-21 08:36:31Z vranyj1 $'
12198
414e7b69ecda Text/ChangeSet diff improved
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   874
! !
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12236
diff changeset
   875