Tools__Inspector2Tab.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 29 Mar 2012 18:51:50 +0100
branchjv
changeset 12212 1208b3e4d64b
parent 12128 a7ff7d66ee85
child 12262 d25ef6bb0ef3
permissions -rw-r--r--
Build files regenerated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9997
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     1
"
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     3
	      All Rights Reserved
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     4
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     5
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     6
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     8
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
     9
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    10
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    11
"
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    12
"{ Package: 'stx:libtool' }"
8777
054b7b03b221 initial checkin
fm
parents:
diff changeset
    13
054b7b03b221 initial checkin
fm
parents:
diff changeset
    14
"{ NameSpace: Tools }"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    15
054b7b03b221 initial checkin
fm
parents:
diff changeset
    16
Object subclass:#Inspector2Tab
054b7b03b221 initial checkin
fm
parents:
diff changeset
    17
	instanceVariableNames:'label view application priority'
054b7b03b221 initial checkin
fm
parents:
diff changeset
    18
	classVariableNames:''
054b7b03b221 initial checkin
fm
parents:
diff changeset
    19
	poolDictionaries:''
10459
57c59ba6f470 class definition
Claus Gittinger <cg@exept.de>
parents: 9997
diff changeset
    20
	category:'Interface-Inspector2'
8777
054b7b03b221 initial checkin
fm
parents:
diff changeset
    21
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    22
9997
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    23
!Inspector2Tab class methodsFor:'documentation'!
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    24
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    25
copyright
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    26
"
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    27
 COPYRIGHT (c) 2006 by eXept Software AG
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    28
	      All Rights Reserved
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    29
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    30
 This software is furnished under a license and may be used
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    31
 only in accordance with the terms of that license and with the
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    33
 be provided or otherwise made available to, or used by, any
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    34
 other person.  No title to or ownership of the software is
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    35
 hereby transferred.
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    36
"
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
    37
! !
8777
054b7b03b221 initial checkin
fm
parents:
diff changeset
    38
054b7b03b221 initial checkin
fm
parents:
diff changeset
    39
!Inspector2Tab methodsFor:'accessing'!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    40
054b7b03b221 initial checkin
fm
parents:
diff changeset
    41
application
054b7b03b221 initial checkin
fm
parents:
diff changeset
    42
    ^ application
054b7b03b221 initial checkin
fm
parents:
diff changeset
    43
054b7b03b221 initial checkin
fm
parents:
diff changeset
    44
    "Created: / 16-01-2008 / 16:51:05 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    45
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    46
054b7b03b221 initial checkin
fm
parents:
diff changeset
    47
application:anApplicationModel
054b7b03b221 initial checkin
fm
parents:
diff changeset
    48
    application := anApplicationModel.
054b7b03b221 initial checkin
fm
parents:
diff changeset
    49
054b7b03b221 initial checkin
fm
parents:
diff changeset
    50
    "Created: / 16-01-2008 / 16:51:05 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    51
    "Modified: / 17-02-2008 / 08:58:34 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    52
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    53
054b7b03b221 initial checkin
fm
parents:
diff changeset
    54
label
054b7b03b221 initial checkin
fm
parents:
diff changeset
    55
    ^ label
054b7b03b221 initial checkin
fm
parents:
diff changeset
    56
054b7b03b221 initial checkin
fm
parents:
diff changeset
    57
    "Created: / 16-01-2008 / 16:51:05 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    58
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    59
054b7b03b221 initial checkin
fm
parents:
diff changeset
    60
label:aString
054b7b03b221 initial checkin
fm
parents:
diff changeset
    61
    label := aString.
054b7b03b221 initial checkin
fm
parents:
diff changeset
    62
054b7b03b221 initial checkin
fm
parents:
diff changeset
    63
    "Created: / 16-01-2008 / 16:51:05 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    64
    "Modified: / 17-02-2008 / 08:58:41 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    65
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    66
054b7b03b221 initial checkin
fm
parents:
diff changeset
    67
priority
054b7b03b221 initial checkin
fm
parents:
diff changeset
    68
    ^ priority ? 25
054b7b03b221 initial checkin
fm
parents:
diff changeset
    69
054b7b03b221 initial checkin
fm
parents:
diff changeset
    70
    "Created: / 17-02-2008 / 10:05:51 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    71
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    72
054b7b03b221 initial checkin
fm
parents:
diff changeset
    73
priority:something
054b7b03b221 initial checkin
fm
parents:
diff changeset
    74
    priority := something.
054b7b03b221 initial checkin
fm
parents:
diff changeset
    75
054b7b03b221 initial checkin
fm
parents:
diff changeset
    76
    "Created: / 17-02-2008 / 10:05:51 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    77
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    78
054b7b03b221 initial checkin
fm
parents:
diff changeset
    79
text:aStringOrValueModel
054b7b03b221 initial checkin
fm
parents:
diff changeset
    80
054b7b03b221 initial checkin
fm
parents:
diff changeset
    81
    self view:((HVScrollableView for:TextView) model: aStringOrValueModel; yourself)
054b7b03b221 initial checkin
fm
parents:
diff changeset
    82
054b7b03b221 initial checkin
fm
parents:
diff changeset
    83
    "Modified: / 17-02-2008 / 08:58:41 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    84
    "Created: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    85
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    86
054b7b03b221 initial checkin
fm
parents:
diff changeset
    87
view
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    88
    view isNil ifTrue:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    89
        application ifNotNil:[
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    90
            view := ApplicationSubView new client: application
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    91
        ]
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    92
    ].
8777
054b7b03b221 initial checkin
fm
parents:
diff changeset
    93
    ^ view
054b7b03b221 initial checkin
fm
parents:
diff changeset
    94
054b7b03b221 initial checkin
fm
parents:
diff changeset
    95
    "Created: / 16-01-2008 / 16:51:05 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
    96
    "Modified: / 17-02-2008 / 10:38:59 / janfrog"
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
    97
    "Modified (format): / 18-11-2011 / 15:00:22 / cg"
8777
054b7b03b221 initial checkin
fm
parents:
diff changeset
    98
!
054b7b03b221 initial checkin
fm
parents:
diff changeset
    99
054b7b03b221 initial checkin
fm
parents:
diff changeset
   100
view:aView
054b7b03b221 initial checkin
fm
parents:
diff changeset
   101
    view := aView.
054b7b03b221 initial checkin
fm
parents:
diff changeset
   102
054b7b03b221 initial checkin
fm
parents:
diff changeset
   103
    "Created: / 16-01-2008 / 16:51:05 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
   104
    "Modified: / 17-02-2008 / 08:58:46 / janfrog"
054b7b03b221 initial checkin
fm
parents:
diff changeset
   105
! !
054b7b03b221 initial checkin
fm
parents:
diff changeset
   106
054b7b03b221 initial checkin
fm
parents:
diff changeset
   107
!Inspector2Tab class methodsFor:'documentation'!
054b7b03b221 initial checkin
fm
parents:
diff changeset
   108
8802
576679781e91 changed: #version_SVN
fm
parents: 8777
diff changeset
   109
version_CVS
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   110
    ^ '§Header: /cvs/stx/stx/libtool/Tools__Inspector2Tab.st,v 1.6 2011/11/18 14:06:10 cg Exp §'
8802
576679781e91 changed: #version_SVN
fm
parents: 8777
diff changeset
   111
!
576679781e91 changed: #version_SVN
fm
parents: 8777
diff changeset
   112
8815
fm
parents: 8802
diff changeset
   113
version_CVS_jvrany
9997
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
   114
    ^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2Tab.st,v 1.3 2008-02-17 10:12:10 vranyj1 Exp §'
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
   115
!
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
   116
Claus Gittinger <cg@exept.de>
parents: 8815
diff changeset
   117
version_SVN
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
   118
    ^ '$Id: Tools__Inspector2Tab.st 7854 2012-01-30 17:49:41Z vranyj1 $'
12125
0c49a3b13e43 Merged with /trunk
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12123
diff changeset
   119
! !