proc geometry_slaves パス {
plase slaves $パス
pack slaves $パス
grid slaves $パス
}