BookmarkToolbarMenuBuilder.st
author Claus Gittinger <cg@exept.de>
Fri, 15 Jun 2018 04:00:37 +0200
changeset 18220 d1ebaddf1100
parent 10088 3aee34635589
child 12123 4bde08cebd48
permissions -rw-r--r--
#UI_ENHANCEMENT by cg class: Tools::CheckinInfoDialog class changed: #windowSpec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9970
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
10088
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
     2
 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
     3
 Copyright (c) 2009-2010 eXept Software AG
9970
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
10088
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
     6
 obtaining a copy of this software and associated documentation
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
     7
 files (the 'Software'), to deal in the Software without
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
     8
 restriction, including without limitation the rights to use,
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    10
 copies of the Software, and to permit persons to whom the
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    11
 Software is furnished to do so, subject to the following
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    12
 conditions:
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    13
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    14
 The above copyright notice and this permission notice shall be
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    15
 included in all copies or substantial portions of the Software.
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    16
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
9970
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
"
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"{ Package: 'stx:libtool' }"
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
BookmarkMenuBuilder subclass:#BookmarkToolbarMenuBuilder
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	instanceVariableNames:''
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
	classVariableNames:''
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
	poolDictionaries:''
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
	category:'Interface-Bookmarks'
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
!
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
!BookmarkToolbarMenuBuilder class methodsFor:'documentation'!
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
copyright
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
"
10088
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    39
 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    40
 Copyright (c) 2009-2010 eXept Software AG
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    41
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    42
 Permission is hereby granted, free of charge, to any person
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    43
 obtaining a copy of this software and associated documentation
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    44
 files (the 'Software'), to deal in the Software without
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    45
 restriction, including without limitation the rights to use,
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    46
 copy, modify, merge, publish, distribute, sublicense, and/or sell
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    47
 copies of the Software, and to permit persons to whom the
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    48
 Software is furnished to do so, subject to the following
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    49
 conditions:
9970
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
10088
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    51
 The above copyright notice and this permission notice shall be
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    52
 included in all copies or substantial portions of the Software.
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    53
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    54
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    55
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    56
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    57
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    58
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    59
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    60
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    61
 OTHER DEALINGS IN THE SOFTWARE.
9970
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
"
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
! !
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
!BookmarkToolbarMenuBuilder methodsFor:'utilities'!
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
menuItemFolder:anObject 
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
    ^(super menuItemFolder:anObject)
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
        isButton:(stack top == menu);
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
        yourself
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
    "Created: / 21-06-2011 / 08:09:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
!
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
menuItemGotoBookmark:anObject 
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
    ^(super menuItemGotoBookmark:anObject)
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
        isButton:(stack top == menu);
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
        yourself
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
    "Created: / 21-06-2011 / 08:01:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
! !
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
!BookmarkToolbarMenuBuilder class methodsFor:'documentation'!
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
version_CVS
10088
3aee34635589 copyright
Claus Gittinger <cg@exept.de>
parents: 9970
diff changeset
    88
    ^ '$Header: /cvs/stx/stx/libtool/BookmarkToolbarMenuBuilder.st,v 1.2 2011-07-03 18:01:01 cg Exp $'
9970
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
!
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
version_SVN
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
    ^ '§Id§'
adb58666157b initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
! !