hg/stx-libwidg2: FilenameWidgetWithHistory.st@8bdad6d9c51a (annotated)

3318 5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	1	"
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	2	COPYRIGHT (c) 2007 by eXept Software AG
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	3	All Rights Reserved
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	4
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	5	This software is furnished under a license and may be used
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	6	only in accordance with the terms of that license and with the
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	7	inclusion of the above copyright notice. This software may not
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	8	be provided or otherwise made available to, or used by, any
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	9	other person. No title to or ownership of the software is
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	10	hereby transferred.
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	11	"
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libwidg2' }"
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	SimpleView subclass:#FilenameWidgetWithHistory
3590 c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	15	instanceVariableNames:'fileNameEntryField browseButton history directoriesOnly filesOnly
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	16	dialogTitle initialDirectoryHolder'
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	classVariableNames:''
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	poolDictionaries:''
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	category:'Views-Interactors'
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	!FilenameWidgetWithHistory class methodsFor:'documentation'!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
3318 5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	24	copyright
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	25	"
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	26	COPYRIGHT (c) 2007 by eXept Software AG
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	27	All Rights Reserved
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	28
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	29	This software is furnished under a license and may be used
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	30	only in accordance with the terms of that license and with the
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	31	inclusion of the above copyright notice. This software may not
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	32	be provided or otherwise made available to, or used by, any
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	33	other person. No title to or ownership of the software is
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	34	hereby transferred.
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	35	"
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	36	!
5a0aff0fd23a copyright Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	37
3471 f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	38	documentation
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	39	"
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	40	A Filename InputField with history-list and a browse-button, which opens a file dialog.
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	41
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	42	[author:]
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	43	Claus Gittinger
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	44
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	45	[see also:]
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	46	ComboBoxView
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	47	FilenameEditField
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	48	FilenameComboBoxView
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	49	"
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	50	!
f3cde37d9d53 * empty log message * Claus Gittinger <cg@exept.de> parents: 3427 diff changeset	51
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	examples
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	"
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	[exBegin]
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	\|top b\|
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	top := StandardSystemView new.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	top extent:(300 @ 200).
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	b := FilenameWidgetWithHistory in:top.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	b origin:(0.0 @ 0.0) corner:(1.0 @ 0.0).
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	b bottomInset:(b preferredExtent y negated).
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	top open.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	[exEnd]
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	"
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	! !
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	!FilenameWidgetWithHistory methodsFor:'accessing'!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70
3590 c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	71	dialogTitle:something
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	72	"set the dialogs title"
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	73
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	74	dialogTitle := something.
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	75	!
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	76
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	77	directoriesOnly:aBoolean
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	78	"if true, directories are selectable only.
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	79	If both filesOnly and directoriesOnly are false, which is the default,
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	80	anything is selectable."
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	81
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	82	directoriesOnly := aBoolean.
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	83	directoriesOnly ifTrue:[
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	84	filesOnly := false.
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	85	].
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	86	fileNameEntryField notNil ifTrue:[
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	87	fileNameEntryField directoriesOnly:aBoolean
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	88	].
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	89	!
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	90
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	91	filesOnly:aBoolean
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	92	"if true, files are selectable only.
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	93	If both filesOnly and directoriesOnly are false, which is the default,
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	94	anything is selectable."
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	95
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	96	filesOnly := aBoolean.
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	97	filesOnly ifTrue:[
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	98	directoriesOnly := false.
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	99	].
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	100	fileNameEntryField notNil ifTrue:[
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	101	fileNameEntryField filesOnly:aBoolean
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	102	].
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	103	!
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	104
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	historyList
3474 cde8a45f74f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	106	history isNil ifTrue:[
cde8a45f74f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	107	history := nil asValue
cde8a45f74f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	108	].
cde8a45f74f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	109	^ history
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111
3593 f11c5a41d4a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	112	historyList:aList
f11c5a41d4a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	113	"set the history - useful when two or more such fields shall share a common history"
f11c5a41d4a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	114
f11c5a41d4a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	115	history := aList
f11c5a41d4a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	116	!
f11c5a41d4a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	117
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	118	initialDirectoryHolder
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	119	"can be used to force the file-dialog into some initial directory"
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	120
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	121	^ initialDirectoryHolder
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	122	!
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	123
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	model
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	^ fileNameEntryField model
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	model:aFilenameHolder
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	fileNameEntryField model:aFilenameHolder.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	! !
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131
3546 b3269a9dec19 +enableChannel Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	132	!FilenameWidgetWithHistory methodsFor:'accessing-channels'!
b3269a9dec19 +enableChannel Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	133
b3269a9dec19 +enableChannel Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	134	enableChannel:aValueHolder
b3269a9dec19 +enableChannel Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	135	fileNameEntryField enableChannel:aValueHolder.
b3269a9dec19 +enableChannel Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	136	browseButton enableChannel:aValueHolder.
b3269a9dec19 +enableChannel Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	137	! !
b3269a9dec19 +enableChannel Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	138
b3269a9dec19 +enableChannel Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	139	!FilenameWidgetWithHistory methodsFor:'accessing-editField attributes'!
3472 20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	140
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	141	acceptIfUnchanged:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	142	fileNameEntryField acceptIfUnchanged:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	143	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	144
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	145	acceptOnLeave:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	146	fileNameEntryField acceptOnLeave:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	147	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	148
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	149	acceptOnLostFocus:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	150	fileNameEntryField acceptOnLostFocus:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	151	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	152
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	153	acceptOnPointerLeave:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	154	fileNameEntryField acceptOnPointerLeave:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	155	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	156
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	157	acceptOnReturn:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	158	fileNameEntryField acceptOnReturn:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	159	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	160
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	161	acceptOnTab:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	162	fileNameEntryField acceptOnTab:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	163	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	164
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	165	contents:aString
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	166	fileNameEntryField contents:aString
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	167	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	168
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	169	immediateAccept:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	170	fileNameEntryField immediateAccept:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	171	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	172
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	173	maxChars:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	174	fileNameEntryField maxChars:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	175	!
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	176
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	177	readOnly:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	178	fileNameEntryField readOnly:aBoolean
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	179	! !
20087c3d9dda * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	180
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	!FilenameWidgetWithHistory methodsFor:'initialization'!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	initialize
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	super initialize.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185
3590 c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	186	directoriesOnly := filesOnly := false.
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	187	initialDirectoryHolder := nil asValue.
3590 c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	188
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	fileNameEntryField := FilenameComboBoxView in:self.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	fileNameEntryField layout:(LayoutFrame
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	leftFraction:0 offset:0
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	rightFraction:1 offset:-22
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	topFraction:0 offset:0
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	bottomFraction:1 offset:0).
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	fileNameEntryField listHolder:(self historyList).
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	browseButton := Button in:self.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	browseButton label:'...'.
3590 c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	199	browseButton action:[ self browseForFileOrDirectory ].
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	browseButton layout:(LayoutFrame
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	leftFraction:1 offset:-22
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	rightFraction:1 offset:-2
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	topFraction:0 offset:0
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	bottomFraction:1 offset:0).
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	! !
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	!FilenameWidgetWithHistory methodsFor:'queries'!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	preferredExtent
3568 2f293d1e2eef changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	210	"/ If I have an explicit preferredExtent..
2f293d1e2eef changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	211	explicitExtent notNil ifTrue:[
2f293d1e2eef changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	212	^ explicitExtent
2f293d1e2eef changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	213	].
2f293d1e2eef changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	214
2f293d1e2eef changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	215	"/ If I have a cached preferredExtent value..
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	preferredExtent notNil ifTrue:[
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	^ preferredExtent
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	].
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219
3427 9927e4970fce added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3318 diff changeset	220	preferredExtent := (fileNameEntryField preferredWidth + browseButton preferredWidth)
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	@
3427 9927e4970fce added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3318 diff changeset	222	(fileNameEntryField preferredHeight "max: browseButton preferredExtent y").
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	^ preferredExtent
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	! !
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	!FilenameWidgetWithHistory methodsFor:'user actions'!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	browseForDestinationDirectory
3590 c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	229	<resource: #obsolete>
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	230	self obsoleteMethodWarning.
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	231	self browseForFileOrDirectory
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	232	!
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	233
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	234	browseForFileOrDirectory
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	235	\|path \|
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	Dialog aboutToOpenBoxNotificationSignal handle:[:ex \|
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	\|dialog\|
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	dialog := ex parameter.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	dialog perform:#browseVisibleHolder with:true ifNotUnderstood:[].
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	ex proceed.
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	] do:[
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	244	\|title defaultPath defaultDir\|
3590 c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	245
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	246	title := dialogTitle notNil
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	247	ifTrue:[ dialogTitle ]
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	248	ifFalse:[
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	249	directoriesOnly
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	250	ifTrue:[ resources string:'Select Directory' ]
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	251	ifFalse:[
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	252	filesOnly
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	253	ifTrue:[ resources string:'Select File' ]
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	254	ifFalse:[ resources string:'Select Path' ]]].
c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	255
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	256	defaultPath := self model value.
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	257	defaultPath notNil ifTrue:[
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	258	defaultDir := defaultPath asFilename directory.
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	259	] ifFalse:[
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	260	defaultDir := initialDirectoryHolder value.
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	261	].
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	262	path := Dialog
3590 c3c778e11564 fixes (thanx to bretts info) Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	263	requestFileName:title
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	264	default:defaultPath
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	265	fromDirectory:defaultDir.
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	].
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	267	path isEmptyOrNil ifTrue:[ ^ self ].
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	269	initialDirectoryHolder value:path asFilename directory.
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	270	"/ lastDirectoryHolder value:path directory.
8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	271	self model value:path.
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	"Modified: / 02-10-2006 / 14:45:54 / cg"
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	! !
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276	!FilenameWidgetWithHistory class methodsFor:'documentation'!
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277
29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278	version
3594 8bdad6d9c51a * empty log message * Claus Gittinger <cg@exept.de> parents: 3593 diff changeset	279	^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.12 2008-11-12 13:44:10 cg Exp $'
3251 29b44f456526 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 12 Nov 2008 14:44:10 +0100
changeset 3594	8bdad6d9c51a
parent 3593	f11c5a41d4a9
child 3700	fada057195d0
permissions	-rw-r--r--