FileBrowserV3.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 19 Jul 2017 09:42:32 +0200
branchjv
changeset 17619 edb119820fcb
parent 12431 9f0c59c742d5
permissions -rw-r--r--
Issue #154: Set window style using `#beToolWindow` to indicate that the minirunner window is kind of support tool rather than some X11 specific code (which does not work on Windows of course) See https://swing.fit.cvut.cz/projects/stx-jv/ticket/154
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