"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2008 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: Smalltalk }"

Object subclass:#Win32FileDialog

	instanceVariableNames:'fileName openFileNameStruct filters lpstrFilter lpstrFile

		lpstrInitialDir lpstrTitle lpstrDefExt defFilter defExtension

		style title smalltalkFileFilters defFilterIndex parent error'

	classVariableNames:'Lock InitialDirectory CommonDialogConstants

		FilterPatternDescriptions'

	poolDictionaries:'Win32Constants'

	category:'OS-Windows'

!

ByteArray variableByteSubclass:#OpenFilenameStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32FileDialog

!

!Win32FileDialog class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2008 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.

"

!

documentation

"

    interface to windows file dialogs.

    Written by felix madrid.

"

! !

!Win32FileDialog class methodsFor:'initialization'!

initialize

    Lock := RecursionLock new.

    "Created: / 26-10-2010 / 12:51:23 / cg"

!

startUp

    "Private - Initialize the class variables.

     This is called during startup."

    InitialDirectory := Directory pathName: Disk drivePathName.

! !

!Win32FileDialog class methodsFor:'instance creation'!

new

    ^ self basicNew initialize

! !

!Win32FileDialog class methodsFor:'accessing'!

getInitialDirectory

    ^ InitialDirectory

    "Modified: / 26-10-2010 / 18:47:46 / cg"

!

setInitialDirectory:aName

    InitialDirectory := Directory pathName:aName

    "Modified: / 26-10-2010 / 18:47:48 / cg"

! !

!Win32FileDialog class methodsFor:'constants'!

commonDialogConstantAt:aString

    ^ self commonDialogConstants at:aString

	ifAbsent:[

	    Transcript showCR:'Common Dialog Constant ' , aString , ' notfound!!'

	]

    "Modified: / 26-10-2010 / 18:47:51 / cg"

!

commonDialogConstants

    CommonDialogConstants isNil ifTrue:[

	CommonDialogConstants := self generateCommonDialogConstants

    ].

    ^ CommonDialogConstants

    "Modified: / 26-10-2010 / 18:47:54 / cg"

!

generateCommonDialogConstants

    |dictionary|

    dictionary := Dictionary new.

    dictionary

	at:'CcPreventfullopen' put:4;

	at:'FrShowhelp' put:128;

	at:'PdEnablesetuptemplate' put:32768;

	at:'FrNoupdown' put:1024;

	at:'CfNosimulations' put:4096;

	at:'OfnPathmustexist' put:2048;

	at:'CfWysiwyg' put:32768;

	at:'PdReturndc' put:256;

	at:'PdEnableprinthook' put:4096;

	at:'CfInittologfontstruct' put:64;

	at:'CfScalableonly' put:131072;

	at:'PdPrinttofile' put:32;

	at:'CfEffects' put:256;

	at:'PdShowhelp' put:2048;

	at:'OfnEnabletemplatehandle' put:128;

	at:'CfBoth' put:3;

	at:'OfnReadonly' put:1;

	at:'PdNopagenums' put:8;

	at:'PdDisableprinttofile' put:524288;

	at:'PdHideprinttofile' put:1048576;

	at:'OfnAllowmultiselect' put:512;

	at:'CfPrinterfonts' put:2;

	at:'CfEnabletemplatehandle' put:32;

	at:'PdSelection' put:1;

	at:'OfnHidereadonly' put:4;

	at:'PdPrintsetup' put:64;

	at:'OfnExtentiondifferent' put:1024;

	at:'FrReplaceall' put:32;

	at:'FrMatchcase' put:4;

	at:'OfnFilemustexist' put:4096;

	at:'PdCollate' put:16;

	at:'CfFixedpitchonly' put:16384;

	at:'PdEnablesetuphook' put:8192;

	at:'OfnShareaware' put:16384;

	at:'CcEnablehook' put:16;

	at:'CfEnabletemplate' put:16;

	at:'Findmsgstring' put:'commdlgFindreplace';

	at:'CfLimitsize' put:8192;

	at:'OfnNochangedir' put:8;

	at:'OfnCreateprompt' put:8192;

	at:'ScreenFonttype' put:8192;

	at:'PdUsedevmodecopies' put:262144;

	at:'CcRgbinit' put:1;

	at:'FrFindnext' put:8;

	at:'CfUsestyle' put:128;

	at:'FrEnablehook' put:256;

	at:'PdEnableprinttemplatehandle' put:65536;

	at:'CfShowhelp' put:4;

	at:'FrNowholeword' put:4096.

    dictionary

	at:'ShareExist' put:16448;

	at:'OfnOverwriteprompt' put:2;

	at:'OfnEnablehook' put:32;

	at:'OfnShowhelp' put:16;

	at:'CcEnabletemplatehandle' put:64;

	at:'SimulatedFonttype' put:32768;

	at:'FrDown' put:1;

	at:'PdEnableprinttemplate' put:16384;

	at:'CfNovectorfonts' put:2048;

	at:'PdNoselection' put:4;

	at:'CfAnsionly' put:1024;

	at:'OfnNovalidate' put:256;

	at:'CfScreenfonts' put:1;

	at:'FrWholeword' put:2;

	at:'FrEnabletemplatehandle' put:8192;

	at:'PdAllpages' put:0;

	at:'CfForcefontexist' put:65536;

	at:'CcEnabletemplate' put:32;

	at:'PdPagenums' put:2;

	at:'FrReplace' put:16;

	at:'PdEnablesetuptemplatehandle' put:131072;

	at:'CfApply' put:512;

	at:'OfnEnabletemplate' put:64;

	at:'DnDefaultprn' put:1;

	at:'PdNowarning' put:128;

	at:'CfTtonly' put:262144;

	at:'PrinterFonttype' put:16384;

	at:'CcShowhelp' put:8;

	at:'CcFullopen' put:2;

	at:'PdReturnic' put:512;

	at:'FrEnabletemplate' put:512;

	at:'FrDialogterm' put:64;

	at:'Helpmsgstring' put:'commdlgHelp';

	at:'PdReturndefault' put:1024;

	at:'FrNomatchcase' put:2048;

	at:'CfEnablehook' put:8.

    ^ dictionary

    "Modified: / 26-10-2010 / 18:47:57 / cg"

! !

!Win32FileDialog class methodsFor:'examples'!

openFile

    ^ (Win32FileDialog new openFile: 'c:\untitled.txt') file.

    "

     Win32FileDialog openFile

    "

!

saveFile

    ^ (Win32FileDialog new saveFile: 'C:\vsw311\untitled.txt') file.

    "

     self saveFile

    "

! !

!Win32FileDialog class methodsFor:'filters'!

filterPatternDescription:filterPattern

    ^ self filterPatternDescriptions at:filterPattern ifAbsent:''

    "Modified: / 26-10-2010 / 18:48:24 / cg"

!

filterPatternDescriptions

    FilterPatternDescriptions isNil ifTrue:[

	FilterPatternDescriptions := self generateFilterPatternDescriptions

    ].

    ^ FilterPatternDescriptions

    "Modified: / 26-10-2010 / 18:48:25 / cg"

!

filtersFor:pattern

    |filters filterPatterns|

    pattern isEmptyOrNil ifTrue:[

	^ nil

    ].

    filters := OrderedCollection new.

    filterPatterns := pattern subStrings:$;.

    filterPatterns do:[:filterPattern |

	filterPattern notEmpty ifTrue:[

	    filters add:(Array with:(self filterPatternDescription:filterPattern)

			with:filterPattern)

	].

    ].

    ^ filters asArray

    "Modified: / 26-10-2010 / 18:48:26 / cg"

!

generateFilterPatternDescriptions

    ^ (Dictionary new)

        at:'*.txt'              put:'Text files (*.txt)';

        at:'*.st'               put:'Smalltalk files (*.st)';

        at:'*.java'             put:'Java files (*.java)';

        at:'*.csv'              put:'CSV files (*.csv)';

        at:'*.xml'              put:'XML files (*.xml)';

        at:'*.zip'              put:'ZIP files (*.zip)';

        at:'*.xls'              put:'Excel files (*.xls)';

        at:'*.ent'              put:'SGML Entity files (*.ent)';

        at:'*.ccs'              put:'CCS files (*.ccs)';

        at:'*.dll'              put:'Shared Library files (*.dll)';

        at:'*.ini'              put:'Configuration files (*.ini)';

        at:'*.prn'              put:'Printer Text files (*.prn)';

        at:'*.dir'              put:'DapasX Database files (*.dir)';

        at:'*.dat'              put:'DapasX Database files (*.dat)';

        at:'*.prg'              put:'DapasX Program files (*.prg)';

        at:'*.dcf'              put:'DapasX Options files (*.dcf)';

        at:'*.ext'              put:'DapasX Backup files (*.ext)';

        at:'*.mpl'              put:'DapasX Project files (*.mpl)';

        yourself

    "Modified: / 26-10-2010 / 18:48:28 / cg"

! !

!Win32FileDialog class methodsFor:'opening'!

fileDialogFor:ownerWindow save:isSaveDialog

    title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil

    filter:pattern extension:extensionOrNil

    <resource: #obsolete>

    "start a native open-file dialog.

     If not cancelled, the selected fileName is returned; nil otherwise.

     Of course, this one looks like the

     Windows file dialog - no matter which viewStyle settings are active.

     Notice: if no ownerWindow is given, the dialog pops up at 0@0.

     EXPERIMENTAL & non-portable: use with caution"

    self obsoleteMethodWarning:'please use the new interface'.

    ^ self

        fileDialogFor:ownerWindow save:isSaveDialog

        title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil

        pattern:pattern extension:extensionOrNil

!

fileDialogFor:ownerWindow save:isSaveDialog

    title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil

    pattern:pattern extension:extensionOrNil

    "start a native open-file dialog.

     If not cancelled, the selected fileName is returned; nil otherwise.

     Of course, this one looks like the

     Windows file dialog - no matter which viewStyle settings are active.

     Notice: if no ownerWindow is given, the dialog pops up at 0@0.

     EXPERIMENTAL & non-portable: use with caution"

    ^ self

        fileDialogFor:ownerWindow save:isSaveDialog

        title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil

        pattern:pattern orFilters:nil extension:extensionOrNil

!

fileDialogFor:ownerWindow save:isSaveDialog

    title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil

    pattern:patternOrNil orFilters:filtersOrNil extension:extensionOrNil

    "start a native open-file dialog.

     If not cancelled, the selected fileName is returned; nil otherwise.

     Of course, this one looks like the

     Windows file dialog - no matter which viewStyle settings are active.

     Notice: if no ownerWindow is given, the dialog pops up at 0@0.

     EXPERIMENTAL & non-portable: use with caution"

    |filePath filterArrayOrNil|

    filtersOrNil notNil ifTrue:[

        filterArrayOrNil := filtersOrNil.

    ] ifFalse:[

        patternOrNil notNil ifTrue:[

            filterArrayOrNil := self filtersFor:patternOrNil.

        ]

    ].

    filePath :=

        self new

            openFor:ownerWindow

            save:isSaveDialog

            title:titleOrNil

            inDirectory:dirPathOrNil

            initialAnswer:initialOrNil

            filter:filterArrayOrNil

            extension:extensionOrNil.

    ^ filePath

! !

!Win32FileDialog methodsFor:'accessing'!

addAllFilesFilter

    self addFilter: '*.*' description: 'All Files (*.*)'.

!

addFilter:aFilter description:aDescription

    "Add aFilter and aDescription to the list of File dialog filters."

    filters add:(Association key:aFilter value:aDescription).

    "Modified: / 26-10-2010 / 18:45:27 / cg"

!

addSmalltalkFileFilters

    ^ smalltalkFileFilters

    "Modified: / 26-10-2010 / 18:45:29 / cg"

!

defExtension:aDefExtension

    "Specifies the default extension of File dialog."

    defExtension := aDefExtension.

    "Modified: / 26-10-2010 / 18:45:54 / cg"

!

defFilter

    "Answers the aDefFilterString as the default filter of File dialog."

    ^ defFilter

    "Modified: / 26-10-2010 / 18:45:56 / cg"

!

defFilter:aDefFilterString

    "Specifies the aDefFilterString as the default filter of File dialog."

    defFilter := aDefFilterString

    "Modified: / 26-10-2010 / 18:45:58 / cg"

!

defFilterIndex:defaultFilterIndex

    defFilterIndex := defaultFilterIndex.

    "Modified: / 26-10-2010 / 18:46:01 / cg"

!

directory

    "Answer the selected directory."

    InitialDirectory isNil ifTrue:[

	^ Filename currentDirectory pathName asFilename

    ].

    ^ InitialDirectory "? OperatingSystem getCurrentDirectory asFilename"

    "Modified: / 26-10-2010 / 18:46:03 / cg"

!

directory:directory

    "Sets the initial directory."

    |aFilename|

    directory isNil ifTrue:[

	^ self.

    ].

    aFilename := directory asFilename.

    aFilename exists ifTrue:[

	InitialDirectory := aFilename

    ].

    "Modified: / 26-10-2010 / 18:46:06 / cg"

!

file

    "Answer the selected file."

    ^ fileName

    "Modified: / 26-10-2010 / 18:46:10 / cg"

!

fileSpec: aFileSpec

    "Sets the initial fileName and directory in the File Dialog."

    | array dir |

    "SHOULD assign initial fileName and directory separately using #fileName: and #directory"

    self breakPoint:#fm.

    fileName := aFileSpec.

"/    array := Filename splitPath: aFileSpec in: self directory .

"/    dir :=

"/        (( String with: ( array at: 1 ) with: $: ),

"/        ( ( array at: 2 ) isEmpty ifTrue: [ '\' ] ifFalse: [ array at: 2 ] )) asFilename.

"/    dir exists ifFalse: [ dir := OperatingSystem getCurrentDirectory asFilename ].

"/

"/    self directory: dir.

"/    fileName := array at: 3

    "Modified: / 26-10-2010 / 18:46:22 / cg"

!

filters

    "Private - answers  a string containing all filters and sets up

     the defFilterIndex property"

    | filterString count defaultFilterIndex defaultFilter|

    smalltalkFileFilters notNil ifTrue: [

	self

	    addFilter: '*.cls' description: 'Class Files (*.CLS)';

	    addFilter: '*.mth' description: 'Method Files (*.MTH)';

	    addFilter: '*.st' description: 'Smalltalk Files (*.ST)';

	    addFilter: '*.bnd' description: 'Library Bind Files (*.BND)';

	    addFilter: '*.map' description: 'Library Map Files (*.MAP)';

	    addFilter: '*.ini' description: 'Initialization Files (*.INI)';

	    addFilter: '*.obj' description: 'Object Files (*.OBJ)';

	    addFilter: '*.log' description: 'Log Files (*.LOG)'

    ].

    defaultFilter := self defFilter.

    (fileName notEmptyOrNil and:[defaultFilter isNil]) ifTrue:[

	|initialFilenameSuffix|

	initialFilenameSuffix := fileName asFilename suffix.

	initialFilenameSuffix notEmptyOrNil ifTrue:[

	    defaultFilter := '*.', initialFilenameSuffix.