Tools__CodeView2DemoApp.st
author Claus Gittinger <cg@exept.de>
Fri, 01 Jul 2011 15:21:05 +0200
changeset 9984 12d75c72824a
child 10073 5d6d5c1b232a
permissions -rw-r--r--
initial checkin

"
 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 §'
! !