/***************************************************************************
begin : Tue Apr 8 2003
copyright : ( C ) 2003 , 2004 , 2005 by Carsten Niehaus
email : cniehaus @ kde . org
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/***************************************************************************
* *
* This program is free software ; you can redistribute it and / or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation ; either version 2 of the License , or *
* ( at your option ) any later version . *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
# include "detailinfodlg.h"
# include "isotope.h"
# include "kalziumutils.h"
# include "kalziumdataobject.h"
# include <kdebug.h>
# include <klocale.h>
# include <kiconloader.h>
# include <khtml_part.h>
# include <khtmlview.h>
# include <kstandarddirs.h>
# include <kactioncollection.h>
# include <kcombobox.h>
# include <kapplication.h>
# include <tqfile.h>
# include <tqlabel.h>
# include <tqimage.h>
# include <tqwhatsthis.h>
# include <tqlayout.h>
# include <tqpushbutton.h>
# include <tqwidgetstack.h>
# include "element.h"
# include "orbitswidget.h"
# include "detailedgraphicaloverview.h"
# include "spectrum.h"
# include "spectrumviewimpl.h"
//TODO add bondxx-radius (H-H-distance for example)
DetailedInfoDlg : : DetailedInfoDlg ( Element * el , TQWidget * tqparent , const char * name )
: KDialogBase ( IconList , name , Help | User1 | User2 | Close , Close , tqparent , name ,
false , //non modal
false ,
KGuiItem ( i18n ( " Next element " , " Next " ) , " 1rightarrow " ) ,
KGuiItem ( i18n ( " Previous element " , " Previous " ) , " 1leftarrow " ) )
{
m_element = el ;
m_baseHtml = KGlobal : : dirs ( ) - > findResourceDir ( " data " , " kalzium/data/ " ) ;
m_baseHtml . append ( " kalzium/data/htmlview/ " ) ;
m_baseHtml . append ( " style.css " ) ;
m_picsdir = KGlobal : : dirs ( ) - > findResourceDir ( " appdata " , " elempics/ " ) + " elempics/ " ;
( actionButton ( KDialogBase : : Close ) ) - > setFocus ( ) ;
// creating the tabs but not the contents, as that will be done when
// setting the element
createContent ( ) ;
m_actionCollection = new KActionCollection ( this ) ;
KStdAction : : quit ( TQT_TQOBJECT ( this ) , TQT_SLOT ( slotClose ( ) ) , m_actionCollection ) ;
setButtonTip ( User2 , i18n ( " Goes to the previous element " ) ) ;
setButtonTip ( User1 , i18n ( " Goes to the next element " ) ) ;
setElement ( el ) ;
}
void DetailedInfoDlg : : setElement ( Element * element )
{
if ( ! element ) return ;
m_element = element ;
m_elementNumber = element - > number ( ) ;
reloadContent ( ) ;
enableButton ( User1 , true ) ;
enableButton ( User2 , true ) ;
if ( m_elementNumber = = 1 )
enableButton ( User2 , false ) ;
else if ( m_elementNumber = = KalziumDataObject : : instance ( ) - > numberOfElements ( ) )
enableButton ( User1 , false ) ;
}
KHTMLPart * DetailedInfoDlg : : addHTMLTab ( const TQString & title , const TQString & icontext , const TQString & iconname )
{
TQFrame * frame = addPage ( title , icontext , BarIcon ( iconname ) ) ;
TQVBoxLayout * tqlayout = new TQVBoxLayout ( frame ) ;
tqlayout - > setMargin ( 0 ) ;
KHTMLPart * w = new KHTMLPart ( frame , " html-part " , TQT_TQOBJECT ( frame ) ) ;
tqlayout - > addWidget ( w - > view ( ) ) ;
return w ;
}
void DetailedInfoDlg : : fillHTMLTab ( KHTMLPart * htmlpart , const TQString & htmlcode )
{
if ( ! htmlpart ) return ;
htmlpart - > begin ( ) ;
htmlpart - > write ( htmlcode ) ;
htmlpart - > end ( ) ;
}
TQString DetailedInfoDlg : : getHtml ( DATATYPE type )
{
TQString html = " <!DOCTYPE HTML PUBLIC \" -//W3C//DTD HTML 4.01 Transitional//EN \" \" http://www.w3.org/TR/html4/loose.dtd \" ><html><head><title>Chemical data</title><link rel= \" stylesheet \" type= \" text/css \" href= \" " ;
html + = m_baseHtml + " \" /><base href= \" " + m_baseHtml + " \" /></head><body><div class= \" chemdata \" > " ;
//get the list of ionisation-energies
TQValueList < double > ionlist = m_element - > ionisationList ( ) ;
html . append ( " <div><table summary= \" header \" ><tr><td> " ) ;
html . append ( m_element - > symbol ( ) ) ;
html . append ( " <td><td> " ) ;
html . append ( i18n ( " Block: %1 " ) . tqarg ( m_element - > block ( ) ) ) ;
html . append ( " </td></tr></table></div> " ) ;
html . append ( " <table summary= \" characteristics \" class= \" characterstics \" > " ) ;
switch ( type )
{
case CHEMICAL :
html . append ( " <tr><td><img src= \" structure.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( " <b> " + i18n ( " Electronic configuration: %1 " ) . tqarg ( m_element - > parsedOrbits ( ) ) + " </b> " ) ;
html . append ( " </td></tr> " ) ;
html . append ( " <tr><td><img src= \" density.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( " <b> " + i18n ( " Density: %1 " ) . tqarg ( m_element - > adjustUnits ( Element : : DENSITY ) ) + " </b> " ) ;
html . append ( " </td></tr> " ) ;
html . append ( " <tr><td><img src= \" radius.png \" alt= \" icon \" /></td><td><b> " ) ;
html . append ( " <b> " + i18n ( " Covalent Radius: %1 " ) . tqarg ( m_element - > adjustRadius ( Element : : COVALENT ) ) + " </b> " ) ;
html . append ( " </td></tr> " ) ;
if ( m_element - > radius ( Element : : IONIC ) > 0.0 )
{
html . append ( " <tr><td><img src= \" radius.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " <b>Ionic Radius (Charge): %1</b> (%2) " ) . tqarg ( m_element - > adjustRadius ( Element : : IONIC ) ) . tqarg ( m_element - > ioncharge ( ) ) ) ;
html . append ( " </td></tr> " ) ;
}
if ( m_element - > radius ( Element : : VDW ) > 0.0 )
{
html . append ( " <tr><td><img src= \" radius.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( " <b> " + i18n ( " van der Waals Radius: %1 " ) . tqarg ( m_element - > adjustRadius ( Element : : VDW ) ) + " </b> " ) ;
html . append ( " </td></tr> " ) ;
}
if ( m_element - > radius ( Element : : ATOMIC ) > 0.0 )
{
html . append ( " <tr><td><img src= \" radius.png \" alt= \" icon \" /></td><td><b> " ) ;
html . append ( " <b> " + i18n ( " Atomic Radius: %1 " ) . tqarg ( m_element - > adjustRadius ( Element : : ATOMIC ) ) + " </b> " ) ;
html . append ( " </td></tr> " ) ;
}
html . append ( " <tr><td stype= \" text-align:center \" ><img src= \" mass.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( " <b> " + i18n ( " Mass: %1 " ) . tqarg ( m_element - > adjustUnits ( Element : : MASS ) ) + " </b> " ) ;
html . append ( " </td></tr> " ) ;
if ( ! m_element - > isotopes ( ) . isEmpty ( ) )
{
html . append ( " <tr><td stype= \" text-align:center \" ><img src= \" mass.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( isotopeTable ( ) ) ;
html . append ( " </td></tr> " ) ;
}
break ;
case MISC :
html . append ( " <tr><td><img src= \" discovery.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( m_element - > adjustUnits ( Element : : DATE ) ) ;
if ( ! m_element - > scientist ( ) . isEmpty ( ) )
html + = " <br /> " + i18n ( " It was discovered by %1 " ) . tqarg ( m_element - > scientist ( ) ) ;
html . append ( " </td></tr> " ) ;
if ( m_element - > abundance ( ) > 0 ) {
html . append ( " <tr><td><img src= \" abundance.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " Abundance in crustal rocks: %1 ppm " ) . tqarg ( KGlobal : : locale ( ) - > formatLong ( m_element - > abundance ( ) ) ) ) ;
html . append ( " </td></tr> " ) ;
}
html . append ( " <tr><td><img src= \" mass.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " Mean mass: %1 u " ) . tqarg ( KalziumUtils : : localizedValue ( m_element - > meanmass ( ) , 6 ) ) ) ;
html . append ( " </td></tr> " ) ;
if ( ! m_element - > nameOrigin ( ) . isEmpty ( ) )
{
html . append ( " <tr><td><img src= \" book.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " Origin of the name: %1 " ) . tqarg ( m_element - > nameOrigin ( ) ) ) ;
html . append ( " </td></tr> " ) ;
}
if ( m_element - > artificial ( ) | | m_element - > radioactive ( ) )
{
html . append ( " <tr><td><img src= \" structure.png \" alt= \" icon \" /></td><td> " ) ;
if ( ! m_element - > radioactive ( ) )
html . append ( i18n ( " This element is artificial " ) ) ;
else if ( ! m_element - > artificial ( ) )
html . append ( i18n ( " This element is radioactive " ) ) ;
else
html . append ( i18n ( " This element is radioactive and artificial " ) ) ;
html . append ( " </td></tr> " ) ;
}
break ;
case ENERGY :
html . append ( " <tr><td><img src= \" meltingpoint.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " Melting Point: %1 " ) . tqarg ( m_element - > adjustUnits ( Element : : MELTINGPOINT ) ) ) ;
html . append ( " </td></tr> " ) ;
html . append ( " <tr><td><img src= \" boilingpoint.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " Boiling Point: %1 " ) . tqarg ( m_element - > adjustUnits ( Element : : BOILINGPOINT ) ) ) ;
html . append ( " </td></tr> " ) ;
html . append ( " <tr><td><img src= \" structure.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " Electronegativity: %1 " ) . tqarg ( m_element - > adjustUnits ( Element : : EN ) ) ) ;
html . append ( " </td></tr> " ) ;
html . append ( " <tr><td><img src= \" electronaffinity.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " Electron affinity: %1 " ) . tqarg ( m_element - > adjustUnits ( Element : : EA ) ) ) ;
html . append ( " </td></tr> " ) ;
uint i = 0 ;
for ( ; i < ionlist . count ( ) ; + + i )
{
html . append ( " <tr><td><img src= \" ionisation.png \" alt= \" icon \" /></td><td> " ) ;
html . append ( i18n ( " the first variable is a number. The result is for example '1.' or '5.', the second is the value of the ionisation energy " ,
" %1. Ionization energy: %2 " ) . tqarg ( TQString : : number ( i + 1 ) , m_element - > adjustUnits ( Element : : IE , ionlist [ i ] ) ) ) ;
html . append ( " </td></tr> " ) ;
}
break ;
}
html + = ( " </table> " ) ;
html + = " </div></body></html> " ;
return html ;
}
TQString DetailedInfoDlg : : isotopeTable ( )
{
TQValueList < Isotope * > list = m_element - > isotopes ( ) ;
TQString html ;
html = " <table class= \" isotopes \" cellspacing= \" 0 \" ><tr><td colspan= \" 7 \" > " ;
html + = i18n ( " Isotope-Table " ) ;
html + = " </tr></td><tr><td><b> " ;
html + = i18n ( " Mass " ) ;
html + = " </b></td><td><b> " ;
html + = i18n ( " Neutrons " ) ;
html + = " </b></td><td><b> " ;
html + = i18n ( " Percentage " ) ;
html + = " </b></td><td><b> " ;
html + = i18n ( " Half-life period " ) ;
html + = " </b></td><td><b> " ;
html + = i18n ( " Energy and Mode of Decay " ) ;
html + = " </b></td><td><b> " ;
html + = i18n ( " Spin and Parity " ) ;
html + = " </b></td><td><b> " ;
html + = i18n ( " Magnetic Moment " ) ;
html + = " </b></td></tr> " ;
TQValueList < Isotope * > : : const_iterator it = list . begin ( ) ;
const TQValueList < Isotope * > : : const_iterator itEnd = list . end ( ) ;
for ( ; it ! = itEnd ; + + it )
{
html . append ( " <tr><td align= \" right \" > " ) ;
if ( ( * it ) - > weight ( ) > 0.0 )
html . append ( i18n ( " %1 u " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > weight ( ) , 6 ) ) ) ;
// html.append( i18n( "%1 u" ).tqarg( TQString::number( ( *it )->weight() ) ));
html . append ( " </td><td> " ) ;
html . append ( TQString : : number ( ( * it ) - > neutrons ( ) ) ) ;
html . append ( " </td><td> " ) ;
if ( ( * it ) - > percentage ( ) > 0.0 )
html . append ( i18n ( " this can for example be '24%' " , " %1% " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > percentage ( ) , 6 ) ) ) ;
html . append ( " </td><td> " ) ;
if ( ( * it ) - > halflife ( ) > 0.0 ) {
html . append ( ( * it ) - > halflifeAsString ( ) ) ;
}
html . append ( " </td><td> " ) ;
if ( ( * it ) - > alphapercentage ( ) > 0.0 ) {
if ( ( * it ) - > alphadecay ( ) > 0.0 )
html . append ( i18n ( " %1 MeV " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > alphadecay ( ) , 6 ) ) ) ;
html . append ( i18n ( " %1 " ) . tqarg ( TQChar ( 945 ) ) ) ;
if ( ( * it ) - > alphapercentage ( ) < 100.0 )
html . append ( i18n ( " (%1%) " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > alphapercentage ( ) , 6 ) ) ) ;
if ( ( * it ) - > betaminuspercentage ( ) > 0.0 | | ( * it ) - > betapluspercentage ( ) > 0.0 | | ( * it ) - > ecpercentage ( ) > 0.0 )
html . append ( i18n ( " , " ) ) ;
}
if ( ( * it ) - > betaminuspercentage ( ) > 0.0 ) {
if ( ( * it ) - > betaminusdecay ( ) > 0.0 )
html . append ( i18n ( " %1 MeV " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > betaminusdecay ( ) , 6 ) ) ) ;
html . append ( i18n ( " %1<sup>-</sup> " ) . tqarg ( TQChar ( 946 ) ) ) ;
if ( ( * it ) - > betaminuspercentage ( ) < 100.0 )
html . append ( i18n ( " (%1%) " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > betaminuspercentage ( ) , 6 ) ) ) ;
if ( ( * it ) - > betapluspercentage ( ) > 0.0 | | ( * it ) - > ecpercentage ( ) > 0.0 )
html . append ( i18n ( " , " ) ) ;
}
if ( ( * it ) - > betapluspercentage ( ) > 0.0 ) {
if ( ( * it ) - > betaplusdecay ( ) > 0.0 )
html . append ( i18n ( " %1 MeV " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > betaplusdecay ( ) , 6 ) ) ) ;
html . append ( i18n ( " %1<sup>+</sup> " ) . tqarg ( TQChar ( 946 ) ) ) ;
if ( ( * it ) - > betapluspercentage ( ) = = ( * it ) - > ecpercentage ( ) ) {
if ( ( * it ) - > ecdecay ( ) > 0.0 ) {
html . append ( i18n ( " %1 MeV " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > ecdecay ( ) , 6 ) ) ) ;
}
html . append ( i18n ( " Acronym of Electron Capture " , " EC " ) ) ;
}
if ( ( * it ) - > betapluspercentage ( ) < 100.0 )
html . append ( i18n ( " (%1%) " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > betapluspercentage ( ) , 6 ) ) ) ;
html + = " " ;
}
if ( ( * it ) - > ecpercentage ( ) > 0.0 & & ( * it ) - > ecpercentage ( ) ! = ( * it ) - > betapluspercentage ( ) ) {
if ( ( * it ) - > ecdecay ( ) > 0.0 )
html . append ( i18n ( " %1 MeV " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > ecdecay ( ) , 6 ) ) ) ;
html . append ( i18n ( " Acronym of Electron Capture " , " EC " ) ) ;
if ( ( * it ) - > ecpercentage ( ) < 100.0 )
html . append ( i18n ( " (%1%) " ) . tqarg ( KalziumUtils : : localizedValue ( ( * it ) - > ecpercentage ( ) , 6 ) ) ) ;
}
html . append ( " </td><td> " ) ;
html . append ( ( * it ) - > spin ( ) ) ;
html . append ( " </td><td> " ) ;
if ( ! ( * it ) - > magmoment ( ) . isEmpty ( ) ) {
TQString v = KGlobal : : locale ( ) - > formatNumber ( ( * it ) - > magmoment ( ) , false , 6 ) ;
html . append ( i18n ( " %1 %2<sub>n</sub> " ) . tqarg ( v ) . tqarg ( TQChar ( 956 ) ) ) ;
}
html . append ( " </td></tr> " ) ;
}
html + = " </table> " ;
return html ;
}
void DetailedInfoDlg : : createContent ( )
{
// overview tab
TQFrame * m_pOverviewTab = addPage ( i18n ( " Overview " ) , i18n ( " Overview " ) , BarIcon ( " overview " ) ) ;
TQVBoxLayout * overviewLayout = new TQVBoxLayout ( m_pOverviewTab ) ;
overviewLayout - > setMargin ( 0 ) ;
dTab = new DetailedGraphicalOverview ( m_pOverviewTab , " DetailedGraphicalOverview " ) ;
overviewLayout - > addWidget ( dTab ) ;
// picture tab
TQFrame * m_pPictureTab = addPage ( i18n ( " Picture " ) , i18n ( " What does this element look like? " ) , BarIcon ( " elempic " ) ) ;
TQVBoxLayout * mainLayout = new TQVBoxLayout ( m_pPictureTab ) ;
mainLayout - > setMargin ( 0 ) ;
piclabel = new TQLabel ( m_pPictureTab ) ;
piclabel - > setMinimumSize ( 400 , 350 ) ;
mainLayout - > addWidget ( piclabel ) ;
// atomic model tab
TQFrame * m_pModelTab = addPage ( i18n ( " Atom Model " ) , i18n ( " Atom Model " ) , BarIcon ( " orbits " ) ) ;
TQVBoxLayout * modelLayout = new TQVBoxLayout ( m_pModelTab ) ;
modelLayout - > setMargin ( 0 ) ;
wOrbits = new OrbitsWidget ( m_pModelTab ) ;
modelLayout - > addWidget ( wOrbits ) ;
// html tabs
m_htmlpages [ " chemical " ] = addHTMLTab ( i18n ( " Chemical Data " ) , i18n ( " Chemical Data " ) , " chemical " ) ;
m_htmlpages [ " energies " ] = addHTMLTab ( i18n ( " Energies " ) , i18n ( " Energy Information " ) , " energies " ) ;
m_htmlpages [ " misc " ] = addHTMLTab ( i18n ( " Miscellaneous " ) , i18n ( " Miscellaneous " ) , " misc " ) ;
// spectrum widget tab
TQFrame * m_pSpectrumTab = addPage ( i18n ( " Spectrum " ) , i18n ( " Spectrum " ) , BarIcon ( " spectrum " ) ) ;
TQVBoxLayout * spectrumLayout = new TQVBoxLayout ( m_pSpectrumTab , 0 , KDialog : : spacingHint ( ) ) ;
spectrumLayout - > setMargin ( 0 ) ;
m_spectrumStack = new TQWidgetStack ( m_pSpectrumTab ) ;
spectrumLayout - > addWidget ( m_spectrumStack ) ;
m_spectrumview = new SpectrumViewImpl ( m_spectrumStack , " spectrumwidget " ) ;
m_spectrumStack - > addWidget ( m_spectrumview ) ;
m_spectrumLabel = new TQLabel ( m_spectrumStack ) ;
m_spectrumStack - > addWidget ( m_spectrumLabel ) ;
}
void DetailedInfoDlg : : reloadContent ( )
{
// reading the most common data
const TQString element_name = m_element - > elname ( ) ;
const TQString element_symbol = m_element - > symbol ( ) ;
// updating caption
setCaption ( i18n ( " For example Carbon (6) " , " %1 (%2) " ) . tqarg ( element_name ) . tqarg ( m_elementNumber ) ) ;
// updating overview tab
dTab - > setElement ( m_element ) ;
// updating picture tab
TQString picpath = m_picsdir + element_symbol + " .jpg " ;
if ( TQFile : : exists ( picpath ) )
{
TQImage img ( picpath , " JPEG " ) ;
img = img . smoothScale ( 400 , 400 , TQ_ScaleMin ) ;
TQPixmap pic ;
pic . convertFromImage ( img ) ;
piclabel - > setPixmap ( pic ) ;
}
else
piclabel - > setText ( i18n ( " No picture of %1 found. " ) . tqarg ( element_name ) ) ;
// updating atomic model tab
wOrbits - > setElementNumber ( m_elementNumber ) ;
TQWhatsThis : : add ( wOrbits ,
i18n ( " Here you can see the atomic hull of %1. %2 has the configuration %3. " )
. tqarg ( m_element - > elname ( ) )
. tqarg ( m_element - > elname ( ) )
. tqarg ( m_element - > parsedOrbits ( ) ) ) ;
// updating html tabs
fillHTMLTab ( m_htmlpages [ " chemical " ] , getHtml ( CHEMICAL ) ) ;
fillHTMLTab ( m_htmlpages [ " energies " ] , getHtml ( ENERGY ) ) ;
fillHTMLTab ( m_htmlpages [ " misc " ] , getHtml ( MISC ) ) ;
// updating spectrum widget
if ( m_element - > hasSpectrum ( ) )
{
delete m_spectrumview ;
m_spectrumview = new SpectrumViewImpl ( m_spectrumStack , " spectrumwidget " ) ;
m_spectrumview - > setSpectrum ( m_element - > spectrum ( ) ) ;
m_spectrumStack - > addWidget ( m_spectrumview ) ;
m_spectrumStack - > raiseWidget ( m_spectrumview ) ;
}
else
{
m_spectrumLabel - > setText ( i18n ( " No spectrum of %1 found. " ) . tqarg ( element_name ) ) ;
m_spectrumStack - > raiseWidget ( m_spectrumLabel ) ;
}
}
void DetailedInfoDlg : : slotHelp ( )
{
emit helpClicked ( ) ;
TQString chapter = " infodialog_overview " ;
switch ( activePageIndex ( ) ) {
case 0 :
chapter = " infodialog_overview " ;
break ;
case 1 :
chapter = " infodialog_picture " ;
break ;
case 2 :
chapter = " infodialog_orbits " ;
break ;
case 3 :
chapter = " infodialog_chemical " ;
break ;
case 4 :
chapter = " infodialog_energies " ;
break ;
case 5 :
chapter = " infodialog_misc " ;
break ;
case 6 :
chapter = " infodialog_spectrum " ;
break ;
}
if ( kapp )
kapp - > invokeHelp ( chapter , " kalzium " ) ;
}
void DetailedInfoDlg : : wheelEvent ( TQWheelEvent * ev )
{
if ( ev - > delta ( ) < 0 )
// setting the previous element
slotUser2 ( ) ;
else
// setting the next element
slotUser1 ( ) ;
}
void DetailedInfoDlg : : slotUser1 ( )
{
// setting the next element
if ( m_elementNumber < KalziumDataObject : : instance ( ) - > numberOfElements ( ) )
{
setElement ( KalziumDataObject : : instance ( ) - > element ( m_elementNumber + 1 ) ) ;
// no need to increment m_elementNumber here too,
// as it's already done by setElement
emit elementChanged ( m_elementNumber ) ;
}
}
void DetailedInfoDlg : : slotUser2 ( )
{
// setting the previous element
if ( m_elementNumber > 1 )
{
setElement ( KalziumDataObject : : instance ( ) - > element ( m_elementNumber - 1 ) ) ;
// no need to decrement m_elementNumber here too,
// as it's already done by setElement
emit elementChanged ( m_elementNumber ) ;
}
}
# include "detailinfodlg.moc"
