ToolApplicationModel subclass:#HTMLBrowser
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Browsers'
!

HTMLBrowser class instanceVariableNames:'lastFileName'

"
 The following class instance variables are inherited by this class:

	ToolApplicationModel - history clipboard showHelp
	ApplicationModel - ClassResources
	Model - 
	Object - 
"
!

!HTMLBrowser class methodsFor:'documentation'!

documentation
"
    The future HTML Browser.

    [author:]
         Thomas Zwick, eXept Software AG
"
! !

!HTMLBrowser class methodsFor:'accessing'!

lastFileName

    ^lastFileName
!

lastFileName: aFileName

    ^lastFileName := aFileName
! !

!HTMLBrowser class methodsFor:'history'!

historyMaxSize

    ^25

! !

!HTMLBrowser class methodsFor:'interface specs'!

windowSpec
    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to
     handle the specification if its corrupted."

    "
     UIPainter new openOnClass:HTMLBrowser andSelector:#windowSpec
     HTMLBrowser new openInterface:#windowSpec
    "
    "HTMLBrowser open"

    <resource: #canvas>

    ^
     
       #(#FullSpec
          #'window:' 
           #(#WindowSpec
              #'name:' 'HTML Browser'
              #'layout:' #(#LayoutFrame 385 0 376 0 684 0 675 0)
              #'label:' 'HTML Browser'
              #'min:' #(#Point 10 10)
              #'max:' #(#Point 1152 864)
              #'bounds:' #(#Rectangle 385 376 685 676)
              #'menu:' #menu
              #'usePreferredExtent:' false
          )
          #'component:' 
           #(#SpecCollection
              #'collection:' 
               #(
                 #(#MenuPanelSpec
                    #'name:' 'menuToolbarView'
                    #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
                    #'menu:' #menuToolbar
                    #'showSeparatingLines:' true
                )
                 #(#HTMLViewSpec
                    #'name:' 'htmlView'
                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
                    #'model:' #valueOfHTMLDocument
                    #'hasHorizontalScrollBar:' true
                    #'hasVerticalScrollBar:' true
                )
                 #(#UISubSpecification
                    #'name:' 'uISubSpecification1'
                    #'layout:' #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
                    #'majorKey:' #ToolApplicationModel
                    #'minorKey:' #windowSpecForInfoBarWithClock
                )
              )
          )
      )
! !

!HTMLBrowser class methodsFor:'menu specs'!

menu
    "this window spec was automatically generated by the ST/X MenuEditor"

    "do not manually edit this - the builder may not be able to
     handle the specification if its corrupted."

    "
     MenuEditor new openOnClass:HTMLBrowser andSelector:#menu
     (Menu new fromLiteralArrayEncoding:(HTMLBrowser menu)) startUp
    "

    <resource: #menu>

    ^
     
       #(#Menu
          
           #(
             #(#MenuItem
                #'label:' 'About'
                #'activeHelpKey:' #about
                #'accessCharacterPosition:' 1
                #'labelImage:' #(#ResourceRetriever nil #menuIcon)
                #'submenuChannel:' #menuAbout
            )
             #(#MenuItem
                #'label:' 'File'
                #'translateLabel:' true
                #'activeHelpKey:' #file
                #'submenu:' 
                 #(#Menu
                    
                     #(
                       #(#MenuItem
                          #'label:' 'Load...'
                          #'translateLabel:' true
                          #'value:' #doLoad
                          #'activeHelpKey:' #fileLoad
                          #'enabled:' #isStandAlone
                      )
                       #(#MenuItem
                          #'label:' '-'
                      )
                       #(#MenuItem
                          #'label:' 'Print'
                          #'value:' #'doPerform:'
                          #'argument:' #'menu_print'
                      )
                       #(#MenuItem
                          #'label:' '-'
                      )
                       #(#MenuItem
                          #'label:' 'Exit'
                          #'translateLabel:' true
                          #'value:' #closeRequest
                          #'activeHelpKey:' #fileExit
                      )
                    ) nil
                    nil
                )
            )
             #(#MenuItem
                #'label:' 'Navigate'
                #'submenuChannel:' #menuNavigate
            )
             #(#MenuItem
                #'label:' 'Misc'
                #'submenu:' 
                 #(#Menu
                    
                     #(
                       #(#MenuItem
                          #'label:' 'Source...'
                          #'value:' #'doPerform:'
                          #'argument:' #'menu_source'
                      )
                       #(#MenuItem
                          #'label:' '-'
                      )
                       #(#MenuItem
                          #'label:' 'Settings...'
                          #'value:' #'doPerform:'
                          #'argument:' #'menu_settings'
                      )
                    ) nil
                    nil
                )
            )
             #(#MenuItem
                #'label:' 'History'
                #'activeHelpKey:' #history
                #'submenuChannel:' #menuHistory
            )
             #(#MenuItem
                #'label:' 'Help'
                #'startGroup:' #right
                #'activeHelpKey:' #help
                #'submenuChannel:' #menuHelp
            )
          ) nil
          nil
      )
!

menuNavigate
    "this window spec was automatically generated by the ST/X MenuEditor"

    "do not manually edit this - the builder may not be able to
     handle the specification if its corrupted."

    "
     MenuEditor new openOnClass:HTMLBrowser andSelector:#menuNavigate
     (Menu new fromLiteralArrayEncoding:(HTMLBrowser menuNavigate)) startUp
    "

    <resource: #menu>

    ^
     
       #(#Menu
          
           #(
             #(#MenuItem
                #'label:' 'Next'
                #'value:' #'doPerform:'
                #'enabled:' #valueOfCanNavigateToNext
                #'argument:' '1'
                #'labelImage:' #(#ResourceRetriever nil #rightIcon 'Next')
            )
             #(#MenuItem
                #'label:' 'Previous'
                #'value:' #'doPerform:'
                #'enabled:' #valueOfCanNavigateToPrevious
                #'argument:' '-1'
                #'labelImage:' #(#ResourceRetriever nil #leftIcon 'Previous')
            )
             #(#MenuItem
                #'label:' '-'
            )
             #(#MenuItem
                #'label:' 'Home'
                #'value:' #'doPerform:'
                #'argument:' #'menu_home'
            )
             #(#MenuItem
                #'label:' 'Back'
                #'value:' #'doPerform:'
                #'argument:' #'menu_back'
            )
             #(#MenuItem
                #'label:' 'Reload'
                #'value:' #'doPerform:'
                #'argument:' #'menu_reload'
            )
          ) nil
          nil
      )
!

menuToolbar
    "this window spec was automatically generated by the ST/X MenuEditor"

    "do not manually edit this - the builder may not be able to
     handle the specification if its corrupted."

    "
     MenuEditor new openOnClass:HTMLBrowser andSelector:#menuToolbar
     (Menu new fromLiteralArrayEncoding:(HTMLBrowser menuToolbar)) startUp
    "

    <resource: #menu>

    ^
     
       #(#Menu
          
           #(
             #(#MenuItem
                #'label:' 'Load'
                #'isButton:' true
                #'value:' #doLoad
                #'labelImage:' #(#ResourceRetriever nil #loadIcon)
            )
             #(#MenuItem
                #'label:' ''
            )
             #(#MenuItem
                #'label:' 'Next'
                #'isButton:' true
                #'value:' #'doPerform:'
                #'enabled:' #valueOfCanNavigateToNext
                #'argument:' '1'
                #'labelImage:' #(#ResourceRetriever nil #rightIcon)
            )
             #(#MenuItem
                #'label:' 'Previous'
                #'isButton:' true
                #'value:' #'doPerform:'
                #'enabled:' #valueOfCanNavigateToPrevious
                #'argument:' '-1'
                #'labelImage:' #(#ResourceRetriever nil #leftIcon)
            )
          ) nil
          nil
      )
! !

!HTMLBrowser methodsFor:'accessing - views'!

htmlViewDoc

    ^(builder componentAt: #htmlView) scrolledView
! !

!HTMLBrowser methodsFor:'aspects'!

valueOfCanNavigateToNext

    |holder|

    (holder := builder bindingAt:#valueOfCanNavigateToNext) isNil ifTrue:[
        builder aspectAt:#valueOfCanNavigateToNext put:(holder :=  false asValue).
    ].
    ^ holder
!

valueOfCanNavigateToPrevious

    |holder|

    (holder := builder bindingAt:#valueOfCanNavigateToPrevious) isNil ifTrue:[
        builder aspectAt:#valueOfCanNavigateToPrevious put:(holder :=  false asValue).
    ].
    ^ holder
!

valueOfHTMLDocument

    |holder|

    (holder := builder bindingAt:#valueOfHTMLDocument) isNil ifTrue:[
        builder aspectAt:#valueOfHTMLDocument put:(holder :=  ValueHolder new).
    ].
    ^ holder
! !

!HTMLBrowser methodsFor:'help'!

openTutorial

    self doPerform: #menu_help

! !

!HTMLBrowser methodsFor:'startup / release'!

postOpenWith:aBuilder

    self loadFromFile: self class lastFileName.
    self htmlViewDoc history addAll: self historyEntries.
    self updateChannels.
    super postOpenWith:aBuilder.

! !

!HTMLBrowser methodsFor:'user actions'!

doLoad

    self loadFromFile: 
        (FileSelectionBrowser request: 'Load a HTML File' fileFilters: #('.htm' '*.html'))





!

doPerform: what

    (self htmlViewDoc respondsTo: what)     
    ifTrue:
    [
        self htmlViewDoc perform: what.
        self valueOfHTMLDocument value: self htmlViewDoc currentURL.
        self class lastFileName: self htmlViewDoc currentURL
    ]
    ifFalse:
    [
        self valueOfHTMLDocument value: 
            (self class lastFileName: (self htmlViewDoc history at: 
                (self htmlViewDoc history indexOf: self valueOfHTMLDocument value) + what asInteger ifAbsent: [self class lastFileName])).
    ].

    self updateChannels
!

loadFromFile: aFileName

    self valueOfHTMLDocument value: aFileName.
    aFileName notNil 
    ifTrue: 
    [
        self class lastFileName: aFileName
    ].

    self updateChannels
!

updateChannels

    |htmlViewDoc|
    htmlViewDoc := self htmlViewDoc.
    (htmlViewDoc history at: 
    (htmlViewDoc history indexOf: self valueOfHTMLDocument value) + 1 
    ifAbsent: nil) isNil
        ifTrue: [self valueOfCanNavigateToNext value: false]
        ifFalse: [self valueOfCanNavigateToNext value: true].

    (htmlViewDoc history at: 
    (htmlViewDoc history indexOf: self valueOfHTMLDocument value) - 1 
    ifAbsent: nil) isNil
        ifTrue: [self valueOfCanNavigateToPrevious value: false]
        ifFalse: [self valueOfCanNavigateToPrevious value: true].

    "self emptyHistory."
    htmlViewDoc history do: [:url| self addToHistory: url -> #loadFromFile:].
! !

!HTMLBrowser class methodsFor:'documentation'!

version
    ^ '$Header$'
! !