"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libtool' }"
"{ NameSpace: Tools }"
ApplicationModel subclass:#CodeView2DemoApp
instanceVariableNames:'modifiedChannel'
classVariableNames:''
poolDictionaries:''
category:'Interface-CodeView'
!
!CodeView2DemoApp class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
!
examples
"
Starting the application:
[exBegin]
Tools::CodeView2DemoApp open
[exEnd]
more examples to be added:
[exBegin]
... add code fragment for
... executable example here ...
[exEnd]
"
! !
!CodeView2DemoApp class methodsFor:'interface specs'!
windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:Tools::CodeView2DemoApp andSelector:#windowSpec
Tools::CodeView2DemoApp new openInterface:#windowSpec
Tools::CodeView2DemoApp open
"
<resource: #canvas>
^
#(FullSpec
name: windowSpec
window:
(WindowSpec
label: 'CodeView2 Demo App'
name: 'CodeView2 Demo App'
min: (Point 10 10)
bounds: (Rectangle 0 0 509 392)
)
component:
(SpecCollection
collection: (
(TextEditorSpec
name: 'CodeView2'
layout: (LayoutFrame 0 0 30 0 0 1 0 1)
hasHorizontalScrollBar: true
hasVerticalScrollBar: true
hasKeyboardFocusInitially: false
viewClassName: 'Tools::CodeView2'
)
)
)
)
! !
!CodeView2DemoApp methodsFor:'aspects'!
modifiedChannel
<resource: #uiAspect>
"automatically generated by UIPainter ..."
"*** the code below creates a default model when invoked."
"*** (which may not be the one you wanted)"
"*** Please change as required and accept it in the browser."
"*** (and replace this comment by something more useful ;-)"
modifiedChannel isNil ifTrue:[
modifiedChannel := ValueHolder with: false
].
^ modifiedChannel.
"Modified: / 06-02-2010 / 20:03:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!CodeView2DemoApp class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2DemoApp.st,v 1.1 2011-07-01 13:21:05 cg Exp $'
!
version_SVN
^ '§Id: Tools__CodeView2DemoApp.st 7567 2010-04-17 10:59:53Z vranyj1 §'
! !